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

---
 rtl/inc/sstrings.inc | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/sstrings.inc b/rtl/inc/sstrings.inc
index 5496f20f72..7857ce3ba2 100644
--- a/rtl/inc/sstrings.inc
+++ b/rtl/inc/sstrings.inc
@@ -226,11 +226,12 @@ begin
 {$endif}
 end;
 
-
+{$ifdef SUPPORT_SINGLE}
 procedure int_str_single(d : single;len,fr : longint;var s : string);[public, alias : 'STR_SINGLE'];
 begin
    str_real(len,fr,d,rt_s32real,s);
 end;
+{$endif SUPPORT_SINGLE}
 
 
 {$ifdef SUPPORT_EXTENDED}
@@ -579,6 +580,7 @@ begin
 end;
 
 
+{$ifdef SUPPORT_SINGLE}
 procedure val(const s : string;var d : single;var code : word);
 var
   e : double;
@@ -605,7 +607,7 @@ begin
   val(s,e,code);
   d:=e;
 end;
-
+{$endif SUPPORT_SINGLE}
 
 {$ifdef SUPPORT_EXTENDED}
 procedure val(const s : string;var d : extended;var code : word);
@@ -713,7 +715,10 @@ end;
 
 {
   $Log$
-  Revision 1.6  1998-06-25 09:44:19  daniel
+  Revision 1.7  1998-07-02 12:14:19  carl
+    * No SINGLE type for non-intel processors!!
+
+  Revision 1.6  1998/06/25 09:44:19  daniel
   + RTLLITE directive to compile minimal RTL.
 
   Revision 1.5  1998/06/04 23:45:59  peter