/[cmucl]/src/code/array.lisp
ViewVC logotype

Log of /src/code/array.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Links to HEAD: (view) (annotate)
Sticky Tag:

Revision 1.55 - (view) (annotate) - [select for diffs]
Mon Jul 26 17:20:26 2010 UTC (3 years, 8 months ago) by rtoy
Branch: MAIN
CVS Tags: GIT-CONVERSION, HEAD, RELEASE_20b, cross-sol-x86-2010-12-20, cross-sol-x86-base, cross-sol-x86-merged, cross-sparc-branch-base, release-20b-pre1, release-20b-pre2, snapshot-2010-08, snapshot-2010-11, snapshot-2010-12, snapshot-2011-01, snapshot-2011-02, snapshot-2011-03, snapshot-2011-04, snapshot-2011-06, snapshot-2011-07, snapshot-2011-09
Branch point for: RELEASE-20B-BRANCH, cross-sol-x86-branch, cross-sparc-branch
Changes since 1.54: +19 -10 lines
Diff to previous 1.54
compiler/fndb.lisp:
o Tell compiler that the :allocation option to make-array only takes
  nil and :malloc.

code/array.lisp:
o Add declaration for :allocation to make-array so that we can catch
  invalid values for :allocation.
o Add variable *debug-static-array-p* to enable debugging messages
  when GC'ing static arrays.

Revision 1.54 - (view) (annotate) - [select for diffs]
Tue Apr 20 17:57:43 2010 UTC (4 years ago) by rtoy
Branch: MAIN
CVS Tags: snapshot-2010-05, snapshot-2010-06, snapshot-2010-07, sparc-tramp-assem-2010-07-19, sparc-tramp-assem-base
Branch point for: sparc-tramp-assem-branch
Changes since 1.53: +58 -58 lines
Diff to previous 1.53
Change uses of _"foo" to (intl:gettext "foo").  This is because slime
may get confused with source locations if the reader macros are
installed.

Revision 1.53 - (view) (annotate) - [select for diffs]
Mon Apr 19 02:18:03 2010 UTC (4 years ago) by rtoy
Branch: MAIN
Changes since 1.52: +29 -29 lines
Diff to previous 1.52
Remove _N"" reader macro from docstrings when possible.

Revision 1.52 - (view) (annotate) - [select for diffs]
Fri Mar 19 15:18:58 2010 UTC (4 years, 1 month ago) by rtoy
Branch: MAIN
CVS Tags: post-merge-intl-branch, snapshot-2010-04
Changes since 1.51: +120 -112 lines
Diff to previous 1.51
Merge intl-branch 2010-03-18 to HEAD.  To build, you need to use
boot-2010-02-1 as the bootstrap file.  You should probably also use
the new -P option for build.sh to generate and update the po files
while building.

Revision 1.51.2.4 - (view) (annotate) - [select for diffs]
Tue Mar 2 13:45:54 2010 UTC (4 years, 1 month ago) by rtoy
Branch: intl-branch
CVS Tags: intl-branch-2010-03-18-1300
Changes since 1.51.2.3: +11 -7 lines
Diff to previous 1.51.2.3 , to branch point 1.51 , to next main 1.55
Convert strings containing ~:P to use ngettext for proper
translations.

Revision 1.51.4.1 - (view) (annotate) - [select for diffs]
Thu Feb 25 20:34:48 2010 UTC (4 years, 1 month ago) by rtoy
Branch: intl-2-branch
Changes since 1.51: +78 -76 lines
Diff to previous 1.51 , to next main 1.55
Restart internalization work.  This new branch starts with code from
the intl-branch on date 2010-02-12 18:00:00+0500.  This version works
and

LANG=en@piglatin bin/lisp

works (once the piglatin translation is added).

Revision 1.51.2.3 - (view) (annotate) - [select for diffs]
Fri Feb 12 14:46:55 2010 UTC (4 years, 2 months ago) by rtoy
Branch: intl-branch
CVS Tags: intl-branch-working-2010-02-19-1000
Changes since 1.51.2.2: +36 -34 lines
Diff to previous 1.51.2.2 , to branch point 1.51
The docstrings for the bit-foo functions need to be marked in a
different way.  Call note-translations directly so we have the correct
translated docstrings.

Revision 1.51.2.2 - (view) (annotate) - [select for diffs]
Mon Feb 8 20:21:44 2010 UTC (4 years, 2 months ago) by rtoy
Branch: intl-branch
CVS Tags: intl-branch-working-2010-02-11-1000
Changes since 1.51.2.1: +76 -76 lines
Diff to previous 1.51.2.1 , to branch point 1.51
Mark translatable strings.

Revision 1.51.2.1 - (view) (annotate) - [select for diffs]
Mon Feb 8 17:15:46 2010 UTC (4 years, 2 months ago) by rtoy
Branch: intl-branch
Changes since 1.51: +3 -1 lines
Diff to previous 1.51
Add (intl:textdomain "cmucl") to the files to set the textdomain.

Revision 1.51 - (view) (annotate) - [select for diffs]
Thu Jan 28 15:02:13 2010 UTC (4 years, 2 months ago) by rtoy
Branch: MAIN
CVS Tags: intl-2-branch-base, intl-branch-base, pre-merge-intl-branch, snapshot-2010-02, snapshot-2010-03
Branch point for: intl-2-branch, intl-branch
Changes since 1.50: +2 -3 lines
Diff to previous 1.50
Oops.  Debugging print for FREE-STATIC-VECTOR was in the wrong place.

Revision 1.50 - (view) (annotate) - [select for diffs]
Sun Dec 6 19:08:15 2009 UTC (4 years, 4 months ago) by rtoy
Branch: MAIN
CVS Tags: snapshot-2010-01
Changes since 1.49: +67 -67 lines
Diff to previous 1.49
o Have MAKE-STATIC-VECTOR push the weak pointer onto *STATIC-VECTORS*
  instead of spreading it everywhere.
o Add WITHOUT-GCING in MAKE-STATIC-VECTOR to make sure nothing moves.
  (Not sure this is necessary.)
o Do the same in FREE-STATIC-VECTOR
o Add WITHOUT-INTERRUPTS in FINALIZE-STATIC-VECTORS to make sure clear
  the weak pointer value and actually free the vector.

Revision 1.49 - (view) (annotate) - [select for diffs]
Sat Dec 5 03:20:36 2009 UTC (4 years, 4 months ago) by rtoy
Branch: MAIN
Changes since 1.48: +69 -21 lines
Diff to previous 1.48
First cut at GCing static vectors, including static simple-arrays.
This is done by a simple mark-and-sweep GC of the static vectors.
When scavenging the spaces, we mark any static vectors by setting the
MSB of the header word.  After GC is done, an *after-gc-hooks*
function finds all of the static vectors that are not marked and frees
them.  For marked static vectors, we clear the mark bit.

