From 92430d48812d7532a2d3ea4985f55b07a50817fc Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 31 May 2003 00:59:44 +0000
Subject: [PATCH]   * typo in FUNCTION_RESULT_REG

---
 compiler/ncgcal.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/ncgcal.pas b/compiler/ncgcal.pas
index ee994eff87..c551949bc7 100644
--- a/compiler/ncgcal.pas
+++ b/compiler/ncgcal.pas
@@ -486,7 +486,7 @@ implementation
                       else
                         cg.a_reg_alloc(exprasmlist,r);
                       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
                         cg.a_reg_alloc(exprasmlist,hregister);
                       { do this after both low,high are allocated, else it is possible that
@@ -1233,7 +1233,10 @@ begin
 end.
 {
   $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
     * accumulator removed, splitted in function_return_reg (called) and
       function_result_reg (caller)