paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 17:14:21 +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;
StdErrorHandle=2;
FileNameCaseSensitive : boolean = false;
var
{ C-compatible arguments and environment }
argc : longint;external name '_argc';
@ -645,7 +647,7 @@ begin
inc(i);
end;
{ 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 }
dir[1]:=char(65+drivenr-1)
else
@ -750,7 +752,10 @@ begin
end.
{
$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
Revision 1.26 2000/02/09 16:59:34 peter