中国开发网: 论坛: 程序员情感CBD: 贴子 245990
pcplayer
一段代码
{$ifdef CPUI386}
{ for bootstrapping with 1.0.x }
{$define CPU32}

{$define DEFAULT_EXTENDED}

{$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE}
{$define SUPPORT_EXTENDED}
{$define SUPPORT_COMP}

ValReal = Extended;
{$endif CPUI386}

{$ifdef CPUX86_64}
{$define DEFAULT_EXTENDED}

{$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE}
{$define SUPPORT_EXTENDED}
{$define SUPPORT_COMP}

ValReal = Extended;
{$endif CPUX86_64}

{$ifdef CPUM68K}
ValReal = Real;

{$define SUPPORT_SINGLE}
{$IFDEF Unix}
{ Linux FPU emulator will be used }
{$define SUPPORT_DOUBLE}
{$ENDIF}
{$IFOPT E-}
{ If not compiling with emulation }
{ then support double type. }
{$define SUPPORT_DOUBLE}
{$ENDIF}
{ Comp type does not exist on fpu }
Comp = int64;
PComp = ^Comp;

{$ifdef FPC_HASNOFARPOINTER}
FarPointer = Pointer;
{$endif FPC_HASNOFARPOINTER}
{$endif CPUM68K}

{$ifdef CPUPOWERPC}
{$define DEFAULT_DOUBLE}

{$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE}

{$define FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE}

ValReal = Double;

{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录