Stack allocating block scoped variables.

src/parser.cc

 // Copyright 2011 the V8 project authors. 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.
 //     * Redistributions in binary form must reproduce the above
 //       copyright notice, this list of conditions and the following
 //       disclaimer in the documentation and/or other materials provided
@@ skipping 2993 matching lines @@
         // Keep track of eval() calls since they disable all local variable
         // optimizations.
         // The calls that need special treatment are the
         // direct eval calls. These calls are all of the form eval(...), with
         // no explicit receiver.
         // These calls are marked as potentially direct eval calls. Whether
         // they are actually direct calls to eval is determined at run time.
         VariableProxy* callee = result->AsVariableProxy();
         if (callee != NULL &&
             callee->IsVariable(isolate()->factory()->eval_symbol())) {
-          top_scope_->DeclarationScope()->RecordEvalCall();
+          if (FLAG_harmony_scoping) {
+            Scope* scope = top_scope_;
+            while (!scope->calls_eval() &&
+                   !scope->is_declaration_scope()) {
+              scope->RecordEvalCall();
+              scope = scope->outer_scope();
+            }
+            // Make sure to record the eval call in the declaration scope.
+            scope->RecordEvalCall();
+          } else {
+            top_scope_->DeclarationScope()->RecordEvalCall();
+          }
         }
         result = NewCall(result, args, pos);
         break;
       }
 
       case Token::PERIOD: {
         Consume(Token::PERIOD);
         int pos = scanner().location().beg_pos;
         Handle<String> name = ParseIdentifierName(CHECK_OK);
         result = new(zone()) Property(isolate(),
@@ skipping 2627 matching lines @@
       ASSERT(info->isolate()->has_pending_exception());
     } else {
       result = parser.ParseProgram(info);
     }
   }
   info->SetFunction(result);
   return (result != NULL);
 }
 
 } }  // namespace v8::internal