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

* fixed bug in ref_addr changes

Browse Source
This commit is contained in:
Jonas Maebe 2004-02-28 16:59:02 +00:00
parent 55439e77a2
commit 401d1891ae
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/popt386.pas
View File

@ -1857,7 +1857,7 @@ begin
GetNextInstruction(p, hp1) and GetNextInstruction(p, hp1) and
(hp1.typ = ait_instruction) and (hp1.typ = ait_instruction) and
(taicpu(hp1).opcode = A_JMP) and (taicpu(hp1).opcode = A_JMP) and
((taicpu(hp1).oper[0]^.typ=top_ref) and (taicpu(p).oper[0]^.ref^.refaddr=addr_full)) then ((taicpu(hp1).oper[0]^.typ=top_ref) and (taicpu(hp1).oper[0]^.ref^.refaddr=addr_full)) then
begin begin
hp2 := taicpu.Op_sym(A_PUSH,S_L,taicpu(hp1).oper[0]^.ref^.symbol); hp2 := taicpu.Op_sym(A_PUSH,S_L,taicpu(hp1).oper[0]^.ref^.symbol);
InsertLLItem(asml, p.previous, p, hp2); InsertLLItem(asml, p.previous, p, hp2);
@ -1999,7 +1999,10 @@ end.
{ {
$Log$ $Log$
Revision 1.57 2004-02-27 10:21:05 florian Revision 1.58 2004-02-28 16:59:02 jonas
* fixed bug in ref_addr changes
Revision 1.57 2004/02/27 10:21:05 florian
* top_symbol killed * top_symbol killed
+ refaddr to treference added + refaddr to treference added
+ refsymbol to treference added + refsymbol to treference added