Changeset 27101 in project


Ignore:
Timestamp:
07/21/12 19:05:09 (9 years ago)
Author:
megane
Message:

sdl: sdl-video-driver-name returned mostly garbage and generated a compilation warning

File:
1 edited

Legend:

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

    r27086 r27101  
    13711371(define (sdl-video-driver-name)
    13721372  (let ((bv (make-blob 128)))
    1373     (and ((foreign-lambda bool "SDL_VideoDriverName" blob integer)
    1374           bv
     1373    (and ((foreign-lambda bool "SDL_VideoDriverName" (c-pointer char) integer)
     1374          (make-locative bv)
    13751375          (blob-size bv))
    1376          (string-trim-right (blob->string bv)
    1377                             (integer->char 0)))))
     1376         (substring (blob->string bv)
     1377                    0
     1378                    (string-index (blob->string bv)
     1379                                  (integer->char 0))))))
    13781380
    13791381(define sdl-set-video-mode (foreign-lambda SDL_Surface "SDL_SetVideoMode"
Note: See TracChangeset for help on using the changeset viewer.