| version 1.5, 2020/10/04 03:14:09 |
version 1.6, 2022/03/30 05:55:34 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2018/parse/gc_risa.c,v 1.4 2019/07/25 05:57:56 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/parse/gc_risa.c,v 1.5 2020/10/04 03:14:09 noro Exp $ */ |
| |
|
| #if defined(VISUAL) || defined(__MINGW32__) |
#if defined(VISUAL) || defined(__MINGW32__) |
| #include "private/gcconfig.h" |
#include "private/gcconfig.h" |
| Line 19 void ox_usr1_handler(int sig); |
|
| Line 19 void ox_usr1_handler(int sig); |
|
| int *StackBottom; |
int *StackBottom; |
| int in_gc, caught_intr; |
int in_gc, caught_intr; |
| |
|
| |
#if defined(_WIN64) |
| |
extern int recv_intr; |
| |
|
| void check_caught_intr() |
void check_caught_intr() |
| { |
{ |
| |
if ( caught_intr == 1 || recv_intr == 1 ) { |
| |
caught_intr = 0; recv_intr = 0; |
| |
int_handler(SIGINT); |
| |
} else if ( caught_intr == 2 || recv_intr == 2 ) { |
| |
caught_intr = 0; recv_intr = 0; |
| |
fprintf(stderr,"entering reset mode...\n"); |
| |
ox_usr1_handler(SIGUSR1); |
| |
} |
| |
} |
| |
#else |
| |
void check_caught_intr() |
| |
{ |
| if ( caught_intr == 1 ) { |
if ( caught_intr == 1 ) { |
| caught_intr = 0; |
caught_intr = 0; |
| int_handler(SIGINT); |
int_handler(SIGINT); |
| Line 30 void check_caught_intr() |
|
| Line 45 void check_caught_intr() |
|
| ox_usr1_handler(SIGUSR1); |
ox_usr1_handler(SIGUSR1); |
| } |
} |
| } |
} |
| |
#endif |
| |
|
| void *Risa_GC_malloc(size_t d) |
void *Risa_GC_malloc(size_t d) |
| { |
{ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to gc_risa.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2018 / parse