From dc0d3db1f0527b5b50df094bb7ce0f6c9020f60c Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Mon, 13 Apr 2026 20:15:55 +0200
Subject: c: implement explicit cast complex -> scalar

---
 src/c.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/c.c b/src/c.c
index ffe63c0..0ae12d9 100644
--- a/src/c.c
+++ b/src/c.c
@@ -3634,9 +3634,13 @@ compileexpr(Function *fn, const Expr *ex, bool discard)
       }
       /* fallthru */
    case EPLUS:
-      r = compileexpr(fn, sub, discard);
-      if (discard) return NOREF;
-      r = scalarcvt(fn, ex->ty, sub->ty, r);
+      if (!iscomplex(sub->ty) || discard) {
+         r = compileexpr(fn, sub, discard);
+         if (discard) return NOREF;
+         r = scalarcvt(fn, ex->ty, sub->ty, r);
+      } else {
+         r = complex2scalar(fn, ex->ty, sub);
+      }
       if (isint(ex->ty) && (typesize(ex->ty) < typesize(sub->ty) || issigned(ex->ty) != issigned(sub->ty)))
          return narrow(fn, type2cls[scalartypet(ex->ty)], ex->ty, r, 0);
       return r;
-- 
cgit v1.2.3