Subversion Repositories Kolibri OS

Rev

Rev 2434 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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