note description: "[ we also have psuedo-indexes for the various streams these are like regular indexes except streams are unambiguous so we don't need to shift and add a tag ]" date: "$Date$" revision: "$Revision$" class PE_STRING inherit PE_INDEX_BASE redefine has_index_overflow end create make_with_index feature -- Operations has_index_overflow (a_sizes: ARRAY [NATURAL_32]): BOOLEAN do debug ("refactor_fixme") fixme ("Todo double check if we need + 1 in this case.") end Result := large(a_sizes[{PE_TABLE_CONSTANTS}.t_string + 1]) end end