Răsfoiți Sursa

* fixed test.

git-svn-id: trunk@7748 -
yury 18 ani în urmă
părinte
comite
be65e77702
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      tests/test/cg/tcalext.pp

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

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