fix in csb: must be able to handle 0 cases
This commit is contained in:
parent
52d43d4889
commit
24e18a0eca
@ -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…
x
Reference in New Issue
Block a user