TASTClass.Fields was a TStringList storing field names in the string slot and source line numbers in Objects[] behind Pointer(PtrUInt(line)) / Integer(PtrUInt(...)) casts. Split it into Fields: TList<String> + FieldLines: TList<Integer> (the parallel-list idiom already used elsewhere in this tool), removing both unsafe casts. Behaviour unchanged: coverage run reports OK, 71 AST classes scanned. |
||
|---|---|---|
| .. | ||
| bif-coverage | ||
| kanban | ||
| migration-analyser | ||
| .gitkeep | ||