Explorar o código

* fixed building

git-svn-id: branches/fixes_2_0@2062 -
florian %!s(int64=20) %!d(string=hai) anos
pai
achega
3f37fed835
Modificáronse 2 ficheiros con 2 adicións e 13 borrados
  1. 2 2
      compiler/sparc/cpupara.pas
  2. 0 11
      rtl/linux/sparc/sighnd.inc

+ 2 - 2
compiler/sparc/cpupara.pas

@@ -175,7 +175,7 @@ implementation
              begin
                p.funcretloc[side].loc:=LOC_REGISTER;
                { high }
-               if (side=callerside) (po_inline in p.procoptions) then
+               if (side=callerside) or (po_inline in p.procoptions) then
                  p.funcretloc[side].register64.reghi:=NR_FUNCTION_RESULT64_HIGH_REG
                else
                  p.funcretloc[side].register64.reghi:=NR_FUNCTION_RETURN64_HIGH_REG;
@@ -190,7 +190,7 @@ implementation
              begin
                p.funcretloc[side].loc:=LOC_REGISTER;
                p.funcretloc[side].size:=retcgsize;
-               if (side=callerside)  or (po_inline in p.procoptions)then
+               if (side=callerside) or (po_inline in p.procoptions)then
                  p.funcretloc[side].register:=newreg(R_INTREGISTER,RS_FUNCTION_RESULT_REG,cgsize2subreg(retcgsize))
                else
                  p.funcretloc[side].register:=newreg(R_INTREGISTER,RS_FUNCTION_RETURN_REG,cgsize2subreg(retcgsize));

+ 0 - 11
rtl/linux/sparc/sighnd.inc

@@ -15,17 +15,6 @@
 
  **********************************************************************}
 
-const
-  FPE_INTDIV = 1;
-  FPE_INTOVF = 2;
-  FPE_FLTDIV = 3;
-  FPE_FLTOVF = 4;
-  FPE_FLTUND = 5;
-  FPE_FLTRES = 6;
-  FPE_FLTINV = 7;
-  FPE_FLTSUB = 8;
-
-
 procedure SignalToRunerror(sig : longint; SigInfo: PSigInfo; SigContext: PSigContext);cdecl;
 var
   res : word;