Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
6700 clevermous 1
 
2
3
 
4
 { common
5
    import.data:
6
   forward
7
    local _label
8
    if defined name#.redundant
9
     if ~ name#.redundant
10
      dd RVA name#.lookup,0,0,RVA _label,RVA name#.address
11
     end if
12
    end if
13
    name#.referred = 1
14
   common
15
    dd 0,0,0,0,0
16
   forward
17
    if defined name#.redundant
18
     if ~ name#.redundant
19
      _label db string,0
20
	     rb RVA $ and 1
21
     end if
22
    end if }
23
24
 
25
 { common
26
    rb (- rva $) and 3
27
    if defined name#.referred
28
     name#.lookup:
29
   forward
30
     if used label
31
      if string eqtype ''
32
       local _label
33
       dd RVA _label
34
      else
35
       dd 80000000h + string
36
      end if
37
     end if
38
   common
39
     if $ > name#.lookup
40
      name#.redundant = 0
41
      dd 0
42
     else
43
      name#.redundant = 1
44
     end if
45
     name#.address:
46
   forward
47
     if used label
48
      if string eqtype ''
49
       label dd RVA _label
50
      else
51
       label dd 80000000h + string
52
      end if
53
     end if
54
   common
55
     if ~ name#.redundant
56
      dd 0
57
     end if
58
   forward
59
     if used label & string eqtype ''
60
     _label dw 0
61
	    db string,0
62
	    rb RVA $ and 1
63
     end if
64
   common
65
    end if }
66
67
 
68