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

* Rewrite initialization code for i386-android. i386-android works.

Browse Source 
git-svn-id: branches/targetandroid@23447 -
This commit is contained in:
yury 2013-01-18 23:19:29 +00:00
parent c2fed960c9
commit 3ed10a6936
2 changed files with 83 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
rtl/android/i386/dllprt0.as
View File

@ -1,6 +1,7 @@
# #
# This file is part of the Free Pascal run time library. # This file is part of the Free Pascal run time library.
# Copyright (c) 2001 by Peter Vreman # Copyright (c) 2013 by Yury Sidorov and other
# members of the Free Pascal development team.
# #
# See the file COPYING.FPC, included in this distribution, # See the file COPYING.FPC, included in this distribution,
# for details about the copyright. # for details about the copyright.
@ -14,66 +15,58 @@
# Linux ELF shared library startup code for Free Pascal # Linux ELF shared library startup code for Free Pascal
# #
.file "dllprt0.as" .file "dllprt0.as"
.text .text
.globl _startlib
.type _startlib,@function
_startlib:
.globl FPC_SHARED_LIB_START .globl FPC_SHARED_LIB_START
.type FPC_SHARED_LIB_START,@function .type FPC_SHARED_LIB_START,@function
FPC_SHARED_LIB_START: FPC_SHARED_LIB_START:
pushl %ebp pushl %ebp
movl %esp,%ebp movl %esp,%ebp
/* Align the stack to a 16 byte boundary */
movl 8(%ebp),%eax andl $~15, %esp
movl 12(%ebp),%ecx
movl 16(%ebp),%edx
movl %edx,operatingsystem_parameter_envp /* Move the environment pointer */
movl %eax,operatingsystem_parameter_argc /* Move the argument counter */
movl %ecx,operatingsystem_parameter_argv /* Move the argument pointer */
movb $1,operatingsystem_islibrary
/* Save initial stackpointer */ /* Save initial stackpointer */
movl %esp,__stkptr movl %esp,__stkptr
call PASCALMAIN /* Get environment info from libc */
movl environ,%eax
movl %eax,operatingsystem_parameter_envp
/* Register exit handler. It is called only when the main process terminates */
leal FPC_LIB_EXIT,%eax
pushl %eax
call atexit
addl $4,%esp
/* call main and exit normally */
call PASCALMAIN
leave leave
ret ret
/* --------------------------------------------------------- */
.globl _haltproc .globl _haltproc
.type _haltproc,@function .type _haltproc,@function
_haltproc: _haltproc:
_haltproc2: # GAS <= 2.15 bug: generates larger jump if a label is exported
.globl FPC_SHARED_LIB_EXIT
.type FPC_SHARED_LIB_EXIT,@function
FPC_SHARED_LIB_EXIT:
call lib_exit
xorl %eax,%eax
incl %eax /* eax=1, exit call */
movzwl operatingsystem_result,%ebx movzwl operatingsystem_result,%ebx
int $0x80 pushl %ebx
jmp _haltproc2 /* Call libc exit() */
call exit
.bss /* --------------------------------------------------------- */
.type __stkptr,@object .data
.size __stkptr,4 .comm __stkptr,4
.global __stkptr .comm operatingsystem_parameter_envp,4
__stkptr: operatingsystem_parameter_argc:
.skip 4
.type operatingsystem_parameters,@object
.size operatingsystem_parameters,12
operatingsystem_parameters:
.skip 3*4
.global operatingsystem_parameter_envp
.global operatingsystem_parameter_argc .global operatingsystem_parameter_argc
.long 1
operatingsystem_parameter_argv:
.global operatingsystem_parameter_argv .global operatingsystem_parameter_argv
.set operatingsystem_parameter_envp,operatingsystem_parameters+0 .long EmptyCmdLine
.set operatingsystem_parameter_argc,operatingsystem_parameters+4 EmptyCmdLine:
.set operatingsystem_parameter_argv,operatingsystem_parameters+8 .long EmptyCmdStr
EmptyCmdStr:
.ascii "\0"
.section .note.GNU-stack,"",%progbits /* --------------------------------------------------------- */
.section .init_array, "aw"
.long FPC_SHARED_LIB_START

117
rtl/android/i386/prt0.as
View File

