Commit cee78faa authored by Vaughn, Kyle's avatar Vaughn, Kyle
Browse files

Added jl_unbox_int32

parent 00d2f2fc

src/Julia_API.f90

+12 −5
Original line number Diff line number Diff line
@@ -46,8 +46,9 @@ PUBLIC :: jl_set_const 
PUBLIC :: jl_set_global

PUBLIC :: jl_string_data

PUBLIC :: jl_string_len

PUBLIC :: jl_unbox_int64

PUBLIC :: jl_unbox_int8

PUBLIC :: jl_unbox_int32

PUBLIC :: jl_unbox_int64

!PUBLIC :: JL_GC_PUSH1 

!PUBLIC :: JL_GC_POP

#endif
@@ -174,15 +175,21 @@ INTERFACE 
    TYPE(C_PTR),VALUE,INTENT(IN) :: var

  ENDSUBROUTINE



  INTEGER(C_LONG) FUNCTION jl_unbox_int64(jl_value_t) BIND(C,NAME="jl_unbox_int64")

    IMPORT :: C_LONG,C_PTR,

  INTEGER(C_INT8_T) FUNCTION jl_unbox_int8(jl_value_t) BIND(C,NAME="jl_unbox_int8")

    IMPORT :: C_INT8_T,C_PTR,

    TYPE(C_PTR),VALUE,INTENT(IN) :: jl_value_t

  ENDFUNCTION



  INTEGER(C_INT8_T) FUNCTION jl_unbox_int8(jl_value_t) BIND(C,NAME="jl_unbox_int8")

    IMPORT :: C_INT8_T,C_PTR,

  INTEGER(C_INT) FUNCTION jl_unbox_int32(jl_value_t) BIND(C,NAME="jl_unbox_int32")

    IMPORT :: C_INT,C_PTR,

    TYPE(C_PTR),VALUE,INTENT(IN) :: jl_value_t

  ENDFUNCTION



  INTEGER(C_LONG) FUNCTION jl_unbox_int64(jl_value_t) BIND(C,NAME="jl_unbox_int64")

    IMPORT :: C_LONG,C_PTR,

    TYPE(C_PTR),VALUE,INTENT(IN) :: jl_value_t

  ENDFUNCTION



  ! const char*

  TYPE(C_PTR) FUNCTION jl_string_data(jl_value_t) BIND(C,NAME="jl_string_data_alias")

    IMPORT :: C_PTR