소스 검색

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

git-svn-id: trunk@42732 -
svenbarth 6 년 전
부모
커밋
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);