Introduce a lazy-compile stub for functions.

runtime/vm/stub_code_arm.cc

 // Copyright (c) 2013, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "vm/globals.h"
 #if defined(TARGET_ARCH_ARM)
 
 #include "vm/assembler.h"
 #include "vm/code_generator.h"
 #include "vm/compiler.h"
@@ skipping 775 matching lines @@
   __ b(&not_closure, EQ);  // Not a closure, but a smi.
   // Verify that the class of the object is a closure class by checking that
   // class.signature_function() is not null.
   __ LoadClass(R0, R1, R2);
   __ ldr(R0, FieldAddress(R0, Class::signature_function_offset()));
   __ cmp(R0, ShifterOperand(R8));  // R8 is raw null.
   // Actual class is not a closure class.
   __ b(&not_closure, EQ);
 
   // R0 is just the signature function. Load the actual closure function.
-  __ ldr(R2, FieldAddress(R1, Closure::function_offset()));
+  __ ldr(R0, FieldAddress(R1, Closure::function_offset()));
 
   // Load closure context in CTX; note that CTX has already been preserved.
   __ ldr(CTX, FieldAddress(R1, Closure::context_offset()));
 
-  // Load closure function code in R0.
-  __ ldr(R0, FieldAddress(R2, Function::code_offset()));
-  __ cmp(R0, ShifterOperand(R8));  // R8 is raw null.
-  Label function_compiled;
-  __ b(&function_compiled, NE);
+  // R4: Arguments descriptor.
+  // R0: Function.
+  __ ldr(R2, FieldAddress(R0, Function::code_offset()));
 
-  // Create a stub frame as we are pushing some objects on the stack before
-  // calling into the runtime.
-  __ EnterStubFrame();
-
-  // Preserve arguments descriptor array and read-only function object argument.
-  __ PushList((1 << R2) | (1 << R4));
-  __ CallRuntime(kCompileFunctionRuntimeEntry, 1);
-  // Restore arguments descriptor array and read-only function object argument.
-  __ PopList((1 << R2) | (1 << R4));
-  // Restore R0.
-  __ ldr(R0, FieldAddress(R2, Function::code_offset()));
-
-  // Remove the stub frame as we are about to jump to the closure function.
-  __ LeaveStubFrame();
-
-  __ Bind(&function_compiled);
-  // R0: code.
-  // R4: arguments descriptor array.
-  __ ldr(R0, FieldAddress(R0, Code::instructions_offset()));
-  __ AddImmediate(R0, Instructions::HeaderSize() - kHeapObjectTag);
-  __ bx(R0);
+  // R2: code.
+  __ ldr(R2, FieldAddress(R2, Code::instructions_offset()));
+  __ AddImmediate(R2, Instructions::HeaderSize() - kHeapObjectTag);
+  __ bx(R2);
 
   __ Bind(&not_closure);
   // Call runtime to attempt to resolve and invoke a call method on a
   // non-closure object, passing the non-closure object and its arguments array,
   // returning here.
   // If no call method exists, throw a NoSuchMethodError.
   // R1: non-closure object.
   // R4: arguments descriptor array.
 
   // Create a stub frame as we are pushing some objects on the stack before
@@ skipping 667 matching lines @@
   __ LoadFromOffset(kWord, R0, R6, target_offset);
   __ LoadFromOffset(kWord, R1, R6, count_offset);
   __ adds(R1, R1, ShifterOperand(Smi::RawValue(1)));
   __ StoreToOffset(kWord, R1, R6, count_offset);
   __ b(&call_target_function, VC);  // No overflow.
   __ LoadImmediate(R1, Smi::RawValue(Smi::kMaxValue));
   __ StoreToOffset(kWord, R1, R6, count_offset);
 
   __ Bind(&call_target_function);
   // R0: target function.
-  __ ldr(R1, FieldAddress(R0, Function::code_offset()));
-  if (FLAG_collect_code) {
-    // If we are collecting code, the code object may be null.
-    Label is_compiled;
-    __ CompareImmediate(R1, reinterpret_cast<intptr_t>(Object::null()));
-    __ b(&is_compiled, NE);
-    __ EnterStubFrame();
-    // Preserve arg desc. and IC data object.
-    __ PushList((1 << R4) | (1 << R5));
-    __ Push(R0);  // Pass function.
-    __ CallRuntime(kCompileFunctionRuntimeEntry, 1);
-    __ Pop(R0);  // Discard argument.
-    __ PopList((1 << R4) | (1 << R5));  // Restore arg desc. and IC data.
-    __ LeaveStubFrame();
-    // R0: target function.
-    __ ldr(R1, FieldAddress(R0, Function::code_offset()));
-    __ Bind(&is_compiled);
-  }
-  __ ldr(R0, FieldAddress(R1, Code::instructions_offset()));
-  __ AddImmediate(R0, Instructions::HeaderSize() - kHeapObjectTag);
-  __ bx(R0);
+  __ ldr(R2, FieldAddress(R0, Function::code_offset()));
+  __ ldr(R2, FieldAddress(R2, Code::instructions_offset()));
+  __ AddImmediate(R2, Instructions::HeaderSize() - kHeapObjectTag);
+  __ bx(R2);
 
   // Instance in R0, return its class-id in R0 as Smi.
   __ Bind(&get_class_id_as_smi);
 
   // Test if Smi -> load Smi class for comparison.
   __ tst(R0, ShifterOperand(kSmiTagMask));
   __ mov(R0, ShifterOperand(Smi::RawValue(kSmiCid)), EQ);
   __ bx(LR, EQ);
   __ LoadClassId(R0, R0);
   __ SmiTag(R0);
