/[gcl]/gcl/o/package.d
ViewVC logotype

Diff of /gcl/o/package.d

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

revision 1.23 by camm, Sat Jul 23 08:54:29 2005 UTC revision 1.24 by camm, Tue Aug 9 01:15:14 2005 UTC
# Line 83  designate_package(object x,struct packag Line 83  designate_package(object x,struct packag
83  #define check_type_or_symbol_string_package(a) check_package_designator(*a)  #define check_type_or_symbol_string_package(a) check_package_designator(*a)
84    
85  static void  static void
86  rehash_pack(ptab,n,m)  rehash_pack(object **ptab,fixnum *n,fixnum m) {
87       object **ptab;    object *ntab;
      int *n,m;  
 { object *ntab;  
88    object *tab = *ptab;    object *tab = *ptab;
89    object l,ll;    object l,ll;
90    int k,i;    fixnum k,i;
91    i=0;    i=0;
92    k = *n;    k = *n;
93    {BEGIN_NO_INTERRUPT;    {BEGIN_NO_INTERRUPT;

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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