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

* simple test for the bug

Browse Source 
git-svn-id: trunk@1216 -
This commit is contained in:
peter 2005-09-28 07:05:31 +00:00
parent 4b8ac056da
commit a5582e346f
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6304,6 +6304,7 @@ tests/webtbs/tw4294.pp svneol=native#text/plain
tests/webtbs/tw4308.pp svneol=native#text/plain
tests/webtbs/tw4336.pp svneol=native#text/plain
tests/webtbs/tw4350.pp svneol=native#text/plain
tests/webtbs/tw4388.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

31
tests/webtbs/tw4388.pp Executable file
View File

@ -0,0 +1,31 @@
{ %opt=-O2r }
{ %cpu=i386 }
{$mode delphi}
type
TBigInt=record
Digits : PInt64;
end;
PBigInt=^TBigInt;
var
a : PBigInt;
t : int64;
m : longint;
begin
new(a);
with a^ do
begin
new(Digits);
m:=10;
asm
mov eax, m
mul eax
mov t[0], eax
mov t[4], edx
end ['EAX','EDX'];
Digits^:=t;
writeln(Digits^);
if Digits^<>100 then
halt(1);
end;
end.