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

- remove Dos unit dependency

Browse Source
This commit is contained in:
mazen 2004-09-28 16:00:52 +00:00
parent 3bb96fefbd
commit 880427b9aa
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/scanner.pas
View File

@ -203,11 +203,7 @@ interface
implementation implementation
uses uses
{$ifdef delphi} SysUtils,
dmisc,
{$else}
dos,
{$endif delphi}
cutils, cutils,
systems, systems,
switches, switches,
@ -980,9 +976,9 @@ implementation
args, args,
foundfile, foundfile,
hs : string; hs : string;
path : dirstr; path : String;
name : namestr; name : String;
ext : extstr; ext : String;
hp : tinputfile; hp : tinputfile;
found : boolean; found : boolean;
begin begin
@ -1026,7 +1022,7 @@ implementation
if hs='FPCTARGETOS' then if hs='FPCTARGETOS' then
hs:=target_info.shortname hs:=target_info.shortname
else else
hs:=getenv(hs); hs:=GetEnvironmentVariable(hs);
if hs='' then if hs='' then
Message1(scan_w_include_env_not_found,path); Message1(scan_w_include_env_not_found,path);
{ make it a stringconst } { make it a stringconst }
@ -1037,7 +1033,9 @@ implementation
else else
begin begin
hs:=FixFileName(hs); hs:=FixFileName(hs);
fsplit(hs,path,name,ext); path := SplitPath(hs);
name := SplitName(hs);
ext := SplitExtension(hs);
{ try to find the file } { try to find the file }
found:=findincludefile(path,name,ext,foundfile); found:=findincludefile(path,name,ext,foundfile);
if (ext='') then if (ext='') then
@ -3267,7 +3265,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.88 2004-09-12 20:46:58 olle Revision 1.89 2004-09-28 16:00:52 mazen
- remove Dos unit dependency
Revision 1.88 2004/09/12 20:46:58 olle
* Minor bugfix in $IFOPT * Minor bugfix in $IFOPT
Revision 1.87 2004/08/22 23:16:06 olle Revision 1.87 2004/08/22 23:16:06 olle