Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 15:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #112 - Compilation of nan/inf

Browse source
This commit is contained in:
Justin Ethier 2016-10-24 17:15:32 -04:00
parent 7b1e3ce5f7
commit b1ca2627d1
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/cgen.sld
View file

@ -9,6 +9,7 @@
(define-library (scheme cyclone cgen)
(import (scheme base)
(scheme char)
(scheme inexact)
(scheme write)
(scheme cyclone primitives)
(scheme cyclone transforms)
@ -472,12 +473,19 @@
(c-code (string-append "obj_int2obj("
(number->string exp) ")")))
((real? exp)
(let ((cvar-name (mangle (gensym 'c))))
(let ((cvar-name (mangle (gensym 'c)))
(num2str (cond
;; The following two may not be very portable,
;; may be better to use C99:
((nan? exp) "(0./0.)")
((infinite? exp) "(1./0.)")
(else
(number->string exp)))))
(c-code/vars
(string-append "&" cvar-name) ; Code is just the variable name
(list ; Allocate on the C stack
(string-append
"make_double(" cvar-name ", " (number->string exp) ");")))))
"make_double(" cvar-name ", " num2str ");")))))
((boolean? exp)
(c-code (string-append
(if exp "boolean_t" "boolean_f"))))