/[gcl]/gcl/o/array.c
ViewVC logotype

Diff of /gcl/o/array.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by camm, Sat Mar 1 22:37:37 2003 UTC revision 1.21 by mjthomas, Wed Jul 2 23:54:46 2003 UTC
# Line 164  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro Line 164  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro
164      case aet_uchar:      case aet_uchar:
165        return small_fixnum(x->ust.ust_self[i]);        return small_fixnum(x->ust.ust_self[i]);
166      case aet_short:      case aet_short:
167        return make_fixnum(SHORT(x, i));        return make_fixnum(SHORT_GCL(x, i));
168      case aet_ushort:      case aet_ushort:
169        return small_fixnum(USHORT(x, i));        return small_fixnum(USHORT_GCL(x, i));
170    
171      default:      default:
172        FEerror("unknown array type",0);        FEerror("unknown array type",0);
# Line 234  DEFUN_NEW("ASET1", object, fSaset1, SI, Line 234  DEFUN_NEW("ASET1", object, fSaset1, SI,
234        break;        break;
235      case aet_short:      case aet_short:
236        ASSURE_TYPE(val,t_fixnum);        ASSURE_TYPE(val,t_fixnum);
237        SHORT(x, i) = Mfix(val);        SHORT_GCL(x, i) = Mfix(val);
238        break;        break;
239      case aet_ushort:      case aet_ushort:
240        ASSURE_TYPE(val,t_fixnum);        ASSURE_TYPE(val,t_fixnum);
241        USHORT(x, i) = Mfix(val);        USHORT_GCL(x, i) = Mfix(val);
242        break;        break;
243      default:      default:
244        FEerror("unknown array type",0);        FEerror("unknown array type",0);

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26