fix leak with strings!

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

diff --git a/src/parser.re b/src/parser.re
index 4cabb45b07ea11e70dec321066db9947bd4576b3..0d13d79697cb334d108ee9f2423da6896a42eadb 100644 (file)
--- a/src/parser.re
+++ b/src/parser.re
@@ -201,10 +201,12 @@ token_t PSI_ParserScan(PSI_Parser *P)
                ARRAY = 'array';
                FUNCTION = 'function';
                TYPEDEF = 'typedef';
+               CONST = 'const';
                LIB = 'lib';
                LET = 'let';
                SET = 'set';
-               RET = 'ret';
+               RETURN = 'return';
+               FREE = 'free';
                STRLEN = 'strlen';
                STRVAL = 'strval';
                INTVAL = 'intval';
@@ -254,10 +256,12 @@ token_t PSI_ParserScan(PSI_Parser *P)
                ARRAY {RETURN(PSI_T_ARRAY);}
                FUNCTION {RETURN(PSI_T_FUNCTION);}
                TYPEDEF {RETURN(PSI_T_TYPEDEF);}
+               CONST {RETURN(PSI_T_CONST);}
                LIB {RETURN(PSI_T_LIB);}
                LET {RETURN(PSI_T_LET);}
                SET {RETURN(PSI_T_SET);}
-               RET {RETURN(PSI_T_RET);}
+               RETURN {RETURN(PSI_T_RETURN);}
+               FREE {RETURN(PSI_T_FREE);}
                STRLEN {RETURN(PSI_T_STRLEN);}
                STRVAL {RETURN(PSI_T_STRVAL);}
                INTVAL {RETURN(PSI_T_INTVAL);}