|
@@ -45,8 +45,38 @@ var argc:longint;
|
|
|
|
|
|
CONST SIGSTKSZ = 40960;
|
|
|
|
|
|
+{$if defined(CPUARM)}
|
|
|
+
|
|
|
+{$define fpc_softfpu_interface}
|
|
|
+{$i softfpu.pp}
|
|
|
+{$undef fpc_softfpu_interface}
|
|
|
+
|
|
|
+{$endif defined(CPUARM)}
|
|
|
+
|
|
|
+
|
|
|
Implementation
|
|
|
|
|
|
+{$if defined(CPUARM) or defined(CPUM68K)}
|
|
|
+
|
|
|
+{$define fpc_softfpu_implementation}
|
|
|
+{$i softfpu.pp}
|
|
|
+{$undef fpc_softfpu_implementation}
|
|
|
+
|
|
|
+{ we get these functions and types from the softfpu code }
|
|
|
+{$define FPC_SYSTEM_HAS_float64}
|
|
|
+{$define FPC_SYSTEM_HAS_float32}
|
|
|
+{$define FPC_SYSTEM_HAS_flag}
|
|
|
+{$define FPC_SYSTEM_HAS_extractFloat64Frac0}
|
|
|
+{$define FPC_SYSTEM_HAS_extractFloat64Frac1}
|
|
|
+{$define FPC_SYSTEM_HAS_extractFloat64Exp}
|
|
|
+{$define FPC_SYSTEM_HAS_extractFloat64Sign}
|
|
|
+{$define FPC_SYSTEM_HAS_ExtractFloat32Frac}
|
|
|
+{$define FPC_SYSTEM_HAS_extractFloat32Exp}
|
|
|
+{$define FPC_SYSTEM_HAS_extractFloat32Sign}
|
|
|
+
|
|
|
+{$endif defined(CPUARM) or defined(CPUM68K)}
|
|
|
+
|
|
|
+
|
|
|
{$I system.inc}
|
|
|
|
|
|
{*****************************************************************************
|