From fb3564ec4313ec87635d8d7b94d5013e29cf04d1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?= <grubba@grubba.org> Date: Fri, 13 Nov 1998 03:37:06 +0100 Subject: [PATCH] Removed some dead code. Rev: lib/modules/LR.pmod/kernel.pike:1.5 --- lib/modules/LR.pmod/kernel.pike | 28 ++-------------------------- 1 file changed, 2 insertions(+), 26 deletions(-) diff --git a/lib/modules/LR.pmod/kernel.pike b/lib/modules/LR.pmod/kernel.pike index e67d62ab2f..4d425871d3 100644 --- a/lib/modules/LR.pmod/kernel.pike +++ b/lib/modules/LR.pmod/kernel.pike @@ -1,5 +1,5 @@ /* - * $Id: kernel.pike,v 1.4 1998/11/12 19:45:42 grubba Exp $ + * $Id: kernel.pike,v 1.5 1998/11/13 02:37:06 grubba Exp $ * * Implements a LR(1) state; * @@ -8,7 +8,7 @@ //. //. File: kernel.pike -//. RCSID: $Id: kernel.pike,v 1.4 1998/11/12 19:45:42 grubba Exp $ +//. RCSID: $Id: kernel.pike,v 1.5 1998/11/13 02:37:06 grubba Exp $ //. Author: Henrik Grubbstr�m //. //. Synopsis: Implements an LR(1) state. @@ -97,29 +97,5 @@ int equalp(object /* (kernel) */ state) state->make_kernel_hash(); } return(kernel_hash == state->kernel_hash); - - - /* Could probably make it test only kernel items */ - - foreach (state->items, object(item) i) { - if (search(items, i) == -1) { - int found = 0; - - foreach (items, object(item) i2) { - /* Two items are the same if they have the same rule - * and the same offset; - */ - if ((i->offset == i2->offset) && - (i->r == i2->r)) { - found = 1; - break; /* BUG in Pike 0.3 beta */ - } - } - if (!found) { - return(0); - } - } - } - return(1); } -- GitLab