===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/itvnum.c,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM_contrib2/asir2000/builtin/itvnum.c	2002/01/08 04:14:36	1.2
+++ OpenXM_contrib2/asir2000/builtin/itvnum.c	2005/02/08 16:53:00	1.4
@@ -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.3 2005/02/08 16:42:39 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;