@ -1,7 +1,7 @@
# #
# This file is part of the Free Pascal run time library. # This file is part of the Free Pascal run time library.
# Copyright (c) 1999-2004 by Michael Van Canneyt, Peter Vreman, # Copyright (c) 2013 by Yury Sidorov and other
# & Daniel Mantione, members of the Free Pascal development team. # members of the Free Pascal development team.
# #
# See the file COPYING.FPC, included in this distribution, # See the file COPYING.FPC, included in this distribution,
# for details about the copyright. # for details about the copyright.
@ -14,11 +14,6 @@
# #
# Linux ELF startup code for Free Pascal # Linux ELF startup code for Free Pascal
# #
# The code in this file is the default startup code, it is used unless
# libc is linked in, profiling is enabled or you are compiling a shared
# library.
#
#
# Stack layout at program start: # Stack layout at program start:
# #
# nil # nil
@ -36,77 +31,59 @@
# argc <--- esp # argc <--- esp
# #
/*
In our entry point we should save pointers to cmd line arguments
and environment vars, then pass control to libc startup code.
It will call "PASCALMAIN" via alias "main".
*/
.file "prt0.as" .file "prt0.as"
.text .text
.globl _start .align 4
.type _start,@function .globl _fpc_start
_start: .type _fpc_start,@function
/* First locate the start of the environment variables */ _fpc_start:
popl %ecx /* Get argc in ecx */ /* Clear the frame pointer since this is the outermost frame. */
movl %esp,%ebx /* Esp now points to the arguments */ xorl %ebp,%ebp
leal 4(%esp,%ecx,4),%eax /* The start of the environment is: esp+4*eax+4 */
andl $0xfffffff8,%esp /* Align stack */
leal operatingsystem_parameters,%edi
stosl /* Move the environment pointer */
xchg %ecx,%eax
stosl /* Move the argument counter */
xchg %ebx,%eax
stosl /* Move the argument pointer */
fninit /* initialize fpu */
fwait
fldcw ___fpucw
# /* Initialize gs for thread local storage */
# movw %ds,%ax
# movw %ax,%gs
/* Save initial stackpointer */ /* Save initial stackpointer */
movl %esp,__stkptr movl %esp,__stkptr
/* First locate the start of the environment variables */
/* Get argc in ecx */
movl (%esp),%ecx
/* Save argc */
movl %ecx,operatingsystem_parameter_argc
/* Get argv pointer in ebx */
leal 4(%esp),%ebx
/* Save argv */
movl %ebx,operatingsystem_parameter_argv
/* The start of the environment is: esp+ecx*4+12 */
leal 12(%esp,%ecx,4),%eax
/* Save envp */
movl %eax,operatingsystem_parameter_envp
/* Finally go to libc startup code. It will call "PASCALMAIN" via alias "main" */
jmp _start
xorl %ebp,%ebp /* --------------------------------------------------------- */
call PASCALMAIN
.globl _haltproc .globl _haltproc
.type _haltproc,@function .type _haltproc,@function
_haltproc: _haltproc:
_haltproc2: # GAS <= 2.15 bug: generates larger jump if a label is exported
movl $252,%eax /* exit_group */
movzwl operatingsystem_result,%ebx movzwl operatingsystem_result,%ebx
int $0x80 pushl %ebx
movl $1,%eax /* exit */ /* Call libc exit() */
movzwl operatingsystem_result,%ebx call exit
int $0x80
jmp _haltproc2 /* --------------------------------------------------------- */
.data .data
.type __fpucw,@object /* Define a symbol for the first piece of initialized data. */
.size __fpucw,4 .globl __data_start
.global __fpucw __data_start:
___fpucw: .long 0
.long 0x1332 .weak data_start
data_start = __data_start
/* --------------------------------------------------------- */
.bss .bss
.type __stkptr,@object .comm __stkptr,4
.size __stkptr,4 .comm operatingsystem_parameter_envp,4
.global __stkptr .comm operatingsystem_parameter_argc,4
__stkptr: .comm operatingsystem_parameter_argv,4
.skip 4
.type operatingsystem_parameters,@object
.size operatingsystem_parameters,12
operatingsystem_parameters:
.skip 3*4
.global operatingsystem_parameter_envp
.global operatingsystem_parameter_argc
.global operatingsystem_parameter_argv
.set operatingsystem_parameter_envp,operatingsystem_parameters+0
.set operatingsystem_parameter_argc,operatingsystem_parameters+4
.set operatingsystem_parameter_argv,operatingsystem_parameters+8
//.section .threadvar,"aw",@nobits
.comm ___fpc_threadvar_offset,4
.section .note.GNU-stack,"",%progbits