[Seqinr-commits] r2035 - pkg/src

[noreply at r-forge.r-project.org]

Author: simonpenel
Date: 2017-04-14 14:15:20 +0200 (Fri, 14 Apr 2017)
New Revision: 2035

Modified:
   pkg/src/kaks.c
Log:
Modification of kaks according to Tomas Kalibera bug-finding tool suggestion

Modified: pkg/src/kaks.c
===================================================================
--- pkg/src/kaks.c	2017-04-05 12:18:32 UTC (rev 2034)
+++ pkg/src/kaks.c	2017-04-14 12:15:20 UTC (rev 2035)
@@ -380,9 +380,11 @@
   SET_ELEMENT(res, 10, rb0); 
   SET_ELEMENT(res, 11, rb2);
   SET_ELEMENT(res, 12, rb4);
+  
+  if(debugon) Rprintf("C> %s", "End of C level....................\n");
+  
   UNPROTECT(14);
 
-  if(debugon) Rprintf("C> %s", "End of C level....................\n");
   return(res);
 }