/[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.6 by camm, Fri Jan 24 18:38:28 2003 UTC revision 1.7 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 37  Foundation, 675 Mass Ave, Cambridge, MA Line 37  Foundation, 675 Mass Ave, Cambridge, MA
37      FEwrong_type_argument(sLstructure,(x))      FEwrong_type_argument(sLstructure,(x))
38    
39    
40  bool  static bool
41  structure_subtypep(object x, object y)  structure_subtypep(object x, object y)
42  { if (x==y) return 1;  { if (x==y) return 1;
43    if (type_of(x)!= t_structure    if (type_of(x)!= t_structure
# Line 83  structure_ref(object x, object name, int Line 83  structure_ref(object x, object name, int
83     }}     }}
84    
85    
86  void  static void
87  siLstructure_ref1(void)  siLstructure_ref1(void)
88  {object x=vs_base[0];  {object x=vs_base[0];
89   int n=fix(vs_base[1]);   int n=fix(vs_base[1]);
# Line 137  structure_set(object x, object name, int Line 137  structure_set(object x, object name, int
137   return(v);   return(v);
138  }  }
139    
140  void  static void
141  siLstructure_subtype_p(void)  siLstructure_subtype_p(void)
142  {object x,y;  {object x,y;
143   check_arg(2);   check_arg(2);
# Line 235  siLmake_structure(void) Line 235  siLmake_structure(void)
235   }   }
236  }  }
237    
238  void  static void
239  siLcopy_structure(void)  siLcopy_structure(void)
240  {  {
241          object x, y;          object x, y;
# Line 346  siLlist_nth(void) Line 346  siLlist_nth(void)
346  }  }
347    
348    
349  void  static void
350  siLmake_s_data_structure(void)  siLmake_s_data_structure(void)
351  {object x,y,raw,*base;  {object x,y,raw,*base;
352   int i;   int i;
# Line 370  siLmake_s_data_structure(void) Line 370  siLmake_s_data_structure(void)
370   vs_top=vs_base+1;   vs_top=vs_base+1;
371  }  }
372    
373  void  static void
374  siLstructure_def(void)  siLstructure_def(void)
375  {check_arg(1);  {check_arg(1);
376   check_type_structure(vs_base[0]);   check_type_structure(vs_base[0]);
# Line 394  sizeof(short)  /* aet_ushort  unsigned s Line 394  sizeof(short)  /* aet_ushort  unsigned s
394    
395    
396    
397  void  static void
398  siLsize_of(void)  siLsize_of(void)
399  { object x= vs_base[0];  { object x= vs_base[0];
400    int i;    int i;
# Line 402  siLsize_of(void) Line 402  siLsize_of(void)
402    vs_base[0]=make_fixnum(i);    vs_base[0]=make_fixnum(i);
403  }  }
404        
405  void  static void
406  siLaet_type(void)  siLaet_type(void)
407  {vs_base[0]=fSget_aelttype(vs_base[0]);}  {vs_base[0]=fSget_aelttype(vs_base[0]);}
408    
# Line 411  siLaet_type(void) Line 411  siLaet_type(void)
411     an address which is a multiple of N */     an address which is a multiple of N */
412    
413    
414  void  static void
415  siLalignment(void)  siLalignment(void)
416  {struct {double x; int y; double z;  {struct {double x; int y; double z;
417           float x1; int y1; float z1;}           float x1; int y1; float z1;}

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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