Fix the build with -fno-common. (#105)

Fix the build with -fno-common.
garrigue · Jun 19, 2020 · 1569736 · 1569736
1 parent 70e5fc4
commit 1569736
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/CHANGES b/CHANGES
@@ -1,5 +1,10 @@
 LablGTK changes log
 
+In Lablgtk-2.18.11:
+
+2020.06.19 [Jerry James]
+  * Fix the build with -fno-common, the default for GCC 10
+
 In Lablgtk-2.18.10:
 
 2020.01.23 [Jacques]

diff --git a/src/ml_gdk.c b/src/ml_gdk.c
@@ -55,6 +55,8 @@
 #define GDK_WINDOW_TYPE_HINT_DOCK GDK_WINDOW_TYPE_HINT_NORMAL
 #endif
 
+CAMLexport lookup_info *ml_table_extension_events;
+
 CAMLprim void ml_raise_gdk (const char *errmsg)
 {
   static const value * exn = NULL;

diff --git a/src/ml_gdk.h b/src/ml_gdk.h
@@ -102,7 +102,7 @@ CAMLexport value Val_GdkEvent (GdkEvent *);
 CAMLexport int OptFlags_GdkModifier_val (value);
 CAMLexport int Flags_GdkModifier_val (value);
 CAMLexport int Flags_Event_mask_val (value);
-CAMLexport lookup_info *ml_table_extension_events;
+CAMLextern lookup_info *ml_table_extension_events;
 #define Extension_events_val(key) ml_lookup_to_c(ml_table_extension_events,key)
 
 #define GdkDragContext_val(val) check_cast(GDK_DRAG_CONTEXT,val)