steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add dllexports

cvs 0.70
Mackenzie Straight 2004-12-18 05:41:31 +00:00
parent d669c21401
commit bb5a89df8f
5 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
native/bignum.h
View File

@ -9,10 +9,10 @@ INLINE F_ARRAY* untag_bignum(CELL tagged)
} }
F_FIXNUM to_integer(CELL x); F_FIXNUM to_integer(CELL x);
void box_integer(F_FIXNUM integer); DLLEXPORT void box_integer(F_FIXNUM integer);
void box_cell(CELL cell); DLLEXPORT void box_cell(CELL cell);
DLLEXPORT F_FIXNUM unbox_integer(void); DLLEXPORT F_FIXNUM unbox_integer(void);
CELL unbox_cell(void); DLLEXPORT CELL unbox_cell(void);
F_ARRAY* to_bignum(CELL tagged); F_ARRAY* to_bignum(CELL tagged);
void primitive_to_bignum(void); void primitive_to_bignum(void);
void primitive_bignum_eq(void); void primitive_bignum_eq(void);

4
native/boolean.h
View File

@ -8,5 +8,5 @@ INLINE bool untag_boolean(CELL tagged)
return (tagged == F ? false : true); return (tagged == F ? false : true);
} }
void box_boolean(bool value); DLLEXPORT void box_boolean(bool value);
bool unbox_boolean(void); DLLEXPORT bool unbox_boolean(void);

3
native/ffi.h
View File

@ -24,7 +24,8 @@ void primitive_dlsym_self(void);
void primitive_dlclose(void); void primitive_dlclose(void);
void primitive_alien(void); void primitive_alien(void);
void primitive_local_alien(void); void primitive_local_alien(void);
CELL unbox_alien(void); DLLEXPORT CELL unbox_alien(void);
DLLEXPORT void box_alien(CELL ptr);
void primitive_alien_cell(void); void primitive_alien_cell(void);
void primitive_set_alien_cell(void); void primitive_set_alien_cell(void);
void primitive_alien_4(void); void primitive_alien_4(void);

8
native/fixnum.h
View File

@ -28,7 +28,7 @@ void primitive_fixnum_lesseq(void);
void primitive_fixnum_greater(void); void primitive_fixnum_greater(void);
void primitive_fixnum_greatereq(void); void primitive_fixnum_greatereq(void);
void primitive_fixnum_not(void); void primitive_fixnum_not(void);
void box_signed_1(signed char integer); DLLEXPORT void box_signed_1(signed char integer);
void box_signed_2(signed short integer); DLLEXPORT void box_signed_2(signed short integer);
signed char unbox_signed_1(void); DLLEXPORT signed char unbox_signed_1(void);
signed short unbox_signed_2(void); DLLEXPORT signed short unbox_signed_2(void);

4
native/string.h
View File

@ -19,9 +19,9 @@ void rehash_string(F_STRING* str);
F_STRING* grow_string(F_STRING* string, F_FIXNUM capacity, uint16_t fill); F_STRING* grow_string(F_STRING* string, F_FIXNUM capacity, uint16_t fill);
BYTE* to_c_string(F_STRING* s); BYTE* to_c_string(F_STRING* s);
BYTE* to_c_string_unchecked(F_STRING* s); BYTE* to_c_string_unchecked(F_STRING* s);
void box_c_string(const BYTE* c_string); DLLEXPORT void box_c_string(const BYTE* c_string);
F_STRING* from_c_string(const BYTE* c_string); F_STRING* from_c_string(const BYTE* c_string);
BYTE* unbox_c_string(void); DLLEXPORT BYTE* unbox_c_string(void);
#define SREF(string,index) ((CELL)string + sizeof(F_STRING) + index * CHARS) #define SREF(string,index) ((CELL)string + sizeof(F_STRING) + index * CHARS)