From e8433efcb9c4afe51fd6f5f24b214ccd470802a9 Mon Sep 17 00:00:00 2001
From: Lukas Stadler <lukas.stadler@oracle.com>
Date: Sun, 13 Aug 2017 14:01:37 +0200
Subject: [PATCH] fix dqrls function
---
.../com/oracle/truffle/r/ffi/impl/nfi/NativeFunction.java | 2 +-
.../fficall/src/truffle_common/misc_rffi.c | 6 ++++++
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/nfi/NativeFunction.java b/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/nfi/NativeFunction.java
index aafc59585c..cf1c2d76c3 100644
--- a/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/nfi/NativeFunction.java
+++ b/com.oracle.truffle.r.ffi.impl/src/com/oracle/truffle/r/ffi/impl/nfi/NativeFunction.java
@@ -75,7 +75,7 @@ public enum NativeFunction {
"call_lapack_"),
// misc
exactSumFunc("([double], sint32, sint32, sint32): double", "call_misc_"),
- dqrls("([double], sint32, sint32, [double], sint32, double, [double], [double], [double], [sint32], [sint32], [double], [double]): void", "call_appl_"),
+ dqrls("([double], sint32, sint32, [double], sint32, double, [double], [double], [double], [sint32], [sint32], [double], [double]): void", "call_misc_"),
// stats
fft_factor("(sint32, [sint32], [sint32]): void", TruffleNFI_Utils::lookupAndBindStats),
fft_work("([double], sint32, sint32, sint32, sint32, [double], [sint32]): sint32", TruffleNFI_Utils::lookupAndBindStats);
diff --git a/com.oracle.truffle.r.native/fficall/src/truffle_common/misc_rffi.c b/com.oracle.truffle.r.native/fficall/src/truffle_common/misc_rffi.c
index 924c54ff2a..b3f6819533 100644
--- a/com.oracle.truffle.r.native/fficall/src/truffle_common/misc_rffi.c
+++ b/com.oracle.truffle.r.native/fficall/src/truffle_common/misc_rffi.c
@@ -48,3 +48,9 @@ double call_misc_exactSumFunc(double* contents, int length, int hasNa, int naRm)
return sum;
}
+
+extern void dqrls_(double *x, int *n, int *p, double *y, int *ny, double *tol, double *b, double *rsd, double *qty, int *k, int *jpvt, double *qraux, double *work);
+
+void call_misc_dqrls(double *x, int n, int p, double *y, int ny, double tol, double *b, double *rsd, double *qty, int *k, int *jpvt, double *qraux, double *work) {
+ dqrls_(x, &n, &p, y, &ny, &tol, b, rsd, qty, k, jpvt, qraux, work);
+}
--
GitLab