2003-07-01
2003-07-01 15:11:30 by Martin Stjernholm <mast@lysator.liu.se>
-
6fd069c8ff0b8c40c193b0cbf74cf4254959f3e9
(20 lines)
(+11/-9)
[
Show
| Annotate
]
Branch: 7.9
Fixed some types and fprintf format flags.
Rev: src/pike_types.c:1.219
2:
|| This file is part of Pike. For copyright information see COPYRIGHT.
|| Pike is distributed under GPL, LGPL and MPL. See the file COPYING
|| for more information.
- || $Id: pike_types.c,v 1.218 2003/06/30 17:06:10 mast Exp $
+ || $Id: pike_types.c,v 1.219 2003/07/01 15:11:30 mast Exp $
*/
#include "global.h"
- RCSID("$Id: pike_types.c,v 1.218 2003/06/30 17:06:10 mast Exp $");
+ RCSID("$Id: pike_types.c,v 1.219 2003/07/01 15:11:30 mast Exp $");
#include <ctype.h>
#include "svalue.h"
#include "pike_types.h"
812:
if (type->type == T_ASSIGN) {
/* Strip assign */
#if 0
- fprintf(stderr, "Assign to marker %d.\n", CAR_TO_INT(type);
+ fprintf(stderr, "Assign to marker %"PRINTPTRDIFFT"d.\n",
+ CAR_TO_INT(type);
#endif /* 0 */
type = type->cdr;
goto recurse;
1414: Inside #if defined(PIKE_DEBUG)
break;
case T_SCOPE:
- fprintf(stderr, "scope(%"PRINTSIZET"d, ", CAR_TO_INT(s));
+ fprintf(stderr, "scope(%"PRINTPTRDIFFT"d, ", CAR_TO_INT(s));
simple_describe_type(s->cdr);
fprintf(stderr, ")");
break;
1426: Inside #if defined(PIKE_DEBUG)
fprintf(stderr, ")");
break;
case T_ASSIGN:
- fprintf(stderr, "%"PRINTSIZET"d = ", CAR_TO_INT(s));
+ fprintf(stderr, "%"PRINTPTRDIFFT"d = ", CAR_TO_INT(s));
simple_describe_type(s->cdr);
break;
case T_INT:
1451: Inside #if defined(PIKE_DEBUG)
fprintf(stderr, ")");
break;
case T_OBJECT:
- fprintf(stderr, "object(%s %"PRINTSIZET"d)",
+ fprintf(stderr, "object(%s %"PRINTPTRDIFFT"d)",
s->car?"is":"implements",
CDR_TO_INT(s));
break;
1619:
if (t->cdr)
{
char buffer[100];
- sprintf(buffer,"object(%s %"PRINTSIZET"d)",
+ sprintf(buffer,"object(%s %"PRINTPTRDIFFT"d)",
t->car?"is":"implements",
CDR_TO_INT(t));
my_strcat(buffer);
2344:
}
#endif
#ifdef PIKE_DEBUG
- if(PTR_TO_INT(a_markers[m]->type) == m+'0')
+ if(a_markers[m]->type == m+'0')
Pike_fatal("Cyclic type!\n");
#endif
}
2430:
}
#endif
#ifdef PIKE_DEBUG
- if(PTR_TO_INT(b_markers[m]->type) == m+'0')
+ if(b_markers[m]->type == m+'0')
Pike_fatal("Cyclic type!\n");
#endif
}