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

Diff of /gcl/o/structure.c

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

revision 1.9 by camm, Thu Feb 27 17:47:05 2003 UTC revision 1.9.4.1 by camm, Wed Jul 16 02:02:51 2003 UTC
# Line 75  structure_ref(object x, object name, int Line 75  structure_ref(object x, object name, int
75     case aet_sf: return(make_shortfloat(STREF(shortfloat,x,s_pos[i])));     case aet_sf: return(make_shortfloat(STREF(shortfloat,x,s_pos[i])));
76     case aet_lf: return(make_longfloat(STREF(longfloat,x,s_pos[i])));     case aet_lf: return(make_longfloat(STREF(longfloat,x,s_pos[i])));
77     case aet_uchar: return(small_fixnum(STREF(unsigned char,x,s_pos[i])));     case aet_uchar: return(small_fixnum(STREF(unsigned char,x,s_pos[i])));
78     case aet_ushort: return(small_fixnum(STREF(unsigned short,x,s_pos[i])));     case aet_ushort: return(make_fixnum(STREF(unsigned short,x,s_pos[i])));
79     case aet_short: return(make_fixnum(STREF(short,x,s_pos[i])));     case aet_short: return(make_fixnum(STREF(short,x,s_pos[i])));
80     default:     default:
81       bad_raw_type();       bad_raw_type();

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.4.1

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