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

* CPU bitness dependent counter sizes for faster testing on slow CPUs

Browse Source 
git-svn-id: trunk@34959 -
This commit is contained in:
florian 2016-11-24 20:59:53 +00:00
parent ef90b46e52
commit f66ee3628c
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/test/tmove.pp
View File

@ -1,5 +1,12 @@
{ %TIMEOUT=20 }
type
{$if defined(CPU8) or defined(CPU16)}
tmoveint = integer;
{$else}
tmoveint = longint;
{$endif}
const
err: boolean = false;
@ -8,8 +15,8 @@ var
procedure test_forward_move;
var
i, j, k: longint;
l: longint;
i, j, k: tmoveint;
l: tmoveint;
begin
for i := 0 to 512 do
begin
@ -60,8 +67,8 @@ end;
procedure test_backward_move;
var
i, j, k: longint;
l: longint;
i, j, k: tmoveint;
l: tmoveint;
begin
for i := 0 to 128 do
begin
@ -114,4 +121,5 @@ begin
test_backward_move;
if err then
halt(1);
writeln('ok');
end.