[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv8704

Modified Files:
	primitive-functions.lisp 
Log Message:
Removed some dead debugging code.

Date: Wed Aug  4 06:00:33 2004
Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.36 movitz/losp/muerte/primitive-functions.lisp:1.37
--- movitz/losp/muerte/primitive-functions.lisp:1.36	Sat Jul 31 16:35:03 2004
+++ movitz/losp/muerte/primitive-functions.lisp	Wed Aug  4 06:00:33 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Oct  2 21:02:18 2001
 ;;;;                
-;;;; $Id: primitive-functions.lisp,v 1.36 2004/07/31 23:35:03 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.37 2004/08/04 13:00:33 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -430,7 +430,6 @@
     (:leal (:ebx :ecx) :edx)		; new roof to EDX
     (:cmpl :edx (:eax))			; end of buffer?
     (:jl '(:sub-program (failed)
-	   (:movl (:eax) :esi)
 	   (:int 112)
 	   (:halt)
 	   (:jmp 'failed)))
@@ -455,7 +454,6 @@
     (:leal (:ebx :ecx) :edx)		; new roof to EDX
     (:cmpl :edx (:eax))			; end of buffer?
     (:jl '(:sub-program (failed)
-	   (:movl (:eax) :esi)
 	   (:int 112)
 	   (:halt)
 	   (:jmp 'failed)))