paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove unused file

Browse Source 
git-svn-id: trunk@47619 -
This commit is contained in:
florian 2020-11-28 13:41:44 +00:00
parent 96c1da2bbd
commit 7b88d1127f
2 changed files with 0 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -11202,7 +11202,6 @@ rtl/linux/linux.pp svneol=native#text/plain
rtl/linux/linuxvcs.pp svneol=native#text/plain
rtl/linux/m68k/bsyscall.inc svneol=native#text/plain
rtl/linux/m68k/cprt0.as svneol=native#text/plain
rtl/linux/m68k/cprt21.as svneol=native#text/plain
rtl/linux/m68k/dllprt0.as svneol=native#text/plain
rtl/linux/m68k/gprt0.as svneol=native#text/plain
rtl/linux/m68k/gprt21.as svneol=native#text/plain

100
rtl/linux/m68k/cprt21.as
View File

@ -1,100 +0,0 @@
|
| This file is part of the Free Pascal run time library.
| Copyright (c) 1999-2000 by Michael Van Canneyt and Peter Vreman
| members of the Free Pascal development team.
|
| 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.
|
|**********************************************************************}
|
| Linux ELF startup code for Free Pascal
|
.file "prt1.as"
.text
.globl _start
.type _start,@function
_start:
/* First locate the start of the environment variables */
move.l (%sp)+,%d3
move.l %d0,%d4
move.l %sp,%d1 /* Points to the arguments */
move.l %d3,%d0
addq.l #1,%d0
lsl.l #2,%d0
add.l %sp,%d0
move.l %sp,%d7
and.l #0xfffffff8,%d7 /* Align stack */
move.l %d7,%sp
move.l %d0,U_SYSLINUX_ENVP /* Move the environment pointer */
move.l %d3,U_SYSLINUX_ARGC /* Move the argument counter */
move.l %d1,U_SYSLINUX_ARGV /* Move the argument pointer */
move.l #0,%fp /* Zero frame pointer to end call stack */
|
| Start of args for __libc_start_main
|
|
move.l %d4,-(%sp)
move.l %sp,-(%sp)
move.l %a1,-(%sp)
pea.l _fini_dummy
pea.l _init_dummy
move.l %d1,-(%sp)
move.l %d3,-(%sp)
pea.l main
jsr __libc_start_main
trap #0
/* fake main routine which will be run from libc */
main:
/* save return address */
move.l (%sp)+,%d0
move.l %d0,___fpc_ret
move.l %d1,___fpc_ret_d1
move.l %fp,___fpc_ret_fp
move.l %d0,-(%sp)
/* start the program */
move.l #0,%fp
jsr PASCALMAIN
.globl _haltproc
.type _haltproc,@function
_haltproc:
eor.l %d0,%d0 /* load and save exitcode */
move.w U_SYSLINUX_EXITCODE,%d0
move.l ___fpc_ret,%d3 /* return to libc */
move.l ___fpc_ret_fp,%fp
move.l ___fpc_ret_d1,%d1
move.l %d3,-(%sp)
_init_dummy:
_fini_dummy:
rts
.data
.align 4
.globl ___fpc_brk_addr /* heap management */
.type ___fpc_brk_addr,@object
.size ___fpc_brk_addr,4
___fpc_brk_addr:
.long 0
___fpc_ret: /* return address to libc */
.long 0
___fpc_ret_d1:
.long 0
___fpc_ret_fp:
.long 0