aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/interp/cattable.boot26
-rw-r--r--src/interp/nrunfast.boot5
-rw-r--r--src/interp/sys-globals.boot3
3 files changed, 0 insertions, 34 deletions
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
@@ -39,9 +39,6 @@ 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
@@ -182,9 +182,6 @@ $traceletFunctions := []
$useDCQnotLET := false
++
-$updateCatTableIfTrue := false
-
-++
$TranslateOnly := false
++