* fixed for H+ compilation

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