1berry/cpython
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

hope to fix DEC Alpha gcc problems by declaring ints instead of longs

Browse Source
This commit is contained in:
Guido van Rossum 1995-02-17 15:10:07 +00:00
parent d9dfaf5a3b
commit 3a205f7ea0
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Python/marshal.c
View File

@ -121,7 +121,7 @@ w_object(v, p)
object *v; object *v;
WFILE *p; WFILE *p;
{ {
long i, n; int i, n;
if (v == NULL) if (v == NULL)
w_byte(TYPE_NULL, p); w_byte(TYPE_NULL, p);
@ -147,29 +147,29 @@ w_object(v, p)
float_buf_repr(buf, (floatobject *)v); float_buf_repr(buf, (floatobject *)v);
n = strlen(buf); n = strlen(buf);
w_byte(TYPE_FLOAT, p); w_byte(TYPE_FLOAT, p);
w_byte((int)n, p); w_byte(n, p);
w_string(buf, (int)n, p); w_string(buf, n, p);
} }
else if (is_stringobject(v)) { else if (is_stringobject(v)) {
w_byte(TYPE_STRING, p); w_byte(TYPE_STRING, p);
n = getstringsize(v); n = getstringsize(v);
w_long(n, p); w_long((long)n, p);
w_string(getstringvalue(v), (int)n, p); w_string(getstringvalue(v), n, p);
} }
else if (is_tupleobject(v)) { else if (is_tupleobject(v)) {
w_byte(TYPE_TUPLE, p); w_byte(TYPE_TUPLE, p);
n = gettuplesize(v); n = gettuplesize(v);
w_long(n, p); w_long((long)n, p);
for (i = 0; i < n; i++) { for (i = 0; i < n; i++) {
w_object(gettupleitem(v, (int)i), p); w_object(gettupleitem(v, i), p);
} }
} }
else if (is_listobject(v)) { else if (is_listobject(v)) {
w_byte(TYPE_LIST, p); w_byte(TYPE_LIST, p);
n = getlistsize(v); n = getlistsize(v);
w_long(n, p); w_long((long)n, p);
for (i = 0; i < n; i++) { for (i = 0; i < n; i++) {
w_object(getlistitem(v, (int)i), p); w_object(getlistitem(v, i), p);
} }
} }
else if (is_dictobject(v)) { else if (is_dictobject(v)) {