From 3fa81fa7cd65770ae302d4937ce5205bea1c40db Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 21 Apr 2015 20:22:30 +0000
Subject: [PATCH] + added overloaded methods TOmfRawRecords.ReadFrom and
 .WriteTo for reading from   and writing to TDynamicArray

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

diff --git a/compiler/omfbase.pas b/compiler/omfbase.pas
index 6794e8eceb..ee14181dd0 100644
--- a/compiler/omfbase.pas
+++ b/compiler/omfbase.pas
@@ -212,7 +212,9 @@ interface
       property ChecksumByte: Byte read GetChecksumByte write SetChecksumByte;
 
       procedure ReadFrom(aReader: TObjectReader);
+      procedure ReadFrom(aReader: TDynamicArray);
       procedure WriteTo(aWriter: TObjectWriter);
+      procedure WriteTo(aWriter: TDynamicArray);
     end;
 
     { TOmfParsedRecord }
@@ -674,11 +676,22 @@ implementation
       aReader.read(RawData[0], RecordLength);
     end;
 
+  procedure TOmfRawRecord.ReadFrom(aReader: TDynamicArray);
+    begin
+      aReader.read(RawData, 3);
+      aReader.read(RawData[0], RecordLength);
+    end;
+
   procedure TOmfRawRecord.WriteTo(aWriter: TObjectWriter);
     begin
       aWriter.write(RawData, RecordLength+3);
     end;
 
+  procedure TOmfRawRecord.WriteTo(aWriter: TDynamicArray);
+    begin
+      aWriter.write(RawData, RecordLength+3);
+    end;
+
   { TOmfRecord_THEADR }
 
   procedure TOmfRecord_THEADR.DecodeFrom(RawRecord: TOmfRawRecord);