paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 05:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for H+ compilation

Browse Source
This commit is contained in:
peter 1998-11-16 10:17:09 +00:00
parent 4f9c7abff7
commit d626ddb757
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/systems.pas
View File

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