fix: reduce frequency of interruption checks

szhorvat · szhorvat · commit c3f4f5c7e7bd · 2023-11-12T21:53:51.000Z
diff --git a/src/rinterface_extra.c b/src/rinterface_extra.c
@@ -2348,6 +2348,9 @@ void checkInterruptFn(void *dummy) {
 }
 
 int R_igraph_interrupt_handler(void *data) {
+  static int iter = 0;
+  if (++iter < 16) return IGRAPH_SUCCESS;
+  iter = 0;
   /* We need to call R_CheckUserInterrupt() regularly to enable interruptions.
    * However, if an interruption is pending, R_CheckUserInterrupt() will
    * longjmp back to the top level so we cannot clean up ourselves by calling

Original file line number	Diff line number	Diff line change
`@@ -2348,6 +2348,9 @@ void checkInterruptFn(void *dummy) {`
`2348`	`2348`	`}`
`2349`	`2349`
`2350`	`2350`	`int R_igraph_interrupt_handler(void *data) {`
	`2351`	`+ static int iter = 0;`
	`2352`	`+ if (++iter < 16) return IGRAPH_SUCCESS;`
	`2353`	`+ iter = 0;`
`2351`	`2354`	`/* We need to call R_CheckUserInterrupt() regularly to enable interruptions.`
`2352`	`2355`	`* However, if an interruption is pending, R_CheckUserInterrupt() will`
`2353`	`2356`	`* longjmp back to the top level so we cannot clean up ourselves by calling`