=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/stackmachine.c,v retrieving revision 1.41 retrieving revision 1.42 diff -u -p -r1.41 -r1.42 --- OpenXM/src/kan96xx/Kan/stackmachine.c 2016/03/31 05:27:34 1.41 +++ OpenXM/src/kan96xx/Kan/stackmachine.c 2016/03/31 06:34:29 1.42 @@ -1,4 +1,4 @@ -/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.40 2016/03/31 03:22:54 takayama Exp $ */ +/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.41 2016/03/31 05:27:34 takayama Exp $ */ /* stackmachin.c */ #include @@ -1246,6 +1246,7 @@ KSexecuteString(s) } Calling_ctrlC_hook = 0; KSexecuteString(" (Computation is interrupted.) "); /* move to ctrlC-hook?*/ + /* fprintf(stderr,"result code=-1 for %s\n",s); */ return(-1); }else{ } }else{ @@ -1270,6 +1271,7 @@ KSexecuteString(s) Calling_ctrlC_hook = 0; Calling_ctrlC_hook = 0; KSexecuteString(" (Computation is interrupted.) "); + /* fprintf(stderr,"result code=-1 for %s\n",s);*/ return(-1); }else { } }