X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=07c83c28643623df555292ca429fa5eba776ae9d;hp=fbf0c455fabcf926d582592fe5f23c86a726d928;hb=0570527a2279ee6bd14b4c08e653b6d68369475a;hpb=0b68ac1af511e1e47b1e6a8f5617200db6819ee5

diff --git a/src/oberon.c b/src/oberon.c
index fbf0c45..07c83c2 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -4490,6 +4490,9 @@ register_default_types(oberon_context_t * ctx)
 	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;
@@ -4618,6 +4621,7 @@ 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_end_intrinsic_module(ctx, ctx -> system_module);