Re: SV: ;;; An error occurred in function GROW-CODE-BUFFER:

This is true, but GROW-CODE-BUFFER is only used by the assembler. Compiled functions (like the one Luke shows) do not use this 4k buffer. Compiled functions can generally grow to 64k bytes (more, I believe, with a setting change). The 4k limitation (which could easily be increased in assembler.lisp) is usually sufficient because normally you don't write assembler functions thousands of lines long.

I just don't understand why the assembler was getting called here. I tried the function, increasing to v7, and did not get that error.

Roger

At 11:40 AM 4/4/2003 +0200, you wrote:
>The length of code-buffer is #x1000, on no longer functions
>may be compiled.
>
>ct:cref is expanded as macro, so it takes a lot of space.
>In your example every v_i requires #x26e bytes, so the total
>length is too large.
>
>You can define a function create-point and call it 8 times:
>
> (create-point v0 -1.0 -1.0 1.0)
>... repeat until v7
>
>Pavel Grozman
>
>> -----Ursprungligt meddelande-----
>> Från: lcluke [mailto:[email protected]]
>> Skickat: den 4 april 2003 11:04
>> Till: [email protected]
>> Ämne: [cormanlisp] ;;; An error occurred in function GROW-CODE-BUFFER:
>>
>>
>> I'm getting a GROW-CODE-BUFFER error when I try to create a specific
>> function.
>>
>> The function itself looks like this:
>>
>> (defun create-object ()
>>         (setf (ct:cref vertex-arrayf v0 0) -1.0)
>>         (setf (ct:cref vertex-arrayf v0 1) -1.0)
>>         (setf (ct:cref vertex-arrayf v0 2) 1.0)
>>
>>       (format t "v0 [~A, ~A, ~A]~%"
>>       (ct:cref vertex-arrayf v0 0)
>>       (ct:cref vertex-arrayf v0 1)
>>       (ct:cref vertex-arrayf v0 2))
>>
>>         (setf (ct:cref vertex-arrayf v1 0) 1.0)
>>         (setf (ct:cref vertex-arrayf v1 1) -1.0)
>>         (setf (ct:cref vertex-arrayf v1 2) 1.0)
>>
>> ... repeat until v7
>>
>> And I get the following from CCL
>>
>> ...
>>
>> ;;; Warning: Symbol V0 assumed special
>> ;;; Warning: Symbol V0 assumed special
>> ;;; Warning: Symbol V0 assumed special
>> ;;; Warning: Symbol V0 assumed special
>> ;;; Warning: Symbol V0 assumed special
>> ;;; Warning: Symbol V0 assumed special
>> ;;; Warning: Symbol V1 assumed special
>> ;;; Warning: Symbol V1 assumed special
>> ;;; Warning: Symbol V1 assumed special
>> ;;; Warning: Symbol V1 assumed special
>> ;;; Warning: Symbol V1 assumed special
>> ;;; Warning: Symbol V1 assumed special
>> ;;; Warning: Symbol V2 assumed special
>> ;;; Warning: Symbol V2 assumed special
>> ;;; Warning: Symbol V2 assumed special
>> ;;; Warning: Symbol V2 assumed special
>> ;;; Warning: Symbol V2 assumed special
>> ;;; Warning: Symbol V2 assumed special
>> ;;; Warning: Symbol V3 assumed special
>> ;;; Warning: Symbol V3 assumed special
>> ;;; Warning: Symbol V3 assumed special
>> ;;; Warning: Symbol V3 assumed special
>> ;;; Warning: Symbol V3 assumed special
>> ;;; Warning: Symbol V3 assumed special
>> ;;; Warning: Symbol V4 assumed special
>> ;;; Warning: Symbol V4 assumed special
>> ;;; Warning: Symbol V4 assumed special
>> ;;; Warning: Symbol V4 assumed special
>> ;;; Warning: Symbol V4 assumed special
>> ;;; Warning: Symbol V4 assumed special
>> ;;; Warning: Symbol V5 assumed special
>> ;;; Warning: Symbol V5 assumed special
>> ;;; An error occurred in function GROW-CODE-BUFFER:
>> ;;; Error: not implemented
>>
>>
>>
>>
>>
>> To unsubscribe from this group, send an email to:
>> [email protected]
>>
>>
>>
>> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>>
>>
>>
>
>
>
>To unsubscribe from this group, send an email to:
>[email protected]
>
> 
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/ 



------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/W7NydA/hdqFAA/VygGAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
[email protected]

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/