From 3e6d37c74660608a4f042109d21d48c6184acaa0 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 19 Apr 2025 15:10:10 +0300 Subject: [PATCH] Add flags needed for pffi to kawa --- README.md | 1 + libs/data.sld | 12 ++++++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index 861f5f2..a7f7cb9 100644 --- a/README.md +++ b/README.md @@ -83,6 +83,7 @@ as compiler. - kawa - interpreter - R7RS + - Native access is enabled by default so pffi can work - larceny - interpreter - R6RS diff --git a/libs/data.sld b/libs/data.sld index 4a007c3..9382e01 100644 --- a/libs/data.sld +++ b/libs/data.sld @@ -277,15 +277,23 @@ (apply string-append `("kawa" " " - ,(util-getenv "COMPILE_R7RS_KAWA") + "-J--add-exports=java.base/jdk.internal.foreign.abi=ALL-UNNAMED" " " - "--r7rs" + "-J--add-exports=java.base/jdk.internal.foreign.layout=ALL-UNNAMED" + " " + "-J--add-exports=java.base/jdk.internal.foreign=ALL-UNNAMED" + " " + "-J--enable-native-access=ALL-UNNAMED" + " " + ,(util-getenv "COMPILE_R7RS_KAWA") " " "-Dkawa.import.path=" ,@(map (lambda (item) (string-append item "/*.sld:")) (append prepend-directories append-directories)) " " + "--r7rs" + " " ,input-file))))) (larceny (type . interpreter)