Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv1033/src/builtin
Modified Files:
assembler.wisp codegen.wisp
Log Message:
Dropped headers from evmfuncs.
Index: assembler.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/assembler.wisp,v
retrieving revision 1.155
retrieving revision 1.156
diff -u -d -r1.155 -r1.156
--- assembler.wisp 26 Aug 2002 16:18:22 -0000 1.155
+++ assembler.wisp 4 Sep 2002 14:40:13 -0000 1.156
@@ -86,13 +86,6 @@
((rvl)
(emit (dict-ref *ihs-by-name* 'li))
(emit (asm ((decui (cdr ins))) p vs mat takervec addat mta)))
- ((header)
- (my data (cdr ins)
- (emit (decui (length data)))
- (for-each (lambda (datum)
- (emit datum)
- (set! (dict-ref h datum) '()))
- data)))
((-))
(else (raise 'invalid-intercode-instruction ins)))))))
(cdr! iclist)))))
Index: codegen.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/codegen.wisp,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -d -r1.65 -r1.66
--- codegen.wisp 26 Aug 2002 16:18:23 -0000 1.65
+++ codegen.wisp 4 Sep 2002 14:40:13 -0000 1.66
@@ -604,10 +604,6 @@
(my code (collect
(lambda (emit)
(emit meta)
- (my l (gen-label)
- (emit (cons 'j l))
- (emit 'header)
- (emit l))
(if (= level 1)
(begin
(emit 'home)
@@ -733,8 +729,6 @@
(my lc (cdr (assq 'local-count meta))
(if (not (zero? lc))
(emit (cons 'hop lc)))))
- ((eq? ins 'header)
- (emit (list 'header))) ; the header slots go in this list
(else
(emit ins))))
(let (loop (l l))
|
