4 package body Rep_Clause5 is
6 function To_LNumber(S : String) return LNumber_Type is
12 LN := LNumber_Type(LV);
16 procedure Merge_Numbered(LNodes : in out LNodes_Ptr) is
20 for X in LNodes.all'Range loop
21 T1 := LNodes(X).Line(0);
22 if T1.Token /= LEX_LF then
24 S : String := Element(T1.SID);