From 8ebaacad6477da4e2c300db27e5cdf8cd6b60242 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 12 Feb 2007 18:57:57 +0000
Subject: [PATCH] * fixed compilation

git-svn-id: trunk@6459 -
---
 rtl/nds/system.pp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/rtl/nds/system.pp b/rtl/nds/system.pp
index a1da7eebd9..d69859618b 100644
--- a/rtl/nds/system.pp
+++ b/rtl/nds/system.pp
@@ -31,7 +31,7 @@ interface
 const
  LineEnding = #10;
  LFNSupport = true;
- CtrlZMarksEOF: boolean = false; 
+ CtrlZMarksEOF: boolean = false;
  DirectorySeparator = '/';
  DriveSeparator = ':';
  PathSeparator = ';';
@@ -42,7 +42,7 @@ const
 
  sLineBreak : string[1] = LineEnding;
  DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
-  
+
 const
   UnusedHandle    = $ffff;
   StdInputHandle  = 0;
@@ -71,7 +71,6 @@ implementation
 {$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}
@@ -142,7 +141,7 @@ begin
   freeoslistcount:=1;
   freeoslist:=pointer($2040000);
   fillchar(freeoslist^,sizeof(freeoslist^),0);
-  freeoslist^.size:=$40000; 
+  freeoslist^.size:=$40000;
   fillchar(internal_status,sizeof(internal_status),0);
 }
 end;