paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* revert last change : removal of dos unit

Browse Source
This commit is contained in:
mazen 2004-09-29 06:52:43 +00:00
parent 0af84db9cf
commit 83cb4fe087
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/scanner.pas
View File

@ -203,7 +203,11 @@ interface
implementation implementation
uses uses
SysUtils, {$ifdef delphi}
dmisc,
{$else}
dos,
{$endif delphi}
cutils, cutils,
systems, systems,
switches, switches,
@ -976,9 +980,9 @@ implementation
args, args,
foundfile, foundfile,
hs : string; hs : string;
path : String; path : dirstr;
name : String; name : namestr;
ext : String; ext : extstr;
hp : tinputfile; hp : tinputfile;
found : boolean; found : boolean;
begin begin
@ -1022,7 +1026,7 @@ implementation
if hs='FPCTARGETOS' then if hs='FPCTARGETOS' then
hs:=target_info.shortname hs:=target_info.shortname
else else
hs:=GetEnvironmentVariable(hs); hs:=getenv(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 }
@ -1033,9 +1037,7 @@ implementation
else else
begin begin
hs:=FixFileName(hs); hs:=FixFileName(hs);
path := SplitPath(hs); fsplit(hs,path,name,ext);
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
@ -3265,8 +3267,8 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.89 2004-09-28 16:00:52 mazen Revision 1.90 2004-09-29 06:52:43 mazen
- remove Dos unit dependency * revert last change : removal of dos unit
Revision 1.88 2004/09/12 20:46:58 olle Revision 1.88 2004/09/12 20:46:58 olle
* Minor bugfix in $IFOPT * Minor bugfix in $IFOPT