diff options
Diffstat (limited to 'compiler/generic/cpuinfo.pas')
| -rw-r--r-- | compiler/generic/cpuinfo.pas | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/compiler/generic/cpuinfo.pas b/compiler/generic/cpuinfo.pas index 28b762da7b..c864c8032b 100644 --- a/compiler/generic/cpuinfo.pas +++ b/compiler/generic/cpuinfo.pas @@ -22,6 +22,13 @@ Interface Type bestreal = extended; +{$if FPC_FULLVERSION>20700} +{$ifdef FPC_HAS_TYPE_EXTENDED} + bestrealrec = TExtended80Rec; +{$else} + bestrealrec = TDoubleRec; +{$endif} +{$endif FPC_FULLVERSION>20700} ts32real = single; ts64real = double; ts80real = type extended; @@ -42,7 +49,24 @@ Type fpu_soft ); + tcontrollertype = + (ct_none + ); + Const + { Is there support for dealing with multiple microcontrollers available } + { for this platform? } + ControllerSupport = false; + + { 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} + cputypestr : array[tcputype] of string[8] = ('none'); fputypestr : array[tfputype] of string[6] = ('none','soft'); |