Add CONSTRUCT for super-initialization

diff --git a/qcsrc/common/oo.qh b/qcsrc/common/oo.qh
index 1485d4da4067ad2466010821fe6cc542c65ac617..aa660ab15d96de375fd87d11c374d6088840ec48 100644 (file)
--- a/qcsrc/common/oo.qh
+++ b/qcsrc/common/oo.qh
@@ -43,6 +43,9 @@ entity __spawn(string _classname, string _sourceFile, int _sourceLine) {
 #define NEW(cname, ...) \
     OVERLOAD(spawn##cname, new(cname), ##__VA_ARGS__)
 
+#define CONSTRUCT(cname, ...) \
+    OVERLOAD(spawn##cname, this, ##__VA_ARGS__)
+
 #define CONSTRUCTOR(cname, ...) \
     cname OVERLOAD(spawn##cname, cname this, __VA_ARGS__)