scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

GC_PROTECT'ed the necessary variables (specifically, where >1 arg to 

a function 'may GC')
This commit is contained in:
steven-jenkins 2002-02-12 13:43:37 +00:00
parent 424109a452
commit 90445340fe
9 changed files with 153 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scsh/cygwin32/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/generic/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/hpux/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/irix/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/linux/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/next/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/solaris/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/sunos/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}

18
scsh/ultrix/time_dep1.c
View File

@ -16,9 +16,23 @@ s48_value time_plus_ticks()
{
struct timeval t;
struct timezone tz;
s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval
S48_DECLARE_GC_PROTECT(3);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT;
return sch_retval;
}