diff --git a/src/oberon.c b/src/oberon.c
index fbf0c455fabcf926d582592fe5f23c86a726d928..07c83c28643623df555292ca429fa5eba776ae9d 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
ctx -> system_byte_type = oberon_new_type_ptr(OBERON_TYPE_SYSTEM_BYTE);
oberon_generator_init_type(ctx, ctx -> system_byte_type);
+ ctx -> system_ptr_type = oberon_new_type_ptr(OBERON_TYPE_SYSTEM_PTR);
+ oberon_generator_init_type(ctx, ctx -> system_ptr_type);
+
/* LONG / SHORT support */
ctx -> byte_type -> shorter = NULL;
ctx -> byte_type -> longer = ctx -> shortint_type;
/* Types */
oberon_new_intrinsic_type(ctx, "BYTE", ctx -> system_byte_type);
+ oberon_new_intrinsic_type(ctx, "PTR", ctx -> system_ptr_type);
oberon_end_intrinsic_module(ctx, ctx -> system_module);