paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in ti386innode.pass_2 code and made it simpler/faster

Browse Source
This commit is contained in:
Jonas Maebe 2001-04-06 14:09:34 +00:00
parent cf600d6688
commit 2cc7d970e1
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/i386/n386set.pas
View File

@ -204,30 +204,27 @@ implementation
separately instead of using the SET_IN_BYTE procedure. separately instead of using the SET_IN_BYTE procedure.
To do: Build in support for LOC_JUMP } To do: Build in support for LOC_JUMP }
opsize := def_opsize(left.resulttype.def);
{ If register is used, use only lower 8 bits } { If register is used, use only lower 8 bits }
if left.location.loc in [LOC_REGISTER,LOC_CREGISTER] then if left.location.loc in [LOC_REGISTER,LOC_CREGISTER] then
begin begin
pleftreg:=left.location.register; pleftreg:=left.location.register;
if pleftreg in [R_AX..R_DI] then { for ranges we always need a 32bit register, because then we }
begin { use the register as base in a reference (JM) }
emit_const_reg(A_AND,S_L,255,reg16toreg32(pleftreg));
end
else
if pleftreg in [R_EAX..R_EDI] then
begin
emit_const_reg(A_AND,S_L,255,pleftreg);
end
else
begin
if ranges then
emit_const_reg(A_AND,S_L,255,reg8toreg32(pleftreg));
end;
opsize := S_L;
if ranges then if ranges then
begin begin
pleftreg := makereg32(pleftreg); pleftreg := makereg32(pleftreg);
if opsize <> S_L then
emit_const_reg(A_AND,S_L,255,pleftreg);
opsize := S_L; opsize := S_L;
end end
else
{ otherwise simply use the lower 8 bits (no "and" }
{ necessary this way) (JM) }
begin
pleftreg := makereg8(pleftreg);
opsize := S_B;
end;
end end
else else
begin begin
@ -270,6 +267,7 @@ implementation
if (pleftreg <> R_EDI) and if (pleftreg <> R_EDI) and
(left.location.loc = LOC_CREGISTER) then (left.location.loc = LOC_CREGISTER) then
begin begin
ungetregister(pleftreg);
getexplicitregister32(R_EDI); getexplicitregister32(R_EDI);
emit_ref_reg(A_LEA,S_L, emit_ref_reg(A_LEA,S_L,
new_reference(pleftreg,-setparts[i].start),R_EDI); new_reference(pleftreg,-setparts[i].start),R_EDI);
@ -1067,7 +1065,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.12 2001-04-02 21:20:38 peter Revision 1.13 2001-04-06 14:09:34 jonas
* fixed bug in ti386innode.pass_2 code and made it simpler/faster
Revision 1.12 2001/04/02 21:20:38 peter
* resulttype rewrite * resulttype rewrite
Revision 1.11 2001/02/11 12:14:56 jonas Revision 1.11 2001/02/11 12:14:56 jonas