浏览代码

Fix bug introduced in commit 29091

git-svn-id: trunk@29117 -
pierre 10 年之前
父节点
当前提交
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;