X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=4a740d8130db2be573d6c197eadc2ee767244d3c;hp=437e7694205489c681c5da3757bdc7e58a42ad39;hb=57963798c338b0b73e032e9288003fd462f8b954;hpb=6a3dfd4bef9a28863a7645070f0067f4a09d143a

diff --git a/src/oberon.c b/src/oberon.c
index 437e769..4a740d8 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -4535,7 +4535,7 @@ oberon_make_ord_call(oberon_context_t * ctx, int num_args, oberon_expr_t * list_
 	}
 	else
 	{
-		expr = oberon_cast_expr(ctx, arg, ctx -> int_type);
+		expr = oberon_cast_expr(ctx, arg, ctx -> shortint_type);
 	}
 	return expr;
 }