[Pomp-commits] r693 - pkg/pomp/src

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

Author: kingaa
Date: 2012-05-01 03:03:57 +0200 (Tue, 01 May 2012)
New Revision: 693

Modified:
   pkg/pomp/src/trajectory.c
Log:
- make sure to set up 'userdata' access to user functions


Modified: pkg/pomp/src/trajectory.c
===================================================================
--- pkg/pomp/src/trajectory.c	2012-05-01 00:44:35 UTC (rev 692)
+++ pkg/pomp/src/trajectory.c	2012-05-01 01:03:57 UTC (rev 693)
@@ -198,6 +198,8 @@
 
   case 1: 			// native code
 
+    set_pomp_userdata(fcall);
+    
     {
       double *time = REAL(times);
       double *Xt = REAL(X);
@@ -242,6 +244,9 @@
 
       }
     }
+
+    unset_pomp_userdata();
+
     break;
 
   default: