diff options
| author | daniel <danieruru@gmail.com> | 2013-01-29 01:04:04 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-29 01:04:04 +0900 |
| commit | e15319368bf6d69fe84dc5afa63f740252c8dfcc (patch) | |
| tree | e6d8291e5c9cbfc2c9c655f268486834670c1034 /libvxi11client/perlbits | |
| parent | e183a9956be3c9ad3cb50c56a634041ece49e41a (diff) | |
Endian fixes.
Diffstat (limited to 'libvxi11client/perlbits')
| -rw-r--r-- | libvxi11client/perlbits/perlglue.c | 3 | ||||
| -rwxr-xr-x | libvxi11client/perlbits/testscript.pl | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libvxi11client/perlbits/perlglue.c b/libvxi11client/perlbits/perlglue.c index dec97c2..7807895 100644 --- a/libvxi11client/perlbits/perlglue.c +++ b/libvxi11client/perlbits/perlglue.c @@ -56,10 +56,13 @@ int glue_stop_interrupt_server() { } freelast(); g_async_queue_unref(interruptqueue); + interruptqueue = NULL; return ret; } char* glue_wait_for_interrupt() { + if (interruptqueue) + return NULL; GTimeVal timeout; g_get_current_time(&timeout); g_time_val_add(&timeout, 2500); diff --git a/libvxi11client/perlbits/testscript.pl b/libvxi11client/perlbits/testscript.pl index ae23e79..ac7dd3f 100755 --- a/libvxi11client/perlbits/testscript.pl +++ b/libvxi11client/perlbits/testscript.pl @@ -19,7 +19,10 @@ printf "status byte is " . $statusbyte . "\n"; $instr->vxi_create_intr_chan(); $instr->vxi_enable_srq("myhandle"); -vxi_wait_for_interrupt(); + +for (my $i = 0; $i < 10000; $i++) { + vxi_wait_for_interrupt(); +} $instr->vxi_disable_srq(); $instr->vxi_destroy_intr_chan(); $instr->vxi_abort(); |