add forgotten file
git-svn-id: svn://kolibrios.org@6700 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
a5bb6e3fd4
commit
35ce7d55f9
68
programs/import.inc
Normal file
68
programs/import.inc
Normal file
@ -0,0 +1,68 @@
|
|||||||
|
|
||||||
|
; Macroinstructions for making import section
|
||||||
|
|
||||||
|
macro library [name,string]
|
||||||
|
{ common
|
||||||
|
import.data:
|
||||||
|
forward
|
||||||
|
local _label
|
||||||
|
if defined name#.redundant
|
||||||
|
if ~ name#.redundant
|
||||||
|
dd RVA name#.lookup,0,0,RVA _label,RVA name#.address
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
name#.referred = 1
|
||||||
|
common
|
||||||
|
dd 0,0,0,0,0
|
||||||
|
forward
|
||||||
|
if defined name#.redundant
|
||||||
|
if ~ name#.redundant
|
||||||
|
_label db string,0
|
||||||
|
rb RVA $ and 1
|
||||||
|
end if
|
||||||
|
end if }
|
||||||
|
|
||||||
|
macro import name,[label,string]
|
||||||
|
{ common
|
||||||
|
rb (- rva $) and 3
|
||||||
|
if defined name#.referred
|
||||||
|
name#.lookup:
|
||||||
|
forward
|
||||||
|
if used label
|
||||||
|
if string eqtype ''
|
||||||
|
local _label
|
||||||
|
dd RVA _label
|
||||||
|
else
|
||||||
|
dd 80000000h + string
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
if $ > name#.lookup
|
||||||
|
name#.redundant = 0
|
||||||
|
dd 0
|
||||||
|
else
|
||||||
|
name#.redundant = 1
|
||||||
|
end if
|
||||||
|
name#.address:
|
||||||
|
forward
|
||||||
|
if used label
|
||||||
|
if string eqtype ''
|
||||||
|
label dd RVA _label
|
||||||
|
else
|
||||||
|
label dd 80000000h + string
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
if ~ name#.redundant
|
||||||
|
dd 0
|
||||||
|
end if
|
||||||
|
forward
|
||||||
|
if used label & string eqtype ''
|
||||||
|
_label dw 0
|
||||||
|
db string,0
|
||||||
|
rb RVA $ and 1
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
end if }
|
||||||
|
|
||||||
|
macro api [name] {}
|
Loading…
Reference in New Issue
Block a user