+ support 16-bit pointer size in TFPGInterfacedObjectList.IndexOf

rtl/objpas/fgl.pp

@@ -1265,7 +1265,9 @@ end;
 function TFPGInterfacedObjectList.IndexOf(const Item: T): Integer;
 begin
   Result :=
-{$if sizeof(pointer) = sizeof(dword)}
+{$if sizeof(pointer) = sizeof(word)}
+    IndexWord
+{$elseif sizeof(pointer) = sizeof(dword)}
     IndexDWord
 {$elseif sizeof(pointer) = sizeof(qword)}
     IndexQWord