paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed cmdline handling so that multiple parameters can be passed.

Browse Source 
Needed for bug #16344, since a -Fi. needs to be passed.

git-svn-id: trunk@15732 -
This commit is contained in:
marco 2010-08-06 18:46:51 +00:00
parent b48130b39b
commit 2f1581af8a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-passrc/examples/test_parser.pp
View File

@ -36,6 +36,7 @@ var
E: TPasTreeContainer;
I: Integer;
Decls: TList;
cmdl : string;
begin
if Paramcount<1 then
begin
@ -44,9 +45,13 @@ begin
writeln('usage: test_parser <commandline>');
halt;
end;
cmdl:=paramstr(1);
if paramcount>1 then
for i:=2 to paramcount do
cmdl:=cmdl+' '+paramstr(i);
E := TSimpleEngine.Create;
try
M := ParseSource(E, ParamStr(1), 'linux', 'i386');
M := ParseSource(E, cmdl , 'linux', 'i386');
{ Cool, we successfully parsed the unit.
Now output some info about it. }