Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
750 victor 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;                                                              ;;
2465 Serge 3
;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
750 victor 4
;; Distributed under terms of the GNU General Public License    ;;
5
;;                                                              ;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
745 serge 7
 
750 victor 8
$Revision: 2465 $
9
 
745 serge 10
; Macroinstruction for making export section
11
 
12
 
13
macro export dllname,[label,string]
14
 { common
15
    local module,addresses,names,ordinal,count
16
    count = 0
17
   forward
18
    count = count+1
19
   common
20
    dd 0,0,0, (module-OS_BASE) , 1
21
    dd count,count,(addresses-OS_BASE),(names-OS_BASE),(ordinal-OS_BASE)
22
    addresses:
23
   forward
24
    dd (label-OS_BASE)
25
   common
26
    names:
27
   forward
28
    local name
29
    dd (name-OS_BASE)
30
   common
2434 Serge 31
    ordinal:
32
             count = 0
745 serge 33
   forward
34
    dw count
35
    count = count+1
36
   common
37
    module db dllname,0
38
   forward
39
    name db string,0
40
 }