--- ray/src/common/readfargs.c 1998/08/25 10:20:30 2.6 +++ ray/src/common/readfargs.c 2003/06/26 00:58:09 2.9 @@ -1,27 +1,19 @@ -/* Copyright (c) 1991 Regents of the University of California */ - #ifndef lint -static char SCCSid[] = "$SunId$ LBL"; +static const char RCSid[] = "$Id: readfargs.c,v 2.9 2003/06/26 00:58:09 schorsch Exp $"; #endif - /* * Allocate, read and free object arguments */ +#include "copyright.h" + #include "standard.h" #include "object.h" -#ifndef MEMHOG -#define bmalloc malloc -#endif -extern char *fgetword(); -extern int atoi(); -extern long atol(); - - +int readfargs(fa, fp) /* read function arguments from stream */ register FUNARGS *fa; FILE *fp; @@ -35,7 +27,7 @@ FILE *fp; if (!getint(sbuf) || (n = atoi(sbuf)) < 0) return(0); if (fa->nsargs = n) { - fa->sarg = (char **)bmalloc(n*sizeof(char *)); + fa->sarg = (char **)malloc(n*sizeof(char *)); if (fa->sarg == NULL) return(-1); for (i = 0; i < fa->nsargs; i++) { @@ -49,7 +41,7 @@ FILE *fp; return(0); #ifdef IARGS if (fa->niargs = n) { - fa->iarg = (long *)bmalloc(n*sizeof(long)); + fa->iarg = (long *)malloc(n*sizeof(long)); if (fa->iarg == NULL) return(-1); for (i = 0; i < n; i++) { @@ -66,7 +58,7 @@ FILE *fp; if (!getint(sbuf) || (n = atoi(sbuf)) < 0) return(0); if (fa->nfargs = n) { - fa->farg = (FLOAT *)bmalloc(n*sizeof(FLOAT)); + fa->farg = (RREAL *)malloc(n*sizeof(RREAL)); if (fa->farg == NULL) return(-1); for (i = 0; i < n; i++) { @@ -83,7 +75,7 @@ FILE *fp; } -#ifndef MEMHOG +void freefargs(fa) /* free object arguments */ register FUNARGS *fa; { @@ -92,13 +84,20 @@ register FUNARGS *fa; if (fa->nsargs) { for (i = 0; i < fa->nsargs; i++) freestr(fa->sarg[i]); - free((char *)fa->sarg); + free((void *)fa->sarg); + fa->sarg = NULL; + fa->nsargs = 0; } #ifdef IARGS - if (fa->niargs) - free((char *)fa->iarg); + if (fa->niargs) { + free((void *)fa->iarg); + fa->iarg = NULL; + fa->niargs = 0; + } #endif - if (fa->nfargs) - free((char *)fa->farg); + if (fa->nfargs) { + free((void *)fa->farg); + fa->farg = NULL; + fa->nfargs = 0; + } } -#endif