Test suite results for test file webtbs/tw0961.pp

Test run data :

View Test suite results

Test file "webtbs/tw0961.pp" information:

t_id 744
t_cpu i386
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=4 Percentage= 8.00

Skipped=46 Percentage= 92.00

Source:

{ %CPU=i386 }
{ older ppc386 only define cpu86 }
{$ifdef cpu86}
{$define cpui386}
{$endif cpu86}
var
 x,y : byte;
 z : longint;
{$asmmode intel}

procedure test(var x : byte);
begin
  x:=5;
{$ifdef cpui386}
  asm
    mov   edi,$12345678
    mov   edi,x
    mov   dword ptr [edi],78
  end;
{$else cpui386}
  x:=$78;
{$endif cpui386}
end;

begin
  x:=34;
  test(x);
  if x<>78 then
    begin
      Writeln('Problem !!');
      Halt(1);
    end;
end.

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