[movitz-cvs] CVS update: movitz/losp/los0.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	los0.lisp 
Log Message:
*** empty log message ***
Date: Tue May  3 22:13:09 2005
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.40 movitz/losp/los0.lisp:1.41
--- movitz/losp/los0.lisp:1.40	Sun Apr 24 18:46:03 2005
+++ movitz/losp/los0.lisp	Tue May  3 22:13:07 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.40 2005/04/24 16:46:03 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.41 2005/05/03 20:13:07 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1317,35 +1317,13 @@
 			       data)))
     (muerte.ip4:tftp/ethernet-write :129.242.19.132 "movitz-screendump.txt" data
 				    :quiet t
-				    :mac (muerte.ip4::polling-arp ip4::*ip4-router*
-								  (lambda ()
-								    (eql #\escape (muerte.x86-pc.keyboard:poll-char)))))))
-
-(defun mumbojumbo (x)
-  (with-inline-assembly (:returns :eax)
-    (:compile-form (:result-mode :untagged-fixnum-ecx) x)
-    (:movl 0 :eax)
-    (:cmpl -1 :ecx)
-    (:jno 'no-overflow)
-    (:movl 4 :eax)
-   no-overflow))
+				    :mac (muerte.ip4::polling-arp
+					  muerte.ip4::*ip4-router*
+					  (lambda ()
+					    (eql #\escape (muerte.x86-pc.keyboard:poll-char)))))))
 
 (defvar *segment-descriptor-table*)
 
-(defun threading ()
-  (let* ((thread (muerte::clone-run-time-context :name 'subthread))
-	 (stack (make-array 1022 :element-type '(unsigned-byte 32))))
-    (setf (segment-descriptor *segment-descriptor-table* 8)
-      (segment-descriptor *segment-descriptor-table* (truncate (segment-register :fs) 8)))
-    (warn "Thread ~S FS base: ~S"
-	  thread
-	  (setf (segment-descriptor-base-location *segment-descriptor-table* 8)
-	    (+ (object-location thread)
-	       (muerte::location-physical-offset))))
-    (format *terminal-io* "~&Switching...")
-    (setf (segment-register :fs) (* 8 8))
-    (format *terminal-io* "ok.~%")
-    (values thread stack)))
 
 (defun genesis ()
   ;; (install-shallow-binding)
@@ -1358,7 +1336,7 @@
     (format t "Extended memory: ~D KB~%" extended-memsize)
 
     (idt-init)
-    
+
     (setf *segment-descriptor-table*	; Ensure we have a GDT with 16 entries, in static-space.
       (muerte::install-global-segment-table
        (muerte::dump-global-segment-table :entries 16)))