paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 10:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2003-10-30 19:54:04 +00:00
parent 08c8b2ea2c
commit 9ff3d9ac58
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw2631.pp Normal file
View File

@ -0,0 +1,23 @@
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 2631 }
{ Submitted by "Arnstein" on 2003-08-12 }
{ e-mail: Arnstein.Prytz@jcu.edu.au }
{$ifdef fpc}{$mode delphi}{$endif}
function d : int64;
begin
asm
xor ecx,ecx
mov dword ptr Result,$00000000;
mov dword ptr Result+4,$00100000;
mov dword ptr Result[4+ECX*2],$00100000;
end;
end;
begin
WRITELN( d );
if d<>$0010000000000000 then
halt(1);
end.