fix loading of bitmaps when computed size is 0

db4
Doug Coleman 2009-06-04 15:06:33 -05:00
parent 7734042b58
commit 580ff7fd32
1 changed files with 3 additions and 3 deletions

View File

@ -212,11 +212,11 @@ ERROR: unknown-bitmap-header n ;
: parse-bitmap ( loading-bitmap -- loading-bitmap )
dup color-palette-length read >>color-palette
dup size-image>> [
dup size-image>> dup 0 > [
read >>color-index
] [
dup color-index-length read >>color-index
] if* ;
drop dup color-index-length read >>color-index
] if ;
ERROR: unsupported-bitmap-file magic ;