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

Issue #287

Browse source 
Do not inline functions if optimizations are disabled via `-O0`
This commit is contained in:
Justin Ethier 2020-01-06 13:23:39 -05:00
parent b83bfec83c
commit 2c3a85efb9
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
CHANGELOG.md
View file

@ -7,6 +7,9 @@ Features
- WIP: added batch compilation (TODO: more details) - WIP: added batch compilation (TODO: more details)
- Added `define-values` from R7RS. - Added `define-values` from R7RS.
Bug Fixes
- Do not inline functions if optimizations are disabled via `-O0`.
## 0.11.8 - December 30, 2019 ## 0.11.8 - December 30, 2019
Features Features

6
cyclone.scm
View file

@ -106,7 +106,8 @@
(set! program? #f) (set! program? #f)
(set! lib-name (lib:name (car input-program))) (set! lib-name (lib:name (car input-program)))
(set! c-headers (lib:include-c-headers (car input-program))) (set! c-headers (lib:include-c-headers (car input-program)))
(set! inlines (lib:inlines (car input-program))) (when (> *optimization-level* 0)
(set! inlines (lib:inlines (car input-program))))
(set! lib-exports (set! lib-exports
(cons (cons
(lib:name->symbol lib-name) (lib:name->symbol lib-name)
@ -145,7 +146,8 @@
(let ((lis (lib:inlines `(dummy dummy ,@input-program)))) (let ((lis (lib:inlines `(dummy dummy ,@input-program))))
(cond (cond
((not (null? lis)) ((not (null? lis))
(set! inlines lis) (when (> *optimization-level* 0)
(set! inlines lis))
(set! input-program (set! input-program
(filter (filter
(lambda (expr) (lambda (expr)