mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-02 18:10:23 +02:00
- removed unused code
This commit is contained in:
mazen
parent
60e724a520
commit
e1c306879a
@ -1,4 +1,4 @@
|
||||
{******************************************************************************
|
||||
{*****************************************************************************
|
||||
$Id$
|
||||
Copyright (c) 1998-2000 by Florian Klaempfl and Peter Vreman
|
||||
|
||||
@ -72,13 +72,6 @@ type
|
||||
procedure SetCondition(const c:TAsmCond);
|
||||
private
|
||||
{ next fields are filled in pass1, so pass2 is faster }
|
||||
insentry : PInsEntry;
|
||||
insoffset,
|
||||
inssize : longint;
|
||||
LastInsOffset : longint; { need to be public to be reset }
|
||||
function InsEnd:longint;
|
||||
function calcsize(p:PInsEntry):longint;
|
||||
function NeedAddrPrefix(opidx:byte):boolean;
|
||||
procedure Swatoperands;
|
||||
end;
|
||||
PROCEDURE DoneAsm;
|
||||
@ -312,18 +305,6 @@ procedure taicpu.Swatoperands;
|
||||
{*****************************************************************************
|
||||
Assembler
|
||||
*****************************************************************************}
|
||||
type
|
||||
ea=packed record
|
||||
sib_present:boolean;
|
||||
bytes:byte;
|
||||
size:byte;
|
||||
modrm:byte;
|
||||
sib:byte;
|
||||
end;
|
||||
function taicpu.InsEnd:longint;
|
||||
begin
|
||||
InsEnd:=InsOffset+InsSize;
|
||||
end;
|
||||
procedure TAiCpu.SetCondition(const c:TAsmCond);
|
||||
const
|
||||
AsmCond2OpCode:array[TAsmCond]of TAsmOp=
|
||||
@ -341,292 +322,6 @@ A_BCS,A_BPOS,A_NEG,A_BVC,A_BVS,A_BA,A_BNE,A_NONE,A_NONE,A_NONE,A_NONE,A_NONE,A_N
|
||||
{$ENDIF EXTDEBUG}
|
||||
end;
|
||||
end;
|
||||
function taicpu.NeedAddrPrefix(opidx:byte):boolean;
|
||||
var
|
||||
i,b:tregister;
|
||||
begin
|
||||
{ if (OT_MEMORY and (not oper[opidx].ot))=0 then
|
||||
begin
|
||||
i:=oper[opidx].ref^.index;
|
||||
b:=oper[opidx].ref^.base;
|
||||
if not(i in [R_NONE,R_EAX,R_EBX,R_ECX,R_EDX,R_EBP,R_ESP,R_ESI,R_EDI]) or
|
||||
not(b in [R_NONE,R_EAX,R_EBX,R_ECX,R_EDX,R_EBP,R_ESP,R_ESI,R_EDI]) then
|
||||
begin
|
||||
NeedAddrPrefix:=true;
|
||||
exit;
|
||||
end;
|
||||
end;}
|
||||
NeedAddrPrefix:=false;
|
||||
end;
|
||||
|
||||
|
||||
function regval(r:tregister):byte;
|
||||
begin
|
||||
{case r of
|
||||
R_EAX,R_AX,R_AL,R_ES,R_CR0,R_DR0,R_ST,R_ST0,R_MM0,R_XMM0:
|
||||
regval:=0;
|
||||
R_ECX,R_CX,R_CL,R_CS,R_DR1,R_ST1,R_MM1,R_XMM1:
|
||||
regval:=1;
|
||||
R_EDX,R_DX,R_DL,R_SS,R_CR2,R_DR2,R_ST2,R_MM2,R_XMM2:
|
||||
regval:=2;
|
||||
R_EBX,R_BX,R_BL,R_DS,R_CR3,R_DR3,R_TR3,R_ST3,R_MM3,R_XMM3:
|
||||
regval:=3;
|
||||
R_ESP,R_SP,R_AH,R_FS,R_CR4,R_TR4,R_ST4,R_MM4,R_XMM4:
|
||||
regval:=4;
|
||||
R_EBP,R_BP,R_CH,R_GS,R_TR5,R_ST5,R_MM5,R_XMM5:
|
||||
regval:=5;
|
||||
R_ESI,R_SI,R_DH,R_DR6,R_TR6,R_ST6,R_MM6,R_XMM6:
|
||||
regval:=6;
|
||||
R_EDI,R_DI,R_BH,R_DR7,R_TR7,R_ST7,R_MM7,R_XMM7:
|
||||
regval:=7;
|
||||
else}
|
||||
begin
|
||||
internalerror(777001);
|
||||
regval:=0;
|
||||
end;
|
||||
{ end;}
|
||||
end;
|
||||
|
||||
|
||||
function process_ea(const input:toper;var output:ea;rfield:longint):boolean;
|
||||
{const
|
||||
regs:array[0..63] of tregister=(
|
||||
R_MM0, R_EAX, R_AX, R_AL, R_XMM0, R_NONE, R_NONE, R_NONE,
|
||||
R_MM1, R_ECX, R_CX, R_CL, R_XMM1, R_NONE, R_NONE, R_NONE,
|
||||
R_MM2, R_EDX, R_DX, R_DL, R_XMM2, R_NONE, R_NONE, R_NONE,
|
||||
R_MM3, R_EBX, R_BX, R_BL, R_XMM3, R_NONE, R_NONE, R_NONE,
|
||||
R_MM4, R_ESP, R_SP, R_AH, R_XMM4, R_NONE, R_NONE, R_NONE,
|
||||
R_MM5, R_EBP, R_BP, R_CH, R_XMM5, R_NONE, R_NONE, R_NONE,
|
||||
R_MM6, R_ESI, R_SI, R_DH, R_XMM6, R_NONE, R_NONE, R_NONE,
|
||||
R_MM7, R_EDI, R_DI, R_BH, R_XMM7, R_NONE, R_NONE, R_NONE
|
||||
);}
|
||||
var
|
||||
j:longint;
|
||||
i,b:tregister;
|
||||
sym:tasmsymbol;
|
||||
md,s:byte;
|
||||
base,index,scalefactor,
|
||||
o:longint;
|
||||
begin
|
||||
process_ea:=false;
|
||||
{ register ? }
|
||||
{ if (input.typ=top_reg) then
|
||||
begin
|
||||
j:=0;
|
||||
while (j<=high(regs)) do
|
||||
begin
|
||||
if input.reg=regs[j] then
|
||||
break;
|
||||
inc(j);
|
||||
end;
|
||||
if j<=high(regs) then
|
||||
begin
|
||||
output.sib_present:=false;
|
||||
output.bytes:=0;
|
||||
output.modrm:=$c0 or (rfield shl 3) or (j shr 3);
|
||||
output.size:=1;
|
||||
process_ea:=true;
|
||||
end;
|
||||
exit;
|
||||
end;}
|
||||
{ memory reference }
|
||||
i:=input.ref^.index;
|
||||
b:=input.ref^.base;
|
||||
s:=input.ref^.scalefactor;
|
||||
o:=input.ref^.offset+input.ref^.offsetfixup;
|
||||
sym:=input.ref^.symbol;
|
||||
{ it's direct address }
|
||||
if (b.enum=R_NONE) and (i.enum=R_NONE) then
|
||||
begin
|
||||
{ it's a pure offset }
|
||||
output.sib_present:=false;
|
||||
output.bytes:=4;
|
||||
output.modrm:=5 or (rfield shl 3);
|
||||
end
|
||||
else
|
||||
{ it's an indirection }
|
||||
begin
|
||||
{ 16 bit address? }
|
||||
{ if not((i in [R_NONE,R_EAX,R_EBX,R_ECX,R_EDX,R_EBP,R_ESP,R_ESI,R_EDI]) and
|
||||
(b in [R_NONE,R_EAX,R_EBX,R_ECX,R_EDX,R_EBP,R_ESP,R_ESI,R_EDI])) then
|
||||
Message(asmw_e_16bit_not_supported);}
|
||||
{$ifdef OPTEA}
|
||||
{ make single reg base }
|
||||
if (b=R_NONE) and (s=1) then
|
||||
begin
|
||||
b:=i;
|
||||
i:=R_NONE;
|
||||
end;
|
||||
{ convert [3,5,9]*EAX to EAX+[2,4,8]*EAX }
|
||||
{ if (b=R_NONE) and
|
||||
(((s=2) and (i<>R_ESP)) or
|
||||
(s=3) or (s=5) or (s=9)) then
|
||||
begin
|
||||
b:=i;
|
||||
dec(s);
|
||||
end;}
|
||||
{ swap ESP into base if scalefactor is 1 }
|
||||
{ if (s=1) and (i=R_ESP) then
|
||||
begin
|
||||
i:=b;
|
||||
b:=R_ESP;
|
||||
end;}
|
||||
{$endif}
|
||||
{ wrong, for various reasons }
|
||||
{ if (i=R_ESP) or ((s<>1) and (s<>2) and (s<>4) and (s<>8) and (i<>R_NONE)) then
|
||||
exit;}
|
||||
{ base }
|
||||
{ case b of
|
||||
R_EAX:base:=0;
|
||||
R_ECX:base:=1;
|
||||
R_EDX:base:=2;
|
||||
R_EBX:base:=3;
|
||||
R_ESP:base:=4;
|
||||
R_NONE,
|
||||
R_EBP:base:=5;
|
||||
R_ESI:base:=6;
|
||||
R_EDI:base:=7;
|
||||
else
|
||||
exit;
|
||||
end;}
|
||||
{ index }
|
||||
{ case i of
|
||||
R_EAX:index:=0;
|
||||
R_ECX:index:=1;
|
||||
R_EDX:index:=2;
|
||||
R_EBX:index:=3;
|
||||
R_NONE:index:=4;
|
||||
R_EBP:index:=5;
|
||||
R_ESI:index:=6;
|
||||
R_EDI:index:=7;
|
||||
else
|
||||
exit;
|
||||
end;
|
||||
case s of
|
||||
0,
|
||||
1:scalefactor:=0;
|
||||
2:scalefactor:=1;
|
||||
4:scalefactor:=2;
|
||||
8:scalefactor:=3;
|
||||
else
|
||||
exit;
|
||||
end;
|
||||
if (b=R_NONE) or
|
||||
((b<>R_EBP) and (o=0) and (sym=nil)) then
|
||||
md:=0
|
||||
else
|
||||
if ((o>=-128) and (o<=127) and (sym=nil)) then
|
||||
md:=1
|
||||
else
|
||||
md:=2;
|
||||
if (b=R_NONE) or (md=2) then
|
||||
output.bytes:=4
|
||||
else
|
||||
output.bytes:=md;}
|
||||
{ SIB needed ? }
|
||||
{ if (i=R_NONE) and (b<>R_ESP) then
|
||||
begin
|
||||
output.sib_present:=false;
|
||||
output.modrm:=(md shl 6) or (rfield shl 3) or base;
|
||||
end
|
||||
else
|
||||
begin
|
||||
output.sib_present:=true;
|
||||
output.modrm:=(md shl 6) or (rfield shl 3) or 4;
|
||||
output.sib:=(scalefactor shl 6) or (index shl 3) or base;
|
||||
end;}
|
||||
end;
|
||||
if output.sib_present then
|
||||
output.size:=2+output.bytes
|
||||
else
|
||||
output.size:=1+output.bytes;
|
||||
process_ea:=true;
|
||||
end;
|
||||
|
||||
|
||||
function taicpu.calcsize(p:PInsEntry):longint;
|
||||
var
|
||||
codes:pchar;
|
||||
c:byte;
|
||||
len:longint;
|
||||
ea_data:ea;
|
||||
begin
|
||||
len:=0;
|
||||
codes:=@p^.code;
|
||||
repeat
|
||||
c:=ord(codes^);
|
||||
inc(codes);
|
||||
case c of
|
||||
0:
|
||||
break;
|
||||
1,2,3:
|
||||
begin
|
||||
inc(codes,c);
|
||||
inc(len,c);
|
||||
end;
|
||||
8,9,10:
|
||||
begin
|
||||
inc(codes);
|
||||
inc(len);
|
||||
end;
|
||||
4,5,6,7:
|
||||
begin
|
||||
if opsize=S_W then
|
||||
inc(len,2)
|
||||
else
|
||||
inc(len);
|
||||
end;
|
||||
15,
|
||||
12,13,14,
|
||||
16,17,18,
|
||||
20,21,22,
|
||||
40,41,42:
|
||||
inc(len);
|
||||
24,25,26,
|
||||
31,
|
||||
48,49,50:
|
||||
inc(len,2);
|
||||
28,29,30, { we don't have 16 bit immediates code }
|
||||
32,33,34,
|
||||
52,53,54,
|
||||
56,57,58:
|
||||
inc(len,4);
|
||||
192,193,194:
|
||||
if NeedAddrPrefix(c-192) then
|
||||
inc(len);
|
||||
208:
|
||||
inc(len);
|
||||
200,
|
||||
201,
|
||||
202,
|
||||
209,
|
||||
210,
|
||||
217,218,219:;
|
||||
216:
|
||||
begin
|
||||
inc(codes);
|
||||
inc(len);
|
||||
end;
|
||||
224,225,226:
|
||||
begin
|
||||
InternalError(777002);
|
||||
end;
|
||||
else
|
||||
begin
|
||||
if (c>=64) and (c<=191) then
|
||||
begin
|
||||
if not process_ea(oper[(c shr 3) and 7], ea_data, 0) then
|
||||
Message(asmw_e_invalid_effective_address)
|
||||
else
|
||||
inc(len,ea_data.size);
|
||||
end
|
||||
else
|
||||
InternalError(777003);
|
||||
end;
|
||||
end;
|
||||
until false;
|
||||
calcsize:=len;
|
||||
end;
|
||||
procedure taicpu.loadcaddr(opidx:longint;aReg:TRegister;cnst:Integer);
|
||||
begin
|
||||
if opidx>=ops
|
||||
@ -660,7 +355,10 @@ procedure InitAsm;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.24 2003-05-07 11:28:26 mazen
|
||||
Revision 1.25 2003-05-07 11:45:02 mazen
|
||||
- removed unused code
|
||||
|
||||
Revision 1.24 2003/05/07 11:28:26 mazen
|
||||
- method CheckNonCommutativeOpcode removed as not used
|
||||
|
||||
Revision 1.23 2003/05/06 20:27:43 mazen
|
||||
|
||||
Loading…
Reference in New Issue
Block a user