Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
750 victor 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;                                                              ;;
3
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
4
;; Distributed under terms of the GNU General Public License    ;;
5
;;                                                              ;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
745 serge 7
 
750 victor 8
$Revision: 1376 $
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
31
    ordinal: count = 0
32
   forward
33
    dw count
34
    count = count+1
35
   common
36
    module db dllname,0
37
   forward
38
    name db string,0
39
 }