Browse Source

Fix bug introduced in commit 29091

git-svn-id: trunk@29117 -
pierre 10 years ago
parent
commit
8808308843
1 changed files with 4 additions and 0 deletions
  1. 4 0
      tests/webtbs/tw8513.pp

+ 4 - 0
tests/webtbs/tw8513.pp

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