Changeset 12227 in project for chicken/trunk/compiler.scm
- Timestamp:
- 10/21/08 20:42:22 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/compiler.scm
r12201 r12227 177 177 ; [##core#call {<safe-flag> [<debug-info> [<call-id> <customizable-flag>]]} <exp-f> <exp>...] 178 178 ; [##core#callunit {<unitname>} <exp>...] 179 ; [##core#cond <exp> <exp> <exp>] 179 180 ; [##core#local {<index>}] 180 181 ; [##core#setlocal {<index>} <exp>] … … 2510 2511 (else (make-node '##core#literal (list (literal c)) '())) ) ) ) 2511 2512 2513 ;;*** conditionals (if + ##core#cond) are missing here: allocation 2514 ;; calculation should use max of both branches, not sum. 2515 2512 2516 (else (make-node class params (mapwalk subs e here boxes)) ) ) ) ) 2513 2517
Note: See TracChangeset
for help on using the changeset viewer.