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

* do not finalize function results

Browse Source
This commit is contained in:
peter 2003-04-28 21:17:38 +00:00
parent 8c0d65c9f3
commit 6d57995944
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgutil.pas
View File

@ -1001,6 +1001,7 @@ implementation
varsym :
begin
if not(vo_is_local_copy in tvarsym(p).varoptions) and
not(vo_is_funcret in tvarsym(p).varoptions) and
assigned(tvarsym(p).vartype.def) and
not(is_class(tvarsym(p).vartype.def)) and
tvarsym(p).vartype.def.needs_inittable then
@ -2005,7 +2006,10 @@ implementation
end.
{
$Log$
Revision 1.93 2003-04-27 16:30:34 jonas
Revision 1.94 2003-04-28 21:17:38 peter
* do not finalize function results
Revision 1.93 2003/04/27 16:30:34 jonas
* store register para's to memory before copying the valuepara's, because
that one requires them to be there already (and it calls subroutines ->
could overwrite those registers)