Browse Source

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

git-svn-id: trunk@42732 -
svenbarth 6 years ago
parent
commit
62a61bdb41
1 changed files with 1 additions and 2 deletions
  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;
     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);