mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-24 09:02:29 +02:00
* arg* and envp handling fixed
This commit is contained in:
parent
0eac139e17
commit
ae6e54fb38
@ -30,17 +30,17 @@ _start:
|
||||
stwu 1,-16(1)
|
||||
mtlr 0
|
||||
stw 0,0(1)
|
||||
lwz 3,0(26) /* get argc */
|
||||
// lwz 3,0(26) /* get argc */
|
||||
lis 11,U_SYSTEM_ARGC@ha
|
||||
stw 3,U_SYSTEM_ARGC@l(11);
|
||||
|
||||
addi 4,26,4 /* get argv */
|
||||
// addi 4,26,4 /* get argv */
|
||||
lis 11,U_SYSTEM_ARGV@ha
|
||||
stw 4,U_SYSTEM_ARGV@l(11);
|
||||
|
||||
addi 27,3,1 /* calculate argc + 1 into r27 */
|
||||
slwi 27,27,2 /* calculate (argc + 1) * sizeof(char *) into r27 */
|
||||
add 5,4,27 /* get address of env[0] */
|
||||
// addi 27,3,1 /* calculate argc + 1 into r27 */
|
||||
// slwi 27,27,2 /* calculate (argc + 1) * sizeof(char *) into r27 */
|
||||
// add 5,4,27 /* get address of env[0] */
|
||||
lis 11,U_SYSTEM_ENVP@ha
|
||||
stw 5,U_SYSTEM_ENVP@l(11);
|
||||
/* init libc, parameters are already setup at this point */
|
||||
@ -72,7 +72,10 @@ ___fpc_brk_addr:
|
||||
|
||||
/*
|
||||
$Log$
|
||||
Revision 1.4 2003-12-28 20:08:53 florian
|
||||
Revision 1.5 2004-01-04 17:12:28 florian
|
||||
* arg* and envp handling fixed
|
||||
|
||||
Revision 1.4 2003/12/28 20:08:53 florian
|
||||
* initial code
|
||||
|
||||
Revision 1.3 2002/09/07 16:01:20 peter
|
||||
@ -83,4 +86,4 @@ ___fpc_brk_addr:
|
||||
|
||||
Revision 1.1 2002/07/26 17:07:11 florian
|
||||
+ dummy implementation to test the makefile
|
||||
*/
|
||||
*/
|
||||
Loading…
Reference in New Issue
Block a user