From d0fd12ac58e0c19bf4bf1f0c937d1a79c8ef7be6 Mon Sep 17 00:00:00 2001 From: Pascal Packaging Team Date: Sun, 25 Dec 2016 11:36:11 +0000 Subject: [PATCH] fix_ppc64s_prt0.as_as_shown_by_cge =================================================================== Gbp-Pq: Name fix_ppc64s_prt0.as_as_shown_by_cge.patch --- fpcsrc/rtl/linux/powerpc64/prt0.as | 25 +++++++++++++++++++++---- 1 file changed, 21 insertions(+), 4 deletions(-) diff --git a/fpcsrc/rtl/linux/powerpc64/prt0.as b/fpcsrc/rtl/linux/powerpc64/prt0.as index e2b569d2..1734e376 100644 --- a/fpcsrc/rtl/linux/powerpc64/prt0.as +++ b/fpcsrc/rtl/linux/powerpc64/prt0.as @@ -324,17 +324,34 @@ _restvr_31: addi r12,r0,-16 * Main program entry point for dynamic executables. * * r7 contains the function pointer that needs to be registered for calling at exit. + * r3/r4/r5 contain argc/argv/envp */ FUNCTION_PROLOG _dynamic_start LOAD_64BIT_VAL 11, __dl_fini std 7,0(11) - LOAD_64BIT_VAL 11, _start - /* do not bother loading the actual function address of _start. We can directly jump to it */ - /* set up GOT pointer from original start function */ + LOAD_64BIT_VAL 11, PASCALMAIN + /* set up GOT pointer from PASCALMAIN */ ld 2,8(11) /* and environment pointer */ ld 11,16(11) - b _start + /* store argument count */ + LOAD_64BIT_VAL 10,operatingsystem_parameter_argc + stw 3,0(10) + /* store argument address */ + LOAD_64BIT_VAL 10,operatingsystem_parameter_argv + std 4,0(10) + /* store environment pointer */ + LOAD_64BIT_VAL 10,operatingsystem_parameter_envp + std 5,0(10) + + LOAD_64BIT_VAL 8,__stkptr + std 1,0(8) + + bl PASCALMAIN + nop + + /* we should not reach here. Crash horribly */ + trap .long 0 .byte 0, 12, 64, 0, 0, 0, 0, 0 -- 2.30.2