From 5391e66099bb89cd94887cbfa902ab96732b58f1 Mon Sep 17 00:00:00 2001
From: chengyemao <chengyemao>
Date: Fri, 7 Dec 2001 00:02:57 +0000
Subject: Added panic to TkPutImage in case of failure to allocate bitmap

---
 win/tkWinDraw.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/win/tkWinDraw.c b/win/tkWinDraw.c
index 5b09693..eeaf334 100644
--- a/win/tkWinDraw.c
+++ b/win/tkWinDraw.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWinDraw.c,v 1.9 2000/10/24 23:51:33 ericm Exp $
+ * RCS: @(#) $Id: tkWinDraw.c,v 1.10 2001/12/07 00:02:57 chengyemao Exp $
  */
 
 #include "tkWinInt.h"
@@ -589,6 +589,10 @@ TkPutImage(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x,
 		image->data, infoPtr, DIB_RGB_COLORS);
 	ckfree((char *) infoPtr);
     }
+    if(!bitmap) {
+	panic("Fail to allocate bitmap\n");
+	return
+    }
     bitmap = SelectObject(dcMem, bitmap);
     BitBlt(dc, dest_x, dest_y, width, height, dcMem, src_x, src_y, SRCCOPY);
     DeleteObject(SelectObject(dcMem, bitmap));
-- 
cgit v0.12