Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed bug in sdl-library-init |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
af432e7ef4434dabbf467ef8b40f4351 |
| User & Date: | aldo 2016-11-08 16:17:36 |
Context
|
2016-12-04
| ||
| 20:47 | added netstring lib check-in: 54b0f0d169 user: aldo tags: trunk | |
|
2016-11-08
| ||
| 16:17 | fixed bug in sdl-library-init check-in: af432e7ef4 user: aldo tags: trunk | |
|
2016-10-31
| ||
| 14:03 | removed cut.scm , was renamed to cut-impl.scm (ops) check-in: 81f6a87eca user: aldo tags: trunk | |
Changes
Changes to sdl2/init.ss.
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
(only (sdl2 surface) sdl-surface-t sdl-free-surface)
(only (sdl2 render) sdl-texture-t sdl-destroy-texture sdl-renderer-t sdl-destroy-renderer)
(only (sdl2 mutex) sdl-mutex-t sdl-destroy-mutex sdl-cond-t sdl-destroy-cond)
(only (sdl2 mouse) sdl-cursor-t sdl-free-cursor)
(only (sdl2 pixels) sdl-pixel-format-t sdl-free-format sdl-palette-t sdl-free-palette)
(only (sdl2 rwops) sdl-rw-ops-t sdl-free-rw)
(only (sdl2 guardian) sdl-guardian sdl-free-garbage))
(load-shared-object (if (null? l) "libSDL2.so" l))
(sdl-free-garbage-set-func
(lambda ()
(let loop ([p (sdl-guardian)])
(when p
(when (ftype-pointer? p)
;(printf "sdl-free-garbage: freeing memory at ~x\n" p)
;;[(ftype-pointer? usb-device*-array p)
|
| |
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
(only (sdl2 surface) sdl-surface-t sdl-free-surface)
(only (sdl2 render) sdl-texture-t sdl-destroy-texture sdl-renderer-t sdl-destroy-renderer)
(only (sdl2 mutex) sdl-mutex-t sdl-destroy-mutex sdl-cond-t sdl-destroy-cond)
(only (sdl2 mouse) sdl-cursor-t sdl-free-cursor)
(only (sdl2 pixels) sdl-pixel-format-t sdl-free-format sdl-palette-t sdl-free-palette)
(only (sdl2 rwops) sdl-rw-ops-t sdl-free-rw)
(only (sdl2 guardian) sdl-guardian sdl-free-garbage))
(load-shared-object (if (null? l) "libSDL2.so" (car l)))
(sdl-free-garbage-set-func
(lambda ()
(let loop ([p (sdl-guardian)])
(when p
(when (ftype-pointer? p)
;(printf "sdl-free-garbage: freeing memory at ~x\n" p)
;;[(ftype-pointer? usb-device*-array p)
|