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

* moved the morphos code for exeinfo.GetModuleByAddr to a separate ifdef section

Browse Source 
git-svn-id: trunk@39054 -
This commit is contained in:
nickysn 2018-05-20 14:09:57 +00:00
parent 0ceb1244bf
commit 443980b7ac
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/exeinfo.pp
View File

@ -103,19 +103,25 @@ uses
end; end;
end; end;
{$else} {$elseif defined(morphos)}
{$ifdef morphos}
procedure startsymbol; external name '_start'; procedure startsymbol; external name '_start';
{$endif}
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: string); procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: string);
begin begin
{$ifdef morphos}
baseaddr:= @startsymbol; baseaddr:= @startsymbol;
{$ifdef FPC_HAS_FEATURE_COMMANDARGS}
filename:=ParamStr(0);
{$else FPC_HAS_FEATURE_COMMANDARGS}
filename:='';
{$endif FPC_HAS_FEATURE_COMMANDARGS}
end;
{$else} {$else}
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: string);
begin
baseaddr:= nil; baseaddr:= nil;
{$endif}
{$ifdef FPC_HAS_FEATURE_COMMANDARGS} {$ifdef FPC_HAS_FEATURE_COMMANDARGS}
filename:=ParamStr(0); filename:=ParamStr(0);
{$else FPC_HAS_FEATURE_COMMANDARGS} {$else FPC_HAS_FEATURE_COMMANDARGS}