version 1.17, 2000/01/15 14:26:00 |
version 1.18, 2000/03/11 15:54:44 |
|
|
putback('-'); |
putback('-'); |
} |
} |
|
|
|
/* |
|
* pbunsigned - convert unsigned long to string, push back on input. |
|
*/ |
|
void |
|
pbunsigned(n) |
|
unsigned long n; |
|
{ |
|
do { |
|
putback(n % 10 + '0'); |
|
} |
|
while ((n /= 10) > 0); |
|
} |
|
|
void |
void |
initspaces() |
initspaces() |
|
|
} |
} |
} |
} |
|
|
char * |
void * |
xalloc(n) |
xalloc(n) |
size_t n; |
size_t n; |
{ |
{ |
|
|
* XXX can't free filename, as there might still be |
* XXX can't free filename, as there might still be |
* error information pointing to it. |
* error information pointing to it. |
*/ |
*/ |
|
} |
|
|
|
void |
|
doprintlineno(f) |
|
struct input_file *f; |
|
{ |
|
pbunsigned(f->lineno); |
|
} |
|
|
|
void |
|
doprintfilename(f) |
|
struct input_file *f; |
|
{ |
|
pbstr(f->name); |
} |
} |