00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039 #include "arch.h"
00040 ARCH_COPYRIGHT_APACHE(field, c, "$URL: https://svn.apache.org/path/name/field.c $ $Id: field.c 0 09/28/2005 dlydick $");
00041
00042
00043 #include <strings.h>
00044
00045 #include "jvmcfg.h"
00046 #include "cfmacros.h"
00047 #include "classfile.h"
00048 #include "exit.h"
00049 #include "jvm.h"
00050 #include "jvmclass.h"
00051 #include "linkage.h"
00052 #include "utf.h"
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082
00083
00084
00085
00086 jvm_field_index field_find_by_cp_entry(jvm_class_index clsidx,
00087 cp_info_dup *fldname,
00088 cp_info_dup *flddesc)
00089 {
00090
00091 if (jvm_class_index_null == clsidx)
00092 {
00093 exit_throw_exception(EXIT_JVM_FIELD,
00094 JVMCLASS_JAVA_LANG_INTERNALERROR);
00095 }
00096
00097
00098 ClassFile *pcfs = CLASS_OBJECT_LINKAGE(clsidx)->pcfs;
00099
00100 u2 fcount = pcfs->fields_count;
00101 jvm_field_index fldidx;
00102 for (fldidx = 0; fldidx < fcount; fldidx++)
00103 {
00104
00105 if ((0 == utf_pcfs_strcmp(PTR_THIS_CP_Utf8(fldname),
00106 pcfs,
00107 pcfs->fields[fldidx]->name_index))
00108 &&
00109 (0 == utf_pcfs_strcmp(PTR_THIS_CP_Utf8(flddesc),
00110 pcfs,
00111 pcfs
00112 ->fields[fldidx]
00113 ->descriptor_index)))
00114 {
00115 return(fldidx);
00116 }
00117 }
00118
00119
00120 return(jvm_field_index_bad);
00121
00122 }
00123
00124
00125
00126
00127
00128
00129
00130
00131
00132
00133
00134
00135
00136
00137
00138
00139
00140
00141 rboolean field_index_is_class_static(jvm_class_index clsidx,
00142 jvm_field_index fldidx)
00143 {
00144
00145 if (jvm_field_index_bad == fldidx)
00146 {
00147 return(rfalse);
00148 }
00149
00150 jvm_field_lookup_index csflidx;
00151 for (csflidx= 0;
00152 csflidx < CLASS(clsidx).num_class_static_field_lookups;
00153 csflidx++)
00154 {
00155
00156
00157
00158
00159 if (fldidx ==
00160 (CLASS(clsidx).class_static_field_lookup)[csflidx])
00161 {
00162 return(rtrue);
00163 }
00164 }
00165
00166
00167 return(rfalse);
00168
00169 }
00170
00171
00172
00173
00174
00175
00176
00177
00178
00179
00180
00181
00182
00183
00184
00185
00186
00187
00188
00189
00190 rboolean field_name_is_class_static(jvm_class_index clsidx,
00191 cp_info_dup *fldname,
00192 cp_info_dup *flddesc)
00193 {
00194 return(field_index_is_class_static(
00195 clsidx,
00196 field_find_by_cp_entry(clsidx, fldname, flddesc)));
00197
00198 }
00199
00200
00201
00202
00203
00204
00205
00206
00207
00208
00209
00210
00211
00212
00213
00214
00215
00216 rboolean field_index_is_object_instance(jvm_class_index clsidx,
00217 jvm_field_index fldidx)
00218 {
00219
00220 if (jvm_field_index_bad == fldidx)
00221 {
00222 return(rfalse);
00223 }
00224
00225 jvm_field_lookup_index oiflidx;
00226 for (oiflidx= 0;
00227 oiflidx < CLASS(clsidx).num_object_instance_field_lookups;
00228 oiflidx++)
00229 {
00230
00231
00232
00233
00234 if (fldidx ==
00235 (CLASS(clsidx).object_instance_field_lookup)[oiflidx])
00236 {
00237 return(rtrue);
00238 }
00239 }
00240
00241
00242 return(rfalse);
00243
00244 }
00245
00246
00247
00248
00249
00250
00251
00252
00253
00254
00255
00256
00257
00258
00259
00260
00261
00262
00263
00264
00265
00266 rboolean field_name_is_object_instance(jvm_class_index clsidx,
00267 cp_info_dup *fldname,
00268 cp_info_dup *flddesc)
00269 {
00270 return(field_index_is_object_instance(
00271 clsidx,
00272 field_find_by_cp_entry(clsidx, fldname, flddesc)));
00273
00274 }
00275
00276
00277
00278
00279
00280
00281
00282
00283
00284
00285
00286
00287
00288
00289
00290
00291
00292 jvm_field_lookup_index
00293 field_index_get_class_static_lookup(jvm_class_index clsidx,
00294 jvm_field_index fldidx)
00295 {
00296
00297 if (jvm_field_index_bad == fldidx)
00298 {
00299 return(jvm_field_lookup_index_bad);
00300 }
00301
00302 jvm_field_lookup_index csflidx;
00303 for (csflidx= 0;
00304 csflidx < CLASS(clsidx).num_class_static_field_lookups;
00305 csflidx++)
00306 {
00307
00308
00309
00310
00311 if (fldidx ==
00312 (CLASS(clsidx).class_static_field_lookup)[csflidx])
00313 {
00314 return(fldidx);
00315 }
00316 }
00317
00318
00319 return(jvm_field_lookup_index_bad);
00320
00321 }
00322
00323
00324
00325
00326
00327
00328
00329
00330
00331
00332
00333
00334
00335
00336
00337
00338
00339
00340
00341
00342 jvm_field_lookup_index
00343 field_name_get_class_static_lookup(jvm_class_index clsidx,
00344 cp_info_dup *fldname,
00345 cp_info_dup *flddesc)
00346 {
00347 return(field_index_get_class_static_lookup(
00348 clsidx,
00349 field_find_by_cp_entry(clsidx, fldname, flddesc)));
00350
00351
00352 }
00353
00354
00355
00356
00357
00358
00359
00360
00361
00362
00363
00364
00365
00366
00367
00368
00369
00370
00371 jvm_field_lookup_index
00372 field_index_get_object_instance_lookup(jvm_class_index clsidx,
00373 jvm_field_index fldidx)
00374 {
00375
00376 if (jvm_field_index_bad == fldidx)
00377 {
00378 return(rfalse);
00379 }
00380
00381 jvm_field_lookup_index oiflidx;
00382 for (oiflidx= 0;
00383 oiflidx < CLASS(clsidx).num_object_instance_field_lookups;
00384 oiflidx++)
00385 {
00386
00387
00388
00389
00390 if (fldidx ==
00391 (CLASS(clsidx).object_instance_field_lookup)[oiflidx])
00392 {
00393 return(rtrue);
00394 }
00395 }
00396
00397
00398 return(rfalse);
00399
00400 }
00401
00402
00403
00404
00405
00406
00407
00408
00409
00410
00411
00412
00413
00414
00415
00416
00417
00418
00419
00420
00421
00422
00423 jvm_field_lookup_index
00424 field_name_get_object_instance_lookup(jvm_class_index clsidx,
00425 cp_info_dup *fldname,
00426 cp_info_dup *flddesc)
00427 {
00428 return(field_index_get_object_instance_lookup(
00429 clsidx,
00430 field_find_by_cp_entry(clsidx, fldname, flddesc)));
00431
00432
00433 }
00434
00435
00436
00437
00438
00439
00440
00441
00442
00443
00444
00445
00446
00447
00448
00449
00450
00451 jvalue *field_index_get_class_static_pjvalue(jvm_class_index clsidx,
00452 jvm_field_index fldidx)
00453 {
00454
00455 if (jvm_field_index_bad == fldidx)
00456 {
00457 return((jvalue *) rnull);
00458 }
00459
00460 jvm_field_lookup_index csflidx;
00461 for (csflidx= 0;
00462 csflidx < CLASS(clsidx).num_class_static_field_lookups;
00463 csflidx++)
00464 {
00465
00466
00467
00468
00469 if (fldidx ==
00470 (CLASS(clsidx).class_static_field_lookup)[csflidx])
00471 {
00472 return(&(CLASS(clsidx).class_static_field_data)[csflidx]);
00473 }
00474 }
00475
00476
00477 return((jvalue *) rnull);
00478
00479 }
00480
00481
00482
00483
00484
00485
00486
00487
00488
00489
00490
00491
00492
00493
00494
00495
00496
00497
00498
00499
00500 jvalue *field_name_get_class_static_pjvalue(jvm_class_index clsidx,
00501 cp_info_dup *fldname,
00502 cp_info_dup *flddesc)
00503 {
00504 return(field_index_get_class_static_pjvalue(
00505 clsidx,
00506 field_find_by_cp_entry(clsidx, fldname, flddesc)));
00507
00508
00509 }
00510
00511
00512
00513
00514
00515
00516
00517
00518
00519
00520
00521
00522
00523
00524
00525
00526 jvalue *field_index_get_object_instance_pjvalue(jvm_object_hash objhash,
00527 jvm_field_index fldidx)
00528 {
00529 jvm_class_index clsidx = OBJECT_CLASS_LINKAGE(objhash)->clsidx;
00530
00531 jvm_field_lookup_index oifldidx;
00532 for (oifldidx= 0;
00533 oifldidx < CLASS(clsidx).num_object_instance_field_lookups;
00534 oifldidx++)
00535 {
00536
00537
00538
00539
00540 if (fldidx ==
00541 (CLASS(clsidx).object_instance_field_lookup)[oifldidx])
00542 {
00543 return(&OBJECT(objhash)
00544 .object_instance_field_data[oifldidx]);
00545 }
00546 }
00547
00548
00549 return((jvalue *) rnull);
00550
00551 }
00552
00553
00554
00555
00556
00557
00558
00559
00560
00561
00562
00563
00564
00565
00566
00567
00568
00569
00570
00571
00572 jvalue *field_name_get_object_instance_pjvalue(jvm_object_hash objhash,
00573 cp_info_dup *fldname,
00574 cp_info_dup *flddesc)
00575 {
00576 return(field_index_get_object_instance_pjvalue(
00577 objhash,
00578 field_find_by_cp_entry(
00579 OBJECT_CLASS_LINKAGE(objhash)->clsidx,
00580 fldname,
00581 flddesc)));
00582
00583 }
00584
00585
00586
00587
00588
00589
00590
00591
00592
00593
00594
00595
00596
00597
00598
00599
00600
00601
00602
00603
00604
00605 jvm_field_index
00606 field_index_put_class_static_pjvalue(jvm_class_index clsidx,
00607 jvm_field_index fldidx,
00608 jvalue *_jvalue)
00609 {
00610
00611 if (jvm_field_index_bad == fldidx)
00612 {
00613 return(jvm_field_index_bad);
00614 }
00615
00616 jvm_field_lookup_index csflidx;
00617 for (csflidx= 0;
00618 csflidx < CLASS(clsidx).num_class_static_field_lookups;
00619 csflidx++)
00620 {
00621
00622
00623
00624
00625 if (fldidx ==
00626 (CLASS(clsidx).class_static_field_lookup)[csflidx])
00627 {
00628 memcpy(&CLASS(clsidx).class_static_field_data[csflidx],
00629 _jvalue,
00630 sizeof(jvalue));
00631 return(fldidx);
00632 }
00633 }
00634
00635
00636 return(jvm_field_index_bad);
00637
00638 }
00639
00640
00641
00642
00643
00644
00645
00646
00647
00648
00649
00650
00651
00652
00653
00654
00655
00656
00657
00658
00659
00660
00661
00662
00663 jvm_field_index
00664 field_name_put_class_static_pjvalue(jvm_class_index clsidx,
00665 cp_info_dup *fldname,
00666 cp_info_dup *flddesc,
00667 jvalue *_jvalue)
00668 {
00669 return(field_index_put_class_static_pjvalue(
00670 clsidx,
00671 field_find_by_cp_entry(clsidx,
00672 fldname,
00673 flddesc),
00674 _jvalue));
00675
00676 }
00677
00678
00679
00680
00681
00682
00683
00684
00685
00686
00687
00688
00689
00690
00691
00692
00693
00694
00695
00696 jvm_field_index
00697 field_index_put_object_instance_pjvalue(jvm_object_hash objhash,
00698 jvm_field_index fldidx,
00699 jvalue *_jvalue)
00700 {
00701 jvm_class_index clsidx = OBJECT_CLASS_LINKAGE(objhash)->clsidx;
00702
00703 jvm_field_lookup_index oifldidx;
00704 for (oifldidx= 0;
00705 oifldidx < CLASS(clsidx).num_object_instance_field_lookups;
00706 oifldidx++)
00707 {
00708
00709
00710
00711
00712 if (fldidx ==
00713 (CLASS(clsidx).object_instance_field_lookup)[oifldidx])
00714 {
00715 memcpy(&OBJECT(objhash).object_instance_field_data[oifldidx],
00716 _jvalue,
00717 sizeof(jvalue));
00718 return(fldidx);
00719 }
00720 }
00721
00722
00723 return(jvm_field_index_bad);
00724
00725 }
00726
00727
00728
00729
00730
00731
00732
00733
00734
00735
00736
00737
00738
00739
00740
00741
00742
00743
00744
00745
00746
00747
00748
00749
00750 jvm_field_index
00751 field_name_put_object_instance_pjvalue(jvm_object_hash objhash,
00752 cp_info_dup *fldname,
00753 cp_info_dup *flddesc,
00754 jvalue *_jvalue)
00755 {
00756 return(field_index_put_object_instance_pjvalue(
00757 objhash,
00758 field_find_by_cp_entry(
00759 OBJECT_CLASS_LINKAGE(objhash)->clsidx,
00760 fldname,
00761 flddesc),
00762 _jvalue));
00763
00764 }
00765
00766
00767
00768