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

* synchronize reg. variables before loading the function result

Browse Source 
git-svn-id: trunk@2163 -
This commit is contained in:
florian 2006-01-04 20:30:41 +00:00
parent f7d2c47f73
commit a71d2b432c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psub.pas
View File

@ -825,12 +825,6 @@ implementation
free_regvars(aktproccode);
{$endif OLDREGVARS}
{ add code that will load the return value, this is not done
for assembler routines when they didn't reference the result
variable }
gen_load_return_value(templist);
aktproccode.concatlist(templist);
{ generate symbol and save end of header position }
aktfilepos:=entrypos;
gen_proc_symbol(templist);
@ -844,6 +838,12 @@ implementation
gen_free_symtable(aktproccode,procdef.localst);
gen_free_symtable(aktproccode,procdef.parast);
{ add code that will load the return value, this is not done
for assembler routines when they didn't reference the result
variable }
gen_load_return_value(templist);
aktproccode.concatlist(templist);
{ Already reserve all registers for stack checking code and
generate the call to the helper function }
if (cs_check_stack in entryswitches) and