===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/itvnum.c,v
retrieving revision 1.2
retrieving revision 1.5
diff -u -p -r1.2 -r1.5
--- OpenXM_contrib2/asir2000/builtin/itvnum.c	2002/01/08 04:14:36	1.2
+++ 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.1 2000/12/22 09:58:32 saito Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.4 2005/02/08 16:53:00 saito Exp $
  */
 
 #include "ca.h"
@@ -21,7 +21,7 @@ static void Pcup(NODE, Obj *);
 static void Pcap(NODE, Obj *);
 static void Pwidth(NODE, Obj *);
 static void Pdistance(NODE, Obj *);
-static void Pitvversion(Obj *);
+static void Pitvversion(Q *);
 #endif
 static void Pprintmode(NODE, Obj *);
 
@@ -56,9 +56,9 @@ struct ftab interval_tab[] = {
 
 #if defined(INTERVAL)
 static void
-Pitvversion(Obj *rp)
+Pitvversion(Q *rp)
 {
-	STOQ(ASIR_VERSION,(Q)*rp);
+	STOQ(ASIR_VERSION, *rp);
 }
 
 extern int	bigfloat;
@@ -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;
 	}