paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 06:51:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ FileNameCaseSensitive added

Browse Source
This commit is contained in:
Tomas Hajny 2000-05-21 15:58:50 +00:00
parent be82426e89
commit 0cbc7b98ad
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/sysos2.pas
View File

@ -98,6 +98,8 @@ const UnusedHandle=$ffff;
StdOutputHandle=1; StdOutputHandle=1;
StdErrorHandle=2; StdErrorHandle=2;
FileNameCaseSensitive : boolean = false;
var var
{ C-compatible arguments and environment } { C-compatible arguments and environment }
argc : longint;external name '_argc'; argc : longint;external name '_argc';
@ -645,7 +647,7 @@ begin
inc(i); inc(i);
end; end;
{ upcase the string (FPC function) } { upcase the string (FPC function) }
dir:=upcase(dir); if not (FileNameCaseSensitive) then dir:=upcase(dir);
if drivenr<>0 then { Drive was supplied. We know it } if drivenr<>0 then { Drive was supplied. We know it }
dir[1]:=char(65+drivenr-1) dir[1]:=char(65+drivenr-1)
else else
@ -750,7 +752,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.27 2000-04-07 17:47:34 hajny Revision 1.28 2000-05-21 15:58:50 hajny
+ FileNameCaseSensitive added
Revision 1.27 2000/04/07 17:47:34 hajny
* got rid of os.inc * got rid of os.inc
Revision 1.26 2000/02/09 16:59:34 peter Revision 1.26 2000/02/09 16:59:34 peter