Fix internal compiler error on declaring methods in POINTER TO RECORD declaration

Closes #51

src/eberon/EberonContextType.ob

@@ -91,6 +91,9 @@ VAR
     result: Object.PType;
 BEGIN
     IF msg IS MethodDeclMsg THEN 
+        IF SELF.declaration.id = NIL THEN
+            Errors.raise("cannot declare methods for anonymous records (POINTER TO RECORD)");
+        END;
         methodType <- msg.type;
         boundType <- SELF.type(EberonRecord.PRecord);
         id <- msg.id.id();

test/test_unit_eberon.js

@@ -93,6 +93,12 @@ exports.suite = {
          ["STRING: INTEGER", "'STRING' already declared"]
          )
     ),
+"method declaration for pointer type": testWithGrammar(
+    grammar.typeDeclaration,
+    pass(),
+    fail(["PT = POINTER TO RECORD PROCEDURE p() END",
+          "cannot declare methods for anonymous records (POINTER TO RECORD)"])
+),
 "abstract method declaration": testWithContext(
     context(grammar.declarationSequence, 
             "TYPE T = RECORD PROCEDURE p() END;"