make lcc happy.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@717 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
4
C/agc.c
4
C/agc.c
@@ -343,7 +343,7 @@ clean_atoms(void)
|
||||
#endif
|
||||
*patm = at->NextOfAE;
|
||||
atm = at->NextOfAE;
|
||||
agc_collected += Yap_SizeOfBlock((char *)at);
|
||||
agc_collected += Yap_SizeOfBlock((CODEADDR)at);
|
||||
Yap_FreeCodeSpace((char *)at);
|
||||
}
|
||||
}
|
||||
@@ -362,7 +362,7 @@ clean_atoms(void)
|
||||
#endif
|
||||
*patm = at->NextOfAE;
|
||||
atm = at->NextOfAE;
|
||||
agc_collected += Yap_SizeOfBlock((char *)at);
|
||||
agc_collected += Yap_SizeOfBlock((CODEADDR)at);
|
||||
Yap_FreeCodeSpace((char *)at);
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user