`auto_cast` prefix for procedure parameters

1 files changed, 16 insertions, 8 deletions

diff --git a/src/parser.cpp b/src/parser.cpp
index 3edc8ba57..30c1797b5 100644
--- a/src/parser.cpp
+++ b/src/parser.cpp
@@ -2678,6 +2678,7 @@ enum FieldPrefixKind {
 	FieldPrefix_using,
 	FieldPrefix_no_alias,
 	FieldPrefix_c_var_arg,
+	FieldPrefix_auto_cast,
 	FieldPrefix_in,
 };
 
@@ -2692,6 +2693,9 @@ FieldPrefixKind is_token_field_prefix(AstFile *f) {
 	case Token_in:
 		return FieldPrefix_in;
 
+	case Token_auto_cast:
+		return FieldPrefix_auto_cast;
+
 	case Token_Hash:
 		advance_token(f);
 		switch (f->curr_token.kind) {
@@ -2710,10 +2714,11 @@ FieldPrefixKind is_token_field_prefix(AstFile *f) {
 
 
 u32 parse_field_prefixes(AstFile *f) {
-	i32 using_count    = 0;
-	i32 no_alias_count = 0;
-	i32 c_vararg_count = 0;
-	i32 in_count       = 0;
+	i32 using_count     = 0;
+	i32 no_alias_count  = 0;
+	i32 c_vararg_count  = 0;
+	i32 in_count        = 0;
+	i32 auto_cast_count = 0;
 
 	for (;;) {
 		FieldPrefixKind kind = is_token_field_prefix(f);
@@ -2727,16 +2732,18 @@ u32 parse_field_prefixes(AstFile *f) {
 		}
 
 		switch (kind) {
-		case FieldPrefix_using:     using_count    += 1; advance_token(f); break;
-		case FieldPrefix_no_alias:  no_alias_count += 1; advance_token(f); break;
-		case FieldPrefix_c_var_arg: c_vararg_count += 1; advance_token(f); break;
-		case FieldPrefix_in:        in_count       += 1; advance_token(f); break;
+		case FieldPrefix_using:     using_count     += 1; advance_token(f); break;
+		case FieldPrefix_no_alias:  no_alias_count  += 1; advance_token(f); break;
+		case FieldPrefix_c_var_arg: c_vararg_count  += 1; advance_token(f); break;
+		case FieldPrefix_in:        in_count        += 1; advance_token(f); break;
+		case FieldPrefix_auto_cast: auto_cast_count += 1; advance_token(f); break;
 		}
 	}
 	if (using_count     > 1) syntax_error(f->curr_token, "Multiple 'using' in this field list");
 	if (no_alias_count  > 1) syntax_error(f->curr_token, "Multiple '#no_alias' in this field list");
 	if (c_vararg_count  > 1) syntax_error(f->curr_token, "Multiple '#c_vararg' in this field list");
 	if (in_count        > 1) syntax_error(f->curr_token, "Multiple 'in' in this field list");
+	if (auto_cast_count > 1) syntax_error(f->curr_token, "Multiple 'auto_cast_count' in this field list");
 
 
 	u32 field_flags = 0;
@@ -2744,6 +2751,7 @@ u32 parse_field_prefixes(AstFile *f) {
 	if (no_alias_count  > 0) field_flags |= FieldFlag_no_alias;
 	if (c_vararg_count  > 0) field_flags |= FieldFlag_c_vararg;
 	if (in_count        > 0) field_flags |= FieldFlag_in;
+	if (auto_cast_count > 0) field_flags |= FieldFlag_auto_cast;
 	return field_flags;
 }