X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Foberon.c;h=f6bd09e68cc85998290d4ed9fd8c94f3b5c2d6d1;hb=dd629f9f9b42dcca96ef4fc58df5ccb2e332b65b;hp=437e7694205489c681c5da3757bdc7e58a42ad39;hpb=35e75d29be18a7355aaaea9e146f3fda1d91857f;p=dsw-obn.git

diff --git a/src/oberon.c b/src/oberon.c
index 437e769..f6bd09e 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -1995,7 +1995,7 @@ oberon_make_bin_op(oberon_context_t * ctx, int token, oberon_expr_t * a, oberon_
 						expr = oberon_new_operator(OP_DIV, result, a, b);
 						break;
 					case MOD:
-						expr = oberon_new_operator(OP_DIV, result, a, b);
+						expr = oberon_new_operator(OP_MOD, result, a, b);
 						break;
 					default:
 						printf("token %i line %i\n", token, ctx -> loc.line);
@@ -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;
 }