sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor refactor.

This commit is contained in:
Simon Forman 2019-11-09 14:02:18 -08:00
parent c211848d5c
commit a1ecea341a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
thun/compiler.markII.pl
View File

@ -190,11 +190,10 @@ language.
⟐(if_zero(Reg, Label)) --> [sub_imm(Reg, Reg, 0), eq_offset(Label)].
⟐(sub_base_from_offset(Reg, Base)) -->
[sub_imm(Reg, Reg, 0),
eq_offset(LABEL), % if the offset is zero don't subtract the Base address. it's empty list.
sub(Reg, Reg, Base),
and_imm(Reg, Reg, 0x7fff), % Mask off high bits.
label(LABEL)].
⟐(if_zero(Reg, Label)), % if the offset is zero don't subtract
[sub(Reg, Reg, Base), % the Base address, it's the empty list.
and_imm(Reg, Reg, 0x7fff), % Mask off high bits.
label(Label)].
do :-