gpgscm: Make the name of foreign functions more unique.
authorJustus Winter <justus@g10code.com>
Wed, 10 Aug 2016 09:50:12 +0000 (11:50 +0200)
committerJustus Winter <justus@g10code.com>
Wed, 10 Aug 2016 09:50:12 +0000 (11:50 +0200)
* tests/gpgscm/ffi-private.h (ffi_define_function_name): Add another
underscore.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/ffi-private.h

index 87f491f..0d58c41 100644 (file)
@@ -93,7 +93,7 @@ pointer ffi_sprintf (scheme *sc, const char *format, ...)
 
 #define ffi_define_function_name(SC, NAME, F)                          \
   do {                                                                 \
 
 #define ffi_define_function_name(SC, NAME, F)                          \
   do {                                                                 \
-    char *_fname = ffi_schemify_name ("_" #F, 0);                        \
+    char *_fname = ffi_schemify_name ("__" #F, 0);                      \
     scheme_define ((SC),                                               \
                   (SC)->global_env,                                    \
                   mk_symbol ((SC), _fname),                            \
     scheme_define ((SC),                                               \
                   (SC)->global_env,                                    \
                   mk_symbol ((SC), _fname),                            \