Subversion Repositories Kolibri OS

Rev

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

Rev 1857 Rev 2305
Line 7... Line 7...
7 
    end if
 7 
    end if
8 
  \}
 8 
  \}
9 
}
 9 
}
10 
 
 10 
 
Line 11... Line 11...
11 
$Revision: 1857 $
 11 
$Revision: 2305 $
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 struct_helper name
 - 
 
23 
 {
 - 
 
24 
  match xname,name
 - 
 
25 
  \{
 - 
 
26 
   virtual at 0
 - 
 
27 
   xname xname
 - 
 
28 
   sizeof.#xname = $ - xname
 - 
 
29 
   name equ sizeof.#xname
 - 
 
30 
   end virtual
 - 
 
31 
  \}
 - 
 
32 
 }
 - 
 
33 
 
 - 
 
34 
ends fix } struct_helper name@struct
 - 
 
35 
 
 - 
 
36 
;// mike.dld, 2006-29-01 [
 - 
 
Line 37... Line 12...
37 
 
 12 
 
38 
; macros definition
 13 
; macros definition
39 
macro diff16 title,l1,l2
 14 
macro diff16 title,l1,l2
40 
{
 15 
{