diff options
| author | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2003-06-18 13:16:23 +0000 |
|---|---|---|
| committer | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2003-06-18 13:16:23 +0000 |
| commit | 30bcf4d0d1aba53bfe72539bae19da0d057d7a2c (patch) | |
| tree | 38167c4ef9fb3fccd4aba8c0110260178ddc230a /Lib | |
| parent | 36055df14447f6716295ff6d71d83b1078d11d8b (diff) | |
| download | swig-30bcf4d0d1aba53bfe72539bae19da0d057d7a2c.tar.gz | |
Moved #defines for SWIG_malloc, SWIG_ConvertPtr et al. from %runtime
block into runtime file.
This fixes the build of the runtime library.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4912 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib')
| -rw-r--r-- | Lib/guile/guile_gh.swg | 16 | ||||
| -rw-r--r-- | Lib/guile/guile_gh_run.swg | 11 | ||||
| -rw-r--r-- | Lib/guile/guile_scm.swg | 16 |
3 files changed, 19 insertions, 24 deletions
diff --git a/Lib/guile/guile_gh.swg b/Lib/guile/guile_gh.swg index ddc394c19..4d95f4b76 100644 --- a/Lib/guile/guile_gh.swg +++ b/Lib/guile/guile_gh.swg @@ -1,15 +1,7 @@ -%runtime %{ -#define SWIG_malloc(size) \ - SCM_MUST_MALLOC(size) -#define SWIG_free(mem) \ - scm_must_free(mem) -#define SWIG_ConvertPtr(s, result, type, flags) \ - SWIG_Guile_GetPtr(s, result, type) -#define SWIG_MustGetPtr(s, type, argnum, flags) \ - SWIG_Guile_MustGetPtr(s, type, argnum, FUNC_NAME) -#define SWIG_NewPointerObj(ptr, type, owner) \ - SWIG_Guile_MakePtr((void*)ptr, type) -%} +/* -*- c -*- + This SWIG interface file is processed if the Guile module is run + with gh_ flavor. +*/ %runtime "guile_gh_run.swg" %include "guile.i" diff --git a/Lib/guile/guile_gh_run.swg b/Lib/guile/guile_gh_run.swg index 29a217468..a7ae2af4a 100644 --- a/Lib/guile/guile_gh_run.swg +++ b/Lib/guile/guile_gh_run.swg @@ -15,6 +15,17 @@ extern "C" { #endif +#define SWIG_malloc(size) \ + SCM_MUST_MALLOC(size) +#define SWIG_free(mem) \ + scm_must_free(mem) +#define SWIG_ConvertPtr(s, result, type, flags) \ + SWIG_Guile_GetPtr(s, result, type) +#define SWIG_MustGetPtr(s, type, argnum, flags) \ + SWIG_Guile_MustGetPtr(s, type, argnum, FUNC_NAME) +#define SWIG_NewPointerObj(ptr, type, owner) \ + SWIG_Guile_MakePtr((void*)ptr, type) + #if defined(SWIG_NOINCLUDE) # define SWIGSTATIC #elif defined(SWIG_GLOBAL) diff --git a/Lib/guile/guile_scm.swg b/Lib/guile/guile_scm.swg index 8b37ccc12..245370ccb 100644 --- a/Lib/guile/guile_scm.swg +++ b/Lib/guile/guile_scm.swg @@ -1,15 +1,7 @@ -%runtime %{ -#define SWIG_malloc(size) \ - SCM_MUST_MALLOC(size) -#define SWIG_free(mem) \ - scm_must_free(mem) -#define SWIG_ConvertPtr(s, result, type, flags) \ - SWIG_Guile_ConvertPtr(s, result, type, flags) -#define SWIG_MustGetPtr(s, type, argnum, flags) \ - SWIG_Guile_MustGetPtr(s, type, argnum, flags, FUNC_NAME) -#define SWIG_NewPointerObj(ptr, type, owner) \ - SWIG_Guile_NewPointerObj((void*)ptr, type, owner) -%} +/* -*- c -*- + This SWIG interface file is processed if the Guile module is run + with SCM_ flavor. +*/ %runtime "common.swg" %runtime "guile_scm_run.swg" |