From 0e60d6b7a40e79e1d8a2ad73384acd410f846085 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Fri, 14 Oct 2022 22:51:26 +0100
Subject: [PATCH] Correct new Raise functions to be static

---
 Lib/octave/octtypemaps.swg | 2 +-
 Lib/r/r.swg                | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Lib/octave/octtypemaps.swg b/Lib/octave/octtypemaps.swg
index 652112312..4984fddf7 100644
--- a/Lib/octave/octtypemaps.swg
+++ b/Lib/octave/octtypemaps.swg
@@ -33,7 +33,7 @@
 
 // raise
 %runtime %{
-void SWIG_Octave_Raise(const octave_value &obj, const char *type) {
+SWIGINTERN void SWIG_Octave_Raise(const octave_value &obj, const char *type) {
   if (obj.is_string())
     error("%s", obj.string_value().c_str());
   else
diff --git a/Lib/r/r.swg b/Lib/r/r.swg
index 6907375d6..c1ce37c3e 100644
--- a/Lib/r/r.swg
+++ b/Lib/r/r.swg
@@ -27,7 +27,7 @@ SWIGEXPORT void SWIG_init(void) {
 %end_block %enddef
 
 %runtime %{
-void SWIG_R_Raise(SEXP obj, const char *msg) {
+SWIGINTERN void SWIG_R_Raise(SEXP obj, const char *msg) {
   Rf_error(Rf_isString(obj) ? CHAR(Rf_asChar(obj)) : msg);
 }
 %}