Michaël Van Canneyt преди 2 години
родител
ревизия
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