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

* use different haltproc for arm-linux-eabi, this should be cleaned up by using also pascal units for the startup code for arm-linux

Browse Source 
git-svn-id: trunk@12808 -
This commit is contained in:
florian 2009-02-27 15:20:20 +00:00
parent f97730f73f
commit 4bc28de96f
4 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/arm/cprt0.as
View File

@ -103,6 +103,15 @@ _haltproc:
swi 0x900001 swi 0x900001
b _haltproc b _haltproc
.globl _haltproc_eabi
.type _haltproc_eabi,#function
_haltproc_eabi:
ldr r0,=operatingsystem_result
ldrb r0,[r0]
mov r7,#248
swi 0x0
b _haltproc_eabi
/* Define a symbol for the first piece of initialized data. */ /* Define a symbol for the first piece of initialized data. */
.data .data
.globl __data_start .globl __data_start

12
rtl/linux/arm/gprt0.as
View File

@ -53,13 +53,21 @@ _start:
bl PASCALMAIN bl PASCALMAIN
.globl _haltproc .globl _haltproc
.type _haltproc,#function .type _haltproc,#function
_haltproc: _haltproc:
/* r0 contains exitcode */ /* r0 contains exitcode */
swi 0x900001 swi 0x900001
b _haltproc b _haltproc
/* Define a symbol for the first piece of initialized data. */ .globl _haltproc_eabi
.type _haltproc_eabi,#function
_haltproc_eabi:
/* r0 contains exitcode */
mov r7,#248
swi 0x0
b _haltproc_eabi
/* Define a symbol for the first piece of initialized data. */
.data .data
.globl __data_start .globl __data_start
__data_start: __data_start:

9
rtl/linux/arm/prt0.as
View File

@ -78,6 +78,15 @@ _haltproc:
swi 0x900001 swi 0x900001
b _haltproc b _haltproc
.globl _haltproc_eabi
.type _haltproc_eabi,#function
_haltproc_eabi:
ldr r0,=operatingsystem_result
ldrb r0,[r0]
mov r7,#248
swi 0x0
b _haltproc_eabi
/* Define a symbol for the first piece of initialized data. */ /* Define a symbol for the first piece of initialized data. */
.data .data
.globl __data_start .globl __data_start

4
rtl/linux/system.pp
View File

@ -81,7 +81,11 @@ const calculated_cmdline:Pchar=nil;
Misc. System Dependent Functions Misc. System Dependent Functions
*****************************************************************************} *****************************************************************************}
{$if defined(CPUARM) and defined(FPC_ABI_EABI)}
procedure haltproc(e:longint);cdecl;external name '_haltproc_eabi';
{$else}
procedure haltproc(e:longint);cdecl;external name '_haltproc'; procedure haltproc(e:longint);cdecl;external name '_haltproc';
{$endif}
procedure System_exit; procedure System_exit;
begin begin