Ver Fonte

* fix ifdefs for non-fpc (Lazarus likes to mess these up during auto completion...)

git-svn-id: trunk@42732 -
svenbarth há 6 anos atrás
pai
commit
62a61bdb41
1 ficheiros alterados com 1 adições e 2 exclusões
  1. 1 2
      packages/rtl-objpas/tests/tests.rtti.pas

+ 1 - 2
packages/rtl-objpas/tests/tests.rtti.pas

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