[Scsh-checkins] CVS: scsh-0.6/scsh network.c,1.6,1.7 sighandlers.c,1.5,1.6 syscalls.c,1.8,1.9

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory slayer.i.sourceforge.net:/tmp/cvs-serv10570

Modified Files:
        network.c sighandlers.c syscalls.c 
Log Message:
Cig generated files...



Index: network.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/network.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** network.c   2000/07/27 13:38:35     1.6
--- network.c   2000/10/19 08:37:34     1.7
***************
*** 23,27 ****
  {
      extern int socket(int , int , int );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
--- 23,27 ----
  {
      extern int socket(int , int , int );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
***************
*** 40,44 ****
  {
      
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
--- 40,44 ----
  {
      
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
***************
*** 56,60 ****
  {
      extern int shutdown(int , int );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
--- 56,60 ----
  {
      extern int shutdown(int , int );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
***************
*** 72,80 ****
  {
      extern int scheme_socket_pair(int , int *, int *);
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
!     int r2;
!     int r3;
  
      
--- 72,80 ----
  {
      extern int scheme_socket_pair(int , int *, int *);
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
!     int r2 = 0;
!     int r3 = 0;
  
      
***************
*** 92,96 ****
  {
      extern int scheme_getsockopt(int , int , int );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
--- 92,96 ----
  {
      extern int scheme_getsockopt(int , int , int );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
***************
*** 109,116 ****
  {
      extern int scheme_getsockopt_linger(int , int , int , int *);
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
!     int r2;
  
      
--- 109,116 ----
  {
      extern int scheme_getsockopt_linger(int , int , int , int *);
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
!     int r2 = 0;
  
      
***************
*** 128,135 ****
  {
      extern int scheme_getsockopt_timeout(int , int , int , int *);
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
!     int r2;
  
      
--- 128,135 ----
  {
      extern int scheme_getsockopt_timeout(int , int , int , int *);
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(2);
      int r1;
!     int r2 = 0;
  
      
***************
*** 147,151 ****
  {
      extern int scheme_setsockopt(int , int , int , int );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
--- 147,151 ----
  {
      extern int scheme_setsockopt(int , int , int , int );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
***************
*** 163,167 ****
  {
      extern int scheme_setsockopt_linger(int , int , int , int , int );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
--- 163,167 ----
  {
      extern int scheme_setsockopt_linger(int , int , int , int , int );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
***************
*** 179,183 ****
  {
      extern int scheme_setsockopt_timeout(int , int , int , int , int );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
--- 179,183 ----
  {
      extern int scheme_setsockopt_timeout(int , int , int , int , int );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
***************
*** 195,199 ****
  {
      extern s48_value veclen(const long * );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(1);
      s48_value r1;
--- 195,199 ----
  {
      extern s48_value veclen(const long * );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(1);
      s48_value r1;

Index: sighandlers.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/sighandlers.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** sighandlers.c       1999/10/08 18:41:02     1.5
--- sighandlers.c       2000/10/19 08:37:34     1.6
***************
*** 16,25 ****
  {
      extern int sig2interrupt(int );
!     s48_value ret1;
      int r1;
  
      
      r1 = sig2interrupt(s48_extract_integer(g1));
      ret1 = s48_enter_integer(r1);
      return ret1;
  }
--- 16,29 ----
  {
      extern int sig2interrupt(int );
!     s48_value ret1 = S48_FALSE;
!     S48_DECLARE_GC_PROTECT(1);
      int r1;
  
      
+     
+     S48_GC_PROTECT_1(ret1);
      r1 = sig2interrupt(s48_extract_integer(g1));
      ret1 = s48_enter_integer(r1);
+     S48_GC_UNPROTECT();
      return ret1;
  }
***************
*** 37,50 ****
  {
      extern s48_value scsh_set_sig(int , int , int , int *, int *);
!     s48_value ret1;
      s48_value r1;
!     int r2;
!     int r3;
  
      
      r1 = scsh_set_sig(s48_extract_fixnum(g1), s48_extract_fixnum(g2), 
s48_extract_fixnum(g3), &r2, &r3);
      ret1 = r1;
      S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
      S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
      return ret1;
  }
--- 41,58 ----
  {
      extern s48_value scsh_set_sig(int , int , int , int *, int *);
!     s48_value ret1 = S48_FALSE;
!     S48_DECLARE_GC_PROTECT(2);
      s48_value r1;
!     int r2 = 0;
!     int r3 = 0;
  
      
+     
+     S48_GC_PROTECT_2(mv_vec,ret1);
      r1 = scsh_set_sig(s48_extract_fixnum(g1), s48_extract_fixnum(g2), 
s48_extract_fixnum(g3), &r2, &r3);
      ret1 = r1;
      S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
      S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
+     S48_GC_UNPROTECT();
      return ret1;
  }
***************
*** 53,66 ****
  {
      extern s48_value scsh_get_sig(int , int *, int *);
!     s48_value ret1;
      s48_value r1;
!     int r2;
!     int r3;
  
      
      r1 = scsh_get_sig(s48_extract_fixnum(g1), &r2, &r3);
      ret1 = r1;
      S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
      S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
      return ret1;
  }
--- 61,78 ----
  {
      extern s48_value scsh_get_sig(int , int *, int *);
!     s48_value ret1 = S48_FALSE;
!     S48_DECLARE_GC_PROTECT(2);
      s48_value r1;
!     int r2 = 0;
!     int r3 = 0;
  
      
+     
+     S48_GC_PROTECT_2(mv_vec,ret1);
      r1 = scsh_get_sig(s48_extract_fixnum(g1), &r2, &r3);
      ret1 = r1;
      S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
      S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
+     S48_GC_UNPROTECT();
      return ret1;
  }
***************
*** 78,87 ****
  {
      extern s48_value get_int_handlers(void);
!     s48_value ret1;
      s48_value r1;
  
      
      r1 = get_int_handlers();
      ret1 = r1;
      return ret1;
  }
--- 90,103 ----
  {
      extern s48_value get_int_handlers(void);
!     s48_value ret1 = S48_FALSE;
!     S48_DECLARE_GC_PROTECT(1);
      s48_value r1;
  
      
+     
+     S48_GC_PROTECT_1(ret1);
      r1 = get_int_handlers();
      ret1 = r1;
+     S48_GC_UNPROTECT();
      return ret1;
  }

Index: syscalls.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** syscalls.c  2000/07/27 13:32:12     1.8
--- syscalls.c  2000/10/19 08:37:34     1.9
***************
*** 33,37 ****
  {
      extern int scheme_exec(const char *, s48_value , s48_value );
!     s48_value ret1;
      S48_DECLARE_GC_PROTECT(1);
      int r1;
--- 33,37 ----
  {
      extern int scheme_exec(const char *, s48_value , s48_value );
!     s48_value ret1 = S48_FALSE;
      S48_DECLARE_GC_PROTECT(1);
[...1045 lines suppressed...]
!     S48_EXPORT_FUNCTION(df_fcntl_read);
!     S48_EXPORT_FUNCTION(df_fcntl_write);
      S48_EXPORT_FUNCTION(df_sleep_until);
!     S48_EXPORT_FUNCTION(df_scm_gethostname);
      S48_EXPORT_FUNCTION(df_errno_msg);
!     S48_EXPORT_FUNCTION(df_scm_crypt);
  
      return S48_UNSPECIFIC;
--- 1092,1102 ----
      S48_EXPORT_FUNCTION(df_getenv);
      S48_EXPORT_FUNCTION(df_delete_env);
!     S48_EXPORT_FUNCTION(set_cloexec);
!     S48_EXPORT_FUNCTION(fcntl_read);
!     S48_EXPORT_FUNCTION(fcntl_write);
      S48_EXPORT_FUNCTION(df_sleep_until);
!     S48_EXPORT_FUNCTION(scm_gethostname);
      S48_EXPORT_FUNCTION(df_errno_msg);
!     S48_EXPORT_FUNCTION(scm_crypt);
  
      return S48_UNSPECIFIC;