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

* fixed init/final for value parameters

Browse Source
This commit is contained in:
peter 2002-01-19 14:21:17 +00:00
parent 76f42ba1cb
commit 869ca12ddb
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/i386/cga.pas
View File

@ -1727,7 +1727,10 @@ implementation
reset_reference(hrv); reset_reference(hrv);
hrv.base:=procinfo^.framepointer; hrv.base:=procinfo^.framepointer;
hrv.offset:=tvarsym(p).address+procinfo^.para_offset; if assigned(tvarsym(p).localvarsym) then
hrv.offset:=-tvarsym(p).localvarsym.address+tvarsym(p).localvarsym.owner.address_fixup
else
hrv.offset:=tvarsym(p).address+procinfo^.para_offset;
if is_ansistring(tvarsym(p).vartype.def) or if is_ansistring(tvarsym(p).vartype.def) or
is_widestring(tvarsym(p).vartype.def) then is_widestring(tvarsym(p).vartype.def) then
@ -1779,7 +1782,10 @@ implementation
reset_reference(hrv); reset_reference(hrv);
hrv.base:=procinfo^.framepointer; hrv.base:=procinfo^.framepointer;
hrv.offset:=tvarsym(p).address+procinfo^.para_offset; if assigned(tvarsym(p).localvarsym) then
hrv.offset:=-tvarsym(p).localvarsym.address+tvarsym(p).localvarsym.owner.address_fixup
else
hrv.offset:=tvarsym(p).address+procinfo^.para_offset;
if is_ansistring(tvarsym(p).vartype.def) or if is_ansistring(tvarsym(p).vartype.def) or
is_widestring(tvarsym(p).vartype.def) then is_widestring(tvarsym(p).vartype.def) then
@ -2976,8 +2982,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.13 2001-12-30 17:24:45 jonas Revision 1.14 2002-01-19 14:21:17 peter
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint * fixed init/final for value parameters
Revision 1.13 2001/12/30 17:24:45 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.12 2001/12/29 15:28:58 jonas Revision 1.12 2001/12/29 15:28:58 jonas
* powerpc/cgcpu.pas compiles :) * powerpc/cgcpu.pas compiles :)