===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/parse.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- src/usr.bin/awk/parse.c	1997/08/25 16:17:13	1.2
+++ src/usr.bin/awk/parse.c	1999/04/20 17:31:30	1.3
@@ -1,4 +1,4 @@
-/*	$OpenBSD: parse.c,v 1.2 1997/08/25 16:17:13 kstailey Exp $	*/
+/*	$OpenBSD: parse.c,v 1.3 1999/04/20 17:31:30 millert Exp $	*/
 /****************************************************************
 Copyright (C) Lucent Technologies 1997
 All Rights Reserved
@@ -208,7 +208,7 @@
 {
 	Node *x;
 
-	x = node4(PASTAT2, a, b, c, (Node *) paircnt);
+	x = node4(PASTAT2, a, b, c, itonp(paircnt));
 	if (paircnt++ >= PA2NUM)
 		ERROR "limited to %d pat,pat statements", PA2NUM SYNTAX;
 	x->ntype = NSTAT;
@@ -259,4 +259,14 @@
 		if (strcmp(((Cell *)(p->narg[0]))->nval, s) == 0)
 			return n;
 	return -1;
+}
+
+int ptoi(void *p)	/* convert pointer to integer */
+{
+	return (int) (long) p;	/* swearing that p fits, of course */
+}
+
+Node *itonp(int i)	/* and vice versa */
+{
+	return (Node *) (long) i;
 }