From 0025ee598bb6934871014a0eabb4cd8187ca064a Mon Sep 17 00:00:00 2001 From: steven-jenkins Date: Tue, 12 Feb 2002 15:31:36 +0000 Subject: [PATCH] Fixed typo. --- scsh/aix/time_dep1.c | 7 ++++--- scsh/bsd/time_dep1.c | 7 ++++--- scsh/cygwin32/time_dep1.c | 7 ++++--- scsh/generic/time_dep1.c | 7 ++++--- scsh/hpux/time_dep1.c | 7 ++++--- scsh/irix/time_dep1.c | 7 ++++--- scsh/linux/time_dep1.c | 7 ++++--- scsh/next/time_dep1.c | 7 ++++--- scsh/solaris/time_dep1.c | 7 ++++--- scsh/sunos/time_dep1.c | 7 ++++--- scsh/ultrix/time_dep1.c | 7 ++++--- 11 files changed, 44 insertions(+), 33 deletions(-) diff --git a/scsh/aix/time_dep1.c b/scsh/aix/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/aix/time_dep1.c +++ b/scsh/aix/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/bsd/time_dep1.c b/scsh/bsd/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/bsd/time_dep1.c +++ b/scsh/bsd/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/cygwin32/time_dep1.c b/scsh/cygwin32/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/cygwin32/time_dep1.c +++ b/scsh/cygwin32/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/generic/time_dep1.c b/scsh/generic/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/generic/time_dep1.c +++ b/scsh/generic/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/hpux/time_dep1.c b/scsh/hpux/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/hpux/time_dep1.c +++ b/scsh/hpux/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/irix/time_dep1.c b/scsh/irix/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/irix/time_dep1.c +++ b/scsh/irix/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/linux/time_dep1.c b/scsh/linux/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/linux/time_dep1.c +++ b/scsh/linux/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/next/time_dep1.c b/scsh/next/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/next/time_dep1.c +++ b/scsh/next/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/solaris/time_dep1.c b/scsh/solaris/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/solaris/time_dep1.c +++ b/scsh/solaris/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/sunos/time_dep1.c b/scsh/sunos/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/sunos/time_dep1.c +++ b/scsh/sunos/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval; diff --git a/scsh/ultrix/time_dep1.c b/scsh/ultrix/time_dep1.c index 0b52fdb..87be152 100644 --- a/scsh/ultrix/time_dep1.c +++ b/scsh/ultrix/time_dep1.c @@ -19,19 +19,20 @@ s48_value time_plus_ticks() 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_value sch_retval = S48_UNSPECIFIC; S48_DECLARE_GC_PROTECT(3); + S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); + if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - 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; + S48_GC_UNPROTECT(); return sch_retval;