blob: 7a4d2c6d500871a8b8574aa15be0d2950c5b303c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{ 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.
|
