[9fans] Updating an old port . Warning! long lines of code

["Fernan Bolando" <fernanbolando@mailc.net>]

[-- Attachment #1: Type: text/plain, Size: 1307 bytes --]

Hi all

I am updating an old port from 2002. I was able to clean a few of the simple
errors, but I need a bit of a hint on this one.

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


The following are the relevant structure and code

typedef struct {
  char *name;
  SCM (*mark)P((SCM ptr));
  int (*free)P((FILE *p));
  int (*print)P((SCM exp, SCM port, int writing));
  SCM (*equalp)P((SCM, SCM));
  int (*fputc)P((int c, FILE *p));
/* int (*fputs)P((char *s, FILE *p)); */
/* sizet (*fwrite)P((char *s, sizet siz, sizet num, FILE *p)); */
  int (*fputs)P((const char *s, FILE *p));
  sizet (*fwrite)P((const void *s, sizet siz, sizet num, FILE *p));
  int (*fflush)P((FILE *stream));
  int (*fgetc)P((FILE *p));
  int (*fclose)P((FILE *p));
  int (*ungetc)P((int c, SCM p));
} ptobfuns;


static ptobfuns sfptob = {
  "soft",
  markcdr,
  noop0,
  0,
  0,
  sfputc,
  sfputs,
  sfwrite,
  sfflush,
  sfgetc,
  sfclose};


--
http://www.fernski.com

[-- Attachment #2: Type: text/html, Size: 1632 bytes --]