Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-22 07:09:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added -use-unsafe-prims

Browse source
This commit is contained in:
Justin Ethier 2019-11-26 15:10:28 -05:00
parent acb50614ee
commit 4c578f0394
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
cyclone.scm
View file

@ -28,6 +28,7 @@
(define *optimize:beta-expand-threshold* #f) ;; BE threshold or #f to use default (define *optimize:beta-expand-threshold* #f) ;; BE threshold or #f to use default
(define *optimize:inline-unsafe* #f) ;; Inline primitives even if generated code may be unsafe (define *optimize:inline-unsafe* #f) ;; Inline primitives even if generated code may be unsafe
(define *cgen:track-call-history* #t) (define *cgen:track-call-history* #t)
(define *cgen:use-unsafe-prims* #f)
; Placeholder for future enhancement to show elapsed time by phase: ; Placeholder for future enhancement to show elapsed time by phase:
(define *start* (current-second)) (define *start* (current-second))
@ -468,6 +469,8 @@
*optimize:memoize-pure-functions*)) *optimize:memoize-pure-functions*))
((eq? flag 'track-call-history) ((eq? flag 'track-call-history)
*cgen:track-call-history*) *cgen:track-call-history*)
((eq? flag 'use-unsafe-prims)
*cgen:use-unsafe-prims*)
((eq? flag 'inline-unsafe) ((eq? flag 'inline-unsafe)
*optimize:inline-unsafe*) *optimize:inline-unsafe*)
((eq? flag 'beta-expand-threshold) ((eq? flag 'beta-expand-threshold)
@ -787,6 +790,8 @@
(set! *optimize:memoize-pure-functions* #t)) (set! *optimize:memoize-pure-functions* #t))
(if (member "-no-memoization-optimizations" args) (if (member "-no-memoization-optimizations" args)
(set! *optimize:memoize-pure-functions* #f)) (set! *optimize:memoize-pure-functions* #f))
(if (member "-use-unsafe-prims" args)
(set! *cgen:use-unsafe-prims* #t))
(if (member "-no-call-history" args) (if (member "-no-call-history" args)
(set! *cgen:track-call-history* #f)) (set! *cgen:track-call-history* #f))
;; TODO: place more optimization reading here as necessary ;; TODO: place more optimization reading here as necessary
@ -831,7 +836,13 @@ Optimization options:
where possible (enabled by default). where possible (enabled by default).
-no-memoization-optimizations Disable the above memoization optimization. -no-memoization-optimizations Disable the above memoization optimization.
Debug options Unsafe options:
-use-unsafe-prims Emit unsafe primitives. These primitives are faster
but do not perform runtime type checking or bounds
checking.
Debug options:
-no-call-history Do not track call history in the compiled code. This -no-call-history Do not track call history in the compiled code. This
allows for a faster runtime at the cost of having allows for a faster runtime at the cost of having