[Wisp-cvs] wisp/src/builtin assembler.wisp,1.155,1.156 codegen.wisp,1.65,1.66

[<di...@us...>]

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))