From 9a8e62553a9d5eb6713c2c42c7cfbc8685b9e002 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 6 Feb 2005 19:55:19 +0000
Subject: [PATCH]   * oldfpccall fixed

---
 compiler/globals.pas | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index d520687fa8..bcacf336f0 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -1595,7 +1595,7 @@ end;
           fnstcw (%rsp)
           popq %rax
         end;
-        
+
 
       procedure SetSSECSR(w : dword);
         var
@@ -1604,7 +1604,7 @@ end;
           _w:=w;
           asm
             ldmxcsr _w
-          end;    
+          end;
         end;
 
 
@@ -1617,8 +1617,8 @@ end;
             end;
             result:=_w;
           end;
-  
-                
+
+
       procedure SetFPUExceptionMask(const Mask: TFPUExceptionMask);
         var
           CtlWord: Word;
@@ -1634,11 +1634,11 @@ end;
           { classic FPU }
           CtlWord:=Get8087CW;
           Set8087CW( (CtlWord and $FFC0) or Byte(Longint(Mask)) );
-          
+
           { SSE }
-          
+
           newmask:=GetSSECSR;
-          
+
           { invalid operation }
           if (exInvalidOp in mask) then
             newmask:=newmask or MM_MaskInvalidOp
@@ -1890,7 +1890,7 @@ end;
          'CPPDECL',
          '', { compilerproc }
          'FAR16',
-         'FPCCALL',
+         'OLDFPCCALL',
          'INLINE',
          '', { internproc }
          '', { syscall }
@@ -2290,7 +2290,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.167  2005-02-05 16:17:19  florian
+  Revision 1.168  2005-02-06 19:55:19  peter
+    * oldfpccall fixed
+
+  Revision 1.167  2005/02/05 16:17:19  florian
     + setting sse exception mask on x86_64
 
   Revision 1.166  2005/02/01 17:57:30  olle