add missing dllexport

diff --git a/native/arithmetic.c b/native/arithmetic.c
index 907e3420eb06353eab6e9f4378c922810123c991..600e33ea21ff7dd7128a49cdfae3bacaed84b817 100644 (file)
--- a/native/arithmetic.c
+++ b/native/arithmetic.c
@@ -1,7 +1,7 @@
 #include "factor.h"
 
 /* This function is called by the compiler. It returns an untagged fixnum. */
-F_FIXNUM arithmetic_type(void)
+CELL arithmetic_type(void)
 {
        CELL obj1 = dpeek(), obj2 = get(ds - CELLS);
        CELL type1 = TAG(obj1), type2 = TAG(obj2);

diff --git a/native/arithmetic.h b/native/arithmetic.h
index 51bb3c32ba044f4bf94c63b48b6a9e4da31b1865..418547db52cc060f205d170ba38b21441dc3c646 100644 (file)
--- a/native/arithmetic.h
+++ b/native/arithmetic.h
@@ -1,2 +1,2 @@
-F_FIXNUM arithmetic_type(void);
+DLLEXPORT CELL arithmetic_type(void);
 void primitive_arithmetic_type(void);