Test suite results for test file webtbs/tw3298.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all tests

Test file "webtbs/tw3298.pp" information:

t_id 1359
t_adddate 2004/09/13
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=31 Percentage= 62.00

Skipped=19 Percentage= 38.00

Result type Cat. Count Percentage First date Last Date
Successfully run 31 62.0 2024/05/08 01:00:00 35 2024/05/08 02:01:00 28
i386 31 100.0 2024/05/08 01:00:00 35 2024/05/08 02:01:00 28
linux 30 96.8 2024/05/08 01:00:00 35 2024/05/08 02:01:00 28
go32v2 1 3.2 2024/05/08 01:48:00 54 2024/05/08 01:48:00 54
3.3.1 20 64.5 2024/05/08 01:28:00 28 2024/05/08 02:01:00 28
3.2.3 11 35.5 2024/05/08 01:00:00 35 2024/05/08 02:01:00 36
Skipping test because for other cpu 19 38.0 2024/05/08 01:29:00 36 2024/05/08 02:00:00 33
sparc 2 10.5 2024/05/08 01:34:00 61 2024/05/08 01:58:00 39
x86_64 9 47.4 2024/05/08 01:34:00 24 2024/05/08 01:58:00 17
powerpc64 3 15.8 2024/05/08 01:31:00 46 2024/05/08 01:46:00 67
aarch64 5 26.3 2024/05/08 01:29:00 36 2024/05/08 02:00:00 33
linux 17 89.5 2024/05/08 01:29:00 36 2024/05/08 02:00:00 33
solaris 2 10.5 2024/05/08 01:34:00 61 2024/05/08 01:58:00 39
3.3.1 18 94.7 2024/05/08 01:29:00 36 2024/05/08 02:00:00 33
3.2.3 1 5.3 2024/05/08 01:58:00 39 2024/05/08 01:58:00 39

Source:

{ %target=i386 }

{ Source provided for Free Pascal Bug Report 3298 }
{ Submitted by "marco" on  2004-09-07 }
{ e-mail:  }
{$mode delphi}

const
  OffsetArray: array[0..3] of cardinal = ($FFFFFFFC,$FFFFFFFD,$FFFFFFFE,$FFFFFFFF);

procedure MMXUnpacked;
var
  l : cardinal;
begin
 asm
  mov esi, offset OffsetArray[2]
  mov eax,[esi]
  mov l,eax
 end;
 if l<>$FFFFFFFE then
   halt(1);
end;
begin
end.

Link to SVN view of webtbs/tw3298.pp source.