From 5a64b05cb4d72c13fc879e67bc0245414bbbc820 Mon Sep 17 00:00:00 2001 From: florian Date: Sat, 4 Feb 2012 20:14:41 +0000 Subject: [PATCH] * put generic mips code into mips dir git-svn-id: trunk@20254 - --- rtl/linux/mips/prt0.as | 135 +++++++++++++++++++++------------------ rtl/linux/mipsel/prt0.as | 117 +-------------------------------- 2 files changed, 75 insertions(+), 177 deletions(-) diff --git a/rtl/linux/mips/prt0.as b/rtl/linux/mips/prt0.as index 73512fbe03..0a09dbebdf 100644 --- a/rtl/linux/mips/prt0.as +++ b/rtl/linux/mips/prt0.as @@ -2,7 +2,7 @@ This file is part of the Free Pascal run time library. Copyright (c) 1999-2009 by Michael Van Canneyt and David Zhang - Startup code for elf32-mipsel + Startup code for elf32-mipsel/elf32-mips See the file COPYING.FPC, included in this distribution, for details about the copyright. @@ -11,89 +11,101 @@ but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. */ + .set noat .section ".text" + .align 4 .global _dynamic_start - .type _dynamic_start,#function + .ent _dynamic_start + .type _dynamic_start,@function _dynamic_start: - /* TODO: need to set __dl_fini here */ - b _start + /* TODO: check whether this code is correct */ + lui $a2,%hi(__dl_fini) + sw $v0,%lo(__dl_fini)($a2) + b _start + nop + + .end _dynamic_start + .size _dynamic_start, .-_start .align 4 .global _start - .type _start,#function + .set nomips16 + .ent _start + .type _start,@function +/* This is the canonical entry point, usually the first thing in the text + segment. The SVR4/Mips ABI (pages 3-31, 3-32) says that when the entry + point runs, most registers' values are unspecified, except for: + + v0 ($2) Function pointer of a function to be executed at exit + + sp ($29) The stack contains the arguments and environment: + 0(%sp) argc + 4(%sp) argv[0] + + ... + (4*argc)(%sp) NULL + (4*(argc+1))(%sp) envp[0] + ... + NULL + ra ($31) Return address set to zero. +*/ _start: - 0: 03a0f021 move s8,sp - 4: 2401fff8 li at,-8 - 8: 03a1e824 and sp,sp,at - c: 27bdffe0 addiu sp,sp,-32 - 10: 3c17003d lui s7,0x3d - 14: 26f70900 addiu s7,s7,2304 - 18: 2401fff8 li at,-8 - 1c: 02e1b824 and s7,s7,at - 20: 26f7ffe0 addiu s7,s7,-32 - 24: 8fc40000 lw a0,0(s8) - 28: 3c050000 lui a1,0x0 - 2c: aca40000 sw a0,0(a1) - 30: 27c50004 addiu a1,s8,4 - 34: 3c060000 lui a2,0x0 - 38: acc50000 sw a1,0(a2) - 3c: 24860001 addiu a2,a0,1 - 40: 00063080 sll a2,a2,0x2 - 44: 00c53021 addu a2,a2,a1 - 48: 3c070000 lui a3,0x0 - 4c: 0c000000 jal 0 <__start> - 50: ace60000 sw a2,0(a3) - 54: 00000000 nop + /* load fp */ + move $s8,$sp - /* Terminate the stack frame, and reserve space for functions to - drop their arguments. */ - mov %g0, %fp - sub %sp, 6*4, %sp + /* align stack */ + li $at,-8 + and $sp,$sp,$at - /* Extract the arguments and environment as encoded on the stack. The - argument info starts after one register window (16 words) past the SP. */ - ld [%sp+22*4], %o2 - sethi %hi(operatingsystem_parameter_argc),%o1 - or %o1,%lo(operatingsystem_parameter_argc),%o1 - st %o2, [%o1] + addiu $sp,$sp,-32 - add %sp, 23*4, %o0 - sethi %hi(operatingsystem_parameter_argv),%o1 - or %o1,%lo(operatingsystem_parameter_argv),%o1 - st %o0, [%o1] + lui $s7,0x3d + addiu $s7,$s7,2304 + li $at,-8 + and $s7,$s7,$at + addiu $s7,$s7,-32 - /* envp=(argc+1)*4+argv */ - inc %o2 - sll %o2, 2, %o2 - add %o2, %o0, %o2 - sethi %hi(operatingsystem_parameter_envp),%o1 - or %o1,%lo(operatingsystem_parameter_envp),%o1 - st %o2, [%o1] + /* store argc */ + lw $a0,0($s8) + lui $a1,%hi(operatingsystem_parameter_argc) + sw $a0,%lo(operatingsystem_parameter_argc)($a1) - /* Save initial stackpointer */ - sethi %hi(__stkptr),%o1 - or %o1,%lo(__stkptr),%o1 - st %sp, [%o1] + /* store argv */ + addiu $a1,$s8,4 + lui $a2,%hi(operatingsystem_parameter_argv) + sw $a1,%lo(operatingsystem_parameter_argv)($a2) - /* Call the user program entry point. */ - call PASCALMAIN - nop + /* store envp */ + addiu $a2,$a0,1 + sll $a2,$a2,0x2 + addu $a2,$a2,$a1 + lui $a3,%hi(operatingsystem_parameter_envp) + jal PASCALMAIN + sw $a2,%lo(operatingsystem_parameter_envp)($a3) + nop + b _haltproc + nop -.globl _haltproc -.type _haltproc,@function + .end _start + .size _start, .-_start + + .globl _haltproc + .ent _haltproc + .type _haltproc,@function _haltproc: /* TODO: need to check whether __dl_fini is non-zero and call the function pointer in case */ - li v0,4001 - lui a0,0x0 - lw a0,0(a0) + li $v0,4001 + lui $a0,0x0 + lw $a0,0($a0) syscall b _haltproc nop - .size _start, .-_start + .end _haltproc + .size _haltproc, .-_haltproc .comm __stkptr,4 .comm __dl_fini,4 @@ -101,3 +113,4 @@ _haltproc: .comm operatingsystem_parameter_envp,4 .comm operatingsystem_parameter_argc,4 .comm operatingsystem_parameter_argv,4 + diff --git a/rtl/linux/mipsel/prt0.as b/rtl/linux/mipsel/prt0.as index 0a09dbebdf..c6db79ac33 100644 --- a/rtl/linux/mipsel/prt0.as +++ b/rtl/linux/mipsel/prt0.as @@ -1,116 +1 @@ -/* - This file is part of the Free Pascal run time library. - Copyright (c) 1999-2009 by Michael Van Canneyt and David Zhang - - Startup code for elf32-mipsel/elf32-mips - - 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. -*/ - .set noat - - .section ".text" - - .align 4 - .global _dynamic_start - .ent _dynamic_start - .type _dynamic_start,@function -_dynamic_start: - /* TODO: check whether this code is correct */ - lui $a2,%hi(__dl_fini) - sw $v0,%lo(__dl_fini)($a2) - b _start - nop - - .end _dynamic_start - .size _dynamic_start, .-_start - - .align 4 - .global _start - .set nomips16 - .ent _start - .type _start,@function -/* This is the canonical entry point, usually the first thing in the text - segment. The SVR4/Mips ABI (pages 3-31, 3-32) says that when the entry - point runs, most registers' values are unspecified, except for: - - v0 ($2) Function pointer of a function to be executed at exit - - sp ($29) The stack contains the arguments and environment: - 0(%sp) argc - 4(%sp) argv[0] - - ... - (4*argc)(%sp) NULL - (4*(argc+1))(%sp) envp[0] - ... - NULL - ra ($31) Return address set to zero. -*/ -_start: - /* load fp */ - move $s8,$sp - - /* align stack */ - li $at,-8 - and $sp,$sp,$at - - addiu $sp,$sp,-32 - - lui $s7,0x3d - addiu $s7,$s7,2304 - li $at,-8 - and $s7,$s7,$at - addiu $s7,$s7,-32 - - /* store argc */ - lw $a0,0($s8) - lui $a1,%hi(operatingsystem_parameter_argc) - sw $a0,%lo(operatingsystem_parameter_argc)($a1) - - /* store argv */ - addiu $a1,$s8,4 - lui $a2,%hi(operatingsystem_parameter_argv) - sw $a1,%lo(operatingsystem_parameter_argv)($a2) - - /* store envp */ - addiu $a2,$a0,1 - sll $a2,$a2,0x2 - addu $a2,$a2,$a1 - lui $a3,%hi(operatingsystem_parameter_envp) - jal PASCALMAIN - sw $a2,%lo(operatingsystem_parameter_envp)($a3) - nop - b _haltproc - nop - - .end _start - .size _start, .-_start - - .globl _haltproc - .ent _haltproc - .type _haltproc,@function -_haltproc: - /* TODO: need to check whether __dl_fini is non-zero and call the function pointer in case */ - - li $v0,4001 - lui $a0,0x0 - lw $a0,0($a0) - syscall - b _haltproc - nop - - .end _haltproc - .size _haltproc, .-_haltproc - - .comm __stkptr,4 - .comm __dl_fini,4 - - .comm operatingsystem_parameter_envp,4 - .comm operatingsystem_parameter_argc,4 - .comm operatingsystem_parameter_argv,4 - +.include "mips/prt0.as"