Changeset 5849


Ignore:
Timestamp:
02/16/04 01:48:59 (17 years ago)
Author:
piso
Message:

Fill pointer support.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/adjust_array.java

    r5848 r5849  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: adjust_array.java,v 1.3 2004-02-16 01:26:42 piso Exp $
     5 * $Id: adjust_array.java,v 1.4 2004-02-16 01:48:59 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6161            } else
    6262                newSize = dimensions;
    63             if (newSize != null)
    64                 return v.adjustArray(Fixnum.getValue(newSize), initialElement,
    65                                      initialContents);
     63            if (newSize != null) {
     64                v.adjustArray(Fixnum.getValue(newSize), initialElement,
     65                              initialContents);
     66                if (fillPointer != NIL)
     67                    v.setFillPointer(fillPointer);
     68                return v;
     69            }
    6670        }
    6771        if (array instanceof LispString) {
     
    7377            } else
    7478                newSize = dimensions;
    75             if (newSize != null)
    76                 return s.adjustArray(Fixnum.getValue(newSize), initialElement,
    77                                      initialContents);
     79            if (newSize != null) {
     80                s.adjustArray(Fixnum.getValue(newSize), initialElement,
     81                              initialContents);
     82                if (fillPointer != NIL)
     83                    s.setFillPointer(fillPointer);
     84                return s;
     85            }
    7886        }
    7987        return signal(new LispError("ADJUST-ARRAY: unsupported case."));
Note: See TracChangeset for help on using the changeset viewer.