From 756ebaf1609599e480446606839dffc2a001e5e6 Mon Sep 17 00:00:00 2001 From: Charles Forsyth Date: Sat, 31 Oct 2015 11:07:44 +0000 Subject: suppress cyclic diagnostic by default; -y option to enable it; switch to Crypt from Keyring --- appl/cmd/limbo/typecheck.b | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'appl/cmd/limbo/typecheck.b') diff --git a/appl/cmd/limbo/typecheck.b b/appl/cmd/limbo/typecheck.b index ae5604b0..5629500b 100644 --- a/appl/cmd/limbo/typecheck.b +++ b/appl/cmd/limbo/typecheck.b @@ -1875,7 +1875,7 @@ circlval(n, lval: ref Node): int Oname => break; Odot => - if(n.right.decl.cycle != byte 0 && n.right.decl.cyc == byte 0){ + if(oldcycles && n.right.decl.cycle != byte 0 && n.right.decl.cyc == byte 0){ nerror(lval, "cannot assign to "+expconv(lval)+" because field '"+n.right.decl.sym.name +"' of "+expconv(n.left)+" could complete a cycle to "+expconv(n.left)); return -1; @@ -1883,7 +1883,7 @@ circlval(n, lval: ref Node): int return 1; Oind => for(id := n.ty.ids; id != nil; id = id.next){ - if(id.cycle != byte 0 && id.cyc == byte 0){ + if(oldcycles && id.cycle != byte 0 && id.cyc == byte 0){ nerror(lval, "cannot assign to "+expconv(lval)+" because field '"+id.sym.name +"' of "+expconv(n)+" could complete a cycle to "+expconv(n)); return -1; -- cgit v1.2.3