File: tforwty2.nim

package info (click to toggle)
nim 2.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,911,644 kB
  • sloc: sh: 24,603; ansic: 1,761; python: 1,492; makefile: 1,013; sql: 298; asm: 141; xml: 13
file content (22 lines) | stat: -rw-r--r-- 616 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# Test for a hard to fix internal error
# occurred in the SDL library

{.push dynlib: "SDL.dll", callconv: cdecl.}

type
  PSDL_semaphore = ptr TSDL_semaphore
  TSDL_semaphore {.final.} = object
    sem: pointer             #PSem_t;
    when not defined(USE_NAMED_SEMAPHORES):
      sem_data: int
    when defined(BROKEN_SEMGETVALUE):
      # This is a little hack for MacOS X -
      # It's not thread-safe, but it's better than nothing
      sem_value: cint

type
  PSDL_Sem = ptr TSDL_Sem
  TSDL_Sem = TSDL_Semaphore

proc SDL_CreateSemaphore(initial_value: int32): PSDL_Sem {.
  importc: "SDL_CreateSemaphore".}