mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 12:59:29 +01:00
134 lines
2.8 KiB
ActionScript
134 lines
2.8 KiB
ActionScript
#
|
|
# $Id: prelude.as,v 1.2 2003/03/25 18:17:54 armin Exp $
|
|
# This file is part of the Free Pascal run time library.
|
|
# Copyright (c) 1999-2002 by the Free Pascal development team
|
|
# Copyright (c) 2002 Armin Diehl
|
|
#
|
|
# This is the (prelude-like) startup code for netware before 4.11
|
|
#
|
|
# See the file COPYING.FPC, included in this distribution,
|
|
# for details about the copyright.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
#
|
|
#**********************************************************************
|
|
|
|
.file "nwpre.as"
|
|
.text
|
|
|
|
#
|
|
# This is the main program (not loader) Entry-Point that will be called by netware
|
|
# it sets up the argc and argv and calls _nlm_main (in system.pp)
|
|
# This version uses the old _SetupArgv and not the newer _SetupArvV_411
|
|
#
|
|
.globl _pas_Start_
|
|
_pasStart_:
|
|
pushl $_nlm_main
|
|
call _SetupArgv
|
|
addl $4,%esp
|
|
ret
|
|
# this is a hack to avoid that FPC_NW_CHECKFUNCTION will be
|
|
# eleminated by the linker (with smartlinking)
|
|
call FPC_NW_CHECKFUNCTION
|
|
|
|
|
|
#
|
|
# this will be called by the loader, we pass the address of _pasStart_ and
|
|
# _NLMID (needed by clib) and netware is doing the work
|
|
#
|
|
.globl _Prelude
|
|
_Prelude:
|
|
pushl %ebp
|
|
movl %esp,%ebp
|
|
pushl %edi
|
|
pushl %esi
|
|
pushl %ebx
|
|
movl 0x14(%ebp),%edi
|
|
movl 0x18(%ebp),%esi
|
|
movl %esi, __uninitializedDataSize
|
|
movl 0x1c(%ebp),%ebx
|
|
movl 0x20(%ebp),%ecx
|
|
movl 0x28(%ebp),%eax
|
|
pushl $_pasStart_
|
|
pushl $_NLMID
|
|
pushl %eax
|
|
movl 0x24(%ebp),%edx
|
|
pushl %edx
|
|
pushl %ecx
|
|
pushl %ebx
|
|
pushl %esi
|
|
pushl %edi
|
|
movl 0x10(%ebp),%edx
|
|
pushl %edx
|
|
movl 0xc(%ebp),%edx
|
|
pushl %edx
|
|
movl 0x8(%ebp),%edx
|
|
pushl %edx
|
|
call _StartNLM
|
|
test %eax,%eax
|
|
jne x1
|
|
xorl %eax,%eax # dont know why this is needed ?
|
|
x1:
|
|
lea 0xfffffff4(%ebp),%esp
|
|
popl %ebx
|
|
popl %esi
|
|
popl %edi
|
|
movl %ebp,%esp
|
|
popl %ebp
|
|
ret
|
|
|
|
|
|
#
|
|
# the global stop-function
|
|
#
|
|
.globl _Stop
|
|
_Stop:
|
|
pushl $0x5 # TERMINATE_BY_UNLOAD=0, TERMINATE_BY_EXTERNAL_THREAD=0
|
|
pushl $0x0
|
|
movl _NLMID,%edx
|
|
pushl %edx
|
|
call _TerminateNLM
|
|
addl $0x0c,%esp
|
|
ret
|
|
|
|
|
|
.data
|
|
# argc is defined in the novell prelude, i assume it is not needed
|
|
#_argc:
|
|
# .long 0
|
|
|
|
_NLMID:
|
|
.long 0
|
|
|
|
.text
|
|
.globl __getTextStart
|
|
__getTextStart:
|
|
movl $.text,%eax
|
|
ret
|
|
|
|
.text
|
|
.globl __getDataStart
|
|
__getDataStart:
|
|
movl $.data,%eax
|
|
ret
|
|
|
|
.text
|
|
.globl __getBssStart
|
|
__getBssStart:
|
|
movl $.bss,%eax
|
|
ret
|
|
|
|
.data
|
|
__uninitializedDataSize: .long
|
|
|
|
|
|
|
|
.text
|
|
.globl __getUninitializedDataSize
|
|
__getUninitializedDataSize:
|
|
movl __uninitializedDataSize, %eax
|
|
ret
|
|
|