mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-19 13:23:27 +03:00
40 lines
1021 B
PHP
40 lines
1021 B
PHP
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; ;;
|
||
|
|
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||
|
|
;; Distributed under terms of the GNU General Public License ;;
|
||
|
|
;; ;;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
$Revision$
|
||
|
|
|
||
|
|
; 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
|
||
|
|
}
|