1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
|
/* DYNINST.C (c) Copyright Jan Jaeger, 2003-2009 */
/* Hercules Dynamic Loader */
/*-------------------------------------------------------------------*/
/* This module dynamically loads instructions. Instruction routine */
/* names must be registered under the name of s370_opcode_B220 for */
/* example, where s370 may also be s390 or z900 for ESA/390 or ESAME */
/* mode respectively. B220 is the opcode, and is depending on the */
/* instruction 2 3 or 4 digits. */
/*-------------------------------------------------------------------*/
#include "hstdinc.h"
#include "hercules.h"
#if defined(OPTION_DYNAMIC_LOAD)
#if defined(WIN32) && !defined(HDL_USE_LIBTOOL) && !defined(_MSVC_)
/* We need to do some special tricks for windows here, since windows */
/* does not support backlink and we need to resolve symbols during */
/* dll initialisation (REGISTER/RESOLVER). Opcode tables are renamed */
/* such that no naming conflicts occur. */
#define copy_opcode_tables copy_opcode_tables_r
#define opcode_table opcode_table_r
#define opcode_01xx opcode_01xx_r
#define opcode_a5xx opcode_a5xx_r
#define opcode_a4xx opcode_a4xx_r
#define opcode_a7xx opcode_a1xx_r
#define opcode_b2xx opcode_b2xx_r
#define opcode_b3xx opcode_b3xx_r
#define opcode_b9xx opcode_b9xx_r
#define opcode_c0xx opcode_c0xx_r
#define opcode_c2xx opcode_c2xx_r
#define opcode_c4xx opcode_c4xx_r /*208*/
#define opcode_c6xx opcode_c6xx_r /*208*/
#define opcode_c8xx opcode_c8xx_r
#define opcode_ccxx opcode_ccxx_r /*810*/
#define opcode_e3xx opcode_e3xx_r
#define opcode_e5xx opcode_e5xx_r
#define opcode_e6xx opcode_e6xx_r
#define opcode_ebxx opcode_ebxx_r
#define opcode_ecxx opcode_ecxx_r
#define opcode_edxx opcode_edxx_r
#endif
#include "opcode.h"
#if defined(WIN32) && !defined(HDL_USE_LIBTOOL) && !defined(_MSVC_)
#undef copy_opcode_tables
#undef opcode_table
#undef opcode_01xx
#undef opcode_a5xx
#undef opcode_a4xx
#undef opcode_a7xx
#undef opcode_b2xx
#undef opcode_b3xx
#undef opcode_b9xx
#undef opcode_c0xx
#undef opcode_c2xx
#undef opcode_c4xx /*208*/
#undef opcode_c6xx /*208*/
#undef opcode_c8xx
#undef opcode_ccxx /*810*/
#undef opcode_e3xx
#undef opcode_e5xx
#undef opcode_e6xx
#undef opcode_ebxx
#undef opcode_ecxx
#undef opcode_edxx
#endif
#include "inline.h"
#if !defined(_GEN_ARCH)
#if defined(_ARCHMODE2)
#define _GEN_ARCH _ARCHMODE2
#include "dyninst.c"
#endif
#if defined(_ARCHMODE3)
#undef _GEN_ARCH
#define _GEN_ARCH _ARCHMODE3
#include "dyninst.c"
#endif
static zz_func save_table[256][GEN_MAXARCH];
static zz_func save_01xx[256][GEN_MAXARCH];
#if defined (FEATURE_VECTOR_FACILITY)
static zz_func save_a4xx[256][GEN_MAXARCH];
#endif
static zz_func save_a5xx[16][GEN_MAXARCH];
static zz_func save_a7xx[16][GEN_MAXARCH];
static zz_func save_b2xx[256][GEN_MAXARCH];
static zz_func save_b3xx[256][GEN_MAXARCH];
static zz_func save_b9xx[256][GEN_MAXARCH];
static zz_func save_c0xx[16][GEN_MAXARCH];
static zz_func save_c2xx[16][GEN_MAXARCH]; /*@Z9*/
static zz_func save_c4xx[16][GEN_MAXARCH]; /*208*/
static zz_func save_c6xx[16][GEN_MAXARCH]; /*208*/
static zz_func save_c8xx[16][GEN_MAXARCH];
static zz_func save_ccxx[16][GEN_MAXARCH]; /*810*/
static zz_func save_e3xx[256][GEN_MAXARCH];
static zz_func save_e5xx[256][GEN_MAXARCH];
static zz_func save_e6xx[256][GEN_MAXARCH];
static zz_func save_ebxx[256][GEN_MAXARCH];
static zz_func save_ecxx[256][GEN_MAXARCH];
static zz_func save_edxx[256][GEN_MAXARCH];
#if defined(WIN32) && !defined(HDL_USE_LIBTOOL) && !defined(_MSVC_)
static int opcodes_saved;
static void copy_opcode_tables ();
static void * opcode_table;
static void * opcode_01xx;
#if defined (FEATURE_VECTOR_FACILITY)
static void * opcode_a4xx;
#endif
static void * opcode_a5xx;
static void * opcode_a7xx;
static void * opcode_b2xx;
static void * opcode_b3xx;
static void * opcode_b9xx;
static void * opcode_c0xx;
static void * opcode_c2xx; /*@Z9*/
static void * opcode_c4xx; /*208*/
static void * opcode_c6xx; /*208*/
static void * opcode_c8xx;
static void * opcode_ccxx; /*810*/
static void * opcode_e3xx;
static void * opcode_e5xx;
static void * opcode_e6xx;
static void * opcode_ebxx;
static void * opcode_ecxx;
static void * opcode_edxx;
#endif
static char *prefix[] = {
#if defined(_370)
"s370_dyninst_opcode_",
#endif
#if defined(_390)
"s390_dyninst_opcode_",
#endif
#if defined(_900)
"z900_dyninst_opcode_"
#endif
};
static void opcode_save()
{
memcpy(save_table,opcode_table,sizeof(save_table));
memcpy(save_01xx,opcode_01xx,sizeof(save_01xx));
#if defined (FEATURE_VECTOR_FACILITY)
memcpy(save_a4xx,opcode_a4xx,sizeof(save_a4xx));
#endif
memcpy(save_a5xx,opcode_a5xx,sizeof(save_a5xx));
memcpy(save_a7xx,opcode_a7xx,sizeof(save_a7xx));
memcpy(save_b2xx,opcode_b2xx,sizeof(save_b2xx));
memcpy(save_b3xx,opcode_b3xx,sizeof(save_b3xx));
memcpy(save_b9xx,opcode_b9xx,sizeof(save_b9xx));
memcpy(save_c0xx,opcode_c0xx,sizeof(save_c0xx));
memcpy(save_c2xx,opcode_c2xx,sizeof(save_c2xx)); /*@Z9*/
memcpy(save_c4xx,opcode_c4xx,sizeof(save_c4xx)); /*208*/
memcpy(save_c6xx,opcode_c6xx,sizeof(save_c6xx)); /*208*/
memcpy(save_c8xx,opcode_c8xx,sizeof(save_c8xx));
memcpy(save_ccxx,opcode_ccxx,sizeof(save_ccxx)); /*810*/
memcpy(save_e3xx,opcode_e3xx,sizeof(save_e3xx));
memcpy(save_e5xx,opcode_e5xx,sizeof(save_e5xx));
memcpy(save_e6xx,opcode_e6xx,sizeof(save_e6xx));
memcpy(save_ebxx,opcode_ebxx,sizeof(save_ebxx));
memcpy(save_ecxx,opcode_ecxx,sizeof(save_ecxx));
memcpy(save_edxx,opcode_edxx,sizeof(save_edxx));
}
static void opcode_restore()
{
memcpy(opcode_table,save_table,sizeof(save_table));
memcpy(opcode_01xx,save_01xx,sizeof(save_01xx));
#if defined (FEATURE_VECTOR_FACILITY)
memcpy(opcode_a4xx,save_a4xx,sizeof(save_a4xx));
#endif
memcpy(opcode_a5xx,save_a5xx,sizeof(save_a5xx));
memcpy(opcode_a7xx,save_a7xx,sizeof(save_a7xx));
memcpy(opcode_b2xx,save_b2xx,sizeof(save_b2xx));
memcpy(opcode_b3xx,save_b3xx,sizeof(save_b3xx));
memcpy(opcode_b9xx,save_b9xx,sizeof(save_b9xx));
memcpy(opcode_c0xx,save_c0xx,sizeof(save_c0xx));
memcpy(opcode_c2xx,save_c2xx,sizeof(save_c2xx)); /*@Z9*/
memcpy(opcode_c4xx,save_c4xx,sizeof(save_c4xx)); /*208*/
memcpy(opcode_c6xx,save_c6xx,sizeof(save_c6xx)); /*208*/
memcpy(opcode_c8xx,save_c8xx,sizeof(save_c8xx));
memcpy(opcode_ccxx,save_ccxx,sizeof(save_ccxx)); /*810*/
memcpy(opcode_e3xx,save_e3xx,sizeof(save_e3xx));
memcpy(opcode_e5xx,save_e5xx,sizeof(save_e5xx));
memcpy(opcode_e6xx,save_e6xx,sizeof(save_e6xx));
memcpy(opcode_ebxx,save_ebxx,sizeof(save_ebxx));
memcpy(opcode_ecxx,save_ecxx,sizeof(save_ecxx));
memcpy(opcode_edxx,save_edxx,sizeof(save_edxx));
}
static void assign_extop1(int opcode, int extop, zz_func table[256][GEN_MAXARCH],
zz_func saved[256][GEN_MAXARCH])
{
int arch;
void *tmp;
for(arch = 0; arch < GEN_MAXARCH - 2; arch++)
{
char name[32];
sprintf(name,"%s%02X%1X",prefix[arch],opcode,extop);
if((tmp = HDL_FINDSYM(name)))
table[extop][arch] = tmp;
else
table[extop][arch] = saved[extop][arch];
}
}
static void assign_extop(int opcode, int extop, zz_func table[256][GEN_MAXARCH],
zz_func saved[256][GEN_MAXARCH])
{
int arch;
void *tmp;
for(arch = 0; arch < GEN_MAXARCH - 2; arch++)
{
char name[32];
sprintf(name,"%s%02X%02X",prefix[arch],opcode,extop);
if((tmp = HDL_FINDSYM(name)))
table[extop][arch] = tmp;
else
table[extop][arch] = saved[extop][arch];
}
}
static void assign_opcode(int opcode, zz_func table[256][GEN_MAXARCH],
zz_func saved[256][GEN_MAXARCH])
{
int arch;
void *tmp;
for(arch = 0; arch < GEN_MAXARCH - 2; arch++)
{
char name[32];
sprintf(name,"%s%02X",prefix[arch],opcode);
if((tmp = HDL_FINDSYM(name)))
table[opcode][arch] = tmp;
else
table[opcode][arch] = saved[opcode][arch];
}
}
/* Libtool static name colision resolution */
/* note : lt_dlopen will look for symbol & modulename_LTX_symbol */
#if !defined(HDL_BUILD_SHARED) && defined(HDL_USE_LIBTOOL)
#define hdl_ddev dyninst_LTX_hdl_ddev
#define hdl_depc dyninst_LTX_hdl_depc
#define hdl_reso dyninst_LTX_hdl_reso
#define hdl_init dyninst_LTX_hdl_init
#define hdl_fini dyninst_LTX_hdl_fini
#endif
HDL_DEPENDENCY_SECTION;
{
HDL_DEPENDENCY (HERCULES);
HDL_DEPENDENCY (REGS);
HDL_DEPENDENCY (DEVBLK);
HDL_DEPENDENCY (SYSBLK);
} END_DEPENDENCY_SECTION
HDL_REGISTER_SECTION;
{
#if defined(WIN32) && !defined(HDL_USE_LIBTOOL) && !defined(_MSVC_)
opcodes_saved = 0;
#else
opcode_save();
#endif
}
END_REGISTER_SECTION
HDL_RESOLVER_SECTION;
{
int opcode, extop;
#if 0
#if defined(WIN32) && !defined(HDL_USE_LIBTOOL) && !defined(_MSVC_)
if(!opcodes_saved)
{
HDL_RESOLVE(copy_opcode_tables);
HDL_RESOLVE(opcode_table);
HDL_RESOLVE(opcode_01xx);
#if defined(FEATURE_VECTOR_FACILITY)
HDL_RESOLVE(opcode_a4xx);
#endif
HDL_RESOLVE(opcode_a5xx);
HDL_RESOLVE(opcode_a7xx);
HDL_RESOLVE(opcode_b2xx);
HDL_RESOLVE(opcode_b3xx);
HDL_RESOLVE(opcode_b9xx);
HDL_RESOLVE(opcode_c0xx);
HDL_RESOLVE(opcode_c2xx); /*@Z9*/
HDL_RESOLVE(opcode_c4xx); /*208*/
HDL_RESOLVE(opcode_c6xx); /*208*/
HDL_RESOLVE(opcode_c8xx);
HDL_RESOLVE(opcode_ccxx); /*810*/
HDL_RESOLVE(opcode_e3xx);
HDL_RESOLVE(opcode_e5xx);
HDL_RESOLVE(opcode_e6xx);
HDL_RESOLVE(opcode_ebxx);
HDL_RESOLVE(opcode_ecxx);
HDL_RESOLVE(opcode_edxx);
opcode_save();
opcodes_saved = 1;
}
#endif
#endif
for(opcode = 0; opcode < 256; opcode++)
{
switch(opcode)
{
case 0x01:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_01xx, save_01xx);
break;
#if defined (FEATURE_VECTOR_FACILITY)
case 0xA4:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, v_opcode_a4xx, save_a4xx);
break;
#endif
case 0xA5:
for(extop = 0; extop < 16; extop++)
assign_extop1(opcode, extop, opcode_a5xx, save_a5xx);
break;
case 0xA7:
for(extop = 0; extop < 16; extop++)
assign_extop1(opcode, extop, opcode_a7xx, save_a7xx);
break;
case 0xB2:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_b2xx, save_b2xx);
break;
case 0xB3:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_b3xx, save_b3xx);
break;
case 0xB9:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_b9xx, save_b9xx);
break;
case 0xC0:
for(extop = 0; extop < 16; extop++)
assign_extop1(opcode, extop, opcode_c0xx, save_c0xx);
break;
case 0xC2: /*@Z9*/
for(extop = 0; extop < 16; extop++) /*@Z9*/
assign_extop1(opcode, extop, opcode_c2xx, save_c2xx); /*@Z9*/
break; /*@Z9*/
case 0xC4: /*208*/
for(extop = 0; extop < 16; extop++) /*208*/
assign_extop1(opcode, extop, opcode_c4xx, save_c4xx); /*208*/
break; /*208*/
case 0xC6: /*208*/
for(extop = 0; extop < 16; extop++) /*208*/
assign_extop1(opcode, extop, opcode_c6xx, save_c6xx); /*208*/
break; /*208*/
case 0xC8:
for(extop = 0; extop < 16; extop++)
assign_extop1(opcode, extop, opcode_c8xx, save_c8xx);
break;
case 0xCC: /*810*/
for(extop = 0; extop < 16; extop++) /*810*/
assign_extop1(opcode, extop, opcode_ccxx, save_ccxx); /*810*/
break; /*810*/
case 0xE3:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_e3xx, save_e3xx);
break;
case 0xE5:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_e5xx, save_e5xx);
break;
case 0xE6:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_e6xx, save_e6xx);
break;
case 0xEB:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_ebxx, save_ebxx);
break;
case 0xEC:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_ecxx, save_ecxx);
break;
case 0xED:
for(extop = 0; extop < 256; extop++)
assign_extop(opcode, extop, opcode_edxx, save_edxx);
break;
default:
assign_opcode(opcode, opcode_table, save_table);
}
}
/* Copy opcodes to performance shadow tables */
copy_opcode_tables();
} END_RESOLVER_SECTION
HDL_FINAL_SECTION;
{
opcode_restore();
} END_FINAL_SECTION
#endif /*!defined(_GEN_ARCH)*/
#endif /*defined(OPTION_DYNAMIC_LOAD)*/
|
