mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:47:53 +02:00
8c0d9b581c
the reference has been used for the last time, as the destination
register could be the base or index register of the reference
git-svn-id: trunk@33393 -
43 lines
620 B
ObjectPascal
43 lines
620 B
ObjectPascal
type
|
|
PStreamRec= ^TStreamRec;
|
|
|
|
TStreamRec = Packed Record
|
|
ObjType : byte;
|
|
Next : PStreamRec;
|
|
end;
|
|
|
|
const
|
|
BaseRec : PStreamRec= nil;
|
|
|
|
RType1 : TStreamRec = (
|
|
ObjType : 79
|
|
);
|
|
RType2 : TStreamRec = (
|
|
objtype : 80
|
|
);
|
|
|
|
|
|
procedure RegisterType(var R : TStreamRec);
|
|
var
|
|
P : PStreamRec;
|
|
|
|
begin
|
|
P := BaseRec;
|
|
while (P <> nil) and (P^.Objtype <> R.ObjType) do
|
|
P:=P^.Next;
|
|
if not assigned(P) then
|
|
begin
|
|
R.Next:=BaseRec;
|
|
BaseRec:=@R;
|
|
end;
|
|
{ nothing to do here
|
|
else
|
|
P:=@R; }
|
|
end;
|
|
|
|
begin
|
|
RegisterType(Rtype1);
|
|
RegisterType(RType2);
|
|
end.
|
|
|