zdoom/qzdoom
0
0
Fork 0
mirror of https://github.com/ZDoom/qzdoom.git synced 2024-12-15 15:01:42 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add a type field for ZCC expressions.

Browse source 
- Constants can fill out the type field right away. Other expressions will need
  to wait until a later pass, after names have been resolved, so they get
  initialized to NULL.
This commit is contained in:
Randy Heit 2013-09-10 20:50:21 -05:00
parent 6584819d01
commit f9f8d1e79b
2 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/zscript/zcc-parse.lemon
View file

@ -519,6 +519,7 @@ array_size_expr(X) ::= LBRACKET opt_expr(A) RBRACKET.
{ {
NEW_AST_NODE(Expression,nil,A); NEW_AST_NODE(Expression,nil,A);
nil->Operation = PEX_Nil; nil->Operation = PEX_Nil;
nil->Type = NULL;
X = nil; X = nil;
} }
else else
@ -728,8 +729,8 @@ const_def(X) ::= CONST(T) IDENTIFIER(A) EQ expr(B) SEMICOLON.
%type constant{ZCC_Expression *} %type constant{ZCC_Expression *}
%include { %include {
#define UNARY_EXPR(X,T) NEW_AST_NODE(ExprUnary, expr, X); expr->Operation = T; expr->Operand = X #define UNARY_EXPR(X,T) NEW_AST_NODE(ExprUnary, expr, X); expr->Operation = T; expr->Operand = X; expr->Type = NULL
#define BINARY_EXPR(X,Y,T) NEW_AST_NODE(ExprBinary, expr, X); expr->Operation = T; expr->Left = X; expr->Right = Y #define BINARY_EXPR(X,Y,T) NEW_AST_NODE(ExprBinary, expr, X); expr->Operation = T; expr->Type = NULL; expr->Left = X; expr->Right = Y
} }
/*----- Primary Expressions -----*/ /*----- Primary Expressions -----*/
@ -739,12 +740,14 @@ primary(X) ::= IDENTIFIER(A).
NEW_AST_NODE(ExprID, expr, A); NEW_AST_NODE(ExprID, expr, A);
expr->Operation = PEX_ID; expr->Operation = PEX_ID;
expr->Identifier = A.Name(); expr->Identifier = A.Name();
expr->Type = NULL;
X = expr; X = expr;
} }
primary(X) ::= SUPER(T). primary(X) ::= SUPER(T).
{ {
NEW_AST_NODE(Expression, expr, T); NEW_AST_NODE(Expression, expr, T);
expr->Operation = PEX_Super; expr->Operation = PEX_Super;
expr->Type = NULL;
X = expr; X = expr;
} }
primary(X) ::= constant(A). primary(X) ::= constant(A).
@ -755,6 +758,7 @@ primary(X) ::= SELF(T).
{ {
NEW_AST_NODE(Expression, expr, T); NEW_AST_NODE(Expression, expr, T);
expr->Operation = PEX_Self; expr->Operation = PEX_Self;
expr->Type = NULL;
X = expr; X = expr;
} }
primary(X) ::= LPAREN expr(A) RPAREN. primary(X) ::= LPAREN expr(A) RPAREN.
@ -766,6 +770,7 @@ primary(X) ::= primary(A) LPAREN func_expr_list(B) RPAREN. [DOT] // Function ca
{ {
NEW_AST_NODE(ExprFuncCall, expr, A); NEW_AST_NODE(ExprFuncCall, expr, A);
expr->Operation = PEX_FuncCall; expr->Operation = PEX_FuncCall;
expr->Type = NULL;
expr->Function = A; expr->Function = A;
expr->Parameters = B; expr->Parameters = B;
X = expr; X = expr;
@ -774,6 +779,7 @@ primary(X) ::= primary(A) LBRACKET expr(B) RBRACKET. [DOT] // Array access
{ {
NEW_AST_NODE(ExprBinary, expr, B); NEW_AST_NODE(ExprBinary, expr, B);
expr->Operation = PEX_ArrayAccess; expr->Operation = PEX_ArrayAccess;
expr->Type = NULL;
expr->Left = A; expr->Left = A;
expr->Right = B; expr->Right = B;
X = expr; X = expr;
@ -782,6 +788,7 @@ primary(X) ::= primary(A) DOT IDENTIFIER(B). // Member access
{ {
NEW_AST_NODE(ExprMemberAccess, expr, B); NEW_AST_NODE(ExprMemberAccess, expr, B);
expr->Operation = PEX_MemberAccess; expr->Operation = PEX_MemberAccess;
expr->Type = NULL;
expr->Left = A; expr->Left = A;
expr->Right = ENamedName(B.Int); expr->Right = ENamedName(B.Int);
X = expr; X = expr;
@ -1002,6 +1009,7 @@ expr(X) ::= expr(A) QUESTION expr(B) COLON expr(C).
{ {
NEW_AST_NODE(ExprTrinary, expr, A); NEW_AST_NODE(ExprTrinary, expr, A);
expr->Operation = PEX_Trinary; expr->Operation = PEX_Trinary;
expr->Type = NULL;
expr->Test = A; expr->Test = A;
expr->Left = B; expr->Left = B;
expr->Right = C; expr->Right = C;
@ -1089,6 +1097,7 @@ string_constant(X) ::= STRCONST(A).
{ {
NEW_AST_NODE(ExprString, strconst, A); NEW_AST_NODE(ExprString, strconst, A);
strconst->Operation = PEX_StringConst; strconst->Operation = PEX_StringConst;
strconst->Type = TypeString;
strconst->Value = A.String; strconst->Value = A.String;
X = strconst; X = strconst;
} }
@ -1096,6 +1105,7 @@ string_constant(X) ::= string_constant(A) STRCONST(B).
{ {
NEW_AST_NODE(ExprString, strconst, A); NEW_AST_NODE(ExprString, strconst, A);
strconst->Operation = PEX_StringConst; strconst->Operation = PEX_StringConst;
strconst->Type = TypeString;
strconst->Value = stat->Strings.Alloc(*(A->Value) + *(B.String)); strconst->Value = stat->Strings.Alloc(*(A->Value) + *(B.String));
X = strconst; X = strconst;
} }
@ -1108,6 +1118,7 @@ constant(X) ::= INTCONST(A).
{ {
NEW_AST_NODE(ExprInt, intconst, A); NEW_AST_NODE(ExprInt, intconst, A);
intconst->Operation = PEX_IntConst; intconst->Operation = PEX_IntConst;
intconst->Type = TypeSInt32;
intconst->Value = A.Int; intconst->Value = A.Int;
X = intconst; X = intconst;
} }
@ -1115,6 +1126,7 @@ constant(X) ::= FLOATCONST(A).
{ {
NEW_AST_NODE(ExprFloat, floatconst, A); NEW_AST_NODE(ExprFloat, floatconst, A);
floatconst->Operation = PEX_FloatConst; floatconst->Operation = PEX_FloatConst;
floatconst->Type = TypeFloat64;
floatconst->Value = A.Float; floatconst->Value = A.Float;
X = floatconst; X = floatconst;
} }

1
src/zscript/zcc_parser.h
View file

@ -296,6 +296,7 @@ struct ZCC_StateLoop : ZCC_StatePart
struct ZCC_Expression : ZCC_TreeNode struct ZCC_Expression : ZCC_TreeNode
{ {
EZCCExprType Operation; EZCCExprType Operation;
PType *Type;
}; };
struct ZCC_StateGoto : ZCC_StatePart struct ZCC_StateGoto : ZCC_StatePart