Pārlūkot izejas kodu

* fixed test.

git-svn-id: trunk@7748 -
yury 18 gadi atpakaļ
vecāks
revīzija
be65e77702
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      tests/test/cg/tcalext.pp

+ 1 - 1
tests/test/cg/tcalext.pp

@@ -512,12 +512,12 @@ begin
     failed := true;
     failed := true;
   if global_u8bit <> RESULT_U8BIT then
   if global_u8bit <> RESULT_U8BIT then
     failed := true;
     failed := true;
+{$endif FPC_HAS_TYPE_EXTENDED}
 
 
   If failed then
   If failed then
    fail
    fail
   else
   else
     WriteLn('Passed!');
     WriteLn('Passed!');
-{$endif FPC_HAS_TYPE_EXTENDED}
 
 
   Write('External struct parameter testing...');
   Write('External struct parameter testing...');