From 204f6f332318056a9b950e71e4a958da0c10ea72 Mon Sep 17 00:00:00 2001
From: Xavier Del Campo Romero <xavi92@disroot.org>
Date: Sat, 26 Sep 2026 23:30:40 +0200
Subject: prc1: Rework arg handling + dbg

---
 src/prc1/set.c | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

(limited to 'src/prc1/set.c')

diff --git a/src/prc1/set.c b/src/prc1/set.c
index 3058040..3b83fc9 100644
--- a/src/prc1/set.c
+++ b/src/prc1/set.c
@@ -1,5 +1,6 @@
 #include "set.h"
 #include "cgen.h"
+#include "dbg.h"
 #include "errloc.h"
 #include "fn.h"
 #include "lex.h"
@@ -259,12 +260,12 @@ static int mv(const struct lex *l, struct prv *p)
         }
     }
 
-    fputs("\t\tadding set ", stderr);
+    dbg("\t\tadding set ");
 
     for (size_t i = 0; i < s->ndsts; i++)
-        fprintf(stderr, "%s ", s->dsts[i].entry->tk->s);
+        dbg("%s ", s->dsts[i].entry->tk->s);
 
-    fprintf(stderr, "to %s\n", tk->s);
+    dbg("to %s\n", tk->s);
 
     if (pop(l, p))
         return -1;
@@ -307,12 +308,12 @@ static int maddr(const struct lex *l, struct prv *p)
     s->type = SET_ADDR;
     s->src = e;
     p->stk = ++tk;
-    fputs("\t\tadding set ", stderr);
+    dbg("\t\tadding set ");
 
     for (size_t i = 0; i < s->ndsts; i++)
-        fprintf(stderr, "%s ", s->dsts[i].entry->tk->s);
+        dbg("%s ", s->dsts[i].entry->tk->s);
 
-    fprintf(stderr, "to address of %s\n", s->src->tk->s);
+    dbg("to address of %s\n", s->src->tk->s);
     return 1;
 }
 
@@ -368,12 +369,12 @@ static int msz(const struct lex *l, struct prv *p)
 
     s->type = SET_VAL;
     p->stk = ++tk;
-    fputs("\t\tadding set ", stderr);
+    dbg("\t\tadding set ");
 
     for (size_t i = 0; i < s->ndsts; i++)
-        fprintf(stderr, "%s ", s->dsts[i].entry->tk->s);
+        dbg("%s ", s->dsts[i].entry->tk->s);
 
-    fprintf(stderr, "size=%llu\n", s->srcv);
+    dbg("size=%llu\n", s->srcv);
     return 1;
 }
 
@@ -391,10 +392,10 @@ static int mimb(const struct lex *l, struct prv *p)
     /* skip "to" */
     tk++;
 
-    fputs("\t\tadding set ", stderr);
+    dbg("\t\tadding set ");
 
     for (size_t i = 0; i < s->ndsts; i++)
-        fprintf(stderr, "%s ", s->dsts[i].entry->tk->s);
+        dbg("%s ", s->dsts[i].entry->tk->s);
 
     if (tk->type == LIT)
     {
@@ -409,7 +410,7 @@ static int mimb(const struct lex *l, struct prv *p)
     else if (tk->type == NUM)
         s->srcv = tonum(tk->s);
 
-    fprintf(stderr, "to [%s] ", tk->s);
+    dbg("to [%s] ", tk->s);
 
     /* skip index and "of" */
     tk += 2;
@@ -422,7 +423,7 @@ static int mimb(const struct lex *l, struct prv *p)
     else if (pop(l, p))
         return -1;
 
-    fprintf(stderr, " of %s\n", tk->s);
+    dbg(" of %s\n", tk->s);
     s->type = SET_IMB;
     p->stk = ++tk;
     return 1;
-- 
cgit v1.2.3