diff --git a/libveriuser/getsimtime.c b/libveriuser/getsimtime.c
index 7e8b5243b..190165e6e 100644
--- a/libveriuser/getsimtime.c
+++ b/libveriuser/getsimtime.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: getsimtime.c,v 1.7 2003/05/28 03:14:20 steve Exp $"
+#ident "$Id: getsimtime.c,v 1.8 2003/05/30 04:01:55 steve Exp $"
 #endif
 
 #include  <veriuser.h>
@@ -93,6 +93,14 @@ PLI_INT32 tf_igetlongtime(PLI_INT32 *high, void*obj)
 PLI_INT32 tf_getlongsimtime(PLI_INT32 *high) \
       __attribute__ ((weak, alias ("tf_getlongtime")));
 
+void tf_scale_longdelay(void*obj, PLI_INT32 lo, PLI_INT32 hi,
+			PLI_INT32 *low, PLI_INT32 *high)
+{
+      long long scaled = scale(hi, lo, obj);
+      *high = (scaled >> 32) & 0xffffffff;
+      *low = scaled & 0xffffffff;
+}
+
 
 PLI_INT32 tf_gettimeprecision(void)
 {
@@ -121,6 +129,9 @@ PLI_INT32 tf_igettimeunit(void*obj)
 
 /*
  * $Log: getsimtime.c,v $
+ * Revision 1.8  2003/05/30 04:01:55  steve
+ *  Add tf_scale_longdelay.
+ *
  * Revision 1.7  2003/05/28 03:14:20  steve
  *  Missing time related declarations.
  *
diff --git a/veriuser.h b/veriuser.h
index 2eed96b62..c58e237b1 100644
--- a/veriuser.h
+++ b/veriuser.h
@@ -19,7 +19,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: veriuser.h,v 1.28 2003/05/29 03:46:21 steve Exp $"
+#ident "$Id: veriuser.h,v 1.29 2003/05/30 04:01:55 steve Exp $"
 #endif
 
 /*
@@ -261,6 +261,8 @@ extern PLI_INT32 tf_gettime(void);
 extern PLI_INT32 tf_getlongtime(PLI_INT32*);
 extern PLI_INT32 tf_igetlongtime(PLI_INT32*, void*);
 
+extern void tf_scale_longdelay(void*,PLI_INT32,PLI_INT32,PLI_INT32*,PLI_INT32*);
+
 extern PLI_INT32 tf_gettimeprecision(void);
 extern PLI_INT32 tf_igettimeprecision(void*);
 
@@ -322,6 +324,9 @@ EXTERN_C_END
 
 /*
  * $Log: veriuser.h,v $
+ * Revision 1.29  2003/05/30 04:01:55  steve
+ *  Add tf_scale_longdelay.
+ *
  * Revision 1.28  2003/05/29 03:46:21  steve
  *  Add tf_getp/putp support for integers
  *  and real valued arguments.