Changeset 13409

Timestamp:

Jan 26, 2010, 11:35:26 AM (15 years ago)

Author:

R. Matthew Emerson

Message:

Increase CALL-ARGUMENTS-LIMIT on non ppc ports. (r13406 from trunk)

Location:

branches/working-0711/ccl

Files:

• . (modified) (1 prop)
• level-1/l1-init.lisp (modified) (1 diff)
• level-1/l1-sockets.lisp (modified) (1 prop)
• lisp-kernel/x86-constants32.s (modified) (1 diff)
• lisp-kernel/x86-constants64.s (modified) (1 diff)
• lisp-kernel/x86-spentry32.s (modified) (1 diff)
• lisp-kernel/x86-spentry64.s (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-init.lisp

@@ -140 +140 @@
   in a given lambda list. This is actually the limit on required and &OPTIONAL
   parameters. With &KEY and &AUX you can get more.")
-(defconstant call-arguments-limit (floor #x8000 target::node-size)
+(defconstant call-arguments-limit #+ppc-target (floor #x8000 target::node-size)
+                                  #-ppc-target #x10000
   "The exclusive upper bound on the number of arguments which may be passed
   to a function, including &REST args."

branches/working-0711/ccl/lisp-kernel/x86-constants32.s

@@ -613 +613 @@
 target_most_positive_fixnum = 536870911
 target_most_negative_fixnum = -536870912
-call_arguments_limit = 8192
+call_arguments_limit = 0x10000
 
 lisp_globals_limit = (0x13000+(LOWMEM_BIAS))

branches/working-0711/ccl/lisp-kernel/x86-constants64.s

@@ -1037 +1037 @@
 target_most_positive_fixnum = 1152921504606846975
 target_most_negative_fixnum = -1152921504606846976
-
+call_arguments_limit = 0x10000
 
 lisp_globals_limit = 0x13000
-        
+
 INTERRUPT_LEVEL_BINDING_INDEX = fixnumone
 
 c_stack_16_byte_aligned = 1
-                
-                        
-                

branches/working-0711/ccl/lisp-kernel/x86-spentry32.s

@@ -2524 +2524 @@
         __(add $node_size,%nargs)
         __(cmpl $call_arguments_limit<<fixnumshift,%nargs)
-        __(jge 8f)
+        __(jae 8f)
         __(push %arg_y)
         __(cmpl $nil_value,%arg_z)

branches/working-0711/ccl/lisp-kernel/x86-spentry64.s

@@ -2486 +2486 @@
         __(cmpb $fulltag_cons,%imm1_b)
         __(jne 9f)
-        __(addw $node_size,%imm0_w)
         __(_car(%arg_z,%arg_x))
         __(_cdr(%arg_z,%arg_z))
-        __(js 8f)
+        __(addl $node_size,%imm0_l)
+        __(cmpl $call_arguments_limit<<fixnumshift, %imm0_l)
+        __(jae 8f)
         __(compare_reg_to_nil(%arg_z))
         __(push %arg_x)
         __(jne 1b)
-2:      __(addw %imm0_w,%nargs_w)
+2:      __(addl %imm0_l,%nargs)
         __(jne 4f)
 3:      __(addq $2*node_size,%rsp)