فهرست منبع

* patch of Carl Eric added

mazen 23 سال پیش
والد
کامیت
38298e3548
1فایلهای تغییر یافته به همراه14 افزوده شده و 15 حذف شده
  1. 14 15
      compiler/sparc/cpuinfo.pas

+ 14 - 15
compiler/sparc/cpuinfo.pas

@@ -1,13 +1,4 @@
-{*****************************************************************************}
-{ File                   : cpuinfo.pas                                        }
-{ Author                 : Mazen NEIFER                                       }
-{ Project                : Free Pascal Compiler (FPC)                         }
-{ Creation date          : 2002\26\26                                         }
-{ Last modification date : 2002\08\20                                         }
-{ Licence                : GPL                                                }
-{ Bug report             : [email protected]                        }
-{*****************************************************************************}
-{
+{******************************************************************************
     $Id$
     Copyright (c) 1998-2000 by Florian Klaempfl
 
@@ -30,6 +21,7 @@
  ****************************************************************************}
 UNIT cpuinfo;
 {$INCLUDE fpcdefs.inc}
+
 INTERFACE
 TYPE
 {# Natural integer register type and size for the target machine }
@@ -39,20 +31,19 @@ TYPE
   TConstExprInt=int64;
 { this must be an ordinal type with the same size as a pointer }
 { Note: must be unsigned!! Otherwise, ugly code like           }
-{ pointer(-1) will result in a pointer with the value          }
-{ $fffffffffffffff on a 32bit machine if the compiler uses     }
-{ int64 constants internally (JM)                              }
   TConstPtrUInt=cardinal;
-  bestreal = extended;
+  bestreal = double;
   ts32real = single;
   ts64real = double;
   ts80real = extended;
   ts64comp = extended;
   pbestreal=^bestreal;
+
 { possible supported processors for this target }
   tprocessors=(no_processor,SPARC_V8,SPARC_V9);
 CONST
 {# Size of native extended floating point type }
+{SPARC architecture uses IEEE double floating point numbers}
   extended_size = 8;
 {# Size of a pointer                           }
   pointer_size  = 4;
@@ -63,6 +54,14 @@ CONST
 { size of the buffer used for setjump/longjmp
   the size of this buffer is deduced from the
   jmp_buf structure in setjumph.inc file }
-  jmp_buf_size = 24;
+{$warning jmp_buf_size not set!}  
+  jmp_buf_size = 0;
+
 IMPLEMENTATION
 END.
+{
+  $Log$
+  Revision 1.5  2002-10-16 12:36:54  mazen
+  * patch of Carl Eric added
+
+}