applied temple's fix for the ofront issue #30, endless recoursion for

cyclic array types. jtempl/ofront@c7d37c9
vishaps · Aug 8, 2017 · 511186f · 511186f
1 parent 9f3893b
commit 511186f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/compiler/OPC.Mod b/src/compiler/OPC.Mod
@@ -453,6 +453,9 @@ MODULE OPC;  (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
         ELSIF str^.form = OPT.Pointer THEN
           IF str^.BaseTyp^.comp # OPT.Record THEN DefineType(str^.BaseTyp) END
         ELSIF str^.comp IN {OPT.Array, OPT.DynArr} THEN
+          IF (str^.BaseTyp^.strobj # NIL) & (str^.BaseTyp^.strobj^.linkadr = ProcessingType) THEN (*cyclic base type*)
+            OPM.Mark(244, str^ .txtpos); str^.BaseTyp^.strobj^.linkadr := PredefinedType
+					END ;
           DefineType(str^.BaseTyp)
         ELSIF str^.form = OPT.ProcTyp THEN
           IF str^.BaseTyp # OPT.notyp THEN DefineType(str^.BaseTyp) END ;