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

fixed bitshifting by more than the number of bits in the value

Browse Source
This commit is contained in:
Irmen de Jong
2020-10-18 18:00:24 +02:00
parent e83796b5b9
commit aec3b82476
7 changed files with 127 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/res/prog8lib/prog8_lib.asm
View File

@@ -2145,34 +2145,3 @@ func_strcmp .proc
sta P8ESTACK_LO+1,x
rts
.pend
; support for bit shifting that is too large to be unrolled:
lsr_byte_A .proc
; -- lsr signed byte in A times the value in Y (assume >0)
cmp #0
bmi _negative
- lsr a
dey
bne -
rts
_negative lsr a
ora #$80
dey
bne _negative
rts
.pend
lsr_word_AY .proc
.error "make"
.pend
lsr_uword_AY .proc
.error "make"
.pend
asl_word_AY .proc
.error "make"
.pend