Fix stack leak on resize.

This commit is contained in:
Brad Nelson
2022-03-14 10:21:08 -07:00
parent 1b09f7a2b0
commit 0bbc8c3a48

View File

@ -49,7 +49,7 @@ StructureNotifyMask or constant EVENT-MASK
: image-resize { w h } : image-resize { w h }
w to width h to height w to width h to height
image if image XDestroyImage then image if image XDestroyImage drop then
w h * 4* malloc dup 0= throw to backbuffer w h * 4* malloc dup 0= throw to backbuffer
display visual screen-depth ZPixmap 0 backbuffer display visual screen-depth ZPixmap 0 backbuffer
width height 32 width 4* XCreateImage to image width height 32 width 4* XCreateImage to image