From 7bef6e592c35a67b5a5709b331aaa7469bd77d87 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 15 Oct 2006 21:28:17 +0000
Subject: [PATCH] * softfpu is included in the system unit if necessary

git-svn-id: trunk@4936 -
---
 rtl/gba/system.pp | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/rtl/gba/system.pp b/rtl/gba/system.pp
index 96549d9104..2b4ce76735 100644
--- a/rtl/gba/system.pp
+++ b/rtl/gba/system.pp
@@ -24,10 +24,15 @@ interface
 
 {$I systemh.inc}
 
+{$define fpc_softfpu_interface}
+{$i softfpu.pp}
+{$undef fpc_softfpu_interface}
+
+
 const
  LineEnding = #10;
  LFNSupport = true;
- CtrlZMarksEOF: boolean = false; 
+ CtrlZMarksEOF: boolean = false;
  DirectorySeparator = '/';
  DriveSeparator = ':';
  PathSeparator = ';';
@@ -38,7 +43,7 @@ const
 
  sLineBreak : string[1] = LineEnding;
  DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
-  
+
 const
   UnusedHandle    = $ffff;
   StdInputHandle  = 0;
@@ -55,6 +60,23 @@ var
 
 implementation
 
+{$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}
+
 {$I system.inc}
 
 {$i gbabios.inc}