Use non-pointer hash tables for UCD tables.

diff --git a/src/etc/ucd-converter.scm b/src/etc/ucd-converter.scm
index bfc7dbdee95e239bb6a252a066ef5b47c9a806ad..9c3f1c2c1d05f0680566322473d6841a6ae42d82 100644 (file)
--- a/src/etc/ucd-converter.scm
+++ b/src/etc/ucd-converter.scm
@@ -509,9 +509,7 @@ USA.
        (hash-table-ref/default ,table-name sv
                                ,(and default-value (default-value 'sv))))
       (define-deferred ,table-name
-       ;; TODO(cph): this table uses fixnums as keys. It doesn't need to rehash
-       ;; on GC, but for now this is expedient.
-       (let ((table (make-strong-eq-hash-table)))
+       (let ((table (make-non-pointer-hash-table)))
          (for-each (lambda (p)
                      (hash-table-set! table (car p) (cdr p)))
                    ',mapping)

diff --git a/src/runtime/ucd-table-alpha.scm b/src/runtime/ucd-table-alpha.scm
index e1d7f6e3c153356f6eb42ddf09631c47e1374653..0eb9e46a68b2ae405fcb92aa8429e6f1caed224a 100644 (file)
--- a/src/runtime/ucd-table-alpha.scm
+++ b/src/runtime/ucd-table-alpha.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: Alpha
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:15-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:06-08
 
 (declare (usual-integrations))
 \f

diff --git a/src/runtime/ucd-table-gc.scm b/src/runtime/ucd-table-gc.scm
index 94a700863053c96d65356b9c11e9e0dfd257c98b..07dd519f9271f22772cca8ae8794213b4e614e86 100644 (file)
--- a/src/runtime/ucd-table-gc.scm
+++ b/src/runtime/ucd-table-gc.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: gc
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:16-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:07-08
 
 (declare (usual-integrations))
 \f

diff --git a/src/runtime/ucd-table-lower.scm b/src/runtime/ucd-table-lower.scm
index ff1adb93d8914e0ef88121c643b3db4dcf9148ce..fb1cef326fdae188353e9dcda40f88a4d4c02c71 100644 (file)
--- a/src/runtime/ucd-table-lower.scm
+++ b/src/runtime/ucd-table-lower.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: Lower
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:15-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:06-08
 
 (declare (usual-integrations))
 \f

diff --git a/src/runtime/ucd-table-nt.scm b/src/runtime/ucd-table-nt.scm
index 632e3745d661baf2f3aa6316d2e5ae02178dbf2c..683c929b97dc2f86aa0cc004bae13630db919525 100644 (file)
--- a/src/runtime/ucd-table-nt.scm
+++ b/src/runtime/ucd-table-nt.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: nt
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:17-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:08-08
 
 (declare (usual-integrations))
 \f
@@ -34,7 +34,7 @@ USA.
   (hash-table-ref/default char-map:numeric-type sv #f))
 
 (define-deferred char-map:numeric-type
-  (let ((table (make-strong-eq-hash-table)))
+  (let ((table (make-non-pointer-hash-table)))
     (for-each
      (lambda (p)
        (hash-table-set! table (car p) (cdr p)))

diff --git a/src/runtime/ucd-table-slc.scm b/src/runtime/ucd-table-slc.scm
index fe8a0a1ab1b7ad515d30703bdab6693b0c7d9be9..5224893c257220c4cde066a6ecbbd5a44ed9bbdc 100644 (file)
--- a/src/runtime/ucd-table-slc.scm
+++ b/src/runtime/ucd-table-slc.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: slc
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:17-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:08-08
 
 (declare (usual-integrations))
 \f
@@ -34,7 +34,7 @@ USA.
   (hash-table-ref/default char-map:simple-lower-case sv sv))
 
 (define-deferred char-map:simple-lower-case
-  (let ((table (make-strong-eq-hash-table)))
+  (let ((table (make-non-pointer-hash-table)))
     (for-each
      (lambda (p)
        (hash-table-set! table (car p) (cdr p)))

diff --git a/src/runtime/ucd-table-suc.scm b/src/runtime/ucd-table-suc.scm
index 23e7f5addad970d14613709b34f24f3845534048..66310dc9834b045809d8ee6ac61f1a6883891d88 100644 (file)
--- a/src/runtime/ucd-table-suc.scm
+++ b/src/runtime/ucd-table-suc.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: suc
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:17-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:09-08
 
 (declare (usual-integrations))
 \f
@@ -34,7 +34,7 @@ USA.
   (hash-table-ref/default char-map:simple-upper-case sv sv))
 
 (define-deferred char-map:simple-upper-case
-  (let ((table (make-strong-eq-hash-table)))
+  (let ((table (make-non-pointer-hash-table)))
     (for-each
      (lambda (p)
        (hash-table-set! table (car p) (cdr p)))

diff --git a/src/runtime/ucd-table-upper.scm b/src/runtime/ucd-table-upper.scm
index b6a0245cd9df2495f73b14364cd6a03c6f03fadb..8e6ddb665d5c7330ed9e93606e09e522cf22142f 100644 (file)
--- a/src/runtime/ucd-table-upper.scm
+++ b/src/runtime/ucd-table-upper.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: Upper
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:15-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:06-08
 
 (declare (usual-integrations))
 \f

diff --git a/src/runtime/ucd-table-wspace.scm b/src/runtime/ucd-table-wspace.scm
index 3ef71f4283a953295f81f281ed636b9d543127e1..60038384888ec7591b4d3063df334dfdc1a8d327 100644 (file)
--- a/src/runtime/ucd-table-wspace.scm
+++ b/src/runtime/ucd-table-wspace.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; UCD property: WSpace
 
-;;; Generated from Unicode 9.0.0 UCD at 2017-02-09T23:45:15-08
+;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T00:13:07-08
 
 (declare (usual-integrations))
 \f