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

* use system.paramstr()

Browse Source
This commit is contained in:
peter 2000-12-26 15:57:25 +00:00
parent 1a9f0943cb
commit ff388a41e2
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/compiler.pas
View File

@ -254,7 +254,7 @@ begin
InitCompiler(cmd); InitCompiler(cmd);
{ show some info } { show some info }
Message1(general_t_compilername,FixFileName(paramstr(0))); Message1(general_t_compilername,FixFileName(system.paramstr(0)));
Message1(general_d_sourceos,source_os.name); Message1(general_d_sourceos,source_os.name);
Message1(general_i_targetos,target_os.name); Message1(general_i_targetos,target_os.name);
Message1(general_t_exepath,exepath); Message1(general_t_exepath,exepath);
@ -321,7 +321,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.14 2000-12-25 00:07:25 peter Revision 1.15 2000-12-26 15:57:25 peter
* use system.paramstr()
Revision 1.14 2000/12/25 00:07:25 peter
+ new tlinkedlist class (merge of old tstringqueue,tcontainer and + new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects) tlinkedlist objects)

7
compiler/globals.pas
View File

@ -1160,7 +1160,7 @@ implementation
exepath:=dos.getenv('PPC_EXEC_PATH'); exepath:=dos.getenv('PPC_EXEC_PATH');
{$endif delphi} {$endif delphi}
if exepath='' then if exepath='' then
fsplit(FixFileName(paramstr(0)),exepath,hs1,hs2); fsplit(FixFileName(system.paramstr(0)),exepath,hs1,hs2);
{$ifdef need_path_search} {$ifdef need_path_search}
if exepath='' then if exepath='' then
begin begin
@ -1278,7 +1278,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.21 2000-12-25 00:07:26 peter Revision 1.22 2000-12-26 15:57:25 peter
* use system.paramstr()
Revision 1.21 2000/12/25 00:07:26 peter
+ new tlinkedlist class (merge of old tstringqueue,tcontainer and + new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects) tlinkedlist objects)