error with sdl2 64bits on windows 10 64bits

[fochen79]

Hi this simple code compiles ok but crashes when runing , but if i uncomment the lines it works ok can you please try it on windows 10 64bits & sdl2 64bits & fpc 3.2 64bits ` {$mode objfpc} {$apptype gui} program demo; uses sdl2;

var win : psdl_window; render: psdl_renderer; ev : tsdl_event; done: boolean = false;

begin //sdl_sethint(sdl_hint_render_driver,'opengl'); sdl_init(sdl_init_video); win := sdl_createwindow('FPC demo',50,50,320,200,sdl_window_shown {or sdl_window_opengl} ); render := sdl_createrenderer(win,-1,sdl_renderer_accelerated);

while not done do begin if boolean(sdl_pollevent(@ev)) then begin case ev.type_ of sdl_quitev:begin done:= true; end; end; end; sdl_setrenderdrawcolor(render, 32, 38, 42, 255); sdl_renderclear(render); sdl_renderpresent(render); end;

sdl_destroyrenderer(render); sdl_destroywindow(win); end.

`