/* ------------------------------------------------------------------------
- * $Id: cgprof.c,v 1.3 2003/08/01 14:50:48 panne Exp $
+ * $Id: cgprof.c,v 1.4 2003/08/01 14:58:47 panne Exp $
*
* Copyright (C) 1995-2000 University of Oxford
*
* -------------------------------------------------------------------------- */
void add_costs(object_cost *left, object_cost right) {
- int i;
left->syncs += right.syncs;
left->comp_max += right.comp_max;
void PrintStack(ccs_matrix *m, cc_matrix *n, int i)
{
- char stack[MAX_PROFILE_LINE_LENGTH];
int j = i;
if ((*m)[j].cc != 0)
{
/* void readRawProfile(FILE *fptr,int *nonodes) { */
void readRawProfile(FILE *fp,int *nonodes, int MaxNoNodes) {
- char line[MAX_PROFILE_LINE_LENGTH];
char stack[MAX_PROFILE_LINE_LENGTH];
- char rest[MAX_PROFILE_LINE_LENGTH];
int i,nolines,sstepline,syncs;
char *ptr,*drag;
/* set to zero for now. Might use these later for heap costs. */
- int *result; /* Something to do with daVinci? */
-
/* GHC specific variables */
- int a,b,c,d,x,y,z,count, next, throw;
+ int a,b,c,d,x,z,count, next;
int newloop;
- char *ignore;
char e[MAX_STRING_SIZE];
char f[MAX_STRING_SIZE];
- char g[MAX_STRING_SIZE];
char lline[MAX_PROFILE_LINE_LENGTH];
/* identifiers generated by the XML handler */
char *typeconstr=">>type_constr";
char *ending=">>";
- char *blank="blank";
/* FILE *fp; */
cc_matrix *cc_m;
/* ------------------------------------------------------------------------
- * $Id: daVinci.c,v 1.2 2003/08/01 14:50:50 panne Exp $
+ * $Id: daVinci.c,v 1.3 2003/08/01 14:58:48 panne Exp $
*
* Copyright (C) 1995-2000 University of Oxford
*
* -------------------------------------------------------------------------- */
void cmdDaVinci(char* format,...) {
- static char xs[MAX_PROFILE_LINE_LENGTH];
va_list args;
va_start(args, format);
static char res[(MAX_FUNNAME+20)*4];
char tempstring[MAX_FUNNAME+20];
char *padding;
- int width=0,x;
+ int x;
char delimiter[] = "&";
if (symbol_table[node].type==CG_SSTEP)
static void recur_graphToDaVinci(int node,Matrix *graph,Matrix *costs,char* p_zeronodes, int mode){
object_cost *ptr;
- int i,j,no_children=0,*children,colour,small;
- char line[MAX_FUNNAME], *node_str;
+ int i,j,no_children=0,*children,colour;
+ char *node_str;
char tempnode[MAX_FUNNAME];
if (Mat(int,*graph,node,node)<0) {
printf("r(\"%d\") ",node);
static void recur_graphToDaVinci_old(int node,Matrix *graph, Matrix *costs) {
object_cost *ptr;
- int i,j,no_children=0,*children,colour,small;
- char line[MAX_FUNNAME], *node_str;
+ int i,j,no_children=0,*children,colour;
+ char *node_str;
if (Mat(int,*graph,node,node)<0) {
fprintf(logFile,"r(\"%d\") ",node);
printf("r(\"%d\") ",node);
void updateColours(int root, Matrix *graph, Matrix *costs) {
int i,colour,last;
- object_cost *ptr;
printf("graph(change_attr([");
for(last=costs->rows-1;last>=0;last--)
davinciCmd parseDaVinciCmd(char *input) {
davinciCmd result;
char *crp;
- char *word,*label;
+ char *word;
int i;
result.size=1;