|
|
@@ -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
|
peter