Test suite results for test file webtbs/tw3676.pp

Test run data :

Test file "webtbs/tw3676.pp" information:

t_id 1497
t_cpu i386
t_adddate 2005/02/22
t_result 0
t_knownrunerror 0
t_opts -O2

Detailed test run results:

Record count: 1

No log of 488056.

Source:

{ %cpu=i386 }
{ %opt=-O2 }

{$mode delphi}

uses classes;

function Read(Str: TStream): string;
begin
  SetLength(Result, Str.Size - Str.Position);
  writeln(str.size,' - ',str.Position);
  Writeln(Length(Result));
end;

var
  stream: TMemoryStream;
  buf: PChar;
  x: char;
  i: Integer;
  s : string;
begin
  stream := TMemoryStream.Create;
  x := 'A';
  buf := @x;
  for i := 0 to 26000 do begin
    stream.Write(buf, sizeof(buf^));
  end;
  stream.Position := 0;
  s:=Read(stream);
end.

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