From 10722abfac8ba4c709c607fb5a1f37e31729bd83 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 14 Apr 2015 13:32:12 +0000
Subject: [PATCH] + implemented TOmfRecord_LNAMES.DecodeFrom

git-svn-id: trunk@30583 -
---
 compiler/omfbase.pas | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/compiler/omfbase.pas b/compiler/omfbase.pas
index 704d12b95d..f423cd2282 100644
--- a/compiler/omfbase.pas
+++ b/compiler/omfbase.pas
@@ -689,9 +689,18 @@ implementation
     end;
 
   procedure TOmfRecord_LNAMES.DecodeFrom(RawRecord: TOmfRawRecord);
+    var
+      NextOfs: Integer;
+      Name: string;
     begin
-      {TODO: implement}
-      internalerror(2015040101);
+      if RawRecord.RecordType<>RT_LNAMES then
+        internalerror(2015040301);
+      NextOfs:=0;
+      while NextOfs<(RawRecord.RecordLength-1) do
+        begin
+          NextOfs:=RawRecord.ReadStringAt(NextOfs,Name);
+          Names.Add(Name);
+        end;
     end;
 
   procedure TOmfRecord_LNAMES.EncodeTo(RawRecord: TOmfRawRecord);