diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@806 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes 2003-03-21 18:21:35 +00:00
parent 9ff0aa5abb
commit 8509b82b18
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/compiler.c
View File

@ -2918,7 +2918,7 @@ Yap_cclause(Term inp_clause, int NOfArgs, int mod)
f=fopen("PROFPREDS","a");
}
if (f!=NULL) {
fprintf(f,"%x - %x - Pred(%d) - %s/%d\n",acode,PROFSIZE, CodeStart->rnd1, RepAtom(AtomOfTerm(MkAtomTerm((Atom) CodeStart->rnd1)))->StrOfAE, CodeStart->rnd2);
fprintf(f,"%x - %x - Pred(%ld) - %s/%d\n",acode,PROFSIZE, CodeStart->rnd1, RepAtom(AtomOfTerm(MkAtomTerm((Atom) CodeStart->rnd1)))->StrOfAE, CodeStart->rnd2);
fclose(f);
}
}

9
C/stdpreds.c
View File

@ -155,7 +155,7 @@ char nome[200];
f=fopen("PROFPREDS","r");
if (f==NULL) return -1;
if (f==NULL) return (FALSE);
i=fscanf(f,"%x - %x - Pred(%ld) - %s",&es,&ee,&p,nome);
@ -176,12 +176,12 @@ char nome[200];
fclose(f);
end=(long *) malloc((e2-e1+1)*sizeof(long));
if (end==NULL) { printf("Not enought mem to process results...\n"); return -1; }
if (end==NULL) { printf("Not enought mem to process results...\n"); return (FALSE); }
memset(end,0, (e2-e1+1)*sizeof(long));
f=fopen("PROFILING","r");
if (f==NULL) return -1;
if (f==NULL) return (FALSE);
i=fscanf(f,"%x",&e);
total=0; fora=0;
@ -198,7 +198,7 @@ char nome[200];
printf("Total count %ld (other code %ld)\n",total,fora);
f=fopen("PROFPREDS","r");
if (f==NULL) return -1;
if (f==NULL) return (FALSE);
total2=0;
do {
@ -214,6 +214,7 @@ char nome[200];
printf("Total counted %ld (other code %ld)\n",total2,total-total2);
free(end);
return (TRUE);
}