Parent Directory | Revision Log | 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: |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |