about summary refs log tree commit diff stats
path: root/sib.pdf
diff options
context:
space:
mode:
Diffstat (limited to 'sib.pdf')
0 files changed, 0 insertions, 0 deletions
oid'>951c3f4c ^
f16f5690 ^
74f1512f ^
f16f5690 ^


951c3f4c ^

f16f5690 ^

951c3f4c ^

f16f5690 ^
74f1512f ^
f16f5690 ^


951c3f4c ^

f16f5690 ^
















1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43




               
                                    
             
                       
                 
                                              


                                                       

                                        

 

                                        
                 
                                              


                                                         

                                          
















                                                             
type timespec {
  tv_sec: int
  tv_nsec: int
}

# return time in seconds since epoch
# TODO: y2038
fn time -> _/eax: int {
  var t: timespec
  var clock/ebx: int <- copy 0/CLOCK_MONOTONIC
  var t-addr/ecx: (addr timespec) <- address t
  syscall_clock_gettime
  var t-secs-addr/ecx: (addr int) <- get t-addr, tv_sec
  var secs/eax: int <- copy *t-secs-addr
  return secs
}

# return time in nanoseconds since epoch
fn ntime -> _/eax: int {
  var t: timespec
  var clock/ebx: int <- copy 0/CLOCK_MONOTONIC
  var t-addr/ecx: (addr timespec) <- address t
  syscall_clock_gettime
  var t-nsecs-addr/ecx: (addr int) <- get t-addr, tv_nsec
  var nsecs/eax: int <- copy *t-nsecs-addr
  return nsecs
}

# nsecs must be less than 999999999 or 0x3b9ac9ff nanoseconds
fn sleep secs: int, nsecs: int {
  var t: timespec
  # initialize t
  var tmp/eax: (addr int) <- get t, tv_sec
  var tmp2/ecx: int <- copy secs
  copy-to *tmp, tmp2
  tmp <- get t, tv_nsec
  tmp2 <- copy nsecs
  copy-to *tmp, tmp2
  # perform the syscall
  var t-addr/ebx: (addr timespec) <- address t
  var rem-addr/ecx: (addr timespec) <- copy 0
  syscall_nanosleep
}