2008-02-19 08:14:38 +01:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; ;;
|
|
|
|
|
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
|
|
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
|
|
|
;; ;;
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
|
|
$Revision$
|
2008-02-17 19:54:52 +01:00
|
|
|
|
|
|
|
|
; Macroinstruction for making export section
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
macro export dllname,[label,string]
|
|
|
|
|
{ common
|
|
|
|
|
local module,addresses,names,ordinal,count
|
|
|
|
|
count = 0
|
|
|
|
|
forward
|
|
|
|
|
count = count+1
|
|
|
|
|
common
|
|
|
|
|
dd 0,0,0, (module-OS_BASE) , 1
|
|
|
|
|
dd count,count,(addresses-OS_BASE),(names-OS_BASE),(ordinal-OS_BASE)
|
|
|
|
|
addresses:
|
|
|
|
|
forward
|
|
|
|
|
dd (label-OS_BASE)
|
|
|
|
|
common
|
|
|
|
|
names:
|
|
|
|
|
forward
|
|
|
|
|
local name
|
|
|
|
|
dd (name-OS_BASE)
|
|
|
|
|
common
|
|
|
|
|
ordinal: count = 0
|
|
|
|
|
forward
|
|
|
|
|
dw count
|
|
|
|
|
count = count+1
|
|
|
|
|
common
|
|
|
|
|
module db dllname,0
|
|
|
|
|
forward
|
|
|
|
|
name db string,0
|
|
|
|
|
}
|