code/array.lisp:
o Add *STATIC-VECTORS* to keep track of all static vectors that have
  been allocated.
o Update MAKE-ARRAY
  - to allow generation of static simple unboxed arrays (1D arrays
    without an array header).
  - Push a weak pointer to the static vector onto *STATIC-VECTORS*
o Add function FREE-STATIC-VECTOR
o Add function FINALIZE-STATIC-VECTORS to free static vectors when
  they are no longer referenced.

lisp/gencgc.c:
o Update scavenge to check for static vectors.  If we find a static
  vector, mark the static vector by setting the MSB of the header
  word.

Revision 1.48 - (view) (annotate) - [select for diffs]
Tue Dec 1 14:14:59 2009 UTC (4 years, 4 months ago) by rtoy
Branch: MAIN
Changes since 1.47: +12 -11 lines
Diff to previous 1.47
o Change allocation to use :malloc instead of :static, as suggested by
  Carl.
o Clean up implementation a bit so that we don't have :malloc all over.

Revision 1.47 - (view) (annotate) - [select for diffs]
Mon Nov 30 15:47:07 2009 UTC (4 years, 4 months ago) by rtoy
Branch: MAIN
Changes since 1.46: +25 -2 lines
Diff to previous 1.46
Expand the docstring from MAKE-ARRAY.

Revision 1.46 - (view) (annotate) - [select for diffs]
Mon Nov 30 14:52:38 2009 UTC (4 years, 4 months ago) by rtoy
Branch: MAIN
Changes since 1.45: +90 -14 lines
Diff to previous 1.45
Add support for static arrays that are not moved by GC.  This is based
on an idea from Carl and Lynn Quam's foreign vector code that he sent
many years ago.  The static arrays will be GCed if nothing references
them.

The static arrays are currently limited to strings, 8, 16, and 32-bit
integers (signed and unsigned), single and double floats, and complex
single and double floats.  Static arrays are not adjustable because
adjusting an array can change the address if the array grows.  (Ok
if the array shrinks, but not implemented.)

To indicate a static array, the data portion of the vector header word
is set to 1.  It is normally 0 for all other Lisp vectors.

code/array.lisp:
o Add :ALLOCATION keyword arg to MAKE-ARRAY to allow allocation of
  static vectors.  Do the appropriate thing for static arrays.
o Add MAKE-STATIC-VECTOR.  This is Lynn's foreign vector stuff
  rewritten in Lisp instead of the original mix of Lisp and C.
o Add STATIC-ARRAY-P to tell if an array is static or not.
o Signal errors in MAKE-ARRAY and ADJUST-ARRAY for invalid options
  with static arrays.

code/describe.lisp:
o Indicate if the array is static.

compiler/fndb.lisp:
o Tell compiler about new keyword argument, :allocation, for
  MAKE-ARRAY.

Revision 1.45 - (view) (annotate) - [select for diffs]
Wed Sep 9 15:51:27 2009 UTC (4 years, 7 months ago) by rtoy
Branch: MAIN
CVS Tags: amd64-dd-start, snapshot-2009-11, snapshot-2009-12, unicode-string-buffer-base, unicode-string-buffer-impl-base
Branch point for: amd64-dd-branch, unicode-string-buffer-branch, unicode-string-buffer-impl-branch
Changes since 1.44: +2 -2 lines
Diff to previous 1.44
Merge changes from 20a-pre1 (tag release-20a-pre1) to trunk.

Revision 1.44.4.1 - (view) (annotate) - [select for diffs]
Thu Aug 27 15:41:39 2009 UTC (4 years, 7 months ago) by rtoy
Branch: RELEASE-20A-BRANCH
CVS Tags: RELEASE_20a, release-20a-pre1
Changes since 1.44: +2 -2 lines
Diff to previous 1.44 , to next main 1.55
Silence warning about not using the result of adjust-array.

Revision 1.44 - (view) (annotate) - [select for diffs]
Thu Jun 11 16:03:57 2009 UTC (4 years, 10 months ago) by rtoy
Branch: MAIN
CVS Tags: merged-unicode-utf16-extfmt-2009-06-11, portable-clx-base, portable-clx-import-2009-06-16, release-20a-base, snapshot-2009-07, snapshot-2009-08
Branch point for: RELEASE-20A-BRANCH, portable-clx-branch
Changes since 1.43: +2 -2 lines
Diff to previous 1.43
Merge Unicode work to trunk.  From label
unicode-utf16-extfmt-2009-06-11.

Revision 1.43.4.2 - (view) (annotate) - [select for diffs]
Fri May 30 17:30:38 2008 UTC (5 years, 10 months ago) by rtoy
Branch: unicode-utf16-branch
CVS Tags: unicode-snapshot-2009-05, unicode-snapshot-2009-06, unicode-utf16-char-support-2009-03-25, unicode-utf16-char-support-2009-03-26, unicode-utf16-extfmt-2009-03-27, unicode-utf16-extfmt-2009-06-11, unicode-utf16-extfmts-pre-sync-2008-11, unicode-utf16-extfmts-sync-2008-12, unicode-utf16-sync-2008-07, unicode-utf16-sync-2008-09, unicode-utf16-sync-2008-11, unicode-utf16-sync-2008-12, unicode-utf16-sync-label-2009-03-16
Branch point for: unicode-utf16-extfmt-branch
Changes since 1.43.4.1: +2 -5 lines
Diff to previous 1.43.4.1 , to branch point 1.43 , to next main 1.55
code/array.lisp:
o Use char-bits to specify the array element size.  This allows us to
  remove the unicode conditionals.

compiler/generic/vm-tran.lisp:
o Use char-bits appropriately in the deftransforms.  This allows use
  to remove the unicode versions.
o Remove the unicode versions.

Revision 1.43.4.1 - (view) (annotate) - [select for diffs]
Wed May 14 16:12:04 2008 UTC (5 years, 11 months ago) by rtoy
Branch: unicode-utf16-branch
CVS Tags: unicode-utf16-string-support
Changes since 1.43: +4 -1 lines
Diff to previous 1.43
Initial checkin of unicode branch.  This is incomplete.

What works:
o Cross-compile works on sparc and a lisp.core is created.  This core
  is able to build code and appears to use 16-bit strings.

What doesn't:
o The sparc version is not able to rebuild itself.  It hangs when
  trying to create a new lisp.core.
o The x86 version will cross-compile, but worldload fails.  The files
  being loaded have bizarre names.  Probably some deftransform not
  working correctly.

Issues:
o Characters are still essentially 8 bits.  This needs to be fixed.
o All input/output is basically still 8 bits.  Only the low 8 bits of
  a character are output.  For input, characters are assumed to be
  8-bit.
o No external formats or anything is supported.
o Readtable support not done.


