Subversion Repositories Kolibri OS

Rev

Rev 2143 | Rev 2465 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2143 Rev 2434
Line 7... Line 7...
7
    end if
7
    end if
8
  \}
8
  \}
9
}
9
}
10
 
10
 
Line 11... Line 11...
11
$Revision: 2143 $
11
$Revision: 2434 $
Line 12... Line -...
12
 
-
 
13
 
-
 
14
; structure definition helper
-
 
15
macro struct name, [arg]
-
 
16
 {
-
 
17
  common
-
 
18
   name@struct equ name
-
 
19
   struc name arg {
-
 
20
 }
-
 
21
 
-
 
22
macro declare_sizeof xname,value
-
 
23
{ sizeof.#xname = value }
-
 
24
 
-
 
25
macro struct_helper name
-
 
26
 {
-
 
27
  match xname,name
-
 
28
  \{
-
 
29
   virtual at 0
-
 
30
   xname xname
-
 
31
   declare_sizeof xname, $ - xname
-
 
32
   name equ sizeof.#xname
-
 
33
   end virtual
-
 
34
  \}
-
 
35
 }
-
 
36
 
-
 
37
ends fix } struct_helper name@struct
12
 
Line 38... Line 13...
38
 
13
 
39
;// mike.dld, 2006-29-01 [
14
;// mike.dld, 2006-29-01 [
40
 
15