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

Modified Files: textmode.lisp Log Message: Added variable *compiler-physical-segment-prefix*, similar to *compiler-local-segment-prefix* etc.

Date: Mon Aug 9 07:39:46 2004 Author: ffjeld

Index: movitz/losp/x86-pc/textmode.lisp diff -u movitz/losp/x86-pc/textmode.lisp:1.9 movitz/losp/x86-pc/textmode.lisp:1.10 --- movitz/losp/x86-pc/textmode.lisp:1.9 Thu Jul 29 05:48:35 2004 +++ movitz/losp/x86-pc/textmode.lisp Mon Aug 9 07:39:46 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.9 2004/07/29 12:48:35 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.10 2004/08/09 14:39:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -116,8 +116,8 @@ (:shrl 1 :ebx) (:jz 'end-copy-loop) copy-loop - ((:gs-override) :movl (:eax :ebx -4) :ecx) - ((:gs-override) :movl :ecx (:edx :ebx -4)) + (#.movitz:*compiler-physical-segment-prefix* :movl (:eax :ebx -4) :ecx) + (#.movitz:*compiler-physical-segment-prefix* :movl :ecx (:edx :ebx -4)) (:subl 4 :ebx) (:ja 'copy-loop) end-copy-loop @@ -180,26 +180,27 @@ (:shrl #.movitz:+movitz-fixnum-shift+ :ebx) (:movb 2 :cl)

- ((:gs-override) :movl #x07000700 (:ebx 0)) - ((:gs-override) :movl #x07000700 (:ebx 4)) - ((:gs-override) :movl #x07000700 (:ebx 8)) - ((:gs-override) :movl #x07000700 (:ebx 12)) + (,movitz:*compiler-physical-segment-prefix* + :movl #x07000700 (:ebx 0)) + (,movitz:*compiler-physical-segment-prefix* :movl #x07000700 (:ebx 4)) + (,movitz:*compiler-physical-segment-prefix* :movl #x07000700 (:ebx 8)) + (,movitz:*compiler-physical-segment-prefix* :movl #x07000700 (:ebx 12)) ,loop-label

(:andl #x0f0f0f0f :eax) (:addl #x30303030 :eax)

(:cmpb #x39 :al) (:jle ',l1) (:addb 7 :al) - ,l1 ((:gs-override) :movb :al (14 :ebx)) ; 8 + ,l1 (,movitz:*compiler-physical-segment-prefix* :movb :al (14 :ebx)) ; 8 (:cmpb #x39 :ah) (:jle ',l2) (:addb 7 :ah) - ,l2 ((:gs-override) :movb :ah (10 :ebx)) ; 6 + ,l2 (,movitz:*compiler-physical-segment-prefix* :movb :ah (10 :ebx)) ; 6

(:shrl 16 :eax)

(:cmpb #x39 :al) (:jle ',l3) (:addb 7 :al) - ,l3 ((:gs-override) :movb :al (6 :ebx)) ; 4 + ,l3 (,movitz:*compiler-physical-segment-prefix* :movb :al (6 :ebx)) ; 4 (:cmpb #x39 :ah) (:jle ',l4) (:addb 7 :ah) - ,l4 ((:gs-override) :movb :ah (2 :ebx)) ; 2 + ,l4 (,movitz:*compiler-physical-segment-prefix* :movb :ah (2 :ebx)) ; 2

(:movl :edx :eax) (:shrl 4 :eax)