rename intrinsics

compiler/parser/parser.odin

@@ -399,7 +399,7 @@ parse_type_atom :: proc(parser: ^Parser) -> ast.Type_Syntax {
 			!symbol.is_valid(qualifier) && file_hidden_name(parser, name),
 		)
 		if current(parser).kind == .Left_Paren {
-			call := parse_call(parser, qualifier, first, name, 0)
+			call := parse_call(parser, qualifier, first, name, 0, false)
 			return types.intern(&parser.module.type_store, types.Node{
 				kind=.Type_Call,
 				count_expr=u32(call),
@@ -490,7 +490,7 @@ parse_call_args :: proc(parser: ^Parser, nesting: int) -> ([]ast.Expr_Id, token.
 	return args[:], right_paren
 }
 
-parse_call :: proc(parser: ^Parser, qualifier: symbol.Id, first, name: token.Token, nesting: int) -> ast.Expr_Id {
+parse_call :: proc(parser: ^Parser, qualifier: symbol.Id, first, name: token.Token, nesting: int, intrinsic: bool) -> ast.Expr_Id {
 	if nesting >= MAX_EXPRESSION_NESTING {
 		span := skip_parenthesized(parser)
 		return invalid_expr(parser, span, "expression nesting exceeds 256 levels")
@@ -502,6 +502,7 @@ parse_call :: proc(parser: ^Parser, qualifier: symbol.Id, first, name: token.Tok
 		qualifier=qualifier,
 		name=name.symbol,
 		args=args[:],
+		intrinsic=intrinsic,
 		left=ast.INVALID_EXPR,
 		right=ast.INVALID_EXPR,
 		diagnostic=source.INVALID_DIAGNOSTIC,
@@ -885,9 +886,10 @@ parse_primary :: proc(parser: ^Parser, nesting: int) -> ast.Expr_Id {
 			qualifier = first.symbol
 			name = member
 		}
+		_, intrinsic := allow(parser, .Bang)
 		if current(parser).kind == .Left_Paren {
-			call := parse_call(parser, qualifier, first, name, nesting)
-			if current(parser).kind == .Left_Brace && !(parser.no_struct_literal && parser.delimiter_depth == 0) {
+			call := parse_call(parser, qualifier, first, name, nesting, intrinsic)
+			if !intrinsic && current(parser).kind == .Left_Brace && !(parser.no_struct_literal && parser.delimiter_depth == 0) {
 				left_brace := advance(parser)
 				args, right_brace := parse_keyed_initializers(parser, left_brace, nesting, "expected '}' after struct literal")
 				return add_expr(parser, ast.Expr{
@@ -901,6 +903,9 @@ parse_primary :: proc(parser: ^Parser, nesting: int) -> ast.Expr_Id {
 			}
 			return call
 		}
+		if intrinsic {
+			return invalid_expr(parser, previous(parser).span, "expected '(' after intrinsic name")
+		}
 		if current(parser).kind == .Left_Brace && !(parser.no_struct_literal && parser.delimiter_depth == 0) {
 			return parse_struct_literal(parser, qualifier, first, name, nesting)
 		}
@@ -1156,6 +1161,21 @@ parse_expression_bp :: proc(parser: ^Parser, minimum_binding_power, nesting: int
 			}
 			continue
 		}
+		if current(parser).kind == .Bang {
+			marker := advance(parser)
+			if current(parser).kind != .Left_Paren {
+				left = invalid_expr(parser, marker.span, "expected '(' after '!'")
+				continue
+			}
+			left_expr := parser.module.exprs[left]
+			call_span := skip_parenthesized(parser)
+			left = invalid_expr(
+				parser,
+				span_from(left_expr.span, call_span),
+				"intrinsic calls require a direct name",
+			)
+			continue
+		}
 		if current(parser).kind == .Left_Paren {
 			if nesting >= MAX_EXPRESSION_NESTING {
 				span := skip_parenthesized(parser)