paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 20:01:48 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aopt386.pas
View File

@ -1441,7 +1441,8 @@ End;
hp1 := Pai(p^.next); hp1 := Pai(p^.next);
While Assigned(hp1) And While Assigned(hp1) And
(Pai(hp1)^.typ In [ait_instruction]+SkipInstr) 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); hp1 := Pai(hp1^.next);
If Assigned(hp1) And If Assigned(hp1) And
(Pai(hp1)^.typ = ait_instruction) And (Pai(hp1)^.typ = ait_instruction) And
@ -1614,7 +1615,10 @@ end;
End. End.
{ {
$Log$ $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 * fixed $ifdef regalloc
Revision 1.5 1998/04/16 16:53:56 jonas 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))); p^.location.reference.index)));
end; end;
LOC_MEM,LOC_REFERENCE : LOC_MEM,LOC_REFERENCE :
begin begin
del_reference(p^.left^.location.reference); del_reference(p^.left^.location.reference);
p^.location.reference.index:=getregister32; p^.location.reference.index:=getregister32;
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,newreference(p^.left^.location.reference), exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,newreference(p^.left^.location.reference),
p^.location.reference.index))); p^.location.reference.index)));
end; end;
end; end;
end; end;
@ -5875,7 +5875,10 @@ do_jmp:
end. end.
{ {
$Log$ $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: * last fixes before the release:
- veryyyy slow firstcall fixed - veryyyy slow firstcall fixed