|
@@ -1892,6 +1892,7 @@ begin
|
|
context.Free;
|
|
context.Free;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
+{$endif}
|
|
|
|
|
|
procedure TTestCase1.TestProcVar;
|
|
procedure TTestCase1.TestProcVar;
|
|
var
|
|
var
|
|
@@ -1997,8 +1998,6 @@ begin
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
-{$endif}
|
|
|
|
-
|
|
|
|
initialization
|
|
initialization
|
|
{$ifdef fpc}
|
|
{$ifdef fpc}
|
|
RegisterTest(TTestCase1);
|
|
RegisterTest(TTestCase1);
|