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)
- Added `define-values` from R7RS.
Bug Fixes
- Do not inline functions if optimizations are disabled via `-O0`.
## 0.11.8 - December 30, 2019
Features

6
cyclone.scm
View file

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