~ubuntu-branches/debian/squeeze/cmucl/squeeze

« back to all changes in this revision

Viewing changes to src/code/sap.lisp

Committer: Bazaar Package Importer
Author(s): Peter Van Eynde
Date: 2009-02-18 05:50:05 UTC
mfrom: (0.2.2 upstream)
Revision ID: james.westby@ubuntu.com-20090218055005-kt6ookdcasemovhl

Tags: 19e-20080501-2

* fix brown bag bug: use cmucl in script, not lisp
* New version should Fixes: #483331 because of asm change

files added:
src/bootfiles/19c/boot-2006-11-1-cross-ppc.lisp

src/bootfiles/19d

src/bootfiles/19d/boot-19e.lisp

src/bootfiles/19d/boot-2007-05-1-ppc.lisp

src/bootfiles/19d/boot-2007-11-1.lisp

src/bootfiles/19d/boot-2007-11-2.lisp

src/bootfiles/19d/boot-2007-12-1.lisp

src/clx/CHANGES

src/clx/NEWS

src/clx/README

src/clx/README-CMUCL

src/clx/README-R5

src/clx/big-requests.lisp

src/clx/build-clx.lisp

src/clx/clx-module.lisp

src/clx/cmudep.lisp

src/clx/demo/README

src/clx/demo/clclock.lisp

src/clx/demo/clipboard.lisp

src/clx/demo/clx-demos.lisp

src/clx/demo/gl-test.lisp

src/clx/demo/mandel.lisp

src/clx/dep-allegro.lisp

src/clx/dep-openmcl.lisp

src/clx/dpms.lisp

src/clx/exclMakefile

src/clx/exclREADME

src/clx/excldefsys.lisp

src/clx/excldep.c

src/clx/excldep.lisp

src/clx/generalock.lisp

src/clx/gl.lisp

src/clx/glx.lisp

src/clx/provide.lisp

src/clx/shape.lisp

src/clx/sockcl.lisp

src/clx/socket.c

src/clx/test/README

src/clx/xrender.lisp

src/clx/xvidmode.lisp

src/code/env-access.lisp

src/code/extfmts.lisp

src/docs/cmu-user/typehtml.dtx

src/docs/cmu-user/typehtml.ins

src/docs/cmu-user/typehtml.sty

src/docs/internals/executable.tex

src/general-info/release-19e.txt

src/lisp/Config.x86_darwin

src/lisp/elf.h

src/lisp/exec-init.c

src/pcl/simple-streams/external-formats/iso8859-1.lisp

src/pcl/simple-streams/external-formats/void.lisp

src/tools/FreeBSD-cmucl-linker-script

src/tools/Linux-cmucl-linker-script

src/tools/SunOS-cmucl-linker-script

src/tools/linker.sh

files removed:
debian/links

src/lisp/socket.c

files modified:
Makefile

debian/NEWS

debian/changelog

debian/control

debian/postinst

debian/preinst

debian/prerm

debian/rules

own-work/cmucl-run.1

own-work/cmucl-script.sh

src/assembly/ppc/assem-rtns.lisp

src/assembly/ppc/support.lisp

src/assembly/x86/array.lisp

src/assembly/x86/assem-rtns.lisp

src/clx/attributes.lisp

src/clx/buffer.lisp

src/clx/bufmac.lisp

src/clx/clx.lisp

src/clx/debug/debug.lisp

src/clx/debug/describe.lisp

src/clx/debug/event-test.lisp

src/clx/debug/keytrans.lisp

src/clx/debug/trace.lisp

src/clx/debug/util.lisp

src/clx/defsystem.lisp

src/clx/demo/bezier.lisp

src/clx/demo/beziertest.lisp

src/clx/demo/hello.lisp

src/clx/demo/menu.lisp

src/clx/demo/zoid.lisp

src/clx/depdefs.lisp

src/clx/dependent.lisp

src/clx/display.lisp

src/clx/fonts.lisp

src/clx/gcontext.lisp

src/clx/graphics.lisp

src/clx/image.lisp

