~mdw / ssr / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Initial revision
[ssr] / StraySrc / SDLS / DLLManager / s / dllmdump
1 ;
2 ; dump.s
3 ;
4 ; DLLManager dump utility
5 ;
6 ; © 1994-1998 Straylight
7 ;
8
9 ;----- Licensing note -------------------------------------------------------
10 ;
11 ; This file is part of Straylight's Dynamic Linking System (SDLS)
12 ;
13 ; SDLS is free software; you can redistribute it and/or modify
14 ; it under the terms of the GNU General Public License as published by
15 ; the Free Software Foundation; either version 2, or (at your option)
16 ; any later version.
17 ;
18 ; SDLS is distributed in the hope that it will be useful,
19 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ; GNU General Public License for more details.
22 ;
23 ; You should have received a copy of the GNU General Public License
24 ; along with SDLS. If not, write to the Free Software Foundation,
25 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26
27 GET libs:header
28 GET libs:swis
29 GET sh.dllblock
30 GET sh.appblock
31 GET sh.linkblock
32 GET sh.wspace
33
34 AREA |!!!Foonly|,CODE,READONLY
35
36 start STMFD R13!,{R14}
37 MOV R0,#18
38 ADR R1,modname
39 SWI XOS_Module
40 LDMVSFD R13!,{PC}
41 MOV R11,R12
42 MOV R12,R4
43 SWI OS_WriteS
44 DCB "*** Dump of DLLManager workspace at &",0
45 MOV R0,R12
46 BL writeHex
47 SWI OS_WriteS
48 DCB 13,10,10
49 DCB "[DLL list]",13,10
50 DCB 13,10,0
51
52 ; --- Dump out DLL list ---
53
54 LDR R7,dll__list
55
56 dll_loop CMP R7,#0
57 BEQ dump_apps
58 LDR R0,[R7,#dl_name]
59 SWI XOS_Write0
60 SWI XOS_WriteI+' '
61 LDR R0,[R7,#dl_version]
62 BL writeDec
63 SWI XOS_WriteS
64 DCB 13,10," Handle: ",0
65 MOV R0,R7
66 BL writeHex
67 SWI XOS_WriteS
68 DCB 13,10," Links: ",0
69 LDR R0,[R7,#dl_next]
70 BL writeHex
71 SWI XOS_WriteI+','
72 LDR R0,[R7,#dl_prev]
73 BL writeHex
74 SWI XOS_WriteS
75 DCB 13,10," Ref count: ",0
76 LDR R0,[R7,#dl_clients]
77 AND R1,R0,#&80000000
78 BIC R0,R0,#&80000000
79 BL writeDec
80 CMP R1,#0
81 BEQ notent
82 SWI XOS_WriteI+' '
83 SWI XOS_WriteI+'['
84 SWI XOS_WriteI+'T'
85 SWI XOS_WriteI+']'
86 notent SWI XOS_NewLine
87 SWI XOS_NewLine
88 LDR R7,[R7,#dl_next]
89 B dll_loop
90
91 modname DCB "DLLManager",0
92
93 ; --- Dump out application data ---
94
95 dump_apps SWI XOS_WriteS
96 DCB "[App data]",13,10
97 DCB 13,10
98 DCB "Cached handle: ",0
99 LDR R0,app__cacheHnd
100 BL writeHex
101 SWI XOS_WriteS
102 DCB 13,10
103 DCB "Cached pointer: ",0
104 LDR R0,app__cachePtr
105 BL writeHex
106 SWI XOS_WriteS
107 DCB 13,10
108 DCB 13,10
109 DCB "[App list]",13,10
110 DCB 13,10,0
111
112 ; --- Dump out application list ---
113
114 LDR R7,app__list
115
116 app_loop CMP R7,#0
117 BEQ dump_sub
118 ADD R0,R7,#app_name
119 SWI XOS_Write0
120 SWI XOS_WriteS
121 DCB 13,10
122 DCB " External handle: ",0
123 LDR R0,[R7,#app_handle]
124 BL writeHex
125 SWI XOS_WriteS
126 DCB 13,10
127 DCB " Internal handle: ",0
128 MOV R0,R7
129 BL writeHex
130 SWI XOS_WriteS
131 DCB 13,10
132 DCB " Links: ",0
133 LDR R0,[R7,#app_next]
134 BL writeHex
135 SWI XOS_WriteI+','
136 LDR R0,[R7,#app_prev]
137 BL writeHex
138 SWI XOS_WriteS
139 DCB 13,10
140 DCB " Stack entries: ",0
141 LDR R0,[R7,#app_stackPtr]
142 MOV R0,R0,LSR #3 ;Divide it by 8
143 BL writeDec
144 SWI XOS_WriteS
145 DCB 13,10
146 DCB " Cached DLL handle: ",0
147 LDR R0,[R7,#app_cachedll]
148 BL writeHex
149 SWI XOS_WriteS
150 DCB 13,10
151 DCB " Cached DLL link: ",0
152 LDR R0,[R7,#app_cacheptr]
153 BL writeHex
154 SWI XOS_WriteS
155 DCB 13,10
156 DCB " DLL list",13,10,0
157
158 ; --- Dump out DLL list quickly ---
159
160 LDR R8,[R7,#app_dlls]
161 used_list CMP R8,#0
162 BEQ app_end
163 LDR R9,[R8,#lk_dll]
164 SWI XOS_WriteI+' '
165 SWI XOS_WriteI+' '
166 SWI XOS_WriteI+' '
167 SWI XOS_WriteI+' '
168 LDR R0,[R9,#dl_name]
169 SWI XOS_Write0
170 SWI XOS_WriteI+' '
171 LDR R0,[R9,#dl_version]
172 BL writeDec
173 SWI XOS_WriteI+' '
174 SWI XOS_WriteI+'['
175 LDR R0,[R8,#lk_work]
176 BL writeHex
177 SWI XOS_WriteI+']'
178 LDR R0,[R8,#lk_flags]
179 CMP R0,#0
180 BEQ floop
181 SWI XOS_WriteI+' '
182 SWI XOS_WriteI+'['
183 SWI XOS_WriteI+'T'
184 SWI XOS_WriteI+']'
185 floop SWI XOS_NewLine
186 LDR R8,[R8,#lk_next]
187 B used_list
188
189 app_end SWI XOS_NewLine
190 LDR R7,[R7,#app_next]
191 B app_loop
192
193 ; --- Dump sub_alloc information ---
194
195 dump_sub LDMFD R13!,{PC}
196
197 writeHex STMFD R13!,{R1,R2,R14}
198 MOV R1,R11
199 MOV R2,#256
200 SWI XOS_ConvertHex8
201 SWI XOS_Write0
202 LDMFD R13!,{R1,R2,PC}^
203
204 writeDec STMFD R13!,{R1,R2,R14}
205 MOV R1,R11
206 MOV R2,#256
207 SWI XOS_ConvertInteger4
208 SWI XOS_Write0
209 LDMFD R13!,{R1,R2,PC}^
210
211 END
The Straylight Source Distribution (obsolete software for RISC OS)