xfnw/plan9fox
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
plan9fox/sys/src/ape/lib/ap/sparc/main9.s

45 lines
734 B
ArmAsm
Raw Normal View History

ape: initialize _tos and use _tos->pid for getpid()
2012-12-03 04:22:21 +00:00
#define NPRIVATES 16
GLOBL _tos(SB), $4
ape: threadsafe errno store errno on the private process stack so its always per process and not just per memory space. errno itself becomes a macro dereferencing int *_errnoloc; which is initialized from main9.s pointing to the private stack location. various fixes in programs that just imported errno variable with "extern int errno;" instead of including <errno.h>.
2013-03-11 17:57:22 +00:00
GLOBL _errnoloc(SB), $4
ape: return plan9 error strings from strerror() when _syserrno() fails to map a plan9 error string to a unix error number, we copy the plan9 error string to the per process error buffer "plan9err" and set errno = EPLAN9. when strerror() is called with EPLAN9, it returns a pointer to the plan9err buffer.
2016-05-03 22:23:48 +00:00
GLOBL _plan9err(SB), $4
ape: initialize _tos and use _tos->pid for getpid()
2012-12-03 04:22:21 +00:00
GLOBL _privates(SB), $4
GLOBL _nprivates(SB), $4
ape: return plan9 error strings from strerror() when _syserrno() fails to map a plan9 error string to a unix error number, we copy the plan9 error string to the per process error buffer "plan9err" and set errno = EPLAN9. when strerror() is called with EPLAN9, it returns a pointer to the plan9err buffer.
2016-05-03 22:23:48 +00:00
TEXT _main(SB), 1, $(12+4+128+NPRIVATES*4)
Import sources from 2011-03-30 iso image
2011-03-30 12:46:40 +00:00
MOVW $setSB(SB), R2
ape: initialize _tos and use _tos->pid for getpid()
2012-12-03 04:22:21 +00:00
/* _tos = arg */
MOVW R7, _tos(SB)
/*
MOVW _fpsr+0(SB), FSR
FMOVD $0.5, F26
FSUBD F26, F26, F24
FADDD F26, F26, F28
FADDD F28, F28, F30
*/
ape: return plan9 error strings from strerror() when _syserrno() fails to map a plan9 error string to a unix error number, we copy the plan9 error string to the per process error buffer "plan9err" and set errno = EPLAN9. when strerror() is called with EPLAN9, it returns a pointer to the plan9err buffer.
2016-05-03 22:23:48 +00:00
MOVW $12(R1), R7
MOVW R7, _errnoloc(SB)
ADD $4, R7
MOVW R7, _plan9err(SB)
ADD $128, R7
MOVW R7, _privates(SB)
MOVW $NPRIVATES, R7
MOVW R7, _nprivates(SB)
ape: initialize _tos and use _tos->pid for getpid()
2012-12-03 04:22:21 +00:00
Import sources from 2011-03-30 iso image
2011-03-30 12:46:40 +00:00
JMPL _envsetup(SB)
ape: return plan9 error strings from strerror() when _syserrno() fails to map a plan9 error string to a unix error number, we copy the plan9 error string to the per process error buffer "plan9err" and set errno = EPLAN9. when strerror() is called with EPLAN9, it returns a pointer to the plan9err buffer.
2016-05-03 22:23:48 +00:00
Import sources from 2011-03-30 iso image
2011-03-30 12:46:40 +00:00
MOVW inargc-4(FP), R7
MOVW $inargv+0(FP), R8
ape: return plan9 error strings from strerror() when _syserrno() fails to map a plan9 error string to a unix error number, we copy the plan9 error string to the per process error buffer "plan9err" and set errno = EPLAN9. when strerror() is called with EPLAN9, it returns a pointer to the plan9err buffer.
2016-05-03 22:23:48 +00:00
MOVW environ(SB), R9
Import sources from 2011-03-30 iso image
2011-03-30 12:46:40 +00:00
MOVW R7, 4(R1)
MOVW R8, 8(R1)
ape: return plan9 error strings from strerror() when _syserrno() fails to map a plan9 error string to a unix error number, we copy the plan9 error string to the per process error buffer "plan9err" and set errno = EPLAN9. when strerror() is called with EPLAN9, it returns a pointer to the plan9err buffer.
2016-05-03 22:23:48 +00:00
MOVW R9, 12(R1)
Import sources from 2011-03-30 iso image
2011-03-30 12:46:40 +00:00
JMPL main(SB)
loop:
MOVW R7, 4(R1)
JMPL exit(SB)
MOVW $_mul(SB),R7
JMP loop
Reference in a new issue Copy permalink