Re: [Scm-discuss] Updating scm to plan9

[Aubrey Jaffer]

 | Date: Sun, 29 Jun 2008 21:41:46 +0800
 | From: "Fernan Bolando" <address@hidden>
 | 
 | I currently updating scm to be able to use under plan9.

The last correspondence I can find about SCM and Plan9 is from April
2002.

 | It seems like there are a few things that needed fixing in order to
 | compile under plan9.
 | 
 | in scm.c I changed the wait() to waitpid(). I am still unable to
 | compile it though.

Is wait() being deprecated in Plan9?
Did you change it to "waitpid(-1, &wm, 0)", or something else?

 | I decided to post the errors below in 9fans and scm-discuss, in
 | case you guys will see something obvious.
 | 
 | compile errors ****
 | 
 | /usr/fernan/tmp/scm/sys.c:628[sys.c:3613]
 |  initialization of incompatible pointers: sfptob
 | IND FUNC(INT, IND STRUCT _7_) INT and
 | IND FUNC(OLD, INT, LONG) INT
 | /usr/fernan/tmp/scm/sys.c:629[sys.c:3614]
 |   initialization of incompatible pointers: sfptob
 | IND FUNC(IND CONST CHAR, IND STRUCT _7_) INT and
 | IND FUNC(OLD, IND CHAR, LONG) INT

It looks like the only two field initializations failing are those
whose specification in scm.h have "const".  The appended patch should
fix it.

Thanks for your bug report.  The development version is updated:
http://swiss.csail.mit.edu/ftpdir/users/jaffer/scm.zip

Also, the CVS repository is updated:
https://savannah.gnu.org/cvs/?group=scm


                              -=-=-=-=-

*** sys.c       29 Jun 2008 16:19:10 -0400      1.182
--- sys.c       29 Jun 2008 16:25:53 -0400      
***************
*** 556,562 ****
  }
  sizet sfwrite(str, siz, num, p)
       sizet siz, num;
!      char *str; SCM p;
  {
    SCM sstr;
    sstr = makfromstr(str, siz * num);
--- 556,562 ----
  }
  sizet sfwrite(str, siz, num, p)
       sizet siz, num;
!      const void *str; SCM p;
  {
    SCM sstr;
    sstr = makfromstr(str, siz * num);
***************
*** 565,571 ****
    return num;
  }
  static int sfputs(s, p)
!      char *s; SCM p;
  {
    sfwrite(s, 1, strlen(s), p);
    return 0;
--- 565,571 ----
    return num;
  }
  static int sfputs(s, p)
!      const char *s; SCM p;
  {
    sfwrite(s, 1, strlen(s), p);
    return 0;