made a copy
[strongtalk-kjk.git] / vm / oops / klassKlass.cpp
blob0ceda3ec44336c8adae2c650970a5f60e00b98dd
1 /* Copyright 1994, 1995 LongView Technologies L.L.C. $Revision: 1.34 $ */
2 /* Copyright (c) 2006, Sun Microsystems, Inc.
3 All rights reserved.
5 Redistribution and use in source and binary forms, with or without modification, are permitted provided that the
6 following conditions are met:
8 * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
9 * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following
10 disclaimer in the documentation and/or other materials provided with the distribution.
11 * Neither the name of Sun Microsystems nor the names of its contributors may be used to endorse or promote products derived
12 from this software without specific prior written permission.
14 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT
15 NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
16 THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
17 (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
18 INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
19 OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE
24 # include "incls/_precompiled.incl"
25 # include "incls/_klassKlass.cpp.incl"
27 void set_klassKlass_vtbl(Klass* k) {
28 klassKlass o;
29 k->set_vtbl_value(o.vtbl_value());
32 oop klassKlass::allocateObject() {
33 // allocate
34 memOop obj = as_memOop(Universe::allocate_tenured(non_indexable_size()));
35 // header + instance variables
36 obj->initialize_header(has_untagged_contents(), as_klassOop());
37 obj->initialize_body(klassOopDesc::header_size(), non_indexable_size());
38 return obj;
41 klassOop klassKlass::create_subclass(mixinOop mixin, Format format) {
42 return NULL;
45 int klassKlass::oop_scavenge_contents(oop obj) {
46 int size = non_indexable_size();
47 // header
48 memOop(obj)->scavenge_header();
49 Klass* k = klassOop(obj)->klass_part();
50 scavenge_oop((oop*) &k->_non_indexable_size);
51 scavenge_oop((oop*) &k->_has_untagged_contents);
52 scavenge_oop((oop*) &k->_classVars);
53 scavenge_oop((oop*) &k->_methods);
54 scavenge_oop((oop*) &k->_superKlass);
55 scavenge_oop((oop*) &k->_mixin);
56 // instance variables
57 memOop(obj)->scavenge_body(klassOopDesc::header_size(), size);
58 return size;
61 int klassKlass::oop_scavenge_tenured_contents(oop obj) {
62 int size = non_indexable_size();
63 // header
64 memOop(obj)->scavenge_tenured_header();
65 Klass* k = klassOop(obj)->klass_part();
66 scavenge_tenured_oop((oop*) &k->_non_indexable_size);
67 scavenge_tenured_oop((oop*) &k->_has_untagged_contents);
68 scavenge_tenured_oop((oop*) &k->_classVars);
69 scavenge_tenured_oop((oop*) &k->_methods);
70 scavenge_tenured_oop((oop*) &k->_superKlass);
71 scavenge_tenured_oop((oop*) &k->_mixin);
72 // instance variables
73 memOop(obj)->scavenge_tenured_body(klassOopDesc::header_size(), size);
74 return size;
77 void klassKlass::oop_follow_contents(oop obj) {
78 // header
79 memOop(obj)->follow_header();
80 Klass* k = klassOop(obj)->klass_part();
81 MarkSweep::reverse_and_push((oop*) &k->_non_indexable_size);
82 MarkSweep::reverse_and_push((oop*) &k->_has_untagged_contents);
83 MarkSweep::reverse_and_push((oop*) &k->_classVars);
84 MarkSweep::reverse_and_push((oop*) &k->_methods);
85 MarkSweep::reverse_and_push((oop*) &k->_superKlass);
86 MarkSweep::reverse_and_push((oop*) &k->_mixin);
87 // instance variables
88 memOop(obj)->follow_body(klassOopDesc::header_size(), non_indexable_size());
91 bool klassKlass::oop_verify(oop obj) {
92 assert(obj->is_klass(), "must be class");
93 Klass* k = klassOop(obj)->klass_part();
95 if (!k->oop_is_smi()) {
96 int a = k->non_indexable_size();
97 int b = k->oop_header_size();
98 int c = k->number_of_instance_variables();
99 if (a != b + c) {
100 warning("inconsistent non indexable size");
104 bool flag = memOop(obj)->verify();
105 return flag;
108 void klassKlass::oop_print_on(oop obj, outputStream* st) {
109 memOopKlass::oop_print_on(obj, st);
112 void klassKlass::oop_print_value_on(oop obj, outputStream* st) {
113 if (PrintObjectID) {
114 memOop(obj)->print_id_on(st);
115 st->print("-");
117 klassOop(obj)->klass_part()->print_name_on(st);
118 st->print(" class");
121 void klassKlass::oop_layout_iterate(oop obj, ObjectLayoutClosure* blk) {
122 // header
123 memOop(obj)->layout_iterate_header(blk);
124 Klass* k = klassOop(obj)->klass_part();
125 blk->do_oop("size", (oop*) &k->_non_indexable_size);
126 blk->do_oop("untag", (oop*) &k->_has_untagged_contents);
127 blk->do_oop("classVars", (oop*) &k->_classVars);
128 blk->do_oop("methods", (oop*) &k->_methods);
129 blk->do_oop("super", (oop*) &k->_superKlass);
130 blk->do_oop("mixin", (oop*) &k->_mixin);
131 // instance variables
132 memOop(obj)->layout_iterate_body(blk, klassOopDesc::header_size(), non_indexable_size());
135 void klassKlass::oop_oop_iterate(oop obj, OopClosure* blk) {
136 // header
137 memOop(obj)->oop_iterate_header(blk);
138 Klass* k = klassOop(obj)->klass_part();
139 blk->do_oop((oop*) &k->_non_indexable_size);
140 blk->do_oop((oop*) &k->_has_untagged_contents);
141 blk->do_oop((oop*) &k->_classVars);
142 blk->do_oop((oop*) &k->_methods);
143 blk->do_oop((oop*) &k->_superKlass);
144 blk->do_oop((oop*) &k->_mixin);
145 // instance variables
146 memOop(obj)->oop_iterate_body(blk, klassOopDesc::header_size(), non_indexable_size());
149 oop klassKlass::oop_primitive_allocate(oop obj) {
150 return klassOop(obj)->klass_part()->allocateObject();
153 oop klassKlass::oop_primitive_allocate_size(oop obj, int size) {
154 return klassOop(obj)->klass_part()->allocateObjectSize(size);
157 oop klassKlass::oop_shallow_copy(oop obj, bool tenured) {
158 return markSymbol(vmSymbols::not_clonable());