5 C_Errno_t(C_PId_t
) MLton_Process_spawne (NullString8_t pNStr
,
6 Array(NullString8_t
) aStr
,
7 Array(NullString8_t
) eStr
) {
17 path
= (const char *) pNStr
;
18 args
= (char **) aStr
;
19 aLen
= GC_getArrayLength((pointer
)aStr
);
20 aSaved
= args
[aLen
- 1];
21 args
[aLen
- 1] = NULL
;
23 eLen
= GC_getArrayLength((pointer
)eStr
);
24 eSaved
= env
[eLen
- 1];
26 res
= spawnve (SPAWN_MODE
, path
,
27 (const char * const *)args
,
28 (const char * const *)env
);
30 args
[aLen
- 1] = aSaved
;
31 env
[eLen
- 1] = eSaved
;
32 return (C_Errno_t(C_PId_t
))res
;
37 __attribute__ ((noreturn
))
38 C_Errno_t(C_PId_t
) MLton_Process_spawne (__attribute__ ((unused
))NullString8_t pNStr
,
39 __attribute__ ((unused
))Array(NullString8_t
) aStr
,
40 __attribute__ ((unused
))Array(NullString8_t
) ePtr
) {
41 die ("MLton_Process_spawne not implemented");