From c85f7cfc261b20cf50c1e88418ce5f5722727c68 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Mon, 28 Jan 2019 04:16:44 +0000
Subject: [PATCH] aros/amigaos4: enabled ELF32/64 and GetModuleAddr() in
 exeinfo, based on the MorphOS versionexeinfo.pp

git-svn-id: trunk@41088 -
---
 rtl/inc/exeinfo.pp | 10 +++++++---
 rtl/inc/text.inc   | 32 ++++++++++++++++----------------
 2 files changed, 23 insertions(+), 19 deletions(-)

diff --git a/rtl/inc/exeinfo.pp b/rtl/inc/exeinfo.pp
index bb40db0a7a..eed61e45ea 100644
--- a/rtl/inc/exeinfo.pp
+++ b/rtl/inc/exeinfo.pp
@@ -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)}
diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index 407ffe1639..5eb9c5095d 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -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;