paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 16:18:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug introduced in commit 29091

Browse Source 
git-svn-id: trunk@29117 -
This commit is contained in:
pierre 2014-11-23 09:29:11 +00:00
parent b7a1418065
commit 8808308843
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw8513.pp
View File

@ -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;