Renamed the private 'atol()' function to 'our_atol()' to avoid clashes with the libc one.

This commit is contained in:
dtrg 2006-07-18 16:57:51 +00:00
parent 13a9ff3379
commit 2aca7fbaf4
2 changed files with 8 additions and 4 deletions

View file

@ -2,7 +2,9 @@
static char rcsid2[] = "$Id$";
#endif
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "assert.h"
#include <em_spec.h>
#include <em_pseu.h>
@ -87,7 +89,7 @@ extern double atof();
/* Own version of atol that continues computing on overflow.
We don't know that about the ANSI C one.
*/
long atol(s)
long our_atol(s)
register char *s;
{
register long total = 0;
@ -616,7 +618,7 @@ long con(t) {
part_flush();
con_mult((word)argval);
} else {
con_part((int)argval,(word)atol(str));
con_part((int)argval,(word)our_atol(str));
}
return(argval);
case sp_fcon:

View file

@ -2,7 +2,9 @@
static char rcsid2[] = "$Id$";
#endif
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "assert.h"
#include <em_spec.h>
#include <em_pseu.h>
@ -85,7 +87,7 @@ extern double atof();
/* Own version of atol that continues computing on overflow.
We don't know that about the ANSI C one.
*/
long atol(s)
long our_atol(s)
register char *s;
{
register long total = 0;
@ -657,7 +659,7 @@ long con(t) {
part_flush();
con_mult((word)argval);
} else {
con_part((int)argval,(word)atol(str));
con_part((int)argval,(word)our_atol(str));
}
return(argval);
case sp_fcon: