Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix type warnings (on windows)

  • Loading branch information...
commit 6d50fb5ec432ad8502b3c53dc41a73ba2a255f6c 1 parent da76f40
@dgud dgud authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 c_src/cl_nif.c
View
4 c_src/cl_nif.c
@@ -3660,7 +3660,7 @@ static ERL_NIF_TERM ecl_unload_compiler(ErlNifEnv* env, int argc,
// Special (workaround) for checking if program may have binaries
static int program_may_have_binaries(cl_program program)
{
- cl_uint num_devices;
+ cl_int num_devices;
size_t returned_size;
cl_device_id devices[MAX_DEVICES];
int i;
@@ -3718,7 +3718,7 @@ static ERL_NIF_TERM make_program_binary_sizes(ErlNifEnv* env,
}
list = enif_make_list(env, 0);
for (i = num_devices-1; i >= 0; i--) {
- ERL_NIF_TERM elem = enif_make_long(env, size[i]);
+ ERL_NIF_TERM elem = ecl_make_sizet(env, size[i]);
list = enif_make_list_cell(env, elem, list);
}
return enif_make_tuple2(env, ATOM(ok), list);
Please sign in to comment.
Something went wrong with that request. Please try again.