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

fix atom_statistics

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-01-23 09:55:11 +00:00
parent 8774fed9ff
commit 2de1a678e4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/stdpreds.c
View File

@ -3886,12 +3886,12 @@ p_statistics_atom_info( USES_REGS1 )
while (catom != NIL) { while (catom != NIL) {
Atom ncatom; Atom ncatom;
count++; count++;
spaceused += sizeof(AtomEntry)+strlen(RepAtom(catom)->StrOfAE); spaceused += sizeof(AtomEntry)+strlen(RepAtom(catom)->StrOfAE)+1;
ncatom = RepAtom(catom)->NextOfAE; ncatom = RepAtom(catom)->NextOfAE;
if (ncatom != NIL) { if (ncatom != NIL) {
READ_LOCK(RepAtom(ncatom)->ARWLock); READ_LOCK(RepAtom(ncatom)->ARWLock);
} }
READ_UNLOCK(RepAtom(ncatom)->ARWLock); READ_UNLOCK(RepAtom(catom)->ARWLock);
catom = ncatom; catom = ncatom;
} }
} }
@ -3907,12 +3907,12 @@ p_statistics_atom_info( USES_REGS1 )
while (catom != NIL) { while (catom != NIL) {
Atom ncatom; Atom ncatom;
count++; count++;
spaceused += sizeof(AtomEntry)+wcslen((wchar_t *)( RepAtom(catom)->StrOfAE)); spaceused += sizeof(AtomEntry)+sizeof(wchar_t)*(wcslen((wchar_t *)( RepAtom(catom)->StrOfAE)+1));
ncatom = RepAtom(catom)->NextOfAE; ncatom = RepAtom(catom)->NextOfAE;
if (ncatom != NIL) { if (ncatom != NIL) {
READ_LOCK(RepAtom(ncatom)->ARWLock); READ_LOCK(RepAtom(ncatom)->ARWLock);
} }
READ_UNLOCK(RepAtom(ncatom)->ARWLock); READ_UNLOCK(RepAtom(catom)->ARWLock);
catom = ncatom; catom = ncatom;
} }
} }