warning fix
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4925 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
4907d8c290
commit
e81b4cd86c
3 changed files with 5 additions and 5 deletions
|
|
@ -187,13 +187,13 @@ DohMemoryDebug(void) {
|
||||||
else if (p->ptr[i].type == &DohHashType) numhash++;
|
else if (p->ptr[i].type == &DohHashType) numhash++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
printf(" Pool %8x: size = %10d. used = %10d. free = %10d\n", p, p->len, nused, nfree);
|
printf(" Pool %8p: size = %10d. used = %10d. free = %10d\n", p, p->len, nused, nfree);
|
||||||
totsize += p->len;
|
totsize += p->len;
|
||||||
totused+= nused;
|
totused+= nused;
|
||||||
totfree+= nfree;
|
totfree+= nfree;
|
||||||
p = p->next;
|
p = p->next;
|
||||||
}
|
}
|
||||||
printf("\n Total: size = %d, used = %d, free = %d\n", totsize, totused, totfree);
|
printf("\n Total: size = %10d, used = %10d, free = %10d\n", totsize, totused, totfree);
|
||||||
|
|
||||||
printf("\nObject types\n");
|
printf("\nObject types\n");
|
||||||
printf(" Strings : %d\n", numstring);
|
printf(" Strings : %d\n", numstring);
|
||||||
|
|
|
||||||
|
|
@ -235,7 +235,7 @@ public:
|
||||||
* ------------------------------------------------------------ */
|
* ------------------------------------------------------------ */
|
||||||
|
|
||||||
void add_method(Node *n, const DOHString_or_char *name, const DOHString_or_char *function, const DOHString_or_char *description) {
|
void add_method(Node *n, const DOHString_or_char *name, const DOHString_or_char *function, const DOHString_or_char *description) {
|
||||||
String *rename;
|
String *rename = NULL;
|
||||||
switch (current) {
|
switch (current) {
|
||||||
case NO_CPP:
|
case NO_CPP:
|
||||||
rename = NewString(name);
|
rename = NewString(name);
|
||||||
|
|
|
||||||
|
|
@ -186,8 +186,8 @@ public:
|
||||||
flush_parens();
|
flush_parens();
|
||||||
// Following is a silly hack. It works around the limitation of
|
// Following is a silly hack. It works around the limitation of
|
||||||
// DOH's hash tables that only work with string keys!
|
// DOH's hash tables that only work with string keys!
|
||||||
char address[16];
|
char address[32];
|
||||||
sprintf(address, "%x%c", (unsigned long)obj, list_p ? 'L' : 'O');
|
sprintf(address, "%p%c", obj, list_p ? 'L' : 'O');
|
||||||
DOH *placeholder = Getattr(print_circle_hash, address);
|
DOH *placeholder = Getattr(print_circle_hash, address);
|
||||||
if (placeholder) {
|
if (placeholder) {
|
||||||
Printv(out, placeholder, NIL);
|
Printv(out, placeholder, NIL);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue