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



_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to