Explorar o código

+ try to commit this ** file again

carl %!s(int64=23) %!d(string=hai) anos
pai
achega
a4d74cfd17
Modificáronse 1 ficheiros con 68 adicións e 0 borrados
  1. 68 0
      compiler/m68k/cpuinfo.pas

+ 68 - 0
compiler/m68k/cpuinfo.pas

@@ -0,0 +1,68 @@
+{
+    $Id$
+    Copyright (c) 1998-2002 by the Free Pascal development team
+
+    Basic Processor information for the PowerPC
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+Unit CPUInfo;
+
+Interface
+
+Type
+   { Architecture word - Native unsigned type }
+   AWord  = Cardinal;
+   PAWord = ^AWord;
+
+   { this must be an ordinal type with the same size as a pointer }
+   { to allow some dirty type casts for example when using        }
+   { tconstsym.value                                              }
+   { 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;
+
+Const
+   {# Size of native extended floating point type }
+   extended_size = 8;
+   {# Size of a pointer                           }
+   pointer_size  = 4;
+   {# Size of a multimedia register               }
+   mmreg_size = 16;
+   
+   { target cpu string (used by compiler options) }
+   target_cpu_string = 'm68k';
+
+Implementation
+
+end.
+{
+  $Log$
+  Revision 1.1  2002-08-11 08:06:09  carl
+    + try to commit this ** file again
+
+  Revision 1.7  2002/05/18 13:34:26  peter
+    * readded missing revisions
+
+  Revision 1.6  2002/05/16 19:46:53  carl
+  + defines.inc -> fpcdefs.inc to avoid conflicts if compiling by hand
+  + try to fix temp allocation (still in ifdef)
+  + generic constructor calls
+  + start of tassembler / tmodulebase class cleanup
+
+  Revision 1.4  2002/05/13 19:52:46  peter
+    * a ppcppc can be build again
+
+  Revision 1.3  2002/04/07 13:43:11  carl
+  - moved type constant
+
+}