===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/util.c,v
retrieving revision 1.6
retrieving revision 1.11
diff -u -p -r1.6 -r1.11
--- OpenXM_contrib2/asir2000/parse/util.c	2000/12/11 09:28:03	1.6
+++ OpenXM_contrib2/asir2000/parse/util.c	2004/06/21 00:58:32	1.11
@@ -45,12 +45,12 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/parse/util.c,v 1.5 2000/12/05 01:24:57 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/parse/util.c,v 1.10 2003/08/23 01:42:53 noro Exp $ 
 */
 #include "ca.h"
 #include "base.h"
 #include "parse.h"
-#if defined(VISUAL)
+#if defined(__GNUC__) || defined(VISUAL) || (defined(__MACH__) && defined(__ppc__)) || defined(__FreeBSD__)
 #include <stdarg.h>
 #else
 #include <varargs.h>
@@ -121,7 +121,7 @@ NODE ind;
 pointer *vp;
 {
 	Obj len,row,col;
-	int i,l;
+	int i;
 	NODE n,n0;
 	VECT v;
 	Q q;
@@ -191,7 +191,7 @@ NODE ind;
 pointer b;
 {
 	Obj len,row,col;
-	int i,l;
+	int i;
 	NODE n,n0;
 
 	if ( a && OID(a) == O_BYTEARRAY ) {
@@ -285,7 +285,7 @@ P p;
 	return ( r );
 }
 
-#if defined(VISUAL)
+#if defined(__GNUC__) || defined(VISUAL) || (defined(__MACH__) && defined(__ppc__)) || defined(__FreeBSD__)
 NODE mknode(int ac,...)
 {
 	va_list ap;
@@ -415,7 +415,7 @@ P *p;
 	P t;
 	char *str;
 
-	for ( vl = CO, str = NAME(f); ; )
+	for ( vl = CO, str = f->fullname; ; )
 		if ( NAME(VR(vl)) && !strcmp(NAME(VR(vl)),str) ) {
 			VR(vl)->attr = (pointer)V_SR; VR(vl)->priv = (pointer)f;
 			MKV(VR(vl),t); *p = t;