Michaël Van Canneyt 2 лет назад
Родитель
Сommit
976a6e2b2c
1 измененных файлов с 1 добавлено и 0 удалено
  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