Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-19 11:31:07 +00:00
Code Issues Projects Releases Wiki Activity

fixed some array length loop issues

Browse Source
This commit is contained in:
Irmen de Jong 2019-01-09 22:28:04 +01:00
parent f1b2bd1cc4
commit b2ecf16234
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/prog8lib/prog8lib.p8
View File

@ -364,7 +364,7 @@ lesseq_ub .proc
lda c64.ESTACK_LO+2,x lda c64.ESTACK_LO+2,x
cmp c64.ESTACK_LO+1,x cmp c64.ESTACK_LO+1,x
bcc equal_b._equal_b_true bcc equal_b._equal_b_true
beq equal_b._equal_b_true ; @todo optimize by flipping comparison? beq equal_b._equal_b_true
bcs equal_b._equal_b_false bcs equal_b._equal_b_false
.pend .pend
@ -405,7 +405,7 @@ greater_ub .proc
lda c64.ESTACK_LO+2,x lda c64.ESTACK_LO+2,x
cmp c64.ESTACK_LO+1,x cmp c64.ESTACK_LO+1,x
beq equal_b._equal_b_false beq equal_b._equal_b_false
bcs equal_b._equal_b_true ; @todo optimize by flipping comparison? bcs equal_b._equal_b_true
bcc equal_b._equal_b_false bcc equal_b._equal_b_false
.pend .pend
@ -699,7 +699,8 @@ _greater lda (c64.SCRATCH_ZPWORD1),y
dey dey
_lesseq dey _lesseq dey
dey dey
bpl _loop ; @todo doesn't work for arrays where y will be >127. FIX OTHER LOOPS TOO! cpy #254
bne _loop
lda _result_maxuw lda _result_maxuw
sta c64.ESTACK_LO,x sta c64.ESTACK_LO,x
lda _result_maxuw+1 lda _result_maxuw+1
@ -736,7 +737,8 @@ _loop
dey dey
_lesseq dey _lesseq dey
dey dey
bpl _loop cpy #254
bne _loop
lda _result_maxw lda _result_maxw
sta c64.ESTACK_LO,x sta c64.ESTACK_LO,x
lda _result_maxw+1 lda _result_maxw+1
@ -896,7 +898,8 @@ _less lda (c64.SCRATCH_ZPWORD1),y
dey dey
_gtequ dey _gtequ dey
dey dey
bpl _loop cpy #254
bne _loop
lda _result_minuw lda _result_minuw
sta c64.ESTACK_LO,x sta c64.ESTACK_LO,x
lda _result_minuw+1 lda _result_minuw+1
@ -933,7 +936,8 @@ _loop
dey dey
_gtequ dey _gtequ dey
dey dey
bpl _loop cpy #254
bne _loop
lda _result_minw lda _result_minw
sta c64.ESTACK_LO,x sta c64.ESTACK_LO,x
lda _result_minw+1 lda _result_minw+1

2
docs/source/programming.rst
View File

@ -206,7 +206,7 @@ Array types are also supported. They can be made of bytes, words and floats::
.. note:: .. note::
Right now, the array should be small enough to be indexable by a single byte index. Right now, the array should be small enough to be indexable by a single byte index.
This means byte arrays should be <= 256 elements, word arrays <= 128 elements, and float This means byte arrays should be <= 256 elements, word arrays <= 128 elements, and float
arrays <= 51 elements. This limit may or may not be lifted in a future version. arrays <= 51 elements.
You can split an array initializer list over several lines if you want. You can split an array initializer list over several lines if you want.