Thu, 25 Apr 2013 11:02:32 -0700
8012260: ciReplay: Include PID into the name of replay data file
Reviewed-by: kvn, twisti
1 /*
2 * Copyright (c) 1999, 2012, Oracle and/or its affiliates. All rights reserved.
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * This code is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License version 2 only, as
7 * published by the Free Software Foundation.
8 *
9 * This code is distributed in the hope that it will be useful, but WITHOUT
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
12 * version 2 for more details (a copy is included in the LICENSE file that
13 * accompanied this code).
14 *
15 * You should have received a copy of the GNU General Public License version
16 * 2 along with this work; if not, write to the Free Software Foundation,
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
18 *
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
20 * or visit www.oracle.com if you need additional information or have any
21 * questions.
22 *
23 */
25 #include "precompiled.hpp"
26 #include "ci/ciField.hpp"
27 #include "ci/ciInstance.hpp"
28 #include "ci/ciInstanceKlass.hpp"
29 #include "ci/ciUtilities.hpp"
30 #include "classfile/systemDictionary.hpp"
31 #include "memory/allocation.hpp"
32 #include "memory/allocation.inline.hpp"
33 #include "oops/oop.inline.hpp"
34 #include "oops/fieldStreams.hpp"
35 #include "runtime/fieldDescriptor.hpp"
37 // ciInstanceKlass
38 //
39 // This class represents a Klass* in the HotSpot virtual machine
40 // whose Klass part in an InstanceKlass.
42 // ------------------------------------------------------------------
43 // ciInstanceKlass::ciInstanceKlass
44 //
45 // Loaded instance klass.
46 ciInstanceKlass::ciInstanceKlass(KlassHandle h_k) :
47 ciKlass(h_k), _non_static_fields(NULL)
48 {
49 assert(get_Klass()->oop_is_instance(), "wrong type");
50 assert(get_instanceKlass()->is_loaded(), "must be at least loaded");
51 InstanceKlass* ik = get_instanceKlass();
53 AccessFlags access_flags = ik->access_flags();
54 _flags = ciFlags(access_flags);
55 _has_finalizer = access_flags.has_finalizer();
56 _has_subklass = ik->subklass() != NULL;
57 _init_state = ik->init_state();
58 _nonstatic_field_size = ik->nonstatic_field_size();
59 _has_nonstatic_fields = ik->has_nonstatic_fields();
60 _nonstatic_fields = NULL; // initialized lazily by compute_nonstatic_fields:
62 _implementor = NULL; // we will fill these lazily
64 Thread *thread = Thread::current();
65 if (ciObjectFactory::is_initialized()) {
66 _loader = JNIHandles::make_local(thread, ik->class_loader());
67 _protection_domain = JNIHandles::make_local(thread,
68 ik->protection_domain());
69 _is_shared = false;
70 } else {
71 Handle h_loader(thread, ik->class_loader());
72 Handle h_protection_domain(thread, ik->protection_domain());
73 _loader = JNIHandles::make_global(h_loader);
74 _protection_domain = JNIHandles::make_global(h_protection_domain);
75 _is_shared = true;
76 }
78 // Lazy fields get filled in only upon request.
79 _super = NULL;
80 _java_mirror = NULL;
82 if (is_shared()) {
83 if (h_k() != SystemDictionary::Object_klass()) {
84 super();
85 }
86 //compute_nonstatic_fields(); // done outside of constructor
87 }
89 _field_cache = NULL;
90 }
92 // Version for unloaded classes:
93 ciInstanceKlass::ciInstanceKlass(ciSymbol* name,
94 jobject loader, jobject protection_domain)
95 : ciKlass(name, T_OBJECT)
96 {
97 assert(name->byte_at(0) != '[', "not an instance klass");
98 _init_state = (InstanceKlass::ClassState)0;
99 _nonstatic_field_size = -1;
100 _has_nonstatic_fields = false;
101 _nonstatic_fields = NULL;
102 _loader = loader;
103 _protection_domain = protection_domain;
104 _is_shared = false;
105 _super = NULL;
106 _java_mirror = NULL;
107 _field_cache = NULL;
108 }
112 // ------------------------------------------------------------------
113 // ciInstanceKlass::compute_shared_is_initialized
114 void ciInstanceKlass::compute_shared_init_state() {
115 GUARDED_VM_ENTRY(
116 InstanceKlass* ik = get_instanceKlass();
117 _init_state = ik->init_state();
118 )
119 }
121 // ------------------------------------------------------------------
122 // ciInstanceKlass::compute_shared_has_subklass
123 bool ciInstanceKlass::compute_shared_has_subklass() {
124 GUARDED_VM_ENTRY(
125 InstanceKlass* ik = get_instanceKlass();
126 _has_subklass = ik->subklass() != NULL;
127 return _has_subklass;
128 )
129 }
131 // ------------------------------------------------------------------
132 // ciInstanceKlass::loader
133 oop ciInstanceKlass::loader() {
134 ASSERT_IN_VM;
135 return JNIHandles::resolve(_loader);
136 }
138 // ------------------------------------------------------------------
139 // ciInstanceKlass::loader_handle
140 jobject ciInstanceKlass::loader_handle() {
141 return _loader;
142 }
144 // ------------------------------------------------------------------
145 // ciInstanceKlass::protection_domain
146 oop ciInstanceKlass::protection_domain() {
147 ASSERT_IN_VM;
148 return JNIHandles::resolve(_protection_domain);
149 }
151 // ------------------------------------------------------------------
152 // ciInstanceKlass::protection_domain_handle
153 jobject ciInstanceKlass::protection_domain_handle() {
154 return _protection_domain;
155 }
157 // ------------------------------------------------------------------
158 // ciInstanceKlass::field_cache
159 //
160 // Get the field cache associated with this klass.
161 ciConstantPoolCache* ciInstanceKlass::field_cache() {
162 if (is_shared()) {
163 return NULL;
164 }
165 if (_field_cache == NULL) {
166 assert(!is_java_lang_Object(), "Object has no fields");
167 Arena* arena = CURRENT_ENV->arena();
168 _field_cache = new (arena) ciConstantPoolCache(arena, 5);
169 }
170 return _field_cache;
171 }
173 // ------------------------------------------------------------------
174 // ciInstanceKlass::get_canonical_holder
175 //
176 ciInstanceKlass* ciInstanceKlass::get_canonical_holder(int offset) {
177 #ifdef ASSERT
178 if (!(offset >= 0 && offset < layout_helper())) {
179 tty->print("*** get_canonical_holder(%d) on ", offset);
180 this->print();
181 tty->print_cr(" ***");
182 };
183 assert(offset >= 0 && offset < layout_helper(), "offset must be tame");
184 #endif
186 if (offset < instanceOopDesc::base_offset_in_bytes()) {
187 // All header offsets belong properly to java/lang/Object.
188 return CURRENT_ENV->Object_klass();
189 }
191 ciInstanceKlass* self = this;
192 for (;;) {
193 assert(self->is_loaded(), "must be loaded to have size");
194 ciInstanceKlass* super = self->super();
195 if (super == NULL || super->nof_nonstatic_fields() == 0 ||
196 !super->contains_field_offset(offset)) {
197 return self;
198 } else {
199 self = super; // return super->get_canonical_holder(offset)
200 }
201 }
202 }
204 // ------------------------------------------------------------------
205 // ciInstanceKlass::is_java_lang_Object
206 //
207 // Is this klass java.lang.Object?
208 bool ciInstanceKlass::is_java_lang_Object() const {
209 return equals(CURRENT_ENV->Object_klass());
210 }
212 // ------------------------------------------------------------------
213 // ciInstanceKlass::uses_default_loader
214 bool ciInstanceKlass::uses_default_loader() {
215 // Note: We do not need to resolve the handle or enter the VM
216 // in order to test null-ness.
217 return _loader == NULL;
218 }
220 // ------------------------------------------------------------------
221 // ciInstanceKlass::is_in_package
222 //
223 // Is this klass in the given package?
224 bool ciInstanceKlass::is_in_package(const char* packagename, int len) {
225 // To avoid class loader mischief, this test always rejects application classes.
226 if (!uses_default_loader())
227 return false;
228 GUARDED_VM_ENTRY(
229 return is_in_package_impl(packagename, len);
230 )
231 }
233 bool ciInstanceKlass::is_in_package_impl(const char* packagename, int len) {
234 ASSERT_IN_VM;
236 // If packagename contains trailing '/' exclude it from the
237 // prefix-test since we test for it explicitly.
238 if (packagename[len - 1] == '/')
239 len--;
241 if (!name()->starts_with(packagename, len))
242 return false;
244 // Test if the class name is something like "java/lang".
245 if ((len + 1) > name()->utf8_length())
246 return false;
248 // Test for trailing '/'
249 if ((char) name()->byte_at(len) != '/')
250 return false;
252 // Make sure it's not actually in a subpackage:
253 if (name()->index_of_at(len+1, "/", 1) >= 0)
254 return false;
256 return true;
257 }
259 // ------------------------------------------------------------------
260 // ciInstanceKlass::print_impl
261 //
262 // Implementation of the print method.
263 void ciInstanceKlass::print_impl(outputStream* st) {
264 ciKlass::print_impl(st);
265 GUARDED_VM_ENTRY(st->print(" loader=0x%x", (address)loader());)
266 if (is_loaded()) {
267 st->print(" loaded=true initialized=%s finalized=%s subklass=%s size=%d flags=",
268 bool_to_str(is_initialized()),
269 bool_to_str(has_finalizer()),
270 bool_to_str(has_subklass()),
271 layout_helper());
273 _flags.print_klass_flags();
275 if (_super) {
276 st->print(" super=");
277 _super->print_name();
278 }
279 if (_java_mirror) {
280 st->print(" mirror=PRESENT");
281 }
282 } else {
283 st->print(" loaded=false");
284 }
285 }
287 // ------------------------------------------------------------------
288 // ciInstanceKlass::super
289 //
290 // Get the superklass of this klass.
291 ciInstanceKlass* ciInstanceKlass::super() {
292 assert(is_loaded(), "must be loaded");
293 if (_super == NULL && !is_java_lang_Object()) {
294 GUARDED_VM_ENTRY(
295 Klass* super_klass = get_instanceKlass()->super();
296 _super = CURRENT_ENV->get_instance_klass(super_klass);
297 )
298 }
299 return _super;
300 }
302 // ------------------------------------------------------------------
303 // ciInstanceKlass::java_mirror
304 //
305 // Get the instance of java.lang.Class corresponding to this klass.
306 // Cache it on this->_java_mirror.
307 ciInstance* ciInstanceKlass::java_mirror() {
308 if (is_shared()) {
309 return ciKlass::java_mirror();
310 }
311 if (_java_mirror == NULL) {
312 _java_mirror = ciKlass::java_mirror();
313 }
314 return _java_mirror;
315 }
317 // ------------------------------------------------------------------
318 // ciInstanceKlass::unique_concrete_subklass
319 ciInstanceKlass* ciInstanceKlass::unique_concrete_subklass() {
320 if (!is_loaded()) return NULL; // No change if class is not loaded
321 if (!is_abstract()) return NULL; // Only applies to abstract classes.
322 if (!has_subklass()) return NULL; // Must have at least one subklass.
323 VM_ENTRY_MARK;
324 InstanceKlass* ik = get_instanceKlass();
325 Klass* up = ik->up_cast_abstract();
326 assert(up->oop_is_instance(), "must be InstanceKlass");
327 if (ik == up) {
328 return NULL;
329 }
330 return CURRENT_THREAD_ENV->get_instance_klass(up);
331 }
333 // ------------------------------------------------------------------
334 // ciInstanceKlass::has_finalizable_subclass
335 bool ciInstanceKlass::has_finalizable_subclass() {
336 if (!is_loaded()) return true;
337 VM_ENTRY_MARK;
338 return Dependencies::find_finalizable_subclass(get_instanceKlass()) != NULL;
339 }
341 // ------------------------------------------------------------------
342 // ciInstanceKlass::get_field_by_offset
343 ciField* ciInstanceKlass::get_field_by_offset(int field_offset, bool is_static) {
344 if (!is_static) {
345 for (int i = 0, len = nof_nonstatic_fields(); i < len; i++) {
346 ciField* field = _nonstatic_fields->at(i);
347 int field_off = field->offset_in_bytes();
348 if (field_off == field_offset)
349 return field;
350 if (field_off > field_offset)
351 break;
352 // could do binary search or check bins, but probably not worth it
353 }
354 return NULL;
355 }
356 VM_ENTRY_MARK;
357 InstanceKlass* k = get_instanceKlass();
358 fieldDescriptor fd;
359 if (!k->find_field_from_offset(field_offset, is_static, &fd)) {
360 return NULL;
361 }
362 ciField* field = new (CURRENT_THREAD_ENV->arena()) ciField(&fd);
363 return field;
364 }
366 // ------------------------------------------------------------------
367 // ciInstanceKlass::get_field_by_name
368 ciField* ciInstanceKlass::get_field_by_name(ciSymbol* name, ciSymbol* signature, bool is_static) {
369 VM_ENTRY_MARK;
370 InstanceKlass* k = get_instanceKlass();
371 fieldDescriptor fd;
372 Klass* def = k->find_field(name->get_symbol(), signature->get_symbol(), is_static, &fd);
373 if (def == NULL) {
374 return NULL;
375 }
376 ciField* field = new (CURRENT_THREAD_ENV->arena()) ciField(&fd);
377 return field;
378 }
380 // ------------------------------------------------------------------
381 // ciInstanceKlass::non_static_fields.
383 class NonStaticFieldFiller: public FieldClosure {
384 GrowableArray<ciField*>* _arr;
385 ciEnv* _curEnv;
386 public:
387 NonStaticFieldFiller(ciEnv* curEnv, GrowableArray<ciField*>* arr) :
388 _curEnv(curEnv), _arr(arr)
389 {}
390 void do_field(fieldDescriptor* fd) {
391 ciField* field = new (_curEnv->arena()) ciField(fd);
392 _arr->append(field);
393 }
394 };
396 GrowableArray<ciField*>* ciInstanceKlass::non_static_fields() {
397 if (_non_static_fields == NULL) {
398 VM_ENTRY_MARK;
399 ciEnv* curEnv = ciEnv::current();
400 InstanceKlass* ik = get_instanceKlass();
401 int max_n_fields = ik->java_fields_count();
403 Arena* arena = curEnv->arena();
404 _non_static_fields =
405 new (arena) GrowableArray<ciField*>(arena, max_n_fields, 0, NULL);
406 NonStaticFieldFiller filler(curEnv, _non_static_fields);
407 ik->do_nonstatic_fields(&filler);
408 }
409 return _non_static_fields;
410 }
412 static int sort_field_by_offset(ciField** a, ciField** b) {
413 return (*a)->offset_in_bytes() - (*b)->offset_in_bytes();
414 // (no worries about 32-bit overflow...)
415 }
417 // ------------------------------------------------------------------
418 // ciInstanceKlass::compute_nonstatic_fields
419 int ciInstanceKlass::compute_nonstatic_fields() {
420 assert(is_loaded(), "must be loaded");
422 if (_nonstatic_fields != NULL)
423 return _nonstatic_fields->length();
425 if (!has_nonstatic_fields()) {
426 Arena* arena = CURRENT_ENV->arena();
427 _nonstatic_fields = new (arena) GrowableArray<ciField*>(arena, 0, 0, NULL);
428 return 0;
429 }
430 assert(!is_java_lang_Object(), "bootstrap OK");
432 // Size in bytes of my fields, including inherited fields.
433 int fsize = nonstatic_field_size() * heapOopSize;
435 ciInstanceKlass* super = this->super();
436 GrowableArray<ciField*>* super_fields = NULL;
437 if (super != NULL && super->has_nonstatic_fields()) {
438 int super_fsize = super->nonstatic_field_size() * heapOopSize;
439 int super_flen = super->nof_nonstatic_fields();
440 super_fields = super->_nonstatic_fields;
441 assert(super_flen == 0 || super_fields != NULL, "first get nof_fields");
442 // See if I am no larger than my super; if so, I can use his fields.
443 if (fsize == super_fsize) {
444 _nonstatic_fields = super_fields;
445 return super_fields->length();
446 }
447 }
449 GrowableArray<ciField*>* fields = NULL;
450 GUARDED_VM_ENTRY({
451 fields = compute_nonstatic_fields_impl(super_fields);
452 });
454 if (fields == NULL) {
455 // This can happen if this class (java.lang.Class) has invisible fields.
456 _nonstatic_fields = super_fields;
457 return super_fields->length();
458 }
460 int flen = fields->length();
462 // Now sort them by offset, ascending.
463 // (In principle, they could mix with superclass fields.)
464 fields->sort(sort_field_by_offset);
465 _nonstatic_fields = fields;
466 return flen;
467 }
469 GrowableArray<ciField*>*
470 ciInstanceKlass::compute_nonstatic_fields_impl(GrowableArray<ciField*>*
471 super_fields) {
472 ASSERT_IN_VM;
473 Arena* arena = CURRENT_ENV->arena();
474 int flen = 0;
475 GrowableArray<ciField*>* fields = NULL;
476 InstanceKlass* k = get_instanceKlass();
477 for (JavaFieldStream fs(k); !fs.done(); fs.next()) {
478 if (fs.access_flags().is_static()) continue;
479 flen += 1;
480 }
482 // allocate the array:
483 if (flen == 0) {
484 return NULL; // return nothing if none are locally declared
485 }
486 if (super_fields != NULL) {
487 flen += super_fields->length();
488 }
489 fields = new (arena) GrowableArray<ciField*>(arena, flen, 0, NULL);
490 if (super_fields != NULL) {
491 fields->appendAll(super_fields);
492 }
494 for (JavaFieldStream fs(k); !fs.done(); fs.next()) {
495 if (fs.access_flags().is_static()) continue;
496 fieldDescriptor fd;
497 fd.initialize(k, fs.index());
498 ciField* field = new (arena) ciField(&fd);
499 fields->append(field);
500 }
501 assert(fields->length() == flen, "sanity");
502 return fields;
503 }
505 // ------------------------------------------------------------------
506 // ciInstanceKlass::find_method
507 //
508 // Find a method in this klass.
509 ciMethod* ciInstanceKlass::find_method(ciSymbol* name, ciSymbol* signature) {
510 VM_ENTRY_MARK;
511 InstanceKlass* k = get_instanceKlass();
512 Symbol* name_sym = name->get_symbol();
513 Symbol* sig_sym= signature->get_symbol();
515 Method* m = k->find_method(name_sym, sig_sym);
516 if (m == NULL) return NULL;
518 return CURRENT_THREAD_ENV->get_method(m);
519 }
521 // ------------------------------------------------------------------
522 // ciInstanceKlass::is_leaf_type
523 bool ciInstanceKlass::is_leaf_type() {
524 assert(is_loaded(), "must be loaded");
525 if (is_shared()) {
526 return is_final(); // approximately correct
527 } else {
528 return !_has_subklass && (nof_implementors() == 0);
529 }
530 }
532 // ------------------------------------------------------------------
533 // ciInstanceKlass::implementor
534 //
535 // Report an implementor of this interface.
536 // Note that there are various races here, since my copy
537 // of _nof_implementors might be out of date with respect
538 // to results returned by InstanceKlass::implementor.
539 // This is OK, since any dependencies we decide to assert
540 // will be checked later under the Compile_lock.
541 ciInstanceKlass* ciInstanceKlass::implementor() {
542 ciInstanceKlass* impl = _implementor;
543 if (impl == NULL) {
544 // Go into the VM to fetch the implementor.
545 {
546 VM_ENTRY_MARK;
547 Klass* k = get_instanceKlass()->implementor();
548 if (k != NULL) {
549 if (k == get_instanceKlass()) {
550 // More than one implementors. Use 'this' in this case.
551 impl = this;
552 } else {
553 impl = CURRENT_THREAD_ENV->get_instance_klass(k);
554 }
555 }
556 }
557 // Memoize this result.
558 if (!is_shared()) {
559 _implementor = impl;
560 }
561 }
562 return impl;
563 }
565 // Utility class for printing of the contents of the static fields for
566 // use by compilation replay. It only prints out the information that
567 // could be consumed by the compiler, so for primitive types it prints
568 // out the actual value. For Strings it's the actual string value.
569 // For array types it it's first level array size since that's the
570 // only value which statically unchangeable. For all other reference
571 // types it simply prints out the dynamic type.
573 class StaticFinalFieldPrinter : public FieldClosure {
574 outputStream* _out;
575 const char* _holder;
576 public:
577 StaticFinalFieldPrinter(outputStream* out, const char* holder) :
578 _out(out),
579 _holder(holder) {
580 }
581 void do_field(fieldDescriptor* fd) {
582 if (fd->is_final() && !fd->has_initial_value()) {
583 ResourceMark rm;
584 oop mirror = fd->field_holder()->java_mirror();
585 _out->print("staticfield %s %s %s ", _holder, fd->name()->as_quoted_ascii(), fd->signature()->as_quoted_ascii());
586 switch (fd->field_type()) {
587 case T_BYTE: _out->print_cr("%d", mirror->byte_field(fd->offset())); break;
588 case T_BOOLEAN: _out->print_cr("%d", mirror->bool_field(fd->offset())); break;
589 case T_SHORT: _out->print_cr("%d", mirror->short_field(fd->offset())); break;
590 case T_CHAR: _out->print_cr("%d", mirror->char_field(fd->offset())); break;
591 case T_INT: _out->print_cr("%d", mirror->int_field(fd->offset())); break;
592 case T_LONG: _out->print_cr(INT64_FORMAT, mirror->long_field(fd->offset())); break;
593 case T_FLOAT: {
594 float f = mirror->float_field(fd->offset());
595 _out->print_cr("%d", *(int*)&f);
596 break;
597 }
598 case T_DOUBLE: {
599 double d = mirror->double_field(fd->offset());
600 _out->print_cr(INT64_FORMAT, *(jlong*)&d);
601 break;
602 }
603 case T_ARRAY: {
604 oop value = mirror->obj_field_acquire(fd->offset());
605 if (value == NULL) {
606 _out->print_cr("null");
607 } else {
608 typeArrayOop ta = (typeArrayOop)value;
609 _out->print("%d", ta->length());
610 if (value->is_objArray()) {
611 objArrayOop oa = (objArrayOop)value;
612 const char* klass_name = value->klass()->name()->as_quoted_ascii();
613 _out->print(" %s", klass_name);
614 }
615 _out->cr();
616 }
617 break;
618 }
619 case T_OBJECT: {
620 oop value = mirror->obj_field_acquire(fd->offset());
621 if (value == NULL) {
622 _out->print_cr("null");
623 } else if (value->is_instance()) {
624 if (value->is_a(SystemDictionary::String_klass())) {
625 _out->print("\"");
626 _out->print_raw(java_lang_String::as_quoted_ascii(value));
627 _out->print_cr("\"");
628 } else {
629 const char* klass_name = value->klass()->name()->as_quoted_ascii();
630 _out->print_cr(klass_name);
631 }
632 } else {
633 ShouldNotReachHere();
634 }
635 break;
636 }
637 default:
638 ShouldNotReachHere();
639 }
640 }
641 }
642 };
645 void ciInstanceKlass::dump_replay_data(outputStream* out) {
646 ASSERT_IN_VM;
647 ResourceMark rm;
649 InstanceKlass* ik = get_instanceKlass();
650 ConstantPool* cp = ik->constants();
652 // Try to record related loaded classes
653 Klass* sub = ik->subklass();
654 while (sub != NULL) {
655 if (sub->oop_is_instance()) {
656 out->print_cr("instanceKlass %s", sub->name()->as_quoted_ascii());
657 }
658 sub = sub->next_sibling();
659 }
661 // Dump out the state of the constant pool tags. During replay the
662 // tags will be validated for things which shouldn't change and
663 // classes will be resolved if the tags indicate that they were
664 // resolved at compile time.
665 out->print("ciInstanceKlass %s %d %d %d", ik->name()->as_quoted_ascii(),
666 is_linked(), is_initialized(), cp->length());
667 for (int index = 1; index < cp->length(); index++) {
668 out->print(" %d", cp->tags()->at(index));
669 }
670 out->cr();
671 if (is_initialized()) {
672 // Dump out the static final fields in case the compilation relies
673 // on their value for correct replay.
674 StaticFinalFieldPrinter sffp(out, ik->name()->as_quoted_ascii());
675 ik->do_local_static_fields(&sffp);
676 }
677 }