diff options
Diffstat (limited to 'closures/compiler/vis/cpuinfo.pas')
-rw-r--r-- | closures/compiler/vis/cpuinfo.pas | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/closures/compiler/vis/cpuinfo.pas b/closures/compiler/vis/cpuinfo.pas new file mode 100644 index 0000000000..ef0fa47113 --- /dev/null +++ b/closures/compiler/vis/cpuinfo.pas @@ -0,0 +1,56 @@ +{ + Copyright (c) 1998-2002 by the Free Pascal development team + + Basic Processor information for the virtual instruction set + + 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 = Longword; + 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 = Longword; + + bestreal = double; + ts32real = single; + ts64real = double; + ts80real = extended; + ts64comp = comp; + + pbestreal=^bestreal; + + { possible supported processors for this target } + tcputype = (cpu_none); + +Const + {# Size of native extended floating point type } + extended_size = 8; + {# Size of a pointer } + sizeof(aint) = 4; + {# Size of a multimedia register } + mmreg_size = 8; + { target cpu string (used by compiler options) } + target_cpu_string = 'vis'; + +Implementation + +end. |