version 1.96, 2017/08/29 07:18:30 |
version 1.97, 2017/08/30 09:40:30 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.95 2017/02/07 08:30:31 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.96 2017/08/29 07:18:30 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 542 void int_handler(int sig) |
|
Line 542 void int_handler(int sig) |
|
extern NODE PVSS; |
extern NODE PVSS; |
NODE t; |
NODE t; |
|
|
|
|
if ( do_file || disable_debugger ) { |
if ( do_file || disable_debugger ) { |
|
LEAVE_SIGNAL_CS_ALL; |
ExitAsir(); |
ExitAsir(); |
} |
} |
if ( !ox_get_pari_result && critical_when_signal ) { |
if ( !ox_get_pari_result && critical_when_signal ) { |
Line 638 void int_handler(int sig) |
|
Line 638 void int_handler(int sig) |
|
} |
} |
} |
} |
} |
} |
|
LEAVE_SIGNAL_CS_ALL; |
resetenv("return to toplevel"); |
resetenv("return to toplevel"); |
break; |
break; |
case 'd': |
case 'd': |
Line 894 char *scopyright() |
|
Line 895 char *scopyright() |
|
|
|
#if defined(VISUAL) || defined(__MINGW32__) |
#if defined(VISUAL) || defined(__MINGW32__) |
int recv_intr; |
int recv_intr; |
|
|
|
static CRITICAL_SECTION signal_cs; |
|
static int initialized_signal_cs; |
|
static int signal_cs_count; |
|
|
|
static void init_signal_cs() |
|
{ |
|
if (!initialized_signal_cs) { |
|
InitializeCriticalSection(&signal_cs); |
|
initialized_signal_cs=1; |
|
signal_cs_count=0; |
|
} |
|
} |
|
|
|
void try_enter_signal_cs() |
|
{ |
|
init_signal_cs(); |
|
if(TryEnterCriticalSection(&signal_cs)) { |
|
signal_cs_count++; |
|
} |
|
} |
|
|
|
void enter_signal_cs() |
|
{ |
|
init_signal_cs(); |
|
EnterCriticalSection(&signal_cs); |
|
signal_cs_count++; |
|
} |
|
|
|
void leave_signal_cs() |
|
{ |
|
init_signal_cs(); |
|
if(signal_cs_count>0) { |
|
LeaveCriticalSection(&signal_cs); |
|
signal_cs_count--; |
|
} |
|
} |
|
|
|
void leave_signal_cs_all() |
|
{ |
|
if (!initialized_signal_cs) { |
|
init_signal_cs(); |
|
} |
|
while(signal_cs_count>0) { |
|
LeaveCriticalSection(&signal_cs); |
|
signal_cs_count--; |
|
} |
|
} |
|
|
void check_intr() |
void check_intr() |
{ |
{ |
extern int recv_intr; |
extern int recv_intr; |
|
enter_signal_cs(); |
if ( recv_intr ) { |
if ( recv_intr ) { |
if ( recv_intr == 1 ) { |
if ( recv_intr == 1 ) { |
recv_intr = 0; |
recv_intr = 0; |
Line 906 void check_intr() |
|
Line 957 void check_intr() |
|
ox_usr1_handler(0); |
ox_usr1_handler(0); |
} |
} |
} |
} |
|
leave_signal_cs_all(); |
} |
} |
#endif |
#endif |