expanded class EIF_STUFF
--
-- To simulate `eif_adopt' and `eif_wean' from ETL.
--
feature

   adopted: FIXED_ARRAY[ANY] is
      once
         !!Result.with_capacity(16);
      end;

   adopt(object: ANY) is
         -- A reference to object is stored in `adopted' to avoid
         -- it's collection at GC time.
      do
         if not adopted.fast_has(object) then
            adopted.add_last(object);
         end;
      end;

   wean(object: ANY) is
         -- Remove the reference to `object' in adopted.
      local
         i: INTEGER;
      do
         i := adopted.fast_index_of(object);
         if adopted.valid_index(i) then
            adopted.put(Void,i);
            adopted.put(adopted.last,i);
            adopted.remove_last;
         end;
      end;

end