src/clx/input.lisp

src/clx/keysyms.lisp

src/clx/macros.lisp

src/clx/manager.lisp

src/clx/package.lisp

src/clx/requests.lisp

src/clx/resource.lisp

src/clx/text.lisp

src/clx/translate.lisp

src/code/alieneval.lisp

src/code/array.lisp

src/code/bignum.lisp

src/code/bit-bash.lisp

src/code/bsd-os.lisp

src/code/class.lisp

src/code/clx-ext.lisp

src/code/debug-int.lisp

src/code/defstruct.lisp

src/code/describe.lisp

src/code/eval.lisp

src/code/exports.lisp

src/code/fd-stream.lisp

src/code/filesys.lisp

src/code/float-trap.lisp

src/code/float.lisp

src/code/format.lisp

src/code/hash-new.lisp

src/code/internet.lisp

src/code/interr.lisp

src/code/irrat-dd.lisp

src/code/irrat.lisp

src/code/linux-os.lisp

src/code/lispinit.lisp

src/code/load.lisp

src/code/macros.lisp

src/code/misc.lisp

src/code/ntrace.lisp

src/code/numbers.lisp

src/code/parse-time.lisp

src/code/pathname.lisp

src/code/ppc-vm.lisp

src/code/print.lisp

src/code/rand-mt19937.lisp

src/code/reader.lisp

src/code/sap.lisp

src/code/save.lisp

src/code/sharpm.lisp

src/code/sparc-svr4-vm.lisp

src/code/stream-vector-io.lisp

src/code/sunos-os.lisp

src/code/time.lisp

src/code/type.lisp

src/code/unix-glibc2.lisp

src/code/unix.lisp

src/code/x86-vm.lisp

src/compiler/byte-comp.lisp

src/compiler/float-tran.lisp

src/compiler/fndb.lisp

src/compiler/generic/new-genesis.lisp

src/compiler/generic/objdef.lisp

src/compiler/generic/vm-tran.lisp

src/compiler/globaldb.lisp

src/compiler/ir1opt.lisp

src/compiler/ir2tran.lisp

src/compiler/locall.lisp

src/compiler/macros.lisp

src/compiler/ppc/alloc.lisp

src/compiler/ppc/arith.lisp

src/compiler/ppc/call.lisp

src/compiler/ppc/float.lisp

src/compiler/ppc/insts.lisp

src/compiler/ppc/macros.lisp

src/compiler/ppc/parms.lisp

src/compiler/proclaim.lisp

src/compiler/saptran.lisp

src/compiler/sparc/float.lisp

src/compiler/sparc/parms.lisp

src/compiler/srctran.lisp

src/compiler/x86/c-call.lisp

src/compiler/x86/call.lisp

src/compiler/x86/float.lisp

src/compiler/x86/nlx.lisp

src/compiler/x86/parms.lisp

src/compiler/x86/print.lisp

src/compiler/x86/sap.lisp

src/compiler/x86/values.lisp

src/contrib/games/feebs/feebs.lisp

src/docs/cmu-user/Makefile

src/docs/cmu-user/aliens.tex

src/docs/cmu-user/cmu-user.tex

src/docs/cmu-user/compiler-hint.tex

src/docs/cmu-user/extensions.tex

src/docs/cmu-user/hierarchical-packages.tex

src/docs/cmu-user/package-locks.tex

src/docs/cmu-user/serve-event.tex

src/docs/cmu-user/simple-streams.tex

src/docs/internals/back.tex

src/docs/internals/compiler-overview.tex

src/docs/internals/debugger.tex

src/docs/internals/fasl.tex

src/docs/internals/front.tex

src/docs/internals/glossary.tex

src/docs/internals/interpreter.tex

src/docs/internals/middle.tex

src/docs/internals/object.tex

src/docs/internals/retargeting.tex

src/docs/internals/vm.tex

src/general-info/lisp.1

src/general-info/release-19d.txt

src/lisp/Config.FreeBSD_gencgc

src/lisp/Config.linux

