projects
/
m6w6
/
ext-psi
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
|
github
raw
|
inline
| side by side
fix clang build
[m6w6/ext-psi]
/
src
/
types
/
let_func.c
diff --git
a/src/types/let_func.c
b/src/types/let_func.c
index fd8b49f968ed709610a41d156a84453260064137..4a61632238f4bf54e5ab84244455d6d19eee6c53 100644
(file)
--- a/
src/types/let_func.c
+++ b/
src/types/let_func.c
@@
-58,26
+58,26
@@
void psi_let_func_free(struct psi_let_func **func_ptr)
}
}
}
}
-void psi_let_func_dump(
int fd
, struct psi_let_func *func, unsigned level)
+void psi_let_func_dump(
struct psi_dump *dump
, struct psi_let_func *func, unsigned level)
{
{
-
dprintf(fd
, "%s(%s\t/* fqn=%s */", func->name->val, func->var->name->val,
+
PSI_DUMP(dump
, "%s(%s\t/* fqn=%s */", func->name->val, func->var->name->val,
func->var->fqn->val);
if (func->inner) {
size_t i = 0, count = psi_plist_count(func->inner);
struct psi_let_exp *inner;
func->var->fqn->val);
if (func->inner) {
size_t i = 0, count = psi_plist_count(func->inner);
struct psi_let_exp *inner;
-
dprintf(fd
, ",");
+
PSI_DUMP(dump
, ",");
++level;
while (psi_plist_get(func->inner, i++, &inner)) {
++level;
while (psi_plist_get(func->inner, i++, &inner)) {
-
dprintf(fd
, "\n");
- psi_let_exp_dump(
fd
, inner, level, i == count);
+
PSI_DUMP(dump
, "\n");
+ psi_let_exp_dump(
dump
, inner, level, i == count);
}
--level;
}
--level;
-
dprintf(fd
, "\n");
-
dprintf(fd
, "%s", psi_t_indent(level));
+
PSI_DUMP(dump
, "\n");
+
PSI_DUMP(dump
, "%s", psi_t_indent(level));
}
}
-
dprintf(fd
, ")");
+
PSI_DUMP(dump
, ")");
}
static inline int validate_let_func_type(struct psi_data *data,
}
static inline int validate_let_func_type(struct psi_data *data,