diff options
Diffstat (limited to 'compiler/vis/cpuinfo.pas')
| -rw-r--r-- | compiler/vis/cpuinfo.pas | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/compiler/vis/cpuinfo.pas b/compiler/vis/cpuinfo.pas index ef0fa47113..ccc3d9bbaa 100644 --- a/compiler/vis/cpuinfo.pas +++ b/compiler/vis/cpuinfo.pas @@ -16,6 +16,9 @@ Unit CPUInfo; Interface +uses + globtype; + Type { Architecture word - Native unsigned type } AWord = Longword; @@ -31,6 +34,9 @@ Type TConstPtrUInt = Longword; bestreal = double; +{$if FPC_FULLVERSION>20700} + bestrealrec = TDoubleRec; +{$endif FPC_FULLVERSION>20700} ts32real = single; ts64real = double; ts80real = extended; @@ -41,7 +47,15 @@ Type { possible supported processors for this target } tcputype = (cpu_none); + tcontrollertype = + (ct_none + ); + + Const + { Is there support for dealing with multiple microcontrollers available } + { for this platform? } + ControllerSupport = false; {# Size of native extended floating point type } extended_size = 8; {# Size of a pointer } @@ -51,6 +65,15 @@ Const { target cpu string (used by compiler options) } target_cpu_string = 'vis'; + { We know that there are fields after sramsize + but we don't care about this warning } + {$PUSH} + {$WARN 3177 OFF} + embedded_controllers : array [tcontrollertype] of tcontrollerdatatype = + ( + (controllertypestr:''; controllerunitstr:''; flashbase:0; flashsize:0; srambase:0; sramsize:0)); + {$POP} + Implementation end. |