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

aros/amigaos4: enabled ELF32/64 and GetModuleAddr() in exeinfo, based on the MorphOS versionexeinfo.pp

Browse Source 
git-svn-id: trunk@41088 -
This commit is contained in:
Károly Balogh 2019-01-28 04:16:44 +00:00
parent 70fa288fc4
commit c85f7cfc26
2 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/exeinfo.pp
View File

@ -107,7 +107,7 @@ uses
end;
end;
{$elseif defined(morphos)}
{$elseif defined(morphos) or defined(aros) or defined(amigaos4)}
procedure startsymbol; external name '_start';
@ -200,8 +200,12 @@ uses
{$endif}
{$endif}
{$if defined(morphos)}
{$define ELF32}
{$if defined(morphos) or defined(aros) or defined(amigaos4)}
{$ifdef cpu64}
{$define ELF64}
{$else}
{$define ELF32}
{$endif}
{$endif}
{$if defined(msdos)}

32
rtl/inc/text.inc
View File

@ -991,7 +991,7 @@ end;
Procedure fpc_Write_Text_SInt(Len : Longint;var t : Text;l : ValSInt); iocheck; compilerproc;
var
s : String;
s : String[32];
Begin
If (InOutRes<>0) then
exit;
@ -1002,7 +1002,7 @@ End;
Procedure fpc_Write_Text_UInt(Len : Longint;var t : Text;l : ValUInt); iocheck; compilerproc;
var
s : String;
s : String[32];
Begin
If (InOutRes<>0) then
exit;
@ -1013,7 +1013,7 @@ End;
Procedure fpc_Write_Text_SInt_Iso(Len : Longint;var t : Text;l : ValSInt); iocheck; compilerproc;
var
s : String;
s : String[32];
Begin
If (InOutRes<>0) then
exit;
@ -1029,7 +1029,7 @@ End;
Procedure fpc_Write_Text_UInt_Iso(Len : Longint;var t : Text;l : ValUInt); iocheck; compilerproc;
var
s : String;
s : String[32];
Begin
If (InOutRes<>0) then
exit;
@ -1045,7 +1045,7 @@ End;
{$ifndef CPU64}
procedure fpc_write_text_qword(len : longint;var t : text;q : qword); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1056,7 +1056,7 @@ end;
procedure fpc_write_text_int64(len : longint;var t : text;i : int64); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1067,7 +1067,7 @@ end;
procedure fpc_write_text_qword_iso(len : longint;var t : text;q : qword); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1083,7 +1083,7 @@ end;
procedure fpc_write_text_int64_iso(len : longint;var t : text;i : int64); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1101,7 +1101,7 @@ end;
{$if defined(CPU16) or defined(CPU8)}
procedure fpc_write_text_longword(len : longint;var t : text;q : longword); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1112,7 +1112,7 @@ end;
procedure fpc_write_text_longint(len : longint;var t : text;i : longint); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1123,7 +1123,7 @@ end;
procedure fpc_write_text_longword_iso(len : longint;var t : text;q : longword); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1139,7 +1139,7 @@ end;
procedure fpc_write_text_longint_iso(len : longint;var t : text;i : longint); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1155,7 +1155,7 @@ end;
procedure fpc_write_text_word(len : longint;var t : text;q : word); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1166,7 +1166,7 @@ end;
procedure fpc_write_text_smallint(len : longint;var t : text;i : smallint); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1177,7 +1177,7 @@ end;
procedure fpc_write_text_word_iso(len : longint;var t : text;q : word); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;
@ -1193,7 +1193,7 @@ end;
procedure fpc_write_text_smallint_iso(len : longint;var t : text;i : smallint); iocheck; compilerproc;
var
s : string;
s : string[32];
begin
if (InOutRes<>0) then
exit;