t_id
1497
t_cpu
i386
t_adddate
2005/02/22
t_result
0
t_knownrunerror
0
t_opts
-O2
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022802302 | 1027389 | False | True | Skipping test because for other cpu |
Record count: 1
{ %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.