src/lisp/Config.linux_gencgc

src/lisp/Config.ppc_darwin

src/lisp/Darwin-os.c

src/lisp/Darwin-os.h

src/lisp/FreeBSD-os.c

src/lisp/FreeBSD-os.h

src/lisp/GNUmakefile

src/lisp/Linux-os.c

src/lisp/Linux-os.h

src/lisp/NetBSD-os.c

src/lisp/NetBSD-os.h

src/lisp/OpenBSD-os.c

src/lisp/OpenBSD-os.h

src/lisp/alpha-arch.c

src/lisp/amd64-arch.c

src/lisp/amd64-lispregs.h

src/lisp/arch.h

src/lisp/breakpoint.c

src/lisp/coreparse.c

src/lisp/elf.c

src/lisp/gc.c

src/lisp/gencgc.c

src/lisp/interrupt.c

src/lisp/interrupt.h

src/lisp/irix-os.c

src/lisp/lisp.c

src/lisp/mach-os.c

src/lisp/mips-arch.c

src/lisp/os-common.c

src/lisp/os.h

src/lisp/osf1-os.c

src/lisp/ppc-arch.c

src/lisp/ppc-validate.h

src/lisp/purify.c

src/lisp/save.c

src/lisp/solaris-os.c

src/lisp/sparc-arch.c

src/lisp/sunos-os.c

src/lisp/sunos-os.h

src/lisp/undefineds.h

src/lisp/validate.c

src/lisp/x86-arch.c

src/lisp/x86-assem.S

src/lisp/x86-lispregs.h

src/lisp/x86-validate.h

src/motif/server/Config.Darwin

src/motif/server/callbacks.c

src/motif/server/datatrans.c

src/motif/server/events.c

src/motif/server/functions.h

src/motif/server/list.c

src/motif/server/main.c

src/motif/server/message.c

src/motif/server/motif.c

src/motif/server/packet.c

src/motif/server/requests.c

src/motif/server/resources.c

src/motif/server/server.c

src/motif/server/tables.c

src/motif/server/text.c

src/motif/server/translations.c

src/motif/server/widgets.c

src/motif/server/xmstring.c

src/pcl/braid.lisp

src/pcl/ctor.lisp

src/pcl/gray-streams.lisp

src/pcl/low.lisp

src/pcl/rt/ctor.lisp

src/pcl/rt/system.lisp

src/pcl/simple-streams/classes.lisp

src/pcl/simple-streams/direct.lisp

src/pcl/simple-streams/external-formats/utf-8.lisp

src/pcl/simple-streams/file.lisp

src/pcl/simple-streams/internal.lisp

src/pcl/simple-streams/rt/simple-streams-test.lisp

src/pcl/simple-streams/strategy.lisp

src/pcl/simple-streams/string.lisp

src/pcl/std-class.lisp

src/tools/build-utils.sh

src/tools/build-world.sh

src/tools/build.sh

src/tools/clxcom.lisp

src/tools/create-target.sh

src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp

src/tools/cross-scripts/cross-sparc-sparc.lisp

src/tools/cross-scripts/cross-x86-x86.lisp

src/tools/load-world.sh

src/tools/make-dist.sh

src/tools/make-main-dist.sh

src/tools/pclcom.lisp

src/tools/worldcom.lisp

src/tools/worldload.lisp

Show diffs side-by-side

added added

removed removed

src/code/sap.lisp

;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

"$Header: /project/cmucl/cvsroot/src/code/sap.lisp,v 1.18 2003/10/15 13:16:37 toy Exp $")

"$Header: /project/cmucl/cvsroot/src/code/sap.lisp,v 1.19 2008/01/03 11:41:52 cshapiro Exp $")

;;;

;;; **********************************************************************

;;;

220

(type double-float new-value))

221

(setf (sap-ref-double sap offset) new-value))

222

223

#+long-float

223

#+(or x86 long-float)

224

(defun %set-sap-ref-long (sap offset new-value)

225

(declare (type system-area-pointer sap)

226

(fixnum offset)

Older »