diff --git a/src/oberon.c b/src/oberon.c
index 5abb2090477536027219f41e2e0b9e78b69d9ab5..1d9e670e82fcc1c2e197b7bcbeea9b91cc935782 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
/* Types */
oberon_new_intrinsic_type(ctx, "BYTE", ctx -> system_byte_type);
oberon_new_intrinsic_type(ctx, "PTR", ctx -> system_ptr_type);
/* 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, "INT32", ctx -> int_type);
+ oberon_new_intrinsic_type(ctx, "INT64", ctx -> longint_type);
oberon_new_intrinsic_type(ctx, "SET32", ctx -> set_type);
/* Functions */
oberon_new_intrinsic_type(ctx, "SET32", ctx -> set_type);
/* Functions */