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

Generate better code for some floating-point and long long constants.

Browse Source 
We now recognize cases where the same value needs to be pushed for several consecutive words, so it is more efficient to load it into a register and push that rather than just using PEA instructions.
This commit is contained in:
Stephen Heumann 2023-04-02 19:39:03 -05:00
parent 4e5e622903
commit 74cec68dac
1 changed files with 47 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
Gen.pas
View File

@ -6162,17 +6162,50 @@ procedure GenTree {op: icptr};
{ Generate code for a pc_ldc } { Generate code for a pc_ldc }
type type
kind = (vint, vbyte); {kinds of equivalenced data} kind = (vreal, vlonglong, vwords); {kinds of equivalenced data}
switchRec = packed record
var case kind of
i: integer; {loop/index variable} vreal: (theReal: extended);
rec: realrec; {conversion record} vlonglong: (theLonglong: longlong);
switch: packed record {used for type conversion} vwords: (words: packed array[1..5] of integer);
case rkind: kind of
vint: (i: integer);
vbyte: (b1, b2, b3, b4, b5, b6, b7, b8: byte);
end; end;
var
switch: switchRec; {used for type conversion}
procedure PushWords (switch: switchRec; count: integer);
{ Generate code to push words from the switch record }
{ }
{ parameters }
{ switch - the switch record }
{ count - number of words to push }
var
val: integer; {word value to push}
begin {PushWords}
repeat
val := switch.words[count];
if (count >= 3)
and (switch.words[count-1] = val)
and (switch.words[count-2] = val)
then begin
GenNative(m_lda_imm, immediate, val, nil, 0);
repeat
GenImplied(m_pha);
count := count - 1;
until (count = 0) or (switch.words[count] <> val);
end {if}
else begin
GenNative(m_pea, immediate, val, nil, 0);
count := count - 1;
end; {else}
until count = 0;
end; {PushWords}
begin {GenLdc} begin {GenLdc}
case op^.optype of case op^.optype of
cgByte: begin cgByte: begin
@ -6185,15 +6218,8 @@ procedure GenTree {op: icptr};
GenNative(m_lda_imm, immediate, op^.q, nil, 0); GenNative(m_lda_imm, immediate, op^.q, nil, 0);
cgReal, cgDouble, cgComp, cgExtended: begin cgReal, cgDouble, cgComp, cgExtended: begin
rec.itsReal := op^.rval; switch.theReal := op^.rval;
CnvSX(rec); PushWords(switch, 5);
i := 9;
while i >= 0 do begin
switch.b1 := rec.inSANE[i];
switch.b2 := rec.inSANE[i+1];
GenNative(m_pea, immediate, switch.i, nil, 0);
i := i-2;
end; {while}
end; end;
cgLong, cgULong: cgLong, cgULong:
@ -6214,10 +6240,8 @@ procedure GenTree {op: icptr};
cgQuad,cgUQuad: begin cgQuad,cgUQuad: begin
if gQuad.preference = onStack then begin if gQuad.preference = onStack then begin
GenNative(m_pea, immediate, long(op^.qval.hi).msw, nil, 0); switch.theLonglong := op^.qval;
GenNative(m_pea, immediate, long(op^.qval.hi).lsw, nil, 0); PushWords(switch, 4);
GenNative(m_pea, immediate, long(op^.qval.lo).msw, nil, 0);
GenNative(m_pea, immediate, long(op^.qval.lo).lsw, nil, 0);
end {if} end {if}
else begin else begin
GenNative(m_lda_imm, immediate, long(op^.qval.hi).msw, nil, 0); GenNative(m_lda_imm, immediate, long(op^.qval.hi).msw, nil, 0);