diff options
author | Loïc Hoguin <[email protected]> | 2018-02-02 00:53:17 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2018-02-02 00:53:17 +0100 |
commit | 251a2457fe10910b357e33609a59545684294bc3 (patch) | |
tree | f342f071cd9b4fdd72d77e374d38c5259f1245be | |
parent | 5a9e707ee2eefe04316c9d1b30b4f00e7ebe0f9a (diff) | |
download | esdl2-251a2457fe10910b357e33609a59545684294bc3.tar.gz esdl2-251a2457fe10910b357e33609a59545684294bc3.tar.bz2 esdl2-251a2457fe10910b357e33609a59545684294bc3.zip |
Add the get_num_allocations function
No corresponding Erlang module, only callable via esdl2.
Don't really need much more than that.
-rw-r--r-- | c_src/esdl2.h | 2 | ||||
-rw-r--r-- | c_src/sdl_stdinc.c (renamed from c_src/sdl_bool.c) | 7 | ||||
-rw-r--r-- | src/esdl2.erl | 8 |
3 files changed, 17 insertions, 0 deletions
diff --git a/c_src/esdl2.h b/c_src/esdl2.h index d4aa683..e4f0356 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -402,6 +402,8 @@ F(render_target_supported, 1) \ F(set_render_draw_blend_mode, 2) \ F(set_render_draw_color, 5) \ + /* sdl_stdinc */ \ + F(get_num_allocations, 0) \ /* sdl_surface */ \ F(img_load, 1) \ /* sdl_texture */ \ diff --git a/c_src/sdl_bool.c b/c_src/sdl_stdinc.c index 5c90503..9aef17e 100644 --- a/c_src/sdl_bool.c +++ b/c_src/sdl_stdinc.c @@ -19,3 +19,10 @@ E(true, SDL_TRUE) NIF_ATOM_TO_ENUM_FUNCTION(atom_to_bool, SDL_bool, BOOL_ENUM) + +// get_num_allocations + +NIF_FUNCTION(get_num_allocations) +{ + return enif_make_int(env, SDL_GetNumAllocations()); +} diff --git a/src/esdl2.erl b/src/esdl2.erl index 747b74e..2198d60 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -156,6 +156,9 @@ -export([set_render_draw_blend_mode/2]). -export([set_render_draw_color/5]). +%% sdl_stdinc +-export([get_num_allocations/0]). + %% sdl_surface -export([img_load/1]). @@ -612,6 +615,11 @@ set_render_draw_blend_mode(_, _) -> set_render_draw_color(_, _, _, _, _) -> erlang:nif_error({not_loaded, ?MODULE}). +%% sdl_stdinc + +get_num_allocations() -> + erlang:nif_error({not_loaded, ?MODULE}). + %% sdl_surface img_load(_) -> |