Mirror
/
cpython
mirror of https://github.com/python/cpython
4
1
Fork 0
Code Issues Releases Wiki Activity

Support for long integers

This commit is contained in:
Guido van Rossum 1991-07-27 21:34:00 +00:00
parent a049031f2d
commit 76a00af3f2
2 changed files with 18 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Modules/cgensupport.c
View File

@ -24,21 +24,8 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
/* Functions used by cgen output */
#include <stdio.h>
#include "PROTO.h"
#include "object.h"
#include "intobject.h"
#include "floatobject.h"
#include "stringobject.h"
#include "tupleobject.h"
#include "listobject.h"
#include "methodobject.h"
#include "moduleobject.h"
#include "modsupport.h"
#include "import.h"
#include "allobjects.h"
#include "cgensupport.h"
#include "errors.h"
/* Functions to construct return values */
@ -130,6 +117,10 @@ extractdouble(v, p_arg)
*p_arg = GETINTVALUE((intobject *)v);
return 1;
}
else if (is_longobject(v)) {
*p_arg = dgetlongvalue(v);
return 1;
}
return err_badarg();
}
@ -149,6 +140,10 @@ extractfloat(v, p_arg)
*p_arg = GETINTVALUE((intobject *)v);
return 1;
}
else if (is_longobject(v)) {
*p_arg = dgetlongvalue(v);
return 1;
}
return err_badarg();
}

23
Python/cgensupport.c
View File

@ -24,21 +24,8 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
/* Functions used by cgen output */
#include <stdio.h>
#include "PROTO.h"
#include "object.h"
#include "intobject.h"
#include "floatobject.h"
#include "stringobject.h"
#include "tupleobject.h"
#include "listobject.h"
#include "methodobject.h"
#include "moduleobject.h"
#include "modsupport.h"
#include "import.h"
#include "allobjects.h"
#include "cgensupport.h"
#include "errors.h"
/* Functions to construct return values */
@ -130,6 +117,10 @@ extractdouble(v, p_arg)
*p_arg = GETINTVALUE((intobject *)v);
return 1;
}
else if (is_longobject(v)) {
*p_arg = dgetlongvalue(v);
return 1;
}
return err_badarg();
}
@ -149,6 +140,10 @@ extractfloat(v, p_arg)
*p_arg = GETINTVALUE((intobject *)v);
return 1;
}
else if (is_longobject(v)) {
*p_arg = dgetlongvalue(v);
return 1;
}
return err_badarg();
}