| version 1.40, 2016/03/31 03:22:54 |
version 1.42, 2016/03/31 06:34:29 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.39 2015/10/08 11:49:37 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.41 2016/03/31 05:27:34 takayama Exp $ */ |
| /* stackmachin.c */ |
/* stackmachin.c */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
|
|
| #include "kclass.h" |
#include "kclass.h" |
| #include <signal.h> |
#include <signal.h> |
| #include <sys/types.h> |
#include <sys/types.h> |
| #include "../plugin/mysig.h" |
#include "mysig.h" |
| |
|
| /* The msys2 seems to make a buffer overflow of EnvOfStackmachine[]. |
/* The msys2 seems to make a buffer overflow of EnvOfStackmachine[]. |
| The code |
The code |
| Line 1246 KSexecuteString(s) |
|
| Line 1246 KSexecuteString(s) |
|
| } |
} |
| Calling_ctrlC_hook = 0; |
Calling_ctrlC_hook = 0; |
| KSexecuteString(" (Computation is interrupted.) "); /* move to ctrlC-hook?*/ |
KSexecuteString(" (Computation is interrupted.) "); /* move to ctrlC-hook?*/ |
| |
/* fprintf(stderr,"result code=-1 for %s\n",s); */ |
| return(-1); |
return(-1); |
| }else{ } |
}else{ } |
| }else{ |
}else{ |
| Line 1270 KSexecuteString(s) |
|
| Line 1271 KSexecuteString(s) |
|
| Calling_ctrlC_hook = 0; |
Calling_ctrlC_hook = 0; |
| Calling_ctrlC_hook = 0; |
Calling_ctrlC_hook = 0; |
| KSexecuteString(" (Computation is interrupted.) "); |
KSexecuteString(" (Computation is interrupted.) "); |
| |
/* fprintf(stderr,"result code=-1 for %s\n",s);*/ |
| return(-1); |
return(-1); |
| }else { } |
}else { } |
| } |
} |