paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 07:50:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use system.paramstr()

Browse Source
This commit is contained in:
peter 2000-12-24 12:21:41 +00:00
parent 4ec8650ad9
commit 6d8398ab9f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/options.pas
View File

@ -217,7 +217,7 @@ var
p : pchar;
begin
MaybeLoadMessageFile;
Message1(option_usage,paramstr(0));
Message1(option_usage,system.paramstr(0));
lastident:=0;
if DoWriteLogo then
lines:=3
@ -1067,7 +1067,7 @@ begin
while paramindex<paramcount do
begin
inc(paramindex);
opts:=paramstr(paramindex);
opts:=system.paramstr(paramindex);
case opts[1] of
'@' :
begin
@ -1538,7 +1538,10 @@ finalization
end.
{
$Log$
Revision 1.22 2000-12-23 19:46:49 peter
Revision 1.23 2000-12-24 12:21:41 peter
* use system.paramstr()
Revision 1.22 2000/12/23 19:46:49 peter
* object to class conversion
* more verbosity for -vt and -vd
* -i options can be put after eachother so the Makefiles only need