فهرست منبع

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;