A patch for http://crbug.com/17400...

bindings/scripts/CodeGeneratorV8.pm

 
 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org>
 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org>
 # Copyright (C) 2006 Apple Computer, Inc.
 # Copyright (C) 2007, 2008, 2009 Google Inc.
 #
 # This file is part of the KDE project
 #
@@ skipping 316 matching lines @@
     my $result = "";
 
     $result .= $indent . "if (ec) {\n";
     $result .= $indent . "    V8Proxy::setDOMException(ec);\n";
     $result .= $indent . "    return v8::Handle<v8::Value>();\n";
     $result .= $indent . "}\n";
 
     return $result;
 }
 
-sub IsNodeSubType
+sub IsSubTypeOf
 {
     my $dataNode = shift;
-    return 1 if ($dataNode->name eq "Node");
+    my $superType = shift;
+    return 1 if ($dataNode->name eq $superType);
     foreach (@allParents) {
         my $parent = $codeGenerator->StripModule($_);
-        return 1 if $parent eq "Node";
+        return 1 if $parent eq $superType;
     }
     return 0;
 }
 
 sub HolderToNative
 {
     my $dataNode = shift;
     my $implClassName = shift;
     my $classIndex = shift;
 
-    if (IsNodeSubType($dataNode)) {
+    if (IsSubTypeOf($dataNode, "Node")) {
         push(@implContentDecls, <<END);
     $implClassName* imp = V8DOMWrapper::convertDOMWrapperToNode<$implClassName>(holder);
 END
 
     } else {
         push(@implContentDecls, <<END);
     $implClassName* imp = V8DOMWrapper::convertToNativeObject<$implClassName>(V8ClassIndex::$classIndex, holder);
 END
 
   }
@@ skipping 588 matching lines @@
             $getter = "${interfaceName}Internal::${interfaceName}ConstructorGetter";
             $setter = "0";
             $propAttr = "v8::ReadOnly";
 
         # EventListeners
         } elsif ($attribute->signature->type eq "EventListener") {
             if ($interfaceName eq "DOMWindow") {
                 $getter = "V8Custom::v8DOMWindowEventHandlerAccessorGetter";
                 $setter = "V8Custom::v8DOMWindowEventHandlerAccessorSetter";
             } elsif ($interfaceName eq "Element" || $interfaceName eq "Document" || $interfaceName eq "HTMLBodyElement" || $interfaceName eq "SVGElementInstance" || $interfaceName eq "HTMLFrameSetElement") {
-                $getter = "V8Custom::v8ElementEventHandlerAccessorGetter";
-                $setter = "V8Custom::v8ElementEventHandlerAccessorSetter";
+                $getter = "V8Custom::v8NodeEventHandlerAccessorGetter";
+                $setter = "V8Custom::v8NodeEventHandlerAccessorSetter";
             } else {
                 $getter = "V8Custom::v8${customAccessor}AccessorGetter";
                 if ($interfaceName eq "WorkerContext" and $attrName eq "self") {
                     $setter = "0";
                     $propAttr = "v8::ReadOnly";
                 } else {
                     $setter = "V8Custom::v8${customAccessor}AccessorSetter";
                 }
             }
 
@@ skipping 257 matching lines @@
                            sizeof(shadow_attrs)/sizeof(*shadow_attrs));
   return templ;
 }
 END
     }
 
     # Generate the template configuration method
     push(@implContent,  <<END);
 static v8::Persistent<v8::FunctionTemplate> Configure${className}Template(v8::Persistent<v8::FunctionTemplate> desc) {
   v8::Local<v8::ObjectTemplate> instance = desc->InstanceTemplate();
-  instance->SetInternalFieldCount(2);
+END
+    if (IsSubTypeOf($dataNode, "Node")) {
+        push(@implContent, <<END);
+  instance->SetInternalFieldCount(V8Custom::kNodeMinimumInternalFieldCount);
+END
+    } else {
+        push(@implContent, <<END);
+  instance->SetInternalFieldCount(V8Custom::kDefaultWrapperInternalFieldCount);
+END
+    }
+
+    push(@implContent,  <<END);
   v8::Local<v8::Signature> default_signature = v8::Signature::New(desc);
   v8::Local<v8::ObjectTemplate> proto = desc->PrototypeTemplate();
   $access_check
 END
 
 
     # Set up our attributes if we have them
     if ($has_attributes) {
         push(@implContent, <<END);
   batchConfigureAttributes(instance, proto, ${interfaceName}_attrs, sizeof(${interfaceName}_attrs)/sizeof(*${interfaceName}_attrs));
@@ skipping 936 matching lines @@
     return 0;
 }
 
 sub DebugPrint
 {
     my $output = shift;
 
     print $output;
     print "\n";
 }