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

Purge old files

Browse source
This commit is contained in:
Justin Ethier 2018-01-31 13:19:55 -05:00
parent 4babcabe0e
commit e4615d69aa
1 changed files with 0 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
compiler-testing.scm
View file

@ -1,48 +0,0 @@
;; Another temporary test file
(import (scheme base) (scheme write))
(define (bbs-lbl-counter bbs) (vector-ref bbs 0))
(define label-limit 9999)
(define (bbs-new-lbl! bbs) ((bbs-lbl-counter bbs)))
(define (queue-empty) (cons '() '()))
(define (make-bbs)
(vector (make-counter 1 label-limit bbs-limit-err) (queue-empty) '()))
(define (make-counter next limit limit-error)
(lambda ()
(if (< next limit)
(let ((result next)) (set! next (+ next 1)) result)
(limit-error))))
(define (bbs-limit-err)
(error "procedure is too long [too many labels]"))
(let* (
(bbs (make-bbs))
(lbl1 (bbs-new-lbl! bbs))
(lbl2 (bbs-new-lbl! bbs))
)
; (let* ((p-bbs *bbs*)
; (p-bb *bb*)
; (p-proc-queue proc-queue)
; (p-known-procs known-procs)
; (p-context (current-context))
; (bbs (make-bbs))
; (lbl1 (bbs-new-lbl! bbs))
; (lbl2 (bbs-new-lbl! bbs))
; (context (entry-context node '()))
; (frame (context->frame
; context
; (set-union (free-variables (prc-body node)) ret-var-set)))
; (bb1 (make-bb (make-label-entry
; lbl1
; (length (prc-parms node))
; (prc-min node)
; (prc-rest node)
; #f
; frame
; (source-comment node))
; bbs))
; (bb2 (make-bb (make-label-simple lbl2 frame (source-comment node))
; bbs)))
(write `(DEBUG bbs ,bbs))
(newline)
)