movitz-cvs July 2004

movitz-cvs@common-lisp.net

2 participants
376 discussions

[movitz-cvs] CVS update: movitz/ide/movitz-slime.el movitz/ide/ide.lisp
by Luke Gorrie 21 Jul '04

21 Jul '04

Update of /project/movitz/cvsroot/movitz/ide In directory common-lisp.net:/tmp/cvs-serv4064/ide Added Files: movitz-slime.el ide.lisp Log Message: Date: Wed Jul 21 03:54:42 2004 Author: lgorrie

1 0

[movitz-cvs] CVS update: Directory change: movitz/ide
by Luke Gorrie 21 Jul '04

21 Jul '04

Update of /project/movitz/cvsroot/movitz/ide In directory common-lisp.net:/tmp/cvs-serv16128/ide Log Message: Directory /project/movitz/cvsroot/movitz/ide added to the repository Date: Wed Jul 21 03:47:24 2004 Author: lgorrie New directory movitz/ide added

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp
by Frode Vatvedt Fjeld 20 Jul '04

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv25217 Modified Files: debugger.lisp Log Message: Some tweaks to backtrace. Date: Tue Jul 20 16:53:48 2004 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.17 movitz/losp/x86-pc/debugger.lisp:1.18 --- movitz/losp/x86-pc/debugger.lisp:1.17 Tue Jul 20 05:40:48 2004 +++ movitz/losp/x86-pc/debugger.lisp Tue Jul 20 16:53:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.17 2004/07/20 12:40:48 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.18 2004/07/20 23:53:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -431,8 +431,10 @@ (serious-condition (conditon) (write-string "#<error printing frame>")))) -(defun backtrace (&key ((:frame initial-stack-frame) - (or *debugger-invoked-stack-frame* +(defun backtrace (&key stack + ((:frame initial-stack-frame) + (or (and stack (svref%unsafe stack 0)) + *debugger-invoked-stack-frame* (current-stack-frame))) ((:spartan *backtrace-be-spartan-p*)) ((:fresh-lines *backtrace-do-fresh-lines*) *backtrace-do-fresh-lines*) @@ -445,7 +447,10 @@ (*print-length* *backtrace-print-length*) (*print-level* *backtrace-print-level*)) (loop with conflate-count = 0 with count = 0 - for stack-frame = initial-stack-frame then (stack-frame-uplink stack-frame) + for stack-frame = initial-stack-frame + then (let ((uplink (stack-frame-uplink stack-frame))) + (assert (> uplink stack-frame)) + uplink) as funobj = (stack-frame-funobj stack-frame t) do (flet ((print-leadin (stack-frame count conflate-count) (when *backtrace-do-fresh-lines*

1 0

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

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11057 Modified Files: inspect.lisp Log Message: Wrote function copy-control-stack, which does that. Date: Tue Jul 20 16:53:00 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.26 movitz/losp/muerte/inspect.lisp:1.27 --- movitz/losp/muerte/inspect.lisp:1.26 Tue Jul 20 05:37:59 2004 +++ movitz/losp/muerte/inspect.lisp Tue Jul 20 16:53:00 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.26 2004/07/20 12:37:59 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.27 2004/07/20 23:53:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -105,8 +105,8 @@ (<= bottom pointer top))) (defun stack-ref (pointer offset index type) - (assert (stack-ref-p pointer) (pointer) - "Stack pointer not in range: #x~X" pointer) + #+ignore (assert (stack-ref-p pointer) (pointer) + "Stack pointer not in range: #x~X" pointer) (memref-int pointer offset index type)) (defun current-dynamic-context () @@ -336,3 +336,25 @@ #.(movitz::movitz-type-word-size :movitz-struct) (* 2 (truncate (+ (structure-object-length object) 1) 2)))))))) + +(defun copy-control-stack (&optional (stack (%run-time-context-slot 'stack-vector)) + (frame (current-stack-frame))) + (assert (location-in-object-p stack frame)) + (let* ((stack-start-location (+ 2 (object-location stack))) + (frame-index (- frame stack-start-location)) + (copy (subseq stack frame-index)) + (copy-start-location (+ 2 (object-location copy))) + (cc (subseq copy 0))) + (do ((i 0)) (nil) + (let ((uplink-frame (svref%unsafe copy i))) + (cond + ((= 0 uplink-frame) + (setf (svref%unsafe copy i) 0) + (return (values copy cc))) + (t (let ((uplink-index (- uplink-frame stack-start-location frame-index))) + (assert (< -1 uplink-index (length copy)) () + "Uplink-index outside copy: ~S, i: ~S" uplink-index i) + (let ((x (+ uplink-index copy-start-location))) + (assert (location-in-object-p copy x)) + (setf (svref%unsafe copy i) x) + (setf i uplink-index)))))))))

1 0

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

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv26465 Modified Files: primitive-functions.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc. Date: Tue Jul 20 16:51:19 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.32 movitz/losp/muerte/primitive-functions.lisp:1.33 --- movitz/losp/muerte/primitive-functions.lisp:1.32 Tue Jul 20 06:00:00 2004 +++ movitz/losp/muerte/primitive-functions.lisp Tue Jul 20 16:51:19 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.32 2004/07/20 13:00:00 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.33 2004/07/20 23:51:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,13 +19,6 @@ (in-package muerte) -(defmacro define-primitive-function (function-name lambda-list docstring &body body) - (declare (ignore lambda-list)) - (assert (stringp docstring) (docstring) - "Mandatory docstring for define-primitive-function.") - `(make-primitive-function ,function-name ,docstring - ,(cons 'cl:progn body))) - (define-primitive-function trampoline-funcall%1op () "Call a function with 1 argument" (with-inline-assembly (:returns :nothing) @@ -470,23 +463,13 @@ (:leal (:eax :ecx 6) :eax) (:ret))) -(define-compiler-macro malloc-pointer-words (words) - `(with-inline-assembly (:returns :eax :type pointer) - (:compile-form (:result-mode :eax) ,words) - (:call-local-pf malloc-pointer-words))) - (defun malloc-pointer-words (words) (check-type words (integer 2 *)) - (malloc-pointer-words words)) - -(define-compiler-macro malloc-non-pointer-words (words) - `(with-inline-assembly (:returns :eax :type pointer) - (:compile-form (:result-mode :eax) ,words) - (:call-local-pf malloc-non-pointer-words))) + (compiler-macro-call malloc-pointer-words words)) (defun malloc-non-pointer-words (words) (check-type words (integer 2 *)) - (malloc-non-pointer-words words)) + (compiler-macro-call malloc-non-pointer-words words)) (define-primitive-function muerte::get-cons-pointer () "Return in EAX the next object location with space for EAX words, with tag 6.

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/more-macros.lisp
by Frode Vatvedt Fjeld 20 Jul '04

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24960 Modified Files: more-macros.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc. Date: Tue Jul 20 16:51:15 2004 Author: ffjeld Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.15 movitz/losp/muerte/more-macros.lisp:1.16 --- movitz/losp/muerte/more-macros.lisp:1.15 Tue Jul 20 01:54:34 2004 +++ movitz/losp/muerte/more-macros.lisp Tue Jul 20 16:51:15 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.15 2004/07/20 08:54:34 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.16 2004/07/20 23:51:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -339,6 +339,27 @@ (movitz::lu32 `(with-inline-assembly (:returns :untagged-fixnum-ecx) (:locally (:movl (:edi (:edi-offset ,slot-name)) :ecx)))))))) + +(define-compiler-macro malloc-pointer-words (words) + `(with-inline-assembly (:returns :eax :type pointer) + (:compile-form (:result-mode :eax) ,words) + (:call-local-pf malloc-pointer-words))) + +(define-compiler-macro malloc-non-pointer-words (words) + `(with-inline-assembly (:returns :eax :type pointer) + (:compile-form (:result-mode :eax) ,words) + (:call-local-pf malloc-non-pointer-words))) + +(define-compiler-macro read-time-stamp-counter () + `(with-inline-assembly-case () + (do-case (:register :same) + (:std) + (:rdtsc) + (:movl :edi :edx) + (:leal ((:eax ,movitz:+movitz-fixnum-factor+)) (:result-register)) + (:cld)) + (do-case (t :multiple-values) + (:compile-form (:result-mode :multiple-values) (no-macro-call read-time-stamp-counter))))) ;;; Some macros that aren't implemented, and we want to give compiler errors.

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette.lisp
by Frode Vatvedt Fjeld 20 Jul '04

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24065 Modified Files: los-closette.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc. Date: Tue Jul 20 16:51:10 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.15 movitz/losp/muerte/los-closette.lisp:1.16 --- movitz/losp/muerte/los-closette.lisp:1.15 Tue Jul 20 01:54:24 2004 +++ movitz/losp/muerte/los-closette.lisp Tue Jul 20 16:51:10 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.15 2004/07/20 08:54:24 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.16 2004/07/20 23:51:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -983,7 +983,7 @@ (defclass rational (real) () (:metaclass built-in-class)) (defclass integer (rational) () (:metaclass built-in-class)) (defclass fixnum (integer) () (:metaclass built-in-class)) -;; (defclass ratio (rational) () (:metaclass built-in-class)) +(defclass ratio (rational) () (:metaclass built-in-class)) (defclass float (real) () (:metaclass built-in-class)) (defclass complex (number) () (:metaclass built-in-class))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/cpu-id.lisp
by Frode Vatvedt Fjeld 20 Jul '04

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23872 Modified Files: cpu-id.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc. Date: Tue Jul 20 16:51:05 2004 Author: ffjeld Index: movitz/losp/muerte/cpu-id.lisp diff -u movitz/losp/muerte/cpu-id.lisp:1.6 movitz/losp/muerte/cpu-id.lisp:1.7 --- movitz/losp/muerte/cpu-id.lisp:1.6 Mon Jul 12 19:27:20 2004 +++ movitz/losp/muerte/cpu-id.lisp Tue Jul 20 16:51:05 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Apr 15 22:47:13 2002 ;;;; -;;;; $Id: cpu-id.lisp,v 1.6 2004/07/13 02:27:20 ffjeld Exp $ +;;;; $Id: cpu-id.lisp,v 1.7 2004/07/20 23:51:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -204,17 +204,6 @@ (:cld) (:movl 2 :ecx) (:stc))) - -(define-compiler-macro read-time-stamp-counter () - `(with-inline-assembly-case () - (do-case (:register :same) - (:std) - (:rdtsc) - (:movl :edi :edx) - (:leal ((:eax ,movitz:+movitz-fixnum-factor+)) (:result-register)) - (:cld)) - (do-case (t :multiple-values) - (:compile-form (:result-mode :multiple-values) (no-macro-call read-time-stamp-counter))))) (defun clear-time-stamp-counter () "Reset the i686 time-stamp-counter.

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/common-lisp.lisp
by Frode Vatvedt Fjeld 20 Jul '04

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv22528 Modified Files: common-lisp.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc. Date: Tue Jul 20 16:51:01 2004 Author: ffjeld Index: movitz/losp/muerte/common-lisp.lisp diff -u movitz/losp/muerte/common-lisp.lisp:1.10 movitz/losp/muerte/common-lisp.lisp:1.11 --- movitz/losp/muerte/common-lisp.lisp:1.10 Sat Jul 17 14:27:16 2004 +++ movitz/losp/muerte/common-lisp.lisp Tue Jul 20 16:51:01 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:41:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: common-lisp.lisp,v 1.10 2004/07/17 21:27:16 ffjeld Exp $ +;;;; $Id: common-lisp.lisp,v 1.11 2004/07/20 23:51:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,11 +18,11 @@ (require :muerte/more-macros) (require :muerte/arithmetic-macros) (require :muerte/memref) +(require :muerte/integers) (require :muerte/basic-functions) (require :muerte/variables) (require :muerte/primitive-functions) (require :muerte/equalp) -(require :muerte/integers) (require :muerte/typep) (require :muerte/functions) (require :muerte/lists)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp
by Frode Vatvedt Fjeld 20 Jul '04

20 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv21536 Modified Files: basic-macros.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc. Date: Tue Jul 20 16:50:56 2004 Author: ffjeld Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.27 movitz/losp/muerte/basic-macros.lisp:1.28 --- movitz/losp/muerte/basic-macros.lisp:1.27 Thu Jul 15 14:06:46 2004 +++ movitz/losp/muerte/basic-macros.lisp Tue Jul 20 16:50:56 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.27 2004/07/15 21:06:46 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.28 2004/07/20 23:50:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -61,6 +61,13 @@ `(progn (muerte::define-compiler-macro-compile-time ,name ,lambda-list ,body) ',name)) + +(defmacro define-primitive-function (function-name lambda-list docstring &body body) + (declare (ignore lambda-list)) + (assert (stringp docstring) (docstring) + "Mandatory docstring for define-primitive-function.") + `(make-primitive-function ,function-name ,docstring + ,(cons 'cl:progn body))) (defmacro defpackage (package-name &rest options) (pushnew '(:use) options :key #'car)

1 0

← Newer
1
...
11
12
13
14
15
16
17
...
38
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 July 2004