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

* fixed ansistring/widestring results: deallocate result reg only after

Browse Source 
it has been stored to memory, as the storing itself may require extra
    results (e.g. on ppc)
This commit is contained in:
Jonas Maebe 2003-12-07 12:41:32 +00:00
parent 2cff29e270
commit eb803d4ad1
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgcal.pas
View File

@ -428,15 +428,17 @@ implementation
if resulttype.def.needs_inittable then if resulttype.def.needs_inittable then
begin begin
{ the FUNCTION_RESULT_REG is already allocated } { the FUNCTION_RESULT_REG is already allocated }
cg.ungetregister(exprasmlist,NR_FUNCTION_RESULT_REG);
if not assigned(funcretnode) then if not assigned(funcretnode) then
begin begin
location_reset(location,LOC_CREFERENCE,OS_ADDR); location_reset(location,LOC_CREFERENCE,OS_ADDR);
location.reference:=refcountedtemp; location.reference:=refcountedtemp;
{ a_load_reg_ref may allocate registers! }
cg.a_load_reg_ref(exprasmlist,OS_ADDR,OS_ADDR,NR_FUNCTION_RESULT_REG,location.reference); cg.a_load_reg_ref(exprasmlist,OS_ADDR,OS_ADDR,NR_FUNCTION_RESULT_REG,location.reference);
cg.ungetregister(exprasmlist,NR_FUNCTION_RESULT_REG);
end end
else else
begin begin
cg.ungetregister(exprasmlist,NR_FUNCTION_RESULT_REG);
hregister := cg.getaddressregister(exprasmlist); hregister := cg.getaddressregister(exprasmlist);
cg.a_load_reg_reg(exprasmlist,OS_ADDR,OS_ADDR,NR_FUNCTION_RESULT_REG,hregister); cg.a_load_reg_reg(exprasmlist,OS_ADDR,OS_ADDR,NR_FUNCTION_RESULT_REG,hregister);
{ in case of a regular funcretnode with ret_in_param, the } { in case of a regular funcretnode with ret_in_param, the }
@ -1127,7 +1129,12 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.144 2003-12-06 01:15:22 florian Revision 1.145 2003-12-07 12:41:32 jonas
* fixed ansistring/widestring results: deallocate result reg only after
it has been stored to memory, as the storing itself may require extra
results (e.g. on ppc)
Revision 1.144 2003/12/06 01:15:22 florian
* reverted Peter's alloctemp patch; hopefully properly * reverted Peter's alloctemp patch; hopefully properly
Revision 1.143 2003/12/03 23:13:20 peter Revision 1.143 2003/12/03 23:13:20 peter