X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=1d9e670e82fcc1c2e197b7bcbeea9b91cc935782;hp=5abb2090477536027219f41e2e0b9e78b69d9ab5;hb=8212ec191c6700e5f0ceb7600b6d30441ca2bc88;hpb=317e2eb03b343f9d753990e6ed8386fd4effca60

diff --git a/src/oberon.c b/src/oberon.c
index 5abb209..1d9e670 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -4958,7 +4958,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 */