Michaël Van Canneyt 2 éve
szülő
commit
a748d7279c
1 módosított fájl, 1 hozzáadás és 0 törlés
  1. 1 0
      rtl/objpas/typinfo.pp

+ 1 - 0
rtl/objpas/typinfo.pp

@@ -1220,6 +1220,7 @@ begin
     Result:=2
   else
     begin
+      { the last string is the unit name, so start at -1 }
       PS:=@GetTypeData(enum1)^.NameList;
       Result:=-1;
       While (PByte(PS)^<>0) do