conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* removed all dlink stuff from hash table.

This commit is contained in:
Abdulaziz Ghuloum 2007-01-17 14:56:45 -05:00
parent 13e8f76f13
commit 8b1236e031
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

4
src/libcompile.ss
View File

@ -3063,7 +3063,7 @@
(define disp-tcbucket-key 4)
(define disp-tcbucket-val 8)
(define disp-tcbucket-next 12)
(define tcbucket-size 24)
(define tcbucket-size 16)
(define record-ptag 5)
(define record-pmask 7)
(define disp-record-rtd 0)
@ -3933,8 +3933,6 @@
(movl eax (mem disp-tcbucket-val apr))
(movl (Simple (cadddr arg*)) eax)
(movl eax (mem disp-tcbucket-next apr))
(movl (int 0) (mem 16 apr))
(movl (int 0) (mem 20 apr))
(movl apr eax)
(addl (int vector-tag) eax)
(addl (int (align tcbucket-size)) apr)

4
src/makefile.ss
View File

@ -115,8 +115,8 @@
$make-call-with-values-procedure $make-values-procedure
do-overflow $make-tcbucket $tcbucket-next $tcbucket-key
$tcbucket-val $set-tcbucket-next! $set-tcbucket-val!
$set-tcbucket-tconc! $tcbucket-dlink-prev $tcbucket-dlink-next
$set-tcbucket-dlink-prev! $set-tcbucket-dlink-next! call/cf
$set-tcbucket-tconc!
call/cf
trace-symbol! untrace-symbol! make-traced-procedure
fixnum->string
$interrupted? $unset-interrupted! $do-event