movitz-cvs March 2004

movitz-cvs@common-lisp.net

1 participants
131 discussions

[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv12544 Modified Files: arrays.lisp Log Message: Set initial-contents when make-array a string. Date: Sun Mar 28 11:20:44 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.11 movitz/losp/muerte/arrays.lisp:1.12 --- movitz/losp/muerte/arrays.lisp:1.11 Fri Mar 26 08:56:53 2004 +++ movitz/losp/muerte/arrays.lisp Sun Mar 28 11:20:44 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.11 2004/03/26 13:56:53 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.12 2004/03/28 16:20:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -516,9 +516,14 @@ 0 :unsigned-byte16) dimensions) (setf (fill-pointer a) fill-pointer) - (when initial-element + (cond + (initial-element + (check-type initial-element character) (dotimes (i dimensions) (setf (char%unsafe a i) initial-element))) + (initial-contents + (dotimes (i dimensions) + (setf (char a i) (elt initial-contents i))))) a)) ((member element-type '(u8 (unsigned-byte 8)) :test #'equal) (let ((a (inline-malloc (+ #.(bt:sizeof 'movitz::movitz-vector) dimensions)

1 0

[movitz-cvs] CVS update: movitz/special-operators.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7776 Modified Files: special-operators.lisp Log Message: Removed a couple of useless warnings. Date: Sun Mar 28 11:20:05 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.15 movitz/special-operators.lisp:1.16 --- movitz/special-operators.lisp:1.15 Fri Feb 20 21:04:50 2004 +++ movitz/special-operators.lisp Sun Mar 28 11:20:05 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.15 2004/02/21 02:04:50 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.16 2004/03/28 16:20:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -958,15 +958,16 @@ :protect-registers ,(cons protected-register protect-registers)))))))) (t ;; just put the (singular) result of form1 on the stack.. - (when (not (typep cover-returns 'keyword)) - ;; if it's a (non-modified) lexical-binding, we can do better.. - (warn "Covering non-register ~S" cover-returns)) - (when (type-specifier-singleton (type-specifier-primary cover-type)) - (warn "Covering constant ~S" - (type-specifier-singleton cover-type))) +;;; (when (not (typep cover-returns 'keyword)) +;;; ;; if it's a (non-modified) lexical-binding, we can do better.. +;;; (warn "Covering non-register ~S" cover-returns)) +;;; (when (type-specifier-singleton (type-specifier-primary cover-type)) +;;; (warn "Covering constant ~S" +;;; (type-specifier-singleton cover-type))) (let ((protected-register (case cover-returns ((:ebx :ecx :edx) cover-returns) (t :eax)))) + #+ignore (when (>= 2 (length cloaked-code)) (warn "simple-cloaking for ~S: ~{~&~S~}" cover-returns cloaked-code)) (setf (stack-used cloaked-env) 1)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/memref.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv2104 Modified Files: memref.lisp Log Message: Added a proper (setf memref .. :unsigned-byte32). Date: Sun Mar 28 11:19:20 2004 Author: ffjeld Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.3 movitz/losp/muerte/memref.lisp:1.4 --- movitz/losp/muerte/memref.lisp:1.3 Fri Mar 26 08:58:27 2004 +++ movitz/losp/muerte/memref.lisp Sun Mar 28 11:19:20 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 6 21:25:49 2001 ;;;; -;;;; $Id: memref.lisp,v 1.3 2004/03/26 13:58:27 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.4 2004/03/28 16:19:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -205,6 +205,18 @@ (:sarl #.movitz::+movitz-fixnum-shift+ :ebx) (:popl :ecx) ; object (:movb :ah (:ebx :ecx)))) + (:unsigned-byte32 + (assert (= 4 movitz::+movitz-fixnum-factor+)) + `(with-inline-assembly (:returns :untagged-fixnum-eax) + (:compile-form (:result-mode :push) ,object) + (:compile-form (:result-mode :push) ,offset) + (:compile-two-forms (:ebx :eax) ,index ,value) + (:popl :ecx) ; offset + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:sarl #.movitz::+movitz-fixnum-shift+ :ecx) + (:addl :ebx :ecx) ; index += offset + (:popl :ebx) ; object + (:movl :eax (:ebx :ecx)))) (:unsigned-byte16 `(with-inline-assembly (:returns :untagged-fixnum-eax) (:compile-form (:result-mode :push) ,object) @@ -214,8 +226,8 @@ (:popl :ecx) ; offset (:shrl #.movitz::+movitz-fixnum-shift+ :eax) (:sarl #.movitz::+movitz-fixnum-shift+ :ecx) - (:addl :ecx :ebx) ; index += offset - (:popl :ecx) ; object + (:addl :ebx :ecx) ; index += offset + (:popl :ebx) ; object (:movw :ax (:ebx :ecx)))) (:unsigned-byte8 `(with-inline-assembly (:returns :untagged-fixnum-eax) @@ -252,9 +264,7 @@ (:unsigned-byte16 (setf (memref object offset index :unsigned-byte16) value)) (:unsigned-byte32 - (setf (memref object offset (* index 2) :unsigned-byte16) (ldb (byte 16 0) value) - (memref object offset (+ 1 (* index 2)) :unsigned-byte16) (ldb (byte 14 16) value)) - value) + (setf (memref object offset index :unsigned-byte32) value)) (:lisp (setf (memref object offset index :lisp) value))))

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv28916 Modified Files: compiler.lisp Log Message: A small fix to assign-bindings so that certain lambda-variables are not erroneously assumed to be used when they really aren't. Date: Sun Mar 28 10:09:27 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.36 movitz/compiler.lisp:1.37 --- movitz/compiler.lisp:1.36 Thu Mar 25 20:34:13 2004 +++ movitz/compiler.lisp Sun Mar 28 10:09:27 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.36 2004/03/26 01:34:13 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.37 2004/03/28 15:09:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -2618,7 +2618,8 @@ ((typep binding 'constant-object-binding)) ((typep binding 'forwarding-binding)) ((typep binding 'borrowed-binding)) - ((typep binding 'fixed-required-function-argument) + ((and (typep binding 'fixed-required-function-argument) + (plusp (or (car (gethash binding var-counts)) 0))) (prog1 nil ; may need lending-cons (setf (new-binding-location binding frame-map) :argument-stack)))

1 0

[movitz-cvs] CVS update: movitz/slime-movitz.el
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv15840 Modified Files: slime-movitz.el Log Message: Undid broken line in header. Date: Sun Mar 28 08:37:16 2004 Author: ffjeld Index: movitz/slime-movitz.el diff -u movitz/slime-movitz.el:1.1 movitz/slime-movitz.el:1.2 --- movitz/slime-movitz.el:1.1 Wed Mar 17 03:26:50 2004 +++ movitz/slime-movitz.el Sun Mar 28 08:37:16 2004 @@ -1,5 +1,4 @@ -;;; -*- mode: emacs-lisp; mode: outline-minor; outline-regexp: ";;;;*"; -indent-tabs-mode: nil -*- +;;; -*- mode: emacs-lisp; mode: outline-minor; outline-regexp: nil *indent-tabs-mode: nil -*- ;; movitz-slime.el -- Slime key bindings for Movitz, adapted from ;; movitz-mode.el by Frode Vatvedt Fjeld ;; Copyright (C) 2004 Aleksandar Bakic

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/interrupt.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv10109 Modified Files: interrupt.lisp Log Message: Added a dependency on x86-pc/debugger, so as to fix the package error. Actually, the debugger should be relocated to inside Muerte proper. Date: Sun Mar 28 08:35:45 2004 Author: ffjeld Index: movitz/losp/x86-pc/interrupt.lisp diff -u movitz/losp/x86-pc/interrupt.lisp:1.5 movitz/losp/x86-pc/interrupt.lisp:1.6 --- movitz/losp/x86-pc/interrupt.lisp:1.5 Thu Mar 25 20:51:21 2004 +++ movitz/losp/x86-pc/interrupt.lisp Sun Mar 28 08:35:45 2004 @@ -10,11 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri May 4 18:08:50 2001 ;;;; -;;;; $Id: interrupt.lisp,v 1.5 2004/03/26 01:51:21 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.6 2004/03/28 13:35:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :x86-pc/pic8259) +(require :x86-pc/debugger) (provide :x86-pc/interrupt) (in-package muerte.x86-pc)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/eval.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19008 Modified Files: eval.lisp Log Message: Have eval-let properly parse declarations. So now evaluating let will properly interpret e.g. (let ((#0=#:foo 2)) (declare (special #0#)) (symbol-value '#0#)) => 2 Date: Sun Mar 28 08:23:57 2004 Author: ffjeld Index: movitz/losp/muerte/eval.lisp diff -u movitz/losp/muerte/eval.lisp:1.2 movitz/losp/muerte/eval.lisp:1.3 --- movitz/losp/muerte/eval.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/eval.lisp Sun Mar 28 08:23:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 19 21:15:12 2001 ;;;; -;;;; $Id: eval.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.3 2004/03/28 13:23:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -276,7 +276,7 @@ special-values (local-env env)) (multiple-value-bind (body declarations) - declarations-and-body + (parse-declarations-and-body declarations-and-body) (dolist (var-spec var-specs) (multiple-value-bind (var init-form) (if (atom var-spec)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv22316 Modified Files: inspect.lisp Log Message: Initialize properly with nil the fresh objects from malloc-clumps. Date: Fri Mar 26 09:05:20 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.3 movitz/losp/muerte/inspect.lisp:1.4 --- movitz/losp/muerte/inspect.lisp:1.3 Thu Mar 25 20:49:11 2004 +++ movitz/losp/muerte/inspect.lisp Fri Mar 26 09:05:20 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.3 2004/03/26 01:49:11 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.4 2004/03/26 14:05:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -179,6 +179,6 @@ (:globally (:call (:edi (:edi-offset malloc)))) (:addl #.(movitz::tag :other) :eax)))) (dotimes (i clumps) - (setf (memref x -6 i :lisp) nil - (memref x -2 i :lisp) nil)) + (setf (memref x -6 (* i 2) :lisp) nil + (memref x -2 (* i 2) :lisp) nil)) x))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/memref.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv12460 Modified Files: memref.lisp Log Message: Added a rather stupid version of (setf memref) for :unsigned-byte32 Date: Fri Mar 26 08:58:28 2004 Author: ffjeld Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.2 movitz/losp/muerte/memref.lisp:1.3 --- movitz/losp/muerte/memref.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/memref.lisp Fri Mar 26 08:58:27 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 6 21:25:49 2001 ;;;; -;;;; $Id: memref.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.3 2004/03/26 13:58:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -250,7 +250,11 @@ (:unsigned-byte8 (setf (memref object offset index :unsigned-byte8) value)) (:unsigned-byte16 - (setf (memref object offset index :unsigned-byte8) value)) + (setf (memref object offset index :unsigned-byte16) value)) + (:unsigned-byte32 + (setf (memref object offset (* index 2) :unsigned-byte16) (ldb (byte 16 0) value) + (memref object offset (+ 1 (* index 2)) :unsigned-byte16) (ldb (byte 14 16) value)) + value) (:lisp (setf (memref object offset index :lisp) value))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/functions.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv10209 Modified Files: functions.lisp Log Message: In copy-funobj, calculate the size of the new object correctly. Date: Fri Mar 26 08:58:01 2004 Author: ffjeld Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.5 movitz/losp/muerte/functions.lisp:1.6 --- movitz/losp/muerte/functions.lisp:1.5 Wed Mar 24 15:40:40 2004 +++ movitz/losp/muerte/functions.lisp Fri Mar 26 08:58:01 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 12 22:58:54 2002 ;;;; -;;;; $Id: functions.lisp,v 1.5 2004/03/24 20:40:40 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.6 2004/03/26 13:58:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -373,13 +373,12 @@ (defun copy-funobj (old-funobj &optional (name (funobj-name old-funobj))) (let* ((num-constants (funobj-num-constants old-funobj)) - (funobj (malloc-words (+ #.(cl:truncate (bt:sizeof 'movitz:movitz-funobj) 4) + (funobj (malloc-words (+ -2 #.(cl:truncate (bt:sizeof 'movitz:movitz-funobj) 4) num-constants)))) (setf (memref funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:type) 0 :unsigned-byte16) (memref old-funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:type) 0 :unsigned-byte16)) (setf (funobj-num-constants funobj) num-constants) (replace-funobj funobj old-funobj name))) - (defun install-funobj-name (name funobj) (setf (funobj-name funobj) name)

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
14
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs March 2004