Просмотр исходного кода

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

git-svn-id: trunk@42732 -
svenbarth 6 лет назад
Родитель
Сommit
62a61bdb41
1 измененных файлов с 1 добавлено и 2 удалено
  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);