t_id
1493
t_adddate
2005/02/14
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021980721 | 1027256 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3653 } { Submitted by "Marco" on 2005-02-14 } { e-mail: } {$ifdef fpc} {$mode delphi} {$else} type ptrint = integer; {$endif} Type arrptr = array[0..maxint div 4-1] of pointer; arrint = array[0..maxint div 4-1] of integer; ppointer= ^arrptr; parrint = ^arrint; PLightSetElement = ^Pointer; TLightSet = Pointer; dlightsetiterator = record next : PLightSetElement; end; function lightstartiter(p:TLightSet):DLightSetIterator; begin result.next:=@ppointer(ptrint(p) and not 3)[0]; // on size. end; begin end.