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