/[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.13 by camm, Fri Jan 3 21:26:39 2003 UTC revision 1.14 by camm, Mon Jan 27 19:21:30 2003 UTC
# Line 160  DEFUNO("ROW-MAJOR-AREF", object, fLrow_m Line 160  DEFUNO("ROW-MAJOR-AREF", object, fLrow_m
160      case aet_fix:      case aet_fix:
161        return make_fixnum(x->fixa.fixa_self[i]);        return make_fixnum(x->fixa.fixa_self[i]);
162      case aet_sf:      case aet_sf:
163        return make_longfloat(x->sfa.sfa_self[i]);        return make_shortfloat(x->sfa.sfa_self[i]);
164      case aet_lf:      case aet_lf:
165        return make_longfloat(x->lfa.lfa_self[i]);        return make_longfloat(x->lfa.lfa_self[i]);
166      case aet_char:      case aet_char:

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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