Test suite results for test file webtbs/tw3460.pp

Test run data :

Test file "webtbs/tw3460.pp" information:

t_id 1418
t_cpu i386,x86_64
t_adddate 2004/12/23
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 848979.

Source:

{ %cpu=i386,x86_64 }

{ Source provided for Free Pascal Bug Report 3460 }
{ Submitted by "Danny Milosavljevic" on  2004-12-22 }
{ e-mail: danny_milo@yahoo.com }

{$ifdef fpc}{$mode delphi}{$endif}

type
  TGValue=array[0..10] of byte;
  PGValue=^TGValue;
  
function x: Integer;
asm
  mov edx,0
  add edx, dword(sizeof(Integer))
  mov Result, edx
end;

function SignalHandlerNextParam(param: PGValue): PGValue;
asm
  mov edx, param
  add edx, dword(sizeof(TGValue))
  mov Result, edx    
end;

var
  a : array[0..10] of TGValue;
begin
  SignalHandlerNextParam(@a[0]);
  writeln(x);
  if x<>sizeof(integer) then
    halt(1);
end.

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