Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-17 12:32:07 +00:00
Code Issues Projects Releases Wiki Activity

Simplify some code.

Browse Source
This commit is contained in:
Stephen Heumann 2022-07-17 18:15:29 -05:00
parent 6bfd491f2a
commit bdf8ed4f29
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Gen.pas
View File

@ -5733,18 +5733,9 @@ procedure GenTree {op: icptr};
end {if}
else if opcode = pc_uim then begin
case val of
1: begin
1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384: begin
GenTree(op^.left);
GenNative(m_lda_imm, immediate, 0, nil, 0);
opcode := pc_nop;
end;
2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384: begin
GenTree(op^.left);
power := 0;
while power < val/2 do
power := (power << 1) + 1;
GenNative(m_and_imm, immediate, power, nil, 0);
GenNative(m_and_imm, immediate, val-1, nil, 0);
opcode := pc_nop;
end;