fix loading of bitmaps when computed size is 0
parent
7734042b58
commit
580ff7fd32
|
@ -212,11 +212,11 @@ ERROR: unknown-bitmap-header n ;
|
||||||
|
|
||||||
: parse-bitmap ( loading-bitmap -- loading-bitmap )
|
: parse-bitmap ( loading-bitmap -- loading-bitmap )
|
||||||
dup color-palette-length read >>color-palette
|
dup color-palette-length read >>color-palette
|
||||||
dup size-image>> [
|
dup size-image>> dup 0 > [
|
||||||
read >>color-index
|
read >>color-index
|
||||||
] [
|
] [
|
||||||
dup color-index-length read >>color-index
|
drop dup color-index-length read >>color-index
|
||||||
] if* ;
|
] if ;
|
||||||
|
|
||||||
ERROR: unsupported-bitmap-file magic ;
|
ERROR: unsupported-bitmap-file magic ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue