flush

[m6w6/ext-psi] / src / module.c

diff --git a/src/module.c b/src/module.c
index 166596434ae8a4447bcebcf362c8e5d5b85751e8..57fe9d6b286ebef8b018cf4506484d7f6f219847 100644 (file)
--- a/src/module.c
+++ b/src/module.c
@@ -107,6 +107,11 @@ void psi_to_int(impl_val *ret_val, decl_arg *func, zval *return_value)
        }
 }
 
+void psi_to_double(impl_val *ret_val, decl_arg *func, zval *return_value)
+{
+       RETVAL_DOUBLE(deref_impl_val(0, ret_val, func)->dval);
+}
+
 void psi_to_string(impl_val *ret_val, decl_arg *func, zval *return_value)
 {
        switch (real_decl_type(func->type)->type) {