From 776edd758b261bd4f7c5c7cd758edef40e8b4f64 Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Wed, 9 Aug 2017 21:11:58 +0300
Subject: [PATCH] =?utf8?q?=D0=98=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D1=8B?=
=?utf8?q?=20=D1=80=D0=B0=D0=B7=D0=BC=D0=B5=D1=80=D1=8B=20=D0=BF=D1=80?=
=?utf8?q?=D0=B8=D0=BC=D0=B8=D1=82=D0=B8=D0=B2=D0=BD=D1=8B=D1=85=20=D1=82?=
=?utf8?q?=D0=B8=D0=BF=D0=BE=D0=B2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit
---
Out.obn | 2 +-
rtl/Out.java | 6 +++---
rtl/System.java | 2 +-
src/oberon.c | 14 +++++++-------
4 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/Out.obn b/Out.obn
index dce767c..9a923c2 100644
--- a/Out.obn
+++ b/Out.obn
@@ -9,7 +9,7 @@ END Char;
PROCEDURE String*(str : ARRAY OF CHAR);
END String;
-PROCEDURE Int*(i, n : LONGINT);
+PROCEDURE Int*(i : HUGEINT; n : INTEGER);
END Int;
PROCEDURE Real*(x : REAL; n : INTEGER);
diff --git a/rtl/Out.java b/rtl/Out.java
index 429d321..9989977 100644
--- a/rtl/Out.java
+++ b/rtl/Out.java
@@ -22,17 +22,17 @@ public class Out
System.out.write(str, 0, i);
}
- public static void Int(long i, long n)
+ public static void Int(long i, short n)
{
System.out.print(i);
}
- public static void Real(float x, int n)
+ public static void Real(float x, short n)
{
System.out.print(x);
}
- public static void LongReal(double x, int n)
+ public static void LongReal(double x, short n)
{
System.out.print(x);
}
diff --git a/rtl/System.java b/rtl/System.java
index 08411e7..d2ccf9b 100644
--- a/rtl/System.java
+++ b/rtl/System.java
@@ -1,6 +1,6 @@
public class System
{
- public static void Halt(int n)
+ public static void Halt(short n)
{
java.lang.System.exit(n);
}
diff --git a/src/oberon.c b/src/oberon.c
index cf1a570..bf5dad8 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -3751,17 +3751,20 @@ register_default_types(oberon_context_t * ctx)
ctx -> bool_type = oberon_new_type_boolean();
oberon_define_type(ctx -> world_scope, "BOOLEAN", ctx -> bool_type, 1);
+ ctx -> char_type = oberon_new_type_char(1);
+ oberon_define_type(ctx -> world_scope, "CHAR", ctx -> char_type, 1);
+
ctx -> byte_type = oberon_new_type_integer(1);
- oberon_define_type(ctx -> world_scope, "BYTE", ctx -> byte_type, 1);
+ oberon_define_type(ctx -> world_scope, "SHORTINT", ctx -> byte_type, 1);
ctx -> shortint_type = oberon_new_type_integer(2);
- oberon_define_type(ctx -> world_scope, "SHORTINT", ctx -> shortint_type, 1);
+ oberon_define_type(ctx -> world_scope, "INTEGER", ctx -> shortint_type, 1);
ctx -> int_type = oberon_new_type_integer(4);
- oberon_define_type(ctx -> world_scope, "INTEGER", ctx -> int_type, 1);
+ oberon_define_type(ctx -> world_scope, "LONGINT", ctx -> int_type, 1);
ctx -> longint_type = oberon_new_type_integer(8);
- oberon_define_type(ctx -> world_scope, "LONGINT", ctx -> longint_type, 1);
+ oberon_define_type(ctx -> world_scope, "HUGEINT", ctx -> longint_type, 1);
ctx -> real_type = oberon_new_type_real(4);
oberon_define_type(ctx -> world_scope, "REAL", ctx -> real_type, 1);
@@ -3769,9 +3772,6 @@ register_default_types(oberon_context_t * ctx)
ctx -> longreal_type = oberon_new_type_real(8);
oberon_define_type(ctx -> world_scope, "LONGREAL", ctx -> longreal_type, 1);
- ctx -> char_type = oberon_new_type_char(1);
- oberon_define_type(ctx -> world_scope, "CHAR", ctx -> char_type, 1);
-
ctx -> set_type = oberon_new_type_set(4);
oberon_define_type(ctx -> world_scope, "SET", ctx -> set_type, 1);
}
--
2.29.2