Browse Source

+ parse the IMPDEF record in TOmfObjInput.ReadImpDef

git-svn-id: trunk@42346 -
nickysn 6 years ago
parent
commit
0a94f8fc08
1 changed files with 5 additions and 0 deletions
  1. 5 0
      compiler/ogomf.pas

+ 5 - 0
compiler/ogomf.pas

@@ -1851,9 +1851,14 @@ implementation
       end;
       end;
 
 
     function TOmfObjInput.ReadImpDef(Rec: TOmfRecord_COMENT): Boolean;
     function TOmfObjInput.ReadImpDef(Rec: TOmfRecord_COMENT): Boolean;
+      var
+        ImpDefRec: TOmfRecord_COMENT_IMPDEF;
       begin
       begin
+        ImpDefRec:=TOmfRecord_COMENT_IMPDEF.Create;
+        ImpDefRec.DecodeFrom(Rec);
         {todo: implement}
         {todo: implement}
         Result:=True;
         Result:=True;
+        ImpDefRec.Free;
       end;
       end;
 
 
     function TOmfObjInput.ReadExpDef(Rec: TOmfRecord_COMENT): Boolean;
     function TOmfObjInput.ReadExpDef(Rec: TOmfRecord_COMENT): Boolean;