S390: [wasm] Relocatable Globals.

src/s390/assembler-s390.cc

 // Copyright (c) 1994-2006 Sun Microsystems Inc.
 // All Rights Reserved.
 //
 // Redistribution and use in source and binary forms, with or without
 // modification, are permitted provided that the following conditions
 // are met:
 //
 // - Redistributions of source code must retain the above copyright notice,
 // this list of conditions and the following disclaimer.
 //
@@ skipping 210 matching lines @@
   DCHECK(IsWasmMemoryReference(rmode_));
   return Assembler::target_address_at(pc_, host_);
 }
 
 uint32_t RelocInfo::wasm_memory_size_reference() {
   DCHECK(IsWasmMemorySizeReference(rmode_));
   return static_cast<uint32_t>(
       reinterpret_cast<intptr_t>(Assembler::target_address_at(pc_, host_)));
 }
 
+Address RelocInfo::wasm_global_reference() {
+  DCHECK(IsWasmGlobalReference(rmode_));
+  return Assembler::target_address_at(pc_, host_);
+}
+
 void RelocInfo::update_wasm_memory_reference(
     Address old_base, Address new_base, uint32_t old_size, uint32_t new_size,
     ICacheFlushMode icache_flush_mode) {
   DCHECK(IsWasmMemoryReference(rmode_) || IsWasmMemorySizeReference(rmode_));
   if (IsWasmMemoryReference(rmode_)) {
     Address updated_memory_reference;
     DCHECK(old_base <= wasm_memory_reference() &&
            wasm_memory_reference() < old_base + old_size);
     updated_memory_reference = new_base + (wasm_memory_reference() - old_base);
     DCHECK(new_base <= updated_memory_reference &&
            updated_memory_reference < new_base + new_size);
     Assembler::set_target_address_at(
         isolate_, pc_, host_, updated_memory_reference, icache_flush_mode);
   } else if (IsWasmMemorySizeReference(rmode_)) {
     uint32_t updated_size_reference;
     DCHECK(wasm_memory_size_reference() <= old_size);
     updated_size_reference =
         new_size + (wasm_memory_size_reference() - old_size);
     DCHECK(updated_size_reference <= new_size);
     Assembler::set_target_address_at(
         isolate_, pc_, host_, reinterpret_cast<Address>(updated_size_reference),
         icache_flush_mode);
   } else {
     UNREACHABLE();
   }
 }
 
+void RelocInfo::update_wasm_global_reference(
+    Address old_base, Address new_base, ICacheFlushMode icache_flush_mode) {
+  DCHECK(IsWasmGlobalReference(rmode_));
+  Address updated_reference;
+  DCHECK(old_base <= wasm_global_reference());
+  updated_reference = new_base + (wasm_global_reference() - old_base);
+  DCHECK(new_base <= updated_reference);
+  Assembler::set_target_address_at(isolate_, pc_, host_, updated_reference,
+                                   icache_flush_mode);
+}
+
 // -----------------------------------------------------------------------------
 // Implementation of Operand and MemOperand
 // See assembler-s390-inl.h for inlined constructors
 
 Operand::Operand(Handle<Object> handle) {
   AllowDeferredHandleDereference using_raw_address;
   rm_ = no_reg;
   // Verify all Objects referred by code are NOT in new space.
   Object* obj = *handle;
   if (obj->IsHeapObject()) {
@@ skipping 2822 matching lines @@
 
     reloc_info_writer.Write(&rinfo);
   }
 
   reloc_info_writer.Finish();
 }
 
 }  // namespace internal
 }  // namespace v8
 #endif  // V8_TARGET_ARCH_S390