===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/primitive.c,v
retrieving revision 1.22
retrieving revision 1.25
diff -u -p -r1.22 -r1.25
--- OpenXM/src/kan96xx/Kan/primitive.c	2013/11/06 06:44:48	1.22
+++ OpenXM/src/kan96xx/Kan/primitive.c	2018/09/07 00:15:44	1.25
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.21 2005/07/03 11:08:54 ohara Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.24 2016/03/31 05:27:34 takayama Exp $ */
 /*   primitive.c */
 /*  The functions in this module were in stackmachine.c */
 
@@ -14,6 +14,7 @@
 #include "kclass.h"
 #include <sys/types.h>
 #include <sys/times.h>
+#include "mysig.h"
 
 int PrintDollar = 1;         /* flag for printObject() */
 int PrintComma  = 1;         /* flag for printObject() */
@@ -280,7 +281,7 @@ void printObject(ob,nl,fp) 
     printObjectList(&ob);
     break;
   case Sfile:
-    fprintf(fp,"Name=%s, FILE *=%x ",ob.lc.str,(int) ob.rc.file);
+    fprintf(fp,"Name=%s, FILE *=%p ",ob.lc.str,ob.rc.file);
     break;
   case Sring:
     fprintf(fp,"Ring."); KshowRing(KopRingp(ob));
@@ -1746,7 +1747,7 @@ int executePrimitive(ob) 
     }
 	n = ob2.lc.ival;
 	if (n > 0) {
-	  signal(SIGALRM,ctrlC); alarm((unsigned int) n);
+	  mysignal(SIGALRM,ctrlC); alarm((unsigned int) n);
       status = executeExecutableArray(ob1,(char *)NULL,0);
 	  cancelAlarm();
 	}else{