From d626ddb757b4b0d00418ed72b181cadb294defac Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 16 Nov 1998 10:17:09 +0000
Subject: [PATCH]   * fixed for H+ compilation

---
 compiler/systems.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/compiler/systems.pas b/compiler/systems.pas
index fd8107fd63..6758c8ae73 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -914,7 +914,11 @@ begin
     upper[i]:=char(byte(s[i])-32)
    else
     upper[i]:=s[i];
+{$ifopt H+}
+  SetLength(upper,length(s));
+{$else}
   upper[0]:=s[0];
+{$endif}
 end;
 
 
@@ -1174,7 +1178,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.48  1998-10-26 14:19:30  pierre
+  Revision 1.49  1998-11-16 10:17:09  peter
+    * fixed for H+ compilation
+
+  Revision 1.48  1998/10/26 14:19:30  pierre
     + added options -lS and -lT for source and target os output
       (to have a easier way to test OS_SOURCE abd OS_TARGET in makefiles)
     * several problems with rtti data