paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ i8086-msdos implementation of exeinfo.GetModuleByAddr

Browse Source 
git-svn-id: trunk@39068 -
This commit is contained in:
nickysn 2018-05-20 20:03:58 +00:00
parent 1d3ad2b078
commit 2955ee2dc4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/exeinfo.pp
View File

@ -121,6 +121,14 @@ uses
{$endif FPC_HAS_FEATURE_COMMANDARGS} {$endif FPC_HAS_FEATURE_COMMANDARGS}
end; 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} {$else}
{$ifdef CPUI8086} {$ifdef CPUI8086}