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

* typo in FUNCTION_RESULT_REG

Browse Source
This commit is contained in:
peter 2003-05-31 00:59:44 +00:00
parent 2961250600
commit 92430d4881
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgcal.pas
View File

@ -486,7 +486,7 @@ implementation
else else
cg.a_reg_alloc(exprasmlist,r); cg.a_reg_alloc(exprasmlist,r);
if RS_FUNCTION_RESULTHIGH_REG in rg.unusedregsint then if RS_FUNCTION_RESULTHIGH_REG in rg.unusedregsint then
location.registerhigh:=rg.getexplicitregisterint(exprasmlist,NR_FUNCTION_RETURNHIGH_REG) location.registerhigh:=rg.getexplicitregisterint(exprasmlist,NR_FUNCTION_RESULTHIGH_REG)
else else
cg.a_reg_alloc(exprasmlist,hregister); cg.a_reg_alloc(exprasmlist,hregister);
{ do this after both low,high are allocated, else it is possible that { do this after both low,high are allocated, else it is possible that
@ -1233,7 +1233,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.78 2003-05-30 23:57:08 peter Revision 1.79 2003-05-31 00:59:44 peter
* typo in FUNCTION_RESULT_REG
Revision 1.78 2003/05/30 23:57:08 peter
* more sparc cleanup * more sparc cleanup
* accumulator removed, splitted in function_return_reg (called) and * accumulator removed, splitted in function_return_reg (called) and
function_result_reg (caller) function_result_reg (caller)