X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Foberon.c;h=251a7df597c9887a7d2d319940bc99d70a812c35;hb=bd4b622f2ffd3fceefd9caeaff35662a13af201c;hp=89f4be48a38e95db5eb56d4f1dd59f4569f7bb8c;hpb=fef434efd26d259ed8a857e28af092df93282880;p=dsw-obn.git

diff --git a/src/oberon.c b/src/oberon.c
index 89f4be4..251a7df 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -2201,7 +2201,8 @@ oberon_prevent_recursive_pointer(oberon_context_t * ctx, oberon_type_t * type)
 		oberon_error(ctx, "recursive pointer declaration");
 	}
 
-	if(type -> base -> class == OBERON_TYPE_POINTER)
+	if(type -> class == OBERON_TYPE_POINTER
+		&& type -> base -> class == OBERON_TYPE_POINTER)
 	{
 		oberon_error(ctx, "attempt to make pointer to pointer");
 	}