From 7eca0b6c730ee71aed0a640fbb5ab9f80551648c 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 21:22:32 +0100
Subject: [PATCH] Removed a few obsolete functions and variables.
Rev: lib/modules/LR.pmod/kernel.pike:1.6
---
lib/modules/LR.pmod/kernel.pike | 39 ++-------------------------------
1 file changed, 2 insertions(+), 37 deletions(-)
diff --git a/lib/modules/LR.pmod/kernel.pike b/lib/modules/LR.pmod/kernel.pike
index 4d425871d3..9a7fd27715 100644
--- a/lib/modules/LR.pmod/kernel.pike
+++ b/lib/modules/LR.pmod/kernel.pike
@@ -1,5 +1,5 @@
/*
- * $Id: kernel.pike,v 1.5 1998/11/13 02:37:06 grubba Exp $
+ * $Id: kernel.pike,v 1.6 1998/11/13 20:22:32 grubba Exp $
*
* Implements a LR(1) state;
*
@@ -8,7 +8,7 @@
//.
//. File: kernel.pike
-//. RCSID: $Id: kernel.pike,v 1.5 1998/11/13 02:37:06 grubba Exp $
+//. RCSID: $Id: kernel.pike,v 1.6 1998/11/13 20:22:32 grubba Exp $
//. Author: Henrik Grubbstr�m
//.
//. Synopsis: Implements an LR(1) state.
@@ -39,10 +39,6 @@ mapping(int : multiset(object(item))) symbol_items = ([]);
//. object(rule) REDUCE according to this rule on this symbol.
mapping(int|string : object /* (kernel) */|object(rule)) action = ([]);
-//. + kernel_hash
-//. Hash value used by equalp
-string kernel_hash;
-
/*
* Functions
*/
@@ -68,34 +64,3 @@ void add_item(object(item) i)
kernel_hash = 0;
}
-//. - make_kernel_hash
-//. Computes the kernel hash.
-void make_kernel_hash()
-{
- if (!kernel_hash) {
- kernel_hash = (string)sort(items->item_id);
- // kernel_hash = sprintf("%4c:%@4c", sizeof(items), sort(items->item_id));
- // werror("Kernel hash:%O\n", kernel_hash);
- }
-}
-
-//. - equalp
-//. Compare with another state. (OBSOLETE)
-//. > state
-//. State to compare with.
-int equalp(object /* (kernel) */ state)
-{
- /* Two states are the same if they contain the same items */
- if (sizeof(state->items) != sizeof(items)) {
- return(0);
- }
-
- if (!kernel_hash) {
- make_kernel_hash();
- }
- if (!state->kernel_hash) {
- state->make_kernel_hash();
- }
- return(kernel_hash == state->kernel_hash);
-}
-
--
GitLab