@@ skipping 109 matching lines @@
   // Increment count for this call.
   Label increment_done;
   __ LoadFromOffset(kWord, R1, R6, count_offset);
   __ adds(R1, R1, ShifterOperand(Smi::RawValue(1)));
   __ StoreToOffset(kWord, R1, R6, count_offset);
   __ b(&increment_done, VC);  // No overflow.
   __ LoadImmediate(R1, Smi::RawValue(Smi::kMaxValue));
   __ StoreToOffset(kWord, R1, R6, count_offset);
   __ Bind(&increment_done);
 
-  Label target_is_compiled;
-  // Get function and call it, if possible.
-  __ LoadFromOffset(kWord, R1, R6, target_offset);
-  __ ldr(R0, FieldAddress(R1, Function::code_offset()));
-  __ CompareImmediate(R0, reinterpret_cast<intptr_t>(Object::null()));
-  __ b(&target_is_compiled, NE);
-  // R1: function.
-
-  __ EnterStubFrame();
-  // Preserve target function and IC data object.
-  __ PushList((1 << R1) | (1 << R5));
-  __ Push(R1);  // Pass function.
-  __ CallRuntime(kCompileFunctionRuntimeEntry, 1);
-  __ Drop(1);  // Discard argument.
-  __ PopList((1 << R1) | (1 << R5));  // Restore function and IC data.
-  __ LeaveStubFrame();
-  // R0: target function.
-  __ ldr(R0, FieldAddress(R1, Function::code_offset()));
-
-  __ Bind(&target_is_compiled);
-  // R0: target code.
-  __ ldr(R0, FieldAddress(R0, Code::instructions_offset()));
-  __ AddImmediate(R0, Instructions::HeaderSize() - kHeapObjectTag);
   // Load arguments descriptor into R4.
   __ ldr(R4, FieldAddress(R5, ICData::arguments_descriptor_offset()));
-  __ bx(R0);
+
+  // Get function and call it, if possible.
+  __ LoadFromOffset(kWord, R0, R6, target_offset);
+  __ ldr(R2, FieldAddress(R0, Function::code_offset()));
+
+  // R0: function.
+  // R2: target code.
+  __ ldr(R2, FieldAddress(R2, Code::instructions_offset()));
+  __ AddImmediate(R2, Instructions::HeaderSize() - kHeapObjectTag);
+  __ bx(R2);
 }
 
 
 void StubCode::GenerateTwoArgsUnoptimizedStaticCallStub(Assembler* assembler) {
   GenerateUsageCounterIncrement(assembler, R6);
   GenerateNArgsCheckInlineCacheStub(
       assembler, 2, kStaticCallMissHandlerTwoArgsRuntimeEntry);
 }
 
 
-// Stub for calling the CompileFunction runtime call.
-// R5: IC-Data.
+// Stub for compiling a function and jumping to the compiled code.
+// R5: IC-Data (for methods).
 // R4: Arguments descriptor.
 // R0: Function.
-void StubCode::GenerateCompileFunctionRuntimeCallStub(Assembler* assembler) {
+void StubCode::GenerateLazyCompileStub(Assembler* assembler) {
   // Preserve arg desc. and IC data object.
   __ EnterStubFrame();
   __ PushList((1 << R4) | (1 << R5));
   __ Push(R0);  // Pass function.
   __ CallRuntime(kCompileFunctionRuntimeEntry, 1);
   __ Pop(R0);  // Restore argument.
   __ PopList((1 << R4) | (1 << R5));  // Restore arg desc. and IC data.
   __ LeaveStubFrame();
-  __ Ret();
+
+  __ ldr(R2, FieldAddress(R0, Function::code_offset()));
+  __ ldr(R2, FieldAddress(R2, Code::instructions_offset()));
+  __ AddImmediate(R2, Instructions::HeaderSize() - kHeapObjectTag);
+  __ bx(R2);
 }
 
 
 void StubCode::GenerateBreakpointRuntimeStub(Assembler* assembler) {
   __ Comment("BreakpointRuntime stub");
   __ EnterStubFrame();
   __ LoadImmediate(R0, reinterpret_cast<intptr_t>(Object::null()));
   // Preserve arguments descriptor and make room for result.
   __ PushList((1 << R0) | (1 << R4) | (1 << R5));
   __ CallRuntime(kBreakpointRuntimeHandlerRuntimeEntry, 0);
@@ skipping 288 matching lines @@
   const Register right = R0;
   __ ldr(left, Address(SP, 1 * kWordSize));
   __ ldr(right, Address(SP, 0 * kWordSize));
   GenerateIdenticalWithNumberCheckStub(assembler, left, right, temp);
   __ Ret();
 }
 
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_ARM