QML: Introduce "pragma Strict"

This doesn't carry any meaning, yet, but it can be used by any tools to
apply stricter rules to a particular piece of QML.

Change-Id: I0bf8f22001c19c7cc2989abedc747d3d5b1bdee1
Reviewed-by: Maximilian Goldstein <max.goldstein@qt.io>
Reviewed-by: Andrei Golubev <andrei.golubev@qt.io>
Reviewed-by: Fabian Kosmale <fabian.kosmale@qt.io>

1 files changed, 9 insertions, 3 deletions

diff --git a/src/qml/qml/qqmlirloader.cpp b/src/qml/qml/qqmlirloader.cpp
index 121ac25ced..5a010e6263 100644
--- a/src/qml/qml/qqmlirloader.cpp
+++ b/src/qml/qml/qqmlirloader.cpp
@@ -58,12 +58,18 @@ void QQmlIRLoader::load()
     for (quint32 i = 0; i < qmlUnit->nImports; ++i)
         output->imports << qmlUnit->importAt(i);
 
-    if (unit->flags & QV4::CompiledData::Unit::IsSingleton) {
+    const auto createPragma = [&](QmlIR::Pragma::PragmaType type) {
         QmlIR::Pragma *p = New<QmlIR::Pragma>();
         p->location = QV4::CompiledData::Location();
-        p->type = QmlIR::Pragma::PragmaSingleton;
+        p->type = type;
         output->pragmas << p;
-    }
+    };
+
+    if (unit->flags & QV4::CompiledData::Unit::IsSingleton)
+        createPragma(QmlIR::Pragma::PragmaSingleton);
+    if (unit->flags & QV4::CompiledData::Unit::IsStrict)
+        createPragma(QmlIR::Pragma::PragmaStrict);
+
 
     for (uint i = 0; i < qmlUnit->nObjects; ++i) {
         const QV4::CompiledData::Object *serializedObject = qmlUnit->objectAt(i);