From 29a1c74e343236cbf6a297c0c032b30c61dfc038 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 15 May 2015 22:23:30 +0000
Subject: [PATCH] + implemented TOmfObjInput.CanReadObjData

git-svn-id: trunk@30864 -
---
 compiler/ogomf.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 7b98e6157f..0fc9e42697 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -121,6 +121,7 @@ interface
 
       TOmfObjInput = class(TObjInput)
         constructor create;override;
+        class function CanReadObjData(AReader:TObjectreader):boolean;override;
       end;
 
       { TMZExeOutput }
@@ -890,6 +891,20 @@ implementation
         cobjdata:=TOmfObjData;
       end;
 
+    class function TOmfObjInput.CanReadObjData(AReader: TObjectreader): boolean;
+      var
+        b: Byte;
+      begin
+        result:=false;
+        if AReader.Read(b,sizeof(b)) then
+          begin
+            if b=RT_THEADR then
+            { TODO: check additional fields }
+              result:=true;
+          end;
+        AReader.Seek(0);
+      end;
+
 {****************************************************************************
                                TMZExeOutput
 ****************************************************************************}