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

* fix global var+offset

Browse Source
This commit is contained in:
peter 2003-09-23 20:37:53 +00:00
parent 56ece89fe5
commit 72761249f1
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/ra386att.pas
View File

@ -1325,7 +1325,7 @@ var
OPR_CONSTANT :
inc(opr.val,l);
OPR_REFERENCE :
inc(opr.ref.offset);
inc(opr.ref.offset,l);
else
internalerror(200309221);
end;
@ -2129,7 +2129,10 @@ finalization
end.
{
$Log$
Revision 1.47 2003-09-23 17:56:06 peter
Revision 1.48 2003-09-23 20:37:53 peter
* fix global var+offset
Revision 1.47 2003/09/23 17:56:06 peter
* locals and paras are allocated in the code generation
* tvarsym.localloc contains the location of para/local when
generating code for the current procedure

7
compiler/i386/ra386int.pas
View File

@ -1373,7 +1373,7 @@ var
OPR_CONSTANT :
inc(opr.val,l);
OPR_REFERENCE :
inc(opr.ref.offset);
inc(opr.ref.offset,l);
else
internalerror(200309222);
end;
@ -1929,7 +1929,10 @@ finalization
end.
{
$Log$
Revision 1.51 2003-09-23 17:56:06 peter
Revision 1.52 2003-09-23 20:37:53 peter
* fix global var+offset
Revision 1.51 2003/09/23 17:56:06 peter
* locals and paras are allocated in the code generation
* tvarsym.localloc contains the location of para/local when
generating code for the current procedure