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

Diff of /gcl/o/fat_string.c

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

revision 1.5 by camm, Fri Jul 12 22:00:49 2002 UTC revision 1.6 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 2  Line 2 
2  (c) Copyright W. Schelter 1988, All rights reserved.  (c) Copyright W. Schelter 1988, All rights reserved.
3  */  */
4    
5    #include <stdlib.h>
6    
7  #include "include.h"  #include "include.h"
8  #include "page.h"  #include "page.h"
9  #define FAT_STRING  #define FAT_STRING
# Line 35  object start_address,scale; Line 37  object start_address,scale;
37    if( type_of(start_address)!=t_fixnum ||   type_of(scale)!=t_fixnum)    if( type_of(start_address)!=t_fixnum ||   type_of(scale)!=t_fixnum)
38      FEerror("Needs start address and scale as args",0);      FEerror("Needs start address and scale as args",0);
39    
40    profil((char *) (ar->ust.ust_self), (ar->ust.ust_dim),    profil((void *) (ar->ust.ust_self), (ar->ust.ust_dim),
41           fix(start_address),fix(scale) << 8);           fix(start_address),fix(scale) << 8);
42    RETURN1(start_address);    RETURN1(start_address);
43  }  }
# Line 148  object sScdefn; Line 150  object sScdefn;
150    
151  #define CF_FLAG ((unsigned long)1 << (sizeof(long)*8-1))  #define CF_FLAG ((unsigned long)1 << (sizeof(long)*8-1))
152    
153    void
154  cfuns_to_combined_table(n) /* non zero n will ensure new table length */  cfuns_to_combined_table(unsigned int n) /* non zero n will ensure new table length */
155  unsigned int n;                
156  {int ii=0;    {int ii=0;  
157   STATIC int i, j;   STATIC int i, j;
158   STATIC object x;   STATIC object x;
# Line 197  unsigned int n; Line 199  unsigned int n;
199   }   }
200  }  }
201    
202  address_node_compare(node1,node2)  int
203  char *node1, *node2;  address_node_compare(const void *node1, const void *node2)
204  {unsigned int a1,a2;  {unsigned int a1,a2;
205   a1=((struct node *)node1)->address;   a1=((struct node *)node1)->address;
206   a2=((struct node *)node2)->address;   a2=((struct node *)node2)->address;
# Line 306  va_dcl Line 308  va_dcl
308  }  }
309    
310  static int  prof_start;  static int  prof_start;
311  prof_ind(address,scale)  int
312       unsigned int address;  prof_ind(unsigned int address, int scale)
313  {address = address - prof_start ;  {address = address - prof_start ;
314   if (address > 0) return ((address * scale) >> 8) ;   if (address > 0) return ((address * scale) >> 8) ;
315   return 0;   return 0;
316  }  }
317    
318  /* sum entries AAR up to DIM entries */  /* sum entries AAR up to DIM entries */
319  string_sum(aar,dim)  int
320  register unsigned char *aar;  string_sum(register unsigned char *aar, unsigned int dim)
 unsigned int dim;  
321  {register unsigned char *endar;  {register unsigned char *endar;
322   register unsigned int count = 0;   register unsigned int count = 0;
323  endar=aar+dim;  endar=aar+dim;
# Line 377  object start_addr,scal; Line 378  object start_addr,scal;
378   RETURN1(start_addr);   RETURN1(start_addr);
379  }  }
380    
 #ifdef SFASL  
 int build_symbol_table();  
 #endif  
381    
382    
383  /* end fasl stuff*/  /* end fasl stuff*/
# Line 431  object x0,x1; Line 429  object x0,x1;
429  #endif  #endif
430    
431  DEFVAR("*PROFILE-ARRAY*",sSAprofile_arrayA,SI,Cnil,"");  DEFVAR("*PROFILE-ARRAY*",sSAprofile_arrayA,SI,Cnil,"");
432  init_fat_string()  void
433    init_fat_string(void)
434  {  {
435    
436   make_si_constant("*ASH->>*",(-1==(((int)-1) >> 20))? Ct :Cnil);   make_si_constant("*ASH->>*",(-1==(((int)-1) >> 20))? Ct :Cnil);

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

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