Save 2 Scalar containers per Promise.new

GC runs from 18 -> 14 for Promise.new for ^50000 No change for subclasses of Promise
rakudo · Aug 31, 2021 · 3aba970 · 3aba970
1 parent 94462df
commit 3aba970
Showing 1 changed file with 17 additions and 3 deletions.
diff --git a/src/core.c/Promise.pm6 b/src/core.c/Promise.pm6
@@ -41,10 +41,24 @@ my class Promise does Awaitable {
     has Mu $!dynamic_context;
     has Bool $!report-broken-if-sunk;
 
+    method !SET-SELF(\scheduler, \report) {
+        $!scheduler             := scheduler;
+        $!report-broken-if-sunk := nqp::if(nqp::istrue(report),True,False);
+        $!lock                  := nqp::create(Lock);
+        $!cond                  := $!lock.condition;
+        $!status                := Planned;
+        $!thens                 := nqp::list;
+        self
+    }
     submethod new(:$scheduler = $*SCHEDULER, :$report-broken-if-sunk) {
-        my \p = nqp::create(self);
-        p.BUILD(:$scheduler, :$report-broken-if-sunk);
-        p
+        if nqp::eqaddr(self,Promise) {
+            nqp::create(self)!SET-SELF($scheduler, $report-broken-if-sunk)
+        }
+        else {
+            my \p = nqp::create(self);
+            p.BUILD(:$scheduler, :$report-broken-if-sunk);
+            p
+        }
     }
 
     submethod BUILD(:$!scheduler = $*SCHEDULER, :$report-broken-if-sunk --> Nil) {