Browse Source

* Re-add comment

Michaël Van Canneyt 1 year ago
parent
commit
a748d7279c
1 changed files with 1 additions and 0 deletions
  1. 1 0
      rtl/objpas/typinfo.pp

+ 1 - 0
rtl/objpas/typinfo.pp

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