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

* fixed local copies of value para's

Browse Source
This commit is contained in:
peter 1999-02-16 00:47:28 +00:00
parent 2ba2b655f0
commit 9b6f7409ae
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/rautils.pas
View File

@ -1453,9 +1453,14 @@ end;
begin
case sym^.typ of
varsym : begin
l:=pvarsym(sym)^.address;
{ set offset }
inc(l,aktprocsym^.definition^.parast^.call_offset);
if pvarsym(sym)^.islocalcopy then
l:=-pvarsym(sym)^.address
else
begin
l:=pvarsym(sym)^.address;
{ set offset }
inc(l,aktprocsym^.definition^.parast^.call_offset);
end;
pvarsym(sym)^.is_valid:=1;
instr.operands[operandnum].ref.base := procinfo.framepointer;
instr.operands[operandnum].ref.offset := l;
@ -1804,7 +1809,10 @@ end;
end.
{
$Log$
Revision 1.2 1999-01-27 13:04:11 pierre
Revision 1.3 1999-02-16 00:47:28 peter
* fixed local copies of value para's
Revision 1.2 1999/01/27 13:04:11 pierre
* bug with static vars in assembler readers
Revision 1.1 1999/01/10 15:38:00 peter