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 |
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 |
} |
} |
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; |
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; |
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; |
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*/ |
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); |