paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 02:30:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Removed reg_2_opsize array

Browse Source
This commit is contained in:
daniel 2003-02-03 22:47:14 +00:00
parent 3d0f77a1fb
commit 538641a07a
2 changed files with 10 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/i386/ra386.pas
View File

@ -77,20 +77,6 @@ const
'CMOV','J','SET'
);
{ Convert reg to opsize }
reg_2_opsize:array[firstreg..lastreg] of topsize = (S_NO,
S_L,S_L,S_L,S_L,S_L,S_L,S_L,S_L,
S_W,S_W,S_W,S_W,S_W,S_W,S_W,S_W,
S_B,S_B,S_B,S_B,S_B,S_B,S_B,S_B,
S_W,S_W,S_W,S_W,S_W,S_W,
S_FL,S_FL,S_FL,S_FL,S_FL,S_FL,S_FL,S_FL,S_FL,
S_L,S_L,S_L,S_L,S_L,S_L,
S_L,S_L,S_L,S_L,
S_L,S_L,S_L,S_L,S_L,
S_D,S_D,S_D,S_D,S_D,S_D,S_D,S_D,
S_D,S_D,S_D,S_D,S_D,S_D,S_D,S_D
);
implementation
uses
@ -698,7 +684,10 @@ end;
end.
{
$Log$
Revision 1.27 2003-01-08 18:43:57 daniel
Revision 1.28 2003-02-03 22:47:14 daniel
- Removed reg_2_opsize array
Revision 1.27 2003/01/08 18:43:57 daniel
* Tregister changed into a record
Revision 1.26 2002/11/15 01:58:58 peter

9
compiler/i386/ra386att.pas
View File

@ -1433,7 +1433,7 @@ Begin
opr.reg:=actasmregister;
if opr.reg.enum>lastreg then
internalerror(200301081);
size:=reg_2_opsize[actasmregister.enum];
size:=reg2opsize[actasmregister.enum];
Consume(AS_REGISTER);
end
else
@ -1586,7 +1586,7 @@ Begin
Message(asmr_e_invalid_operand_type);
opr.typ:=OPR_REGISTER;
opr.reg:=tempreg;
size:=reg_2_opsize[tempreg.enum];
size:=reg2opsize[tempreg.enum];
end
else
Message(asmr_e_syn_operand);
@ -2126,7 +2126,10 @@ finalization
end.
{
$Log$
Revision 1.36 2003-01-08 18:43:57 daniel
Revision 1.37 2003-02-03 22:47:14 daniel
- Removed reg_2_opsize array
Revision 1.36 2003/01/08 18:43:57 daniel
* Tregister changed into a record
Revision 1.35 2002/12/14 15:02:03 carl