fix in csb: must be able to handle 0 cases
This commit is contained in:
parent
0030ddd97f
commit
2c01d45a49
|
@ -12,6 +12,8 @@
|
|||
.csb:
|
||||
save[r2,r3]
|
||||
movd 4(r1), r2 !number of entries
|
||||
cmpqd 0, r2
|
||||
beq 3f
|
||||
movd r1, r3
|
||||
1:
|
||||
addd 8, r3 !find addres of next index
|
||||
|
|
|
@ -15,6 +15,6 @@
|
|||
addr 8(fp),tos
|
||||
movqd 1,tos
|
||||
bsr _write
|
||||
asjspb -12
|
||||
adjspb -12
|
||||
exit []
|
||||
ret 0
|
||||
|
|
|
@ -22,7 +22,7 @@
|
|||
movqd 0, @.trpreg
|
||||
jsr r1
|
||||
3:
|
||||
adjspd $-4
|
||||
adjspd -4
|
||||
restore [r0, r1]
|
||||
ret 4
|
||||
2:
|
||||
|
|
Loading…
Reference in a new issue