mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
562b968b16
first pass, we have to manually set the varstate of its parameters during
the typecheck pass (mantis #21878)
git-svn-id: trunk@21106 -
24 lines
336 B
ObjectPascal
24 lines
336 B
ObjectPascal
{ %norun }
|
|
{ %opt=-vn -Sen }
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
function DoSomething(const AName: string): integer;
|
|
var
|
|
i, l: Integer;
|
|
begin
|
|
Result := 0;;
|
|
l := Length(AName);
|
|
for i:= 1 to Paramcount do begin
|
|
if copy(ParamStr(i),1, l) = AName then
|
|
inc(Result);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
DoSomething('a');
|
|
end.
|