Explorar o código

Fix bug introduced in commit 29091

git-svn-id: trunk@29117 -
pierre %!s(int64=10) %!d(string=hai) anos
pai
achega
8808308843
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  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;