paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 03:00:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

* support references without registers and symbol in paramref_addr. It

Browse Source 
pushes only the offset
This commit is contained in:
peter 2002-09-16 19:08:47 +00:00
parent 7e44d50c68
commit 51057d8e8e
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/x86/cgx86.pas
View File

@ -385,7 +385,12 @@ unit cgx86;
if r.segment<>R_NO then if r.segment<>R_NO then
CGMessage(cg_e_cant_use_far_pointer_there); CGMessage(cg_e_cant_use_far_pointer_there);
if (r.base=R_NO) and (r.index=R_NO) then if (r.base=R_NO) and (r.index=R_NO) then
list.concat(Taicpu.Op_sym_ofs(A_PUSH,S_L,r.symbol,r.offset)) begin
if assigned(r.symbol) then
list.concat(Taicpu.Op_sym_ofs(A_PUSH,S_L,r.symbol,r.offset))
else
list.concat(Taicpu.Op_const(A_PUSH,S_L,r.offset));
end
else if (r.base=R_NO) and (r.index<>R_NO) and else if (r.base=R_NO) and (r.index<>R_NO) and
(r.offset=0) and (r.scalefactor=0) and (r.symbol=nil) then (r.offset=0) and (r.scalefactor=0) and (r.symbol=nil) then
list.concat(Taicpu.Op_reg(A_PUSH,S_L,r.index)) list.concat(Taicpu.Op_reg(A_PUSH,S_L,r.index))
@ -1676,7 +1681,11 @@ unit cgx86;
end. end.
{ {
$Log$ $Log$
Revision 1.15 2002-09-16 18:06:29 peter Revision 1.16 2002-09-16 19:08:47 peter
* support references without registers and symbol in paramref_addr. It
pushes only the offset
Revision 1.15 2002/09/16 18:06:29 peter
* move CGSize2Opsize to interface * move CGSize2Opsize to interface
Revision 1.14 2002/09/01 14:42:41 peter Revision 1.14 2002/09/01 14:42:41 peter