made the real decl_type a union

[m6w6/ext-psi] / src / parser.re

diff --git a/src/parser.re b/src/parser.re
index 61c328d815bab5f210b772c806f6fc60b9b02736..10279ed7674f52f618a92f0eb8601b6fcb0c926c 100644 (file)
--- a/src/parser.re
+++ b/src/parser.re
@@ -37,8 +37,8 @@ PSI_Parser *PSI_ParserInit(PSI_Parser *P, const char *filename, psi_error_cb err
        P->line = 1;
        P->error = error;
        P->flags = flags;
-
        P->proc = PSI_ParserProcAlloc(malloc);
+
        if (flags & PSI_PARSER_DEBUG) {
                PSI_ParserProcTrace(stderr, "PSI> ");
        }