From e47267824134124ba634ff0947877c579b5566ba Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 2 Jul 1998 12:13:18 +0000
Subject: [PATCH]   * No SINGLE type for m68k or other non-intel processors!

---
 rtl/inc/systemh.inc | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 221fc9ebfc..e24d5bcf50 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -38,6 +38,7 @@ Type
   Double = real;
   {$define SUPPORT_EXTENDED}
   {$define SUPPORT_COMP}
+  {$define SUPPORT_SINGLE}
 {$endif}
 
 { some type aliases }
@@ -228,9 +229,11 @@ Procedure Val(const s:string;Var b:Integer);
 Procedure Val(const s:string;Var d:Real;Var code:Word);
 Procedure Val(const s:string;Var d:Real;Var code:Integer);
 Procedure Val(const s:string;Var d:Real);
+{$ifdef SUPPORT_SINGLE}
 Procedure Val(const s:string;Var d:single;Var code:Word);
 Procedure Val(const s:string;Var d:single;Var code:Integer);
 Procedure Val(const s:string;Var d:single);
+{$endif SUPPORT_SINGLE}
 {$ifdef SUPPORT_EXTENDED}
 Procedure Val(const s:string;Var d:Extended;Var code:Word);
 Procedure Val(const s:string;Var d:Extended;Var code:Integer);
@@ -386,7 +389,10 @@ Procedure halt;
 
 {
   $Log$
-  Revision 1.15  1998-07-01 14:43:46  carl
+  Revision 1.16  1998-07-02 12:13:18  carl
+    * No SINGLE type for m68k or other non-intel processors!
+
+  Revision 1.15  1998/07/01 14:43:46  carl
     - max_frame_dump reduced to 8, 20 is too much!
 
   Revision 1.14  1998/06/25 14:04:26  peter