Changeset 27310 in project


Ignore:
Timestamp:
08/27/12 15:07:24 (9 years ago)
Author:
megane
Message:

sdl: set sdl-surface-pointer to null after sdl-free-surface

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sdl/trunk/sdl.scm

    r27101 r27310  
    14371437                                               unsigned-integer ; bmask
    14381438                                               unsigned-integer)) ; amask
    1439 (define sdl-free-surface (foreign-lambda void "SDL_FreeSurface" SDL_Surface))
     1439(define (sdl-free-surface surf)
     1440  ((foreign-lambda void "SDL_FreeSurface" SDL_Surface) surf)
     1441  (sdl-surface-pointer-set! surf (address->pointer 0)))
    14401442
    14411443(define sdl-blit-surface (foreign-lambda integer "SDL_BlitSurface"
Note: See TracChangeset for help on using the changeset viewer.