IDL compiler: [Unforgeable]

Source/bindings/scripts/code_generator_v8.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, 2012 Google Inc.
 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au>
 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies)
 # Copyright (C) 2012 Ericsson AB. All rights reserved.
@@ skipping 3025 matching lines @@
 }
 
 sub GenerateAttributeConfigurationParameters
 {
     my $interface = shift;
     my $attribute = shift;
     my $attrName = $attribute->name;
     my $attrExt = $attribute->extendedAttributes;
     my $implClassName = GetImplName($interface);
 
-    my $accessControl = "v8::DEFAULT";
+    my @accessControlList;
     if ($attrExt->{"DoNotCheckSecurityOnGetter"}) {
-        $accessControl = "v8::ALL_CAN_READ";
+        push(@accessControlList, "v8::ALL_CAN_READ");
     } elsif ($attrExt->{"DoNotCheckSecurityOnSetter"}) {
-        $accessControl = "v8::ALL_CAN_WRITE";
+        push(@accessControlList, "v8::ALL_CAN_WRITE");
     } elsif ($attrExt->{"DoNotCheckSecurity"}) {
-        $accessControl = "v8::ALL_CAN_READ";
+        push(@accessControlList, "v8::ALL_CAN_READ");
         if (!IsReadonly($attribute)) {
-            $accessControl .= " | v8::ALL_CAN_WRITE";
+            push(@accessControlList, "v8::ALL_CAN_WRITE");
         }
     }
     if ($attrExt->{"Unforgeable"}) {
-        $accessControl .= " | v8::PROHIBITS_OVERWRITING";
+        push(@accessControlList, "v8::PROHIBITS_OVERWRITING");
     }
-    $accessControl = "static_cast<v8::AccessControl>(" . $accessControl . ")";
+    @accessControlList = ("v8::DEFAULT") unless @accessControlList;
+    my $accessControl = "static_cast<v8::AccessControl>(" . join(" | ", @accessControlList) . ")";
 
     my $customAccessor = HasCustomGetter($attrExt) || HasCustomSetter($attribute) || "";
     if ($customAccessor eq "VALUE_IS_MISSING") {
         # use the naming convension, interface + (capitalize) attr name
         $customAccessor = $implClassName . "::" . $attrName;
     }
 
     my $getter;
     my $setter;
     my $getterForMainWorld;
@@ skipping 3136 matching lines @@
     my $interface = shift;
 
     return 1 if $interface->extendedAttributes->{"CustomToV8"};
     return 1 if $interface->extendedAttributes->{"SpecialWrapFor"};
     return 1 if InheritsInterface($interface, "Document");
 
     return 0;
 }
 
 1;