paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use softfloat on arm and m68k

Browse Source 
* export GUID_NULL from types also on windows

git-svn-id: trunk@5231 -
This commit is contained in:
florian 2006-11-05 00:03:38 +00:00
parent e4cd04aa0e
commit 46b6f00bc7
2 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/linux/system.pp
View File

@ -40,6 +40,13 @@ Unit System;
function get_cmdline:Pchar; function get_cmdline:Pchar;
property cmdline:Pchar read get_cmdline; property cmdline:Pchar read get_cmdline;
{$if defined(CPUARM) or defined(CPUM68K)}
{$define fpc_softfpu_interface}
{$i softfpu.pp}
{$undef fpc_softfpu_interface}
{$endif defined(CPUARM) or defined(CPUM68K)}
{*****************************************************************************} {*****************************************************************************}
implementation implementation
@ -54,6 +61,27 @@ property cmdline:Pchar read get_cmdline;
const calculated_cmdline:Pchar=nil; const calculated_cmdline:Pchar=nil;
{$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_extractFloat64Frac}
{$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} {$I system.inc}
{***************************************************************************** {*****************************************************************************

5
rtl/objpas/types.pp
View File

@ -110,9 +110,10 @@ type
POleStr = PWideChar; POleStr = PWideChar;
PPOleStr = ^POleStr; PPOleStr = ^POleStr;
{$ifndef Windows}
const const
GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}';
{$ifndef Windows}
STGTY_STORAGE = 1; STGTY_STORAGE = 1;
STGTY_STREAM = 2; STGTY_STREAM = 2;
STGTY_LOCKBYTES = 3; STGTY_LOCKBYTES = 3;
@ -171,8 +172,6 @@ const
STG_S_RETRYNOW = $00030202; STG_S_RETRYNOW = $00030202;
STG_S_MONITORING = $00030203; STG_S_MONITORING = $00030203;
GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}';
type type
PCLSID = PGUID; PCLSID = PGUID;
TCLSID = TGUID; TCLSID = TGUID;