File: Tmk.sc

package info (click to toggle)
stalin 0.11-4
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 110,316 kB
  • ctags: 163,128
  • sloc: ansic: 1,757,574; lisp: 88,332; sh: 1,496; makefile: 371; sed: 100; csh: 30
file content (9 lines) | stat: -rw-r--r-- 499 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
 
(define tmk:nbarriers (foreign-procedure () int "Tmk_get_NBARRIERS"))
(define tmk:barrier (foreign-procedure (unsigned) void "Tmk_barrier"))
(define tmk:nprocs (foreign-procedure () int "Tmk_get_NPROCS"))
(define tmk:proc-id (foreign-procedure () int "Tmk_get_proc_id"))
(define tmk:nlocks (foreign-procedure () int "Tmk_get_NLOCKS"))
(define tmk:lock-acquire
 (foreign-procedure (unsigned) void "Tmk_lock_acquire"))
(define tmk:lock-release
 (foreign-procedure (unsigned) void "Tmk_lock_release"))