Use boot-2008-05-cross-unicode-{sparc,x86}.lisp to cross-compile the
unicode changes.

Untested whether this code can still be compiled without :unicode.

Changes:

code/array.lisp:
o Base-char strings are 16 bits wide, not 8.

code/c-call.lisp:
o Define versions of DEPORT-GEN, %NATURALIZE-C-STRING to "handle"
  unicode strings.

code/debug-info.lisp:
o Adjust READ-VAR-STRING to use 16-bit strings.  (Needed to at least
  to make the disassembler work.)

code/debug.lisp:
o Add address when printing out objects that can't be printed.
  (Generally useful and not just for unicode.)

code/fd-stream.lisp:
o Hack output routines to only use the low 8-bits of the character.
  (This needs significant work!)

code/filesys.lisp:
o Some debugging %primitive prints left in, but commented out, in
  PARSE-UNIX-NAMESTRING.

code/lispinit.lisp:
o Debugging %primitive print's for top-level forms.

code/load.lisp:
o Update FOP-SHORT-CHARACTER for unicode.  But still only output the
  low 8 bits of a character to a fasl/core.  This needs updating.
o Hack routines for symbols to explicitly read in the individual bytes
  of the symbol/package name because READ-N-BYTES isn't working for us
  right now.
o Update FOP-STRING/FOP-SMALL-STRING to read in 16-bit elements for
  strings.  Full 16-bit strings supported.
o Currently only write 8-bit chars for foreign names.  This needs
  fixing.

code/misc.lisp:
o Register :unicode runtime feature.

code/pathname.lisp:
o Debugging %primitive prints left in, but commented out.

code/stream.lisp:
o Replace %primitive byte-blt with REPLACE for now to get the desired
  characters.

code/unix-glibc2.lisp:
o Workaround for unix-current-directory to return 16-bit strings.
  (Not necessary anymore?)
o UNIX-RESOLVE-LINKS doesn't seem to like MAKE-STRING with an
  INITIAL-ELEMENT specified.  Remove initial-element.  (Needs fixing.)

code/unix.lisp:
o Same as for unix-glibc2.lisp

compiler/array-tran.lisp:
o Turn off the MAKE-STRING deftransform.
o Update ARRAY-INFO to create 16-bit arrays for an element-type of
  base-char.

compiler/dump.lisp:
o Only dump 8-bit chars to a fasl for foreign fixups.
o Explicitly dump the characters of symbol name.  DUMP-BYTES not quite
  working for us now?
o Make DUMP-SIMPLE-STRING dump all 16 bits of each character.
o Characters are dumped as the low 8 bits.  Needs fixing.

compiler/generic/new-genesis.lisp:
o STRING-TO-CORE writes 16-bit strings to the core file.
o FOP-SHORT-CHARACTER for unicode added, but we still only write 8
  bits to the core.  (Needs fixing.)
o COLD-LOAD-SYMBOL modified to read 16-bit characters from the fasl
  file to create a symbol.
o FOP-UNINTERNED-SYMBOL-SAVE and FOP-UNINTERNED-SMALL-SYMBOL-SAVE
  reads 16-bit characters for symbol names.
o FOP-STRING/FOP-SMALL-STRING reads 16-bit characters for strings.
o FOP-FOREIGN-FIXUP and FOP-FOREIGN-DATA-FIXUP still only read 8-bit
  characters for foreign names.  (Needs fixing.)

compiler/generic/vm-tran.lisp:
o New deftransforms to support unicode.  Not the most efficient but
  should be workable for now.  Old deftransforms didn't copy enough
  bits.
o Deftransform for concatenate completely disabled.  This needs
  fixing.

compiler/sparc/array.lisp:
o Change simple-string accessor to use halfword accessors instead of
  byte accessors.

compiler/x86/array.lisp:
o Change simple-string accessor to use halfword accessors instead of
  byte accessors.

lisp/Config.linux_gencgc:
o Define -DUNICODE as needed

lisp/Config.sun4_solaris_sunc
o Define -DUNICODE as needed.

lisp/alloc.c:
o alloc_string needs to allocate 16-bit strings

lisp/backtrace.c:
o Tell ldb backtrace how to print out 16-bit strings.  This is a hack!

lisp/gencgc.c:
o Tell GC how long the 16-bit strings are now.

lisp/interr.c:
o Not really needed but make debug_print (aka %primitive print)
  support all objects by calling ldb's print function to print the
  object.

lisp/os-common.c:
o Add hack convert_lisp_string to take a 16-bit Lisp string and create
  a new string containing just the low 8 bits of each Lisp character.
o OS foreign linkage stuff needs 8-bit strings, so we need to convert
  Lisp strings to the desired size.  Very hackish!

lisp/print.c:
o Teach ldb how to print Lisp 16-bit strings.  Currently, just dump
  out each byte of the 16-bit string.  This needs major work!

lisp/purify.c:
o Teach purify about the 16-bit strings.

Revision 1.43 - (view) (annotate) - [select for diffs]
Wed Jun 20 17:33:08 2007 UTC (6 years, 10 months ago) by rtoy
Branch: MAIN
CVS Tags: RELEASE_19f, label-2009-03-16, label-2009-03-25, merge-sse2-packed, merge-with-19f, pre-telent-clx, release-19e, release-19e-base, release-19e-pre1, release-19e-pre2, release-19f-base, release-19f-pre1, snapshot-2007-07, snapshot-2007-08, snapshot-2007-09, snapshot-2007-10, snapshot-2007-11, snapshot-2007-12, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, snapshot-2008-04, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2008-08, snapshot-2008-09, snapshot-2008-10, snapshot-2008-11, snapshot-2008-12, snapshot-2009-01, snapshot-2009-02, snapshot-2009-04, snapshot-2009-05, sse2-base, sse2-checkpoint-2008-10-01, sse2-merge-with-2008-10, sse2-merge-with-2008-11, sse2-packed-2008-11-12, sse2-packed-base, unicode-utf16-base
Branch point for: RELEASE-19F-BRANCH, release-19e-branch, sse2-branch, sse2-packed-branch, unicode-utf16-branch
Changes since 1.42: +9 -3 lines
Diff to previous 1.42
Displaced arrays should have element types that are type equivalent.
Signal an error if they're not.

(Previously, only checked to see if the element-type was a subtype of
the displaced-to array.)

Revision 1.42 - (view) (annotate) - [select for diffs]
Sat Jan 13 01:16:30 2007 UTC (7 years, 3 months ago) by fgilham
Branch: MAIN
CVS Tags: snapshot-2007-02, snapshot-2007-03, snapshot-2007-04, snapshot-2007-05, snapshot-2007-06
Changes since 1.41: +2 -2 lines
Diff to previous 1.41
Backing out previous patch which didn't actually make sense.

Revision 1.41 - (view) (annotate) - [select for diffs]
Thu Jan 11 22:11:08 2007 UTC (7 years, 3 months ago) by fgilham
Branch: MAIN
Changes since 1.40: +2 -2 lines
Diff to previous 1.40
Fix bug in vector-push-extend where (adjust-array) is called but the
return value is discarded.  Since (adjust-array) may return a new
array, this is wrong.

Revision 1.40 - (view) (annotate) - [select for diffs]
Fri Jun 30 18:41:22 2006 UTC (7 years, 9 months ago) by rtoy
Branch: MAIN
CVS Tags: release-19d, release-19d-base, release-19d-pre1, release-19d-pre2, snapshot-2006-07, snapshot-2006-08, snapshot-2006-09, snapshot-2006-10, snapshot-2006-11, snapshot-2006-12, snapshot-2007-01
Branch point for: release-19d-branch
Changes since 1.39: +24 -4 lines
Diff to previous 1.39
This large checkin merges the double-double float support to HEAD.
The merge is from the tag "double-double-irrat-end".  The
double-double branch is now obsolete.

The code should build without double-double support (tested on sparc)
as well as build with double-double support (tested also on sparc).

Revision 1.39.10.3 - (view) (annotate) - [select for diffs]
Sat Jun 24 19:44:02 2006 UTC (7 years, 10 months ago) by rtoy
Branch: double-double-array-branch
CVS Tags: double-double-array-checkpoint, double-double-irrat-end, double-double-irrat-start
Changes since 1.39.10.2: +8 -2 lines
Diff to previous 1.39.10.2 , to branch point 1.39 , to next main 1.55
Tell SHRINK-VECTOR how to shrink arrays with element-type
double-double-float and complex double-double-float.

Revision 1.39.10.2 - (view) (annotate) - [select for diffs]
Wed Jun 21 18:38:44 2006 UTC (7 years, 10 months ago) by rtoy
Branch: double-double-array-branch
CVS Tags: double-double-sparc-checkpoint-1
Changes since 1.39.10.1: +10 -3 lines
Diff to previous 1.39.10.1 , to branch point 1.39
Add support for (simple-array (complex double-double-float) (*)).

bootfiles/19c/boot-2006-06-2-cross-dd-sparc.lisp:
o Update for new array type.
o Fix a problem with ash-left-mod32 and lognot-mod32 not being
  defined.

code/array.lisp:
o Add new array type for %vector-type-code.
o Tell data-vector-ref, data-vector-set, and array-element-type about
  the new array.

code/class.lisp:
o Add new array type to the set of built-in classes.

code/exports.lisp:
o Export necessary symbols for the new array type.

code/pred.lisp:
o Generate type predicate for new array type.

compiler/array-tran.lisp:
o Add new array type to array-info.

compiler/generic/objdef.lisp:
o Add new array type code.

compiler/generic/primtype.lisp:
o Add new primitive type for this new array type.
o Update *simple-array-primitive-types* with new array type.

compiler/generic/vm-fndb.lisp:
o Defknown for new array type.

compiler/generic/vm-type.lisp:
o Update specialized-array-element-types with new type so we can
  create specialized arrays.

compiler/generic/vm-typetran.lisp:
o Tell compiler about predicate for the new array type.

compiler/sparc/array.lisp:
o Add new vops to read and write elements to our new array type.

compiler/sparc/type-vops.lisp:
o Add type vop for new array type.
o Adjust type hierarchy with new array type.

lisp/gencgc.c:
o Tell GC about the new array type.

lisp/purify.c
o Tell purify about the new array type.

Revision 1.39.10.1 - (view) (annotate) - [select for diffs]
Fri Jun 16 03:46:58 2006 UTC (7 years, 10 months ago) by rtoy
Branch: double-double-array-branch
Changes since 1.39: +8 -1 lines
Diff to previous 1.39
Add support for new unboxed primitive type (simple-array
double-double-float (*)).

bootfiles/19c/boot-2006-06-2-cross-dd-ppc.lisp:
o Cross-compile script for PPC for new array type.

code/array.lisp:
o Add simple-array double-double-float to the vector types.
o Add support for double-double-float arrays to data-vector-ref and
  data-vector-set.

code/class.lisp:
o Tell compiler about the new array type.

code/exports.lisp:
o Export necessary symbols for the new array.

code/kernel.lisp:
o The args to MAKE-DOUBLE-DOUBLE-FLOAT are double-floats.

code/pred.lisp:
o Tell type system about new primitive type.

compiler/array-tran.lisp:
o Tell compiler about the new array type.

compiler/generic/objedef.lisp:
o Add new type code

compiler/generic/primtype.lisp:
o Tell compiler about new primitive array type.

compiler/generic/vm-fndb.lisp:
o Tell compiler about known function for type test function.

compiler/generic/vm-type.lisp:
o Tell compiler about new specialized array type.

compiler/generic/vm-typetran.lisp:
o Define type predicate.

compiler/ppc/array.lisp:
o Add vops to read and write an element of a double-double-float
  simple array.

compiler/ppc/type-vops.lisp:
compiler/sparc/type-vops.lisp:
o Add type vop for new array type.
o Tell compiler about the where the new array type fits in the type
  hierarchy.

lisp/gencgc.c:
o Add GC support for new array type.

lisp/purify.c:
o Add purify support for new array type.

Revision 1.38.4.2 - (view) (annotate) - [select for diffs]
Mon Dec 19 01:09:48 2005 UTC (8 years, 4 months ago) by rtoy
Branch: ppc_gencgc_branch
CVS Tags: ppc_gencgc_snap_2005-12-17, ppc_gencgc_snap_2006-01-06
Changes since 1.38.4.1: +0 -0 lines
Diff to previous 1.38.4.1 , to branch point 1.38 , to next main 1.55
Merge code from main branch of 2005-12-17 to ppc gencgc branch.  Still
doesn't work of course.

Revision 1.38.4.1 - (view) (annotate) - [select for diffs]
Sun May 15 20:01:20 2005 UTC (8 years, 11 months ago) by rtoy
Branch: ppc_gencgc_branch
Changes since 1.38: +3 -5 lines
Diff to previous 1.38
Merge snapshot-2005-05 to this branch.

Revision 1.39 - (view) (annotate) - [select for diffs]
Wed Apr 13 11:59:23 2005 UTC (9 years ago) by pwerkowski
Branch: MAIN
CVS Tags: double-double-array-base, double-double-base, double-double-init-%make-sparc, double-double-init-checkpoint-1, double-double-init-ppc, double-double-init-sparc, double-double-init-sparc-2, double-double-init-x86, double-double-reader-base, double-double-reader-checkpoint-1, release-19b-base, release-19b-pre1, release-19b-pre2, release-19c, release-19c-base, release-19c-pre1, snapshot-2005-05, snapshot-2005-06, snapshot-2005-07, snapshot-2005-08, snapshot-2005-09, snapshot-2005-10, snapshot-2005-11, snapshot-2005-12, snapshot-2006-01, snapshot-2006-02, snapshot-2006-03, snapshot-2006-04, snapshot-2006-05, snapshot-2006-06
Branch point for: double-double-array-branch, double-double-branch, double-double-reader-branch, release-19b-branch, release-19c-branch
Changes since 1.38: +3 -5 lines
Diff to previous 1.38
Back out improper use of condition SIMPLE-TYPE-ERROR in AREF.
AFAICT, ANSI does not specify any type of exceptional condition for
array bounds errors, and a type-error doesn't seem appropriate here.
Reverting to SIMPLE-ERROR.

Revision 1.38 - (view) (annotate) - [select for diffs]
Tue Apr 6 17:18:03 2004 UTC (10 years ago) by emarsden
Branch: MAIN
CVS Tags: amd64-merge-start, ppc_gencgc_snap_2005-05-14, prm-before-macosx-merge-tag, release-19a, release-19a-base, release-19a-pre1, release-19a-pre2, release-19a-pre3, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, snapshot-2004-08, snapshot-2004-09, snapshot-2004-10, snapshot-2004-11, snapshot-2004-12, snapshot-2005-01, snapshot-2005-02, snapshot-2005-03, snapshot-2005-04
Branch point for: ppc_gencgc_branch, release-19a-branch
Changes since 1.37: +29 -21 lines
Diff to previous 1.37
Two unrelated fixes to ADJUST-ARRAY:

  - (adjust-array (make-array nil :initial-element 'zob) nil)
    was losing the :initial-element information

  - ADJUST-ARRAY was sometimes returning the same array despite
    ADJUSTABLE-ARRAY-P returning nil for that array (fix from SBCL)

Fixes a number of AJUST-ARRAY.* tests in Paul Dietz's ANSI compliance
suite.

Revision 1.37 - (view) (annotate) - [select for diffs]
Wed Jul 23 09:39:25 2003 UTC (10 years, 9 months ago) by gerd
Branch: MAIN
CVS Tags: dynamic-extent-base, lisp-executable-base, mod-arith-base, snapshot-2003-10, snapshot-2003-11, snapshot-2003-12, snapshot-2004-04, sparc_gencgc, sparc_gencgc_merge
Branch point for: dynamic-extent, lisp-executable, mod-arith-branch, sparc_gencgc_branch
Changes since 1.36: +21 -18 lines
Diff to previous 1.36
	(aref (make-array nil :initial-contents nil)) returned 0 instead
	of nil.  From Alexey Dejneka/SBCL.

	* src/code/array.lisp (make-array, adjust-array): Add supplied-p
	parameter for initial-contents and use it.
	(data-vector-from-inits): Add initial-contents-p parameter.

Revision 1.36 - (view) (annotate) - [select for diffs]
Tue Jul 15 19:12:27 2003 UTC (10 years, 9 months ago) by gerd
Branch: MAIN
Changes since 1.35: +5 -3 lines
Diff to previous 1.35
	* src/code/array.lisp (%array-row-major-index): Signal
	type-error for invalid indices.

Revision 1.35 - (view) (annotate) - [select for diffs]
Mon May 5 12:04:26 2003 UTC (10 years, 11 months ago) by emarsden
Branch: MAIN
Changes since 1.34: +2 -7 lines
Diff to previous 1.34
  Remove obsolete alias from MAKE-VECTOR to MAKE-ARRAY (internal to CL
  package)

Revision 1.34 - (view) (annotate) - [select for diffs]
Mon Feb 24 10:07:00 2003 UTC (11 years, 2 months ago) by emarsden
Branch: MAIN
CVS Tags: cold-pcl-base, release-18e, release-18e-base, release-18e-pre1, release-18e-pre2, remove_negative_zero_not_zero
Branch point for: cold-pcl, release-18e-branch
Changes since 1.33: +34 -30 lines
Diff to previous 1.33
Change a number of error conditions signaled by the array routines
from generic errors to conditions of type PROGRAM-ERROR.

Revision 1.33.2.1 - (view) (annotate) - [select for diffs]
Fri Oct 4 23:13:17 2002 UTC (11 years, 6 months ago) by pmai
Branch: UNICODE-BRANCH
Changes since 1.33: +22 -2 lines
Diff to previous 1.33 , to next main 1.55
Checked in Brian Spilsbury's experimental Unicode, locales, and dialect
support patchset.  This lives on its own branch, so that people can
play with it and tweak it, without disturbing 18e release engineering
on the main branch.  Bootstrapping has only been tried on LINKAGE_TABLE
x86/Linux builds.  A working cross-compile script is checked in under
bootfiles/19a/boot1-cross-unicode.lisp.  The script still leaves you
with some interactive errors, on the cross compile, which you should
answer with 2.  See the mailing list for more information.

Revision 1.33 - (view) (annotate) - [select for diffs]
Wed Jul 10 16:15:58 2002 UTC (11 years, 9 months ago) by toy
Branch: MAIN
CVS Tags: LINKAGE_TABLE, PRE_LINKAGE_TABLE, UNICODE-BASE
Branch point for: UNICODE-BRANCH
Changes since 1.32: +2 -2 lines
Diff to previous 1.32
From Eric Marsden:

 * (pcl:class-precedence-list (find-class 'null)) should have symbol
   occurring before list, as per CLHS.

 * minor changes to certain error conditions: eg trying to set
   DEFAULT-DIRECTORY to a non-existent directory should raise a
   condition of type FILE-ERROR. (Some of these changes are from
   Alexey Dejneka, via SBCL).

 * cleanup of some Hemlock-related symbols that shouldn't be exported
   when :no-hemlock is defined.

Revision 1.23.2.4 - (view) (annotate) - [select for diffs]
Sat Mar 23 18:49:51 2002 UTC (12 years, 1 month ago) by pw
Branch: RELENG_18
CVS Tags: RELEASE_18d
Changes since 1.23.2.3: +23 -12 lines
Diff to previous 1.23.2.3 , to branch point 1.23 , to next main 1.55
Mega commit to bring RELENG_18 branch in sync with HEAD in preparation
for release tagging 18d.

Revision 1.32 - (view) (annotate) - [select for diffs]
Wed Nov 21 22:45:36 2001 UTC (12 years, 5 months ago) by pmai
Branch: MAIN
Changes since 1.31: +23 -12 lines
Diff to previous 1.31
o When created displaced arrays, MAKE-ARRAY (unlike ADJUST-ARRAY)
  didn't check whether the specified element-type was a subtype of the
  array-element-type of the displaced-to array.
o One case in ADJUST-ARRAY didn't check for an array-header before
  calling %array-displaced-p on an array, so that sometimes an array
  element was accessed and checked instead.  Fixed this, and prevented
  ADJUST-ARRAY from shrinking non-adjustable arrays in-place, since
  this can violate naive user expectations for little gain.

Revision 1.23.2.3 - (view) (annotate) - [select for diffs]
Tue May 23 16:36:10 2000 UTC (13 years, 11 months ago) by pw
Branch: RELENG_18
CVS Tags: RELEASE_18c
Changes since 1.23.2.2: +36 -42 lines
Diff to previous 1.23.2.2 , to branch point 1.23
This set of revisions brings the RELENG_18 branch up to HEAD in preparation
for an 18c release.

Revision 1.31 - (view) (annotate) - [select for diffs]
Sat May 13 12:28:41 2000 UTC (13 years, 11 months ago) by dtc
Branch: MAIN
Changes since 1.30: +3 -2 lines
Diff to previous 1.30
Avoid boxing the result in data-vector-set by returning the given
new-value which is already boxed.

Revision 1.30 - (view) (annotate) - [select for diffs]
Fri May 12 20:54:36 2000 UTC (13 years, 11 months ago) by dtc
Branch: MAIN
Changes since 1.29: +5 -2 lines
Diff to previous 1.29
Fix array-displacement to correctly handle non-displaced arrays; it
wasn't even checking that the array had a header causing random data
to be returned when passed a simple-array. Ndote by Sam Steingold,
with suggestions from Raymond Toy.

Revision 1.29 - (view) (annotate) - [select for diffs]
Fri Jul 24 17:17:49 1998 UTC (15 years, 9 months ago) by dtc
Branch: MAIN
Changes since 1.28: +30 -40 lines
Diff to previous 1.28
The complex-float the signed-array features are now standard, so
remove unnecessary conditionals.

Revision 1.23.2.2 - (view) (annotate) - [select for diffs]
Sun Jul 19 01:05:59 1998 UTC (15 years, 9 months ago) by dtc
Branch: RELENG_18
CVS Tags: RELEASE_18b
Changes since 1.23.2.1: +12 -3 lines
Diff to previous 1.23.2.1 , to branch point 1.23
Update from the current main branch.

Revision 1.28 - (view) (annotate) - [select for diffs]
Thu Jul 16 13:30:42 1998 UTC (15 years, 9 months ago) by pw
Branch: MAIN
Changes since 1.27: +0 -0 lines
Diff to previous 1.27
Fixes and improvements to July-14 commit dealing with condition types
in calls to error. From Douglas.

Revision 1.27 - (view) (annotate) - [select for diffs]
Tue Jul 14 18:12:14 1998 UTC (15 years, 9 months ago) by pw
Branch: MAIN
Changes since 1.26: +12 -3 lines
Diff to previous 1.26
This revision merges in many of the fixes for ANSI condition types
in various calls to ERROR. Those easily handled by using new condition
types simple-file-error and simple-program-error are included.

The only functional change here is that the function CHARACTER no longer
accepts an integer argument so as to be ANSI compliant. This may
break some code.

Revision 1.23.2.1 - (view) (annotate) - [select for diffs]
Tue Jun 23 11:21:32 1998 UTC (15 years, 10 months ago) by pw
Branch: RELENG_18
Changes since 1.23: +44 -5 lines
Diff to previous 1.23
This (huge) revision brings the RELENG_18 branch up to the current HEAD.
Note code/unix-glib2.lisp not yet included -- not sure it is ready to go.

Revision 1.26 - (view) (annotate) - [select for diffs]
Sat Mar 21 08:11:48 1998 UTC (16 years, 1 month ago) by dtc
Branch: MAIN
Changes since 1.25: +24 -6 lines
Diff to previous 1.25
Long-float support.

Revision 1.25 - (view) (annotate) - [select for diffs]
Thu Dec 18 07:18:16 1997 UTC (16 years, 4 months ago) by dtc
Branch: MAIN
Changes since 1.24: +3 -2 lines
Diff to previous 1.24
Fix a type error in make array when allocating (complex double-float)
arrays; the number of bits is 128 in this case not (integer 1 64).

Revision 1.24 - (view) (annotate) - [select for diffs]
Sat Nov 1 22:58:07 1997 UTC (16 years, 5 months ago) by dtc
Branch: MAIN
Changes since 1.23: +24 -4 lines
Diff to previous 1.23
Improved support for (complex single-float) and (complex double-float)
types. Adds storage classes to the backend for these so they can be
stored in registers or on the stack without consing; new primitive
types etc. Also adds (simple-array (complex {single,double}-float))
array types to avoid consing and speed vectors operations.  All
these changes are conditional on the :complex-float feature. More work
is needed to exploit these changes: improving the type dispatch in the
various function; maybe compiler transforms or more VOPs to handle
common functions inline.

Revision 1.23 - (view) (annotate) - [select for diffs]
Tue Apr 1 19:23:31 1997 UTC (17 years ago) by dtc
Branch: MAIN
CVS Tags: RELEASE_18a
Branch point for: RELENG_18
Changes since 1.22: +25 -1 lines
Diff to previous 1.22
Support for some specialised signed array types: (signed-byte 8),
(signed-byte 16), (signed-byte 30), (signed-byte 32).  These patches
include the general support and the x86 backend support; more to
follow. The important changes are conditional on the :signed-array
feature so shouldn't affect the source without this feature. This work
has been driven by Raymond Toy.

Revision 1.22 - (view) (annotate) - [select for diffs]
Sun Feb 23 09:53:10 1997 UTC (17 years, 2 months ago) by dtc
Branch: MAIN
Changes since 1.21: +13 -7 lines
Diff to previous 1.21
Extend the fill-pointer patch to also check the upper limit; some
performance improvements, realp test was overkill as it must be a
fixnum.

Revision 1.21 - (view) (annotate) - [select for diffs]
Sat Feb 22 12:49:35 1997 UTC (17 years, 2 months ago) by pw
Branch: MAIN
Changes since 1.20: +3 -1 lines
Diff to previous 1.20
Adds some forgotten error messages and a few misc fixes

Revision 1.20 - (view) (annotate) - [select for diffs]
Mon Oct 31 04:11:27 1994 UTC (19 years, 5 months ago) by ram
Branch: MAIN
Changes since 1.19: +1 -3 lines
Diff to previous 1.19
Fix headed boilerplate.

Revision 1.19 - (view) (annotate) - [select for diffs]
Thu Sep 29 14:41:07 1994 UTC (19 years, 6 months ago) by ram
Branch: MAIN
Changes since 1.18: +8 -4 lines
Diff to previous 1.18
Fixed adjust-array to not flame out on arrays containing a zero-length
dimension (hence having no elements whatsoever.)

Revision 1.18 - (view) (annotate) - [select for diffs]
Fri Aug 6 13:06:05 1993 UTC (20 years, 8 months ago) by ram
Branch: MAIN
Changes since 1.17: +17 -14 lines
Diff to previous 1.17
Improved type testing and declared some functions inline.

Revision 1.17 - (view) (annotate) - [select for diffs]
Thu Dec 10 00:35:16 1992 UTC (21 years, 4 months ago) by ram
Branch: MAIN
Changes since 1.16: +2 -2 lines
Diff to previous 1.16
Export ARRAY-DISPLACEMENT.

Revision 1.16 - (view) (annotate) - [select for diffs]
Tue Mar 24 11:03:16 1992 UTC (22 years, 1 month ago) by phg
Branch: MAIN
Changes since 1.15: +46 -25 lines
Diff to previous 1.15
Adjust-array has been updated to be ANSI compliant by allowing arrays which
were not created with :adjustable non-nil to be adjusted to new dimensions.

Adjustable-array-p has been updated to ANSI standards. It returns T if adjust
ADJUST-ARRAY would return an EQ array.

Revision 1.13.1.2 - (view) (annotate) - [select for diffs] (vendor branch)
Wed Jan 15 20:45:13 1992 UTC (22 years, 3 months ago) by ram
Branch: patch_15
Changes since 1.13.1.1: +0 -4 lines
Diff to previous 1.13.1.1 , to next main 1.55
Fix lossage.

Revision 1.13.1.1 - (view) (annotate) - [select for diffs] (vendor branch)
Wed Jan 15 16:02:56 1992 UTC (22 years, 3 months ago) by ram
Branch: patch_15
Changes since 1.13: +36 -30 lines
Diff to previous 1.13
Get safe array setting in beta release.

Revision 1.15 - (view) (annotate) - [select for diffs]
Mon Dec 2 17:10:41 1991 UTC (22 years, 4 months ago) by ram
Branch: MAIN
Changes since 1.14: +32 -30 lines
Diff to previous 1.14
Changed DATA-VECTOR-SET to make sure that the new value is checked to be of the
correct type.

Revision 1.14 - (view) (annotate) - [select for diffs]
Sat Nov 9 02:47:04 1991 UTC (22 years, 5 months ago) by wlott
Branch: MAIN
Changes since 1.13: +4 -4 lines
Diff to previous 1.13
Changed BASE-CHARACTER to BASE-CHAR

Revision 1.13 - (view) (annotate) - [select for diffs]
Wed Jun 5 10:54:52 1991 UTC (22 years, 10 months ago) by wlott
Branch: MAIN
Branch point for: patch_15
Changes since 1.12: +22 -19 lines
Diff to previous 1.12
Fixed make-array to allow :initial-contents to be built out of any kind
of sequence, not just lists.

Fixed vector-push and vector-push-extend to return the original fill
pointer, not the new fill pointer.

Fixed vector-pop to return the value indexed by the new fill pointer, not
the original fill pointer.

Revision 1.12 - (view) (annotate) - [select for diffs]
Tue May 28 17:13:35 1991 UTC (22 years, 11 months ago) by ram
Branch: MAIN
Changes since 1.11: +95 -93 lines
Diff to previous 1.11
Changed MAKE-ARRAY and ADJUST-ARRAY not to assign their arguments so that type
checking will happen correctly, and backtrace will show the right value.

Revision 1.11 - (view) (annotate) - [select for diffs]
Wed May 8 15:38:00 1991 UTC (22 years, 11 months ago) by ram
Branch: MAIN
Changes since 1.10: +18 -18 lines
Diff to previous 1.10
Added (SETF BIT) and (SETF SBIT).  Renamed %APPLY-ASET to (SETF AREF).  Flushed
%APPLY-SVSET.

Revision 1.10 - (view) (annotate) - [select for diffs]
Wed Apr 24 23:48:15 1991 UTC (23 years ago) by ram
Branch: MAIN
Changes since 1.9: +40 -20 lines
Diff to previous 1.9
Replaced FIND-DATA-VECTOR with %WITH-ARRAY-DATA, which does bounds checking,
and also correctly handles multi-level displacement.
Made SVREF, et al, safe so that bounds checking is done.

Revision 1.9 - (view) (annotate) - [select for diffs]
Fri Feb 8 13:30:44 1991 UTC (23 years, 2 months ago) by ram
Branch: MAIN
Changes since 1.8: +9 -5 lines
Diff to previous 1.8
New file header with RCS header FILE-COMMENT.

Revision 1.8 - (view) (annotate) - [select for diffs]
Mon Jan 14 01:44:09 1991 UTC (23 years, 3 months ago) by wlott
Branch: MAIN
Changes since 1.7: +2 -2 lines
Diff to previous 1.7
Someone forgot to wrap a declare around an (optimize ...).

Revision 1.7 - (view) (annotate) - [select for diffs]
Sun Jan 13 23:38:31 1991 UTC (23 years, 3 months ago) by ram
Branch: MAIN
Changes since 1.6: +16 -35 lines
Diff to previous 1.6
Changed bit-array functions to use the compiler transform for
simple-bit-vector arguments.

Revision 1.6 - (view) (annotate) - [select for diffs]
Wed Dec 12 22:51:46 1990 UTC (23 years, 4 months ago) by wlott
Branch: MAIN
Changes since 1.5: +9 -2 lines
Diff to previous 1.5
Fixed %vector-type-code to return something (simple-vector-type) if someone
supplies a type of *.

Revision 1.5 - (view) (annotate) - [select for diffs]
Sat Nov 10 18:37:16 1990 UTC (23 years, 5 months ago) by wlott
Branch: MAIN
Changes since 1.4: +8 -12 lines
Diff to previous 1.4
Changed %primitive allocate-vector and make-array-header to just a call
to the magic function by the same name.

Revision 1.4 - (view) (annotate) - [select for diffs]
Wed Oct 3 09:55:22 1990 UTC (23 years, 6 months ago) by wlott
Branch: MAIN
Changes since 1.3: +4 -1 lines
Diff to previous 1.3
Added interpreter stub for %array-rank.

Revision 1.3 - (view) (annotate) - [select for diffs]
Fri Aug 24 18:10:14 1990 UTC (23 years, 8 months ago) by wlott
Branch: MAIN
Changes since 1.2: +630 -562 lines
Diff to previous 1.2
Moved MIPS branch onto trunk; no merge necessary.

Revision 1.2.1.15 - (view) (annotate) - [select for diffs] (vendor branch)
Wed Aug 15 17:46:51 1990 UTC (23 years, 8 months ago) by wlott
Changes since 1.2.1.14: +4 -4 lines
Diff to previous 1.2.1.14 , to next main 1.55
Fixed the order of args to SETF functions.

Revision 1.2.1.14 - (view) (annotate) - [select for diffs] (vendor branch)
Thu Aug 2 03:44:18 1990 UTC (23 years, 8 months ago) by wlott
Changes since 1.2.1.13: +5 -5 lines
Diff to previous 1.2.1.13
Removed the #+nil from in front of the single-float and double-float cases
in data-vector-ref and data-vector-set.

Revision 1.2.1.13 - (view) (annotate) - [select for diffs] (vendor branch)
Fri Jul 13 16:33:49 1990 UTC (23 years, 9 months ago) by wlott
Changes since 1.2.1.12: +62 -35 lines
Diff to previous 1.2.1.12
Special cased the simple-bit-vector cases in the bit-vector functions
like bit-and, and bit-xor.  In these cases, use 32bit-logical-mumble on
the %raw-bits.

Revision 1.2.1.12 - (view) (annotate) - [select for diffs] (vendor branch)
Thu Jul 12 12:44:43 1990 UTC (23 years, 9 months ago) by wlott
Changes since 1.2.1.11: +3 -2 lines
Diff to previous 1.2.1.11
Fixed pick-result-array to actually return something when a result array
is supplied.

Revision 1.2.1.11 - (view) (annotate) - [select for diffs] (vendor branch)
Tue Jul 10 18:22:50 1990 UTC (23 years, 9 months ago) by wlott
Changes since 1.2.1.10: +7 -4 lines
Diff to previous 1.2.1.10
In data-vector-from-inits, don't call make-array with an initial-element
unless we were originally given one.  This way, we don't try to fill
strings or integer vectors with nil.

Revision 1.2.1.10 - (view) (annotate) - [select for diffs] (vendor branch)
Wed Jul 4 23:38:57 1990 UTC (23 years, 9 months ago) by wlott
Changes since 1.2.1.9: +2 -2 lines
Diff to previous 1.2.1.9
Changed a %primitive get-type to the magic function get-type.

Revision 1.2.1.9 - (view) (annotate) - [select for diffs] (vendor branch)
Wed Jul 4 21:50:07 1990 UTC (23 years, 9 months ago) by wlott
Changes since 1.2.1.8: +2 -1 lines
Diff to previous 1.2.1.8
Added clause to shrink-vector so it can work with simple-vectors.

Revision 1.2.1.8 - (view) (annotate) - [select for diffs] (vendor branch)
Fri Jun 29 11:07:54 1990 UTC (23 years, 10 months ago) by wlott
Changes since 1.2.1.7: +4 -4 lines
Diff to previous 1.2.1.7
Fixed a few places I used the wrong variable name.  Oops.

Revision 1.2.1.7 - (view) (annotate) - [select for diffs] (vendor branch)
Fri Jun 29 11:03:17 1990 UTC (23 years, 10 months ago) by wlott
Changes since 1.2.1.6: +181 -143 lines
Diff to previous 1.2.1.6
Lots of changes:  Added a fill-pointer-p slot to complex arrays, and
changed all the fill-pointer related stuff to use it.  Took out the
#+nil in front of the adjust-array stuff, and fixed the adjust-array
stuff re. the new object format.  Nuked all the bit-bash stuff and
wrote bit-mumble functions that just iterrate over the bits.

Revision 1.2.1.6 - (view) (annotate) - [select for diffs] (vendor branch)
Sun Jun 17 20:21:33 1990 UTC (23 years, 10 months ago) by wlott
Changes since 1.2.1.5: +15 -10 lines
Diff to previous 1.2.1.5
Added type assertions so that fixnum args get put in any-regs.

Revision 1.2.1.5 - (view) (annotate) - [select for diffs] (vendor branch)
Fri Jun 15 12:39:37 1990 UTC (23 years, 10 months ago) by wlott
Changes since 1.2.1.4: +2 -2 lines
Diff to previous 1.2.1.4
Fixed a bug in array-total-size: the type simple-vector is the same thing as
(simple-array t (*)) not (simple-array * (*)).

Revision 1.2.1.4 - (view) (annotate) - [select for diffs] (vendor branch)
Tue Jun 5 23:36:18 1990 UTC (23 years, 10 months ago) by wlott
Changes since 1.2.1.3: +84 -66 lines
Diff to previous 1.2.1.3
Fixed make-array to actually fill in the various slots of the array-header.
Also, fixed it to try to use the total-size as the dimensions when creating
the data vector instead of the dimensions.

Removed the #+nil in front of the simple-bit-array, (unsigned-byte 2),
and (unsigned-byte 4) branches of data-vector-{ref,set}.

Fixed %array-row-major-index to only use %array-dimension on arrays with
headers.  Also fixed > to be < when checking the validity of an index.

Revision 1.2.1.3 - (view) (annotate) - [select for diffs] (vendor branch)
Fri May 25 20:15:08 1990 UTC (23 years, 11 months ago) by wlott
Changes since 1.2.1.2: +24 -43 lines
Diff to previous 1.2.1.2
Activated more branches in data-vector-{ref,set}.  Updated set-array-header and 
shrink-vector.

Revision 1.2.1.2 - (view) (annotate) - [select for diffs] (vendor branch)
Fri Apr 27 19:33:37 1990 UTC (24 years ago) by wlott
Changes since 1.2.1.1: +21 -6 lines
Diff to previous 1.2.1.1
Wrote shrink-vector.

Revision 1.2.1.1 - (view) (annotate) - [select for diffs] (vendor branch)
Wed Apr 11 17:13:48 1990 UTC (24 years ago) by wlott
Changes since 1.2: +516 -537 lines
Diff to previous 1.2
Initial MIPS version.

Revision 1.2 - (view) (annotate) - [select for diffs]
Thu Feb 22 11:20:36 1990 UTC (24 years, 2 months ago) by ram
Branch: MAIN
Changes since 1.1: +58 -54 lines
Diff to previous 1.1
.../systems-work/code/array.lisp, 08-Feb-90 17:46:53, Edit by Chiles.
  Fixed bug introduced by ...array.lisp, 02-Jan-90 11:32:12, Edit by Chiles.

  Cleaned up some code around zapping array elements.

/usr1/lisp/ncode/array.lisp, 02-Jan-90 11:32:12, Edit by Chiles.
  Fixed a bug in ADJUST-ARRAY added when we updated it to adhere to the new
  standard with respect to the :fill-pointer argument.

/usr1/lisp/ncode/array.lisp, 04-Dec-89 17:30:21, Edit by Chiles.
  Fixed BIT-ARRAY-SAME-DIMENSIONS-P to correctly loop over the dimension slots
  of the array header.

Revision 1.1 - (view) (annotate) - [select for diffs]
Tue Feb 6 17:23:33 1990 UTC (24 years, 2 months ago) by ram
Branch: MAIN
Initial revision

This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a

Sort log by:

  ViewVC Help
Powered by ViewVC 1.1.5