| author | Camm Maguire <camm@debian.org> | 2014年10月22日 15:47:25 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年10月22日 15:47:25 -0400 |
| commit | 964527fcc3ca0a5c245670a2cbce2c2a25cdd84b (patch) | |
| tree | 62ac951c970f12ced0e25c96116bd4c8299cd814 | |
| parent | b8f1bb6623808a57bf6faf147d9c933905ecff23 (diff) | |
| download | gcl-964527fcc3ca0a5c245670a2cbce2c2a25cdd84b.tar.gz | |
| -rwxr-xr-x | gcl/o/utils.c | 4 |
diff --git a/gcl/o/utils.c b/gcl/o/utils.c index 1a4778fd1..06a54fda6 100755 --- a/gcl/o/utils.c +++ b/gcl/o/utils.c @@ -191,10 +191,10 @@ fSincorrect_type(object val, object type) and return the actual value (or nil if no values); */ object Ivs_values(void) -{ int n = fcall.nvalues = vs_top - vs_base; +{ fixnum n = fcall.nvalues = vs_top - vs_base; object *b = vs_base,*p=&fcall.values[0]; object res = (n > 0 ? b[0] : sLnil); - if (n>=sizeof(fcall.values)/sizeof(*fcall.values)) + if (n>=(fixnum)(sizeof(fcall.values)/sizeof(*fcall.values))) FEerror("Too many function call values",0); while (--n > 0) { *++p= *++b;} |