From 35ff2c2e7154b5d66a6b33e77d3f4f40282df3c2 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <johannes.ranke@jrwb.de>
Date: Sat, 20 Jun 2015 17:52:51 +0200
Subject: Suppress compiler warning for sometimes unused time variable

---
 R/mkinmod.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/mkinmod.R b/R/mkinmod.R
index a0307003..72c4652a 100644
--- a/R/mkinmod.R
+++ b/R/mkinmod.R
@@ -273,7 +273,8 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL, quiet = FALSE)
     model$coefmat <- m
   }#}}}
 
-  # Create a function compiled from C code if more than one observed variable and gcc is available #{{{
+  # Create a function compiled from C code if more than one observed {{{
+  # variable and gcc is available
   if (length(obs_vars) > 1) {
     if (Sys.which("gcc") != "") {
 
@@ -331,6 +332,7 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL, quiet = FALSE)
 
       model$cf <- cfunction(list(func = derivs_sig), derivs_code,
                             otherdefs = initpar_code,
+                            cppargs = "-Wno-unused-variable",
                             convention = ".C", language = "C")
     }
   }
-- 
cgit v1.2.1