development/compilers/freepascal/rtl/inc/tagutils.inc

   1
   2 {
   3    tagutils.inc
   4
   5    Some handy functions to deal with taglist.
   6    At least until fpc have array of const.
   7 }
   8
   9 procedure SetTags(ti : pTagItem; item, data : Longint);
  10 begin
  11     with ti^ do begin
  12        ti_Tag := item;
  13        ti_Data := data;
  14     end;
  15 end;
  16
  17 function TagItem(item, data : Longint): tTagItem;
  18 var
  19    temp : tTagItem;
  20 begin
  21    with temp do begin
  22       ti_Tag := item;
  23       ti_Data := data;
  24    end;
  25    TagItem := temp;
  26 end;