suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: reduce startup code size

Browse Source
This commit is contained in:
Matthew Flatt 2018-12-21 19:45:50 -07:00
parent b60fed7916
commit 86bbdab1de
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
racket/src/cs/rumble/struct.ss
View File

@ -362,16 +362,16 @@
(define struct-field-mutators (make-ephemeron-eq-hashtable))
(define (register-struct-constructor! p)
(with-global-lock* (hashtable-set! struct-constructors p #t)))
(add-to-table! struct-constructors p #t))
(define (register-struct-predicate! p)
(with-global-lock* (hashtable-set! struct-predicates p #t)))
(add-to-table! struct-predicates p #t))
(define (register-struct-field-accessor! p rtd pos)
(with-global-lock* (hashtable-set! struct-field-accessors p (cons rtd pos))))
(add-to-table! struct-field-accessors p (cons rtd pos)))
(define (register-struct-field-mutator! p rtd pos)
(with-global-lock* (hashtable-set! struct-field-mutators p (cons rtd pos))))
(add-to-table! struct-field-mutators p (cons rtd pos)))
(define (struct-constructor-procedure? v)
(and (procedure? v)
@ -403,6 +403,16 @@
(define (struct-mutator-procedure-rtd+pos v)
(with-global-lock* (hashtable-ref struct-field-mutators v #f)))
;; This indirection prevents the whole-program optimizer from inlining
;; the `with-glocal-lock*` expansion --- which, at the time of
;; writing, inflates the resulting code by 30%!
(define add-to-table! #f)
(define add-to-table!/done
(set! add-to-table!
(lambda (table key val)
(with-global-lock*
(hashtable-set! table key val)))))
;; ----------------------------------------
;; General structure-type creation, but not called when a `schemify`