[fpc-pascal] Runtime Error 216

[Bartek]

hi,

after installing the new 1.9.6 release i tried to recompile and run my sdl 
programs. compilation runs fine ( but i had to restruct the majority of my 
for-loops, not beeing allowed to modify the counter variable ;\ ), but when 
i run my programs they all crashed beacuse of an access violation. this 
snippet is causing the crash. i'm not sure if it is my fault.

thanks in advance
bartek

program bug3;
type
  PSDL_Surface = ^TSDL_Surface;
  TSDL_Surface = record
    offset: Integer;
  end;
var
        screen          :psdl_surface;

function SDL_MustLock(Surface: pSDL_Surface): Boolean;
begin
  Result := ( surface^.offset <> 0 );
end;

begin
getmem(screen,sizeof(tsdl_surface));
sdl_mustlock(screen);
freemem(screen)
end.

¦ Free Pascal IDE Version 1.0.0 [2005/01/01]
¦ Compiler Version 1.9.6
¦ GBD Version GDB 6.2.1
¦ Cygwin "E:\fpc196\bin\i386-win32\cygwin1.dll" version 1005.12.0.0
Running "e:\fpc196\work\bug3.exe "
Runtime error 216 at $0040103F
  $0040103F  SDL_MUSTLOCK,  line 13 of e:/fpc196/work/bug3.pas
  $0040106D  main,  line 19 of e:/fpc196/work/bug3.pas