From 2955ee2dc48c94864d76a08c231e01d551dd9a8d Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 20 May 2018 20:03:58 +0000
Subject: [PATCH] + i8086-msdos implementation of exeinfo.GetModuleByAddr

git-svn-id: trunk@39068 -
---
 rtl/inc/exeinfo.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/rtl/inc/exeinfo.pp b/rtl/inc/exeinfo.pp
index fe8963b347..4fc0bab4f1 100644
--- a/rtl/inc/exeinfo.pp
+++ b/rtl/inc/exeinfo.pp
@@ -121,6 +121,14 @@ uses
 {$endif FPC_HAS_FEATURE_COMMANDARGS}
     end;
 
+{$elseif defined(msdos)}
+
+  procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: string);
+    begin
+      baseaddr:=Ptr(PrefixSeg+16,0);
+      filename:=ParamStr(0);
+    end;
+
 {$else}
 
 {$ifdef CPUI8086}