===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/itvnum.c,v
retrieving revision 1.3
retrieving revision 1.5
diff -u -p -r1.3 -r1.5
--- OpenXM_contrib2/asir2000/builtin/itvnum.c	2005/02/08 16:42:39	1.3
+++ OpenXM_contrib2/asir2000/builtin/itvnum.c	2005/07/14 22:46:03	1.5
@@ -1,5 +1,5 @@
 /*
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.2 2002/01/08 04:14:36 kondoh Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.4 2005/02/08 16:53:00 saito Exp $
  */
 
 #include "ca.h"
@@ -56,7 +56,7 @@ struct ftab interval_tab[] = {
 
 #if defined(INTERVAL)
 static void
-Pitvversion(Obj *rp)
+Pitvversion(Q *rp)
 {
 	STOQ(ASIR_VERSION, *rp);
 }
@@ -209,7 +209,7 @@ Pinf(NODE arg, Obj *rp)
 				itvtois((Itv)ARG0(arg),&i,&s);
 				*rp = (Obj)i;
 				break;
-			defaults:
+			default:
 				*rp = (Obj)a;
 				break;
 		}
@@ -241,7 +241,7 @@ Psup(NODE arg, Obj *rp)
 				itvtois((Itv)ARG0(arg),&i,&s);
 				*rp = (Obj)s;
 				break;
-			defaults:
+			default:
 				*rp = (Obj)a;
 				break;
 		}
@@ -283,7 +283,7 @@ Pmid(NODE arg, Obj *rp)
 		case O_VECT:
 		case O_MAT:
 #endif
-		defaults:
+		default:
 			*rp = (Obj)a;
 			break;
 	}