stdout/stderr

This commit is contained in:
Dmitry Boulytchev 2023-12-06 19:45:29 +03:00
parent ccd8df1828
commit a3efdeb359
2 changed files with 6 additions and 0 deletions

View file

@ -2,6 +2,8 @@ F,assert;
F,getEnv;
F,system;
V,sysargs;
V,stdout;
V,stderr;
F,stringInt;
F,makeArray;
F,string;

View file

@ -60,6 +60,8 @@ extern void *Bsexp (int n, ...);
extern int LtagHash (char *);
void *global_sysargs;
void *global_stdout;
void *global_stderr;
// Gets a raw data_header
extern int LkindOf (void *p) {
@ -1249,6 +1251,8 @@ extern void set_args (int argc, char *argv[]) {
POST_GC();
global_sysargs = p;
global_stdout = stdout;
global_stderr = stderr;
push_extra_root((void **)&global_sysargs);
}