| version 1.40, 2016/03/31 03:22:54 |
version 1.43, 2018/09/07 00:15:44 |
|
|
| /* $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.42 2016/03/31 06:34:29 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 { } |
| } |
} |
| Line 1313 KSdefineMacros() { |
|
| Line 1315 KSdefineMacros() { |
|
| |
|
| } |
} |
| |
|
| |
void KSstart_quiet() { |
| |
extern int Quiet; |
| |
Quiet=1; |
| |
KSstart(); |
| |
} |
| void KSstart() { |
void KSstart() { |
| struct tokens token; |
struct tokens token; |
| int tmp; |
int tmp; |