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; |