From 0de4838d361ebcda4bfb05559594214fbfc8eb7e Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Wed, 22 Jan 2003 22:30:03 +0000
Subject: [PATCH] - internal errors rmoved from a_loar_reg_reg when reg sizes
 differs from 32

---
 compiler/sparc/cgcpu.pas    | 15 +++++----------
 compiler/sparc/ncpucall.pas | 17 ++++++++++-------
 2 files changed, 15 insertions(+), 17 deletions(-)

diff --git a/compiler/sparc/cgcpu.pas b/compiler/sparc/cgcpu.pas
index eab50423df..4a6698469b 100644
--- a/compiler/sparc/cgcpu.pas
+++ b/compiler/sparc/cgcpu.pas
@@ -373,15 +373,7 @@ procedure TCgSparc.a_load_reg_reg(list:TAasmOutput;fromsize,tosize:tcgsize;reg1,
     then
       with list do
         case fromsize of
-          OS_8:
-            InternalError(2002100800);{concat(taicpu.op_reg_reg_const_const_const(A_RLWINM,reg2,reg1,0,31-8+1,31));}
-          OS_S8:
-            InternalError(2002100801);{concat(taicpu.op_reg_reg(A_EXTSB,reg2,reg1));}
-          OS_16:
-            InternalError(2002100802);{concat(taicpu.op_reg_reg_const_const_const(A_RLWINM,reg2,reg1,0,31-16+1,31));}
-          OS_S16:
-            InternalError(2002100803);{concat(taicpu.op_reg_reg(A_EXTSH,reg2,reg1));}
-          OS_32,OS_S32:
+          OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32:
             concat(taicpu.op_reg_reg_reg(A_OR,r,reg1,reg2));
           else internalerror(2002090901);
         end;
@@ -1418,7 +1410,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.35  2003-01-20 22:21:36  mazen
+  Revision 1.36  2003-01-22 22:30:03  mazen
+  - internal errors rmoved from a_loar_reg_reg when reg sizes differs from 32
+
+  Revision 1.35  2003/01/20 22:21:36  mazen
   * many stuff related to RTL fixed
 
   Revision 1.34  2003/01/08 18:43:58  daniel
diff --git a/compiler/sparc/ncpucall.pas b/compiler/sparc/ncpucall.pas
index 7afd7d1a40..8272960264 100644
--- a/compiler/sparc/ncpucall.pas
+++ b/compiler/sparc/ncpucall.pas
@@ -52,13 +52,13 @@ function TSparcCallNode.pass_1:TNode;
       exit;
     if ProcDefinition is TProcDef
     then
-      begin
-        if TProcDef(procdefinition).parast.datasize>TSparcProcInfo(procinfo).maxpushedparasize
+      with TProcDef(procdefinition).parast do
+        if datasize>TSparcProcInfo(procinfo).maxpushedparasize
         then
-          TSparcProcInfo(procinfo).maxpushedparasize:=TProcdef(procdefinition).parast.datasize
-     end
-   else
-     InternalError(2002101001);
+          TSparcProcInfo(procinfo).maxpushedparasize:=datasize
+        else
+    else
+      InternalError(2002101001);
   end;
 procedure TSparcCallNode.load_framepointer;
   begin
@@ -69,7 +69,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  2002-11-14 21:42:08  mazen
+  Revision 1.6  2003-01-22 22:30:03  mazen
+  - internal errors rmoved from a_loar_reg_reg when reg sizes differs from 32
+
+  Revision 1.5  2002/11/14 21:42:08  mazen
   * fixing return value variable address
 
   Revision 1.4  2002/10/10 19:57:52  mazen