Test suite results for test file webtbs/tw3274.pp

Test run data :

Test file "webtbs/tw3274.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940804.

Source:

{ %target=i386 }

{ Source provided for Free Pascal Bug Report 3274 }
{ Submitted by "Frank Kintrup" on  2004-08-27 }
{ e-mail: frank.kintrup@gmx.de }
{$MODE Delphi}
{$ASMODE Intel}

var
  X : Integer;
  B : byte;
begin
   X:=10;
   asm
        LEA  ESI, X
        MOV  AL, Byte([ESI])
        MOV  B, AL
   end;
   writeln(b);
   if b<>10 then
     halt(1);
end.

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