|
@@ -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...');
|
|
|
|
|