Subversion Repositories Kolibri OS

Rev

Rev 2288 | Rev 5363 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2288 clevermous 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;;                                                              ;;
2455 mario79 3 
;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
2288 clevermous 4 
;; Distributed under terms of the GNU General Public License    ;;
5 
;;                                                              ;;
6 
;; Synhronization for MenuetOS.                                 ;;
7 
;; Author: Halyavin Andrey, halyavin@land.ru                    ;;
8 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9 
 
10 
$Revision: 2455 $
11 
 
12 
 
13 
if ~defined sync_inc
14 
sync_inc_fix:
15 
sync_inc fix sync_inc_fix
16 
 
17 
;simplest mutex.
18 
macro SimpleMutex name
19 
{
20 
;  iglobal
21 
    name dd 0
22 
    name#.type = 1
23 
;  endg
24 
}
25 
macro WaitSimpleMutex name
26 
{
27 
  local start_wait,ok
28 
start_wait=$
29 
        cli
30 
        cmp     [name], dword 0
31 
        jz      ok
32 
        sti
33 
        call    change_task
34 
        jmp     start_wait
35 
ok=$
36 
        push    eax
37 
        mov     eax, dword [TASK_BASE+second_base_address]
38 
        mov     eax, [eax+TASKDATA.pid]
39 
        mov     [name], eax
40 
        pop     eax
41 
        sti
42 
}
43 
macro ReleaseSimpleMutex name
44 
{
45 
        mov     [name], dword 0
46 
}
47 
macro TryWaitSimpleMutex name  ;result in eax and in flags
48 
{
49 
  local ok,try_end
50 
        cmp     [name], dword 0
51 
        jz      ok
52 
        xor     eax, eax
53 
        jmp     try_end
54 
ok=$
55 
        xor     eax, eax
56 
        inc     eax
57 
try_end=$
58 
}
59 
macro SimpleCriticalSection name
60 
{
61 
;  iglobal
62 
    name  dd 0
63 
          dd 0
64 
    name#.type=2
65 
;  endg
66 
}
67 
macro WaitSimpleCriticalSection name
68 
{
69 
  local start_wait,first_wait,inc_counter,end_wait
70 
        push    eax
71 
        mov     eax, [TASK_BASE+second_base_address]
72 
        mov     eax, [eax+TASKDATA.pid]
73 
start_wait=$
74 
        cli
75 
        cmp     [name], dword 0
76 
        jz      first_wait
77 
        cmp     [name], eax
78 
        jz      inc_counter
79 
        sti
80 
        call    change_task
81 
        jmp     start_wait
82 
first_wait=$
83 
        mov     [name], eax
84 
        mov     [name+4], dword 1
85 
        jmp     end_wait
86 
inc_counter=$
87 
        inc     dword [name+4]
88 
end_wait=$
89 
        sti
90 
        pop     eax
91 
}
92 
macro ReleaseSimpleCriticalSection name
93 
{
94 
  local release_end
95 
        dec     dword [name+4]
96 
        jnz     release_end
97 
        mov     [name], dword 0
98 
release_end=$
99 
}
100 
macro TryWaitSimpleCriticalSection name ;result in eax and in flags
101 
{
102 
  local ok,try_end
103 
        mov     eax, [CURRENT_TASK+second_base_address]
104 
        mov     eax, [eax+TASKDATA.pid]
105 
        cmp     [name], eax
106 
        jz      ok
107 
        cmp     [name], 0
108 
        jz      ok
109 
        xor     eax, eax
110 
        jmp     try_end
111 
ok=$
112 
        xor     eax, eax
113 
        inc     eax
114 
try_end=$
115 
}
116 
_cli equ call MEM_HeapLock
117 
_sti equ call MEM_HeapUnLock
118 
end if
119