X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Foberon.c;h=cd7e97a18f3cb5531e77bd28d1253a62cdc92b85;hb=b32ba7cd2d9c7ddd96e5504bd7bc7552228167e3;hp=5abb2090477536027219f41e2e0b9e78b69d9ab5;hpb=f34b0f1f6a54eda1ad328576e48d92b96ad160ac;p=dsw-obn.git

diff --git a/src/oberon.c b/src/oberon.c
index 5abb209..cd7e97a 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -2447,6 +2447,12 @@ oberon_proc_decl(oberon_context_t * ctx)
 	char * name;
 	int export;
 	int read_only;
+
+	if(ctx -> token == STAR)
+	{
+		oberon_assert_token(ctx, STAR);
+	}
+
 	name = oberon_assert_ident(ctx);
 	oberon_def(ctx, &export, &read_only);
 
@@ -4958,7 +4964,10 @@ oberon_create_context(ModuleImportCallback import_module)
 		/* Types */
 		oberon_new_intrinsic_type(ctx, "BYTE", ctx -> system_byte_type);
 		oberon_new_intrinsic_type(ctx, "PTR", ctx -> system_ptr_type);
+		oberon_new_intrinsic_type(ctx, "INT8", ctx -> byte_type);
+		oberon_new_intrinsic_type(ctx, "INT16", ctx -> shortint_type);
 		oberon_new_intrinsic_type(ctx, "INT32", ctx -> int_type);
+		oberon_new_intrinsic_type(ctx, "INT64", ctx -> longint_type);
 		oberon_new_intrinsic_type(ctx, "SET32", ctx -> set_type);
 
 		/* Functions */