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

Fix bug introduced in commit 29091

git-svn-id: trunk@29117 -
pierre 10 лет назад
Родитель
Сommit
8808308843
1 измененных файлов с 4 добавлено и 0 удалено
  1. 4 0
      tests/webtbs/tw8513.pp

+ 4 - 0
tests/webtbs/tw8513.pp

@@ -41,7 +41,11 @@ begin
   if (itemasbyte <> $de) then
     halt(1);
 
+{$ifdef FPC_BIG_ENDIAN}
   if (itemasword <> $dead) then
+{$else}
+  if (itemasword <> $adde) then
+{$endif}
     halt(3);
 
   r.a := $de;