+ added method TOmfSubRecord_LINNUM_MsLink_LineNumberList.Clear

git-svn-id: trunk@38970 -

compiler/omfbase.pas

@@ -530,6 +530,7 @@ interface
       constructor Create;
       destructor Destroy;override;
 
+      procedure Clear;
       function Add(AObject: TOmfSubRecord_LINNUM_MsLink_Entry): Integer;
       property Count: Integer read GetCount write SetCount;
       property Items[Index: Integer]: TOmfSubRecord_LINNUM_MsLink_Entry read GetItem write SetItem; default;
@@ -2086,6 +2087,11 @@ implementation
       inherited Destroy;
     end;
 
+  procedure TOmfSubRecord_LINNUM_MsLink_LineNumberList.Clear;
+    begin
+      FLineNumbers.Clear;
+    end;
+
   function TOmfSubRecord_LINNUM_MsLink_LineNumberList.Add(
     AObject: TOmfSubRecord_LINNUM_MsLink_Entry): Integer;
     begin