From 2ef9a67216e957e9e80d882597524ce52792a8dc Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Fri, 8 Jan 2016 22:36:19 -0800
Subject: Remove dead codes.

---
 src/interp/cattable.boot    | 26 --------------------------
 src/interp/nrunfast.boot    |  5 -----
 src/interp/sys-globals.boot |  3 ---
 3 files changed, 34 deletions(-)

(limited to 'src')

diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot
index 5a1fb213..89bdc430 100644
--- a/src/interp/cattable.boot
+++ b/src/interp/cattable.boot
@@ -71,9 +71,7 @@ genCategoryTable() ==
     for [a,:b] in encodeCategoryAlist(id,entry) repeat
       tableValue($HasCategoryTable,[id,:a]) := b
   simpTempCategoryTable()
-  -- compressHashTable $AncestorsTable
   simpCategoryTable()
-  -- compressHashTable $HasCategoryTable
 
 simpTempCategoryTable() ==
   for [id,:.] in entries $AncestorsTable repeat
@@ -427,29 +425,15 @@ compressSexpr(x,left,right) ==
   tableValue($found,x) := x
 
 updateCategoryTable(cname,kind) ==
-  $updateCatTableIfTrue =>
-    kind is 'package => nil
-    kind is 'category => updateCategoryTableForCategory(cname)
-    updateCategoryTableForDomain(cname,getConstrCat(
-      getConstructorCategory cname))
   kind is 'domain =>
     updateCategoryTableForDomain(cname,getConstrCat(
       getConstructorCategory cname))
 
-updateCategoryTableForCategory(cname) ==
-  clearTempCategoryTable([[cname,'category]])
-  addToCategoryTable(cname)
-  for [id,:.] in entries $AncestorsTable repeat
-      for u in getConstructorAncestorsFromDB id repeat
-        u.rest := simpCatPredicate simpBool rest u
-
 updateCategoryTableForDomain(cname,category) ==
   clearCategoryTable(cname)
   [cname,:domainEntry]:= addDomainToTable(cname,category)
   for [a,:b] in encodeCategoryAlist(cname,domainEntry) repeat
     tableValue($HasCategoryTable,[cname,:a]) := b
-  $doNotCompressHashTableIfTrue => $HasCategoryTable
-  -- compressHashTable $HasCategoryTable
 
 clearCategoryTable($cname) ==
   MAPHASH('clearCategoryTable1,$HasCategoryTable)
@@ -457,13 +441,3 @@ clearCategoryTable($cname) ==
 clearCategoryTable1(key,val) ==
   key.op = $cname => tableRemove!($HasCategoryTable,key)
   nil
-
-clearTempCategoryTable(catNames) ==
-  for [key,:.] in entries $AncestorsTable repeat
-    symbolMember?(key,catNames) => nil
-    extensions:= nil
-    for (extension:= [catForm,:.]) in getConstructorAncestorsFromDB key
-      repeat
-        symbolMember?(catForm.op,catNames) => nil
-        extensions:= [extension,:extensions]
-    tableValue($AncestorsTable,key) := extensions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot
index 10b86a5f..db167138 100644
--- a/src/interp/nrunfast.boot
+++ b/src/interp/nrunfast.boot
@@ -38,9 +38,6 @@ namespace BOOT
 module nrunfast where
   getOpCode: (%Symbol, %Vector %Thing, %Short) -> %Maybe %Short
 
-++
-$doNotCompressHashTableIfTrue := false
-
 ++
 $monitorNewWorld := false
 
@@ -57,8 +54,6 @@ initNewWorld() ==
   $monitorNewWorld := false
   $spadLibFT := 'NRLIB
   $NRTmonitorIfTrue := false
-  $updateCatTableIfTrue := false
-  $doNotCompressHashTableIfTrue := true
  
 getDomainByteVector dom == 
   CDDR domainData dom
diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot
index 4e815fdd..5cffb749 100644
--- a/src/interp/sys-globals.boot
+++ b/src/interp/sys-globals.boot
@@ -181,9 +181,6 @@ $traceletFunctions := []
 ++
 $useDCQnotLET := false
 
-++
-$updateCatTableIfTrue := false
-
 ++
 $TranslateOnly := false
 
-- 
cgit v1.2.3