fix loading of bitmaps when computed size is 0
parent
a1f8ab1e6c
commit
8f4983aae4
|
@ -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