paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 02:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes of Jonas applied

Browse Source
This commit is contained in:
florian 1998-04-23 21:52:08 +00:00
parent 2448f867f4
commit bef30e693c
2 changed files with 16 additions and 9 deletions

8
compiler/aopt386.pas
View File

@ -1441,7 +1441,8 @@ End;
hp1 := Pai(p^.next);
While Assigned(hp1) And
(Pai(hp1)^.typ In [ait_instruction]+SkipInstr) And
(Pai386(hp1)^._operator <> A_PUSH) Do
Not((Pai(hp1)^.typ = ait_instruction) And
(Pai386(hp1)^._operator in [A_CALL,A_PUSH])) do
hp1 := Pai(hp1^.next);
If Assigned(hp1) And
(Pai(hp1)^.typ = ait_instruction) And
@ -1614,7 +1615,10 @@ end;
End.
{
$Log$
Revision 1.6 1998-04-21 11:30:14 peter
Revision 1.7 1998-04-23 21:52:08 florian
* fixes of Jonas applied
Revision 1.6 1998/04/21 11:30:14 peter
* fixed $ifdef regalloc
Revision 1.5 1998/04/16 16:53:56 jonas

17
compiler/cgi386.pas
View File

@ -4127,12 +4127,12 @@ implementation
p^.location.reference.index)));
end;
LOC_MEM,LOC_REFERENCE :
begin
del_reference(p^.left^.location.reference);
p^.location.reference.index:=getregister32;
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,newreference(p^.left^.location.reference),
p^.location.reference.index)));
end;
begin
del_reference(p^.left^.location.reference);
p^.location.reference.index:=getregister32;
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,newreference(p^.left^.location.reference),
p^.location.reference.index)));
end;
end;
end;
@ -5875,7 +5875,10 @@ do_jmp:
end.
{
$Log$
Revision 1.15 1998-04-22 21:06:49 florian
Revision 1.16 1998-04-23 21:52:08 florian
* fixes of Jonas applied
Revision 1.15 1998/04/22 21:06:49 florian
* last fixes before the release:
- veryyyy slow firstcall fixed