allocation related primitives

compiler/parser/parser.odin

@@ -653,6 +653,17 @@ parse_primary :: proc(parser: ^Parser, nesting: int) -> ast.Expr_Id {
 			right=ast.INVALID_EXPR,
 			diagnostic=source.INVALID_DIAGNOSTIC,
 		})
+	case .Question, .At, .Star:
+		start := tok
+		target := parse_type_atom(parser)
+		return add_expr(parser, ast.Expr{
+			kind=.Type,
+			span=span_from(start.span, previous(parser).span),
+			type=target,
+			left=ast.INVALID_EXPR,
+			right=ast.INVALID_EXPR,
+			diagnostic=source.INVALID_DIAGNOSTIC,
+		})
 	case .Integer:
 		advance(parser)
 		value, ok := parse_integer_magnitude(token_text(parser, tok))
@@ -739,6 +750,18 @@ parse_primary :: proc(parser: ^Parser, nesting: int) -> ast.Expr_Id {
 	case .Keyword_Func:
 		return parse_function_literal(parser)
 	case .Left_Bracket:
+		if starts_declared_type(parser) {
+			start := tok
+			target := parse_type_atom(parser)
+			return add_expr(parser, ast.Expr{
+				kind=.Type,
+				span=span_from(start.span, previous(parser).span),
+				type=target,
+				left=ast.INVALID_EXPR,
+				right=ast.INVALID_EXPR,
+				diagnostic=source.INVALID_DIAGNOSTIC,
+			})
+		}
 		return parse_array_literal(parser, nesting)
 	case .Dot:
 		start := advance(parser)