gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Gcl-devel] Re: So close...


From: C Y
Subject: [Gcl-devel] Re: So close...
Date: Thu, 24 May 2007 09:22:26 -0700 (PDT)

--- Camm Maguire <address@hidden> wrote:

> Greetings!
> 
> I can't reproduce this.  Is this a fresh cvs checkout?
> 
> export CVSROOT=:pserver:address@hidden:/sources/gcl
> cvs -z9 -q -d gclcvs-2.7.0 gcl

It should be.  I'll rebuild just to make sure.

> If so, could you please send
> 
> (let ((compiler::*suppress-compiler-notes* nil))  (disassemble
> 'tangle
>       nil))

Here we go - thanks Camm!

>(let ((compiler::*suppress-compiler-notes* nil))  (disassemble 'tangle
      nil))

;; Compiling /tmp/gazonk_31886_0.lsp.
; (DEFUN COMPILER::CMP-ANON ...) is being compiled.
;; Note: restricting type of WEB::CHUNK to (MEMBER NIL)

;; Note: restricting type of WEB::OUT-FILE to (NOT (MEMBER NIL))

;; Note: COMPILER::CMP-ANON return type (LAMBDA T
                                          (PROGN
                                            T
                                            (LET T
                                              ((WEB::BUFF
                                               
(WEB::READ-PAMPHLET-FILE
                                                 T))
                                               (WEB::CHUNK
                                                (COMPILER::LOCATION
                                                 COMPILER::FOO))
                                               (WEB::NAME
                                                (MAKE-ARRAY
                                                 (ARRAY UNSIGNED-CHAR
                                                  (1)))))
                                              (PROGN
                                                T
                                                (LET* T
                                                  ((WEB::OUT-FILE
                                                    (OPEN T)))
                                                  (UNWIND-PROTECT
                                                    COMPILER::FOO))))))
;; Note: (proclaim '(ftype (function (T T *) T) COMPILER::CMP-ANON

;; End of Pass 1.  
;; End of Pass 2.  
;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0,
Speed=3, (Deb
ug quality ignored)
;; Finished compiling /tmp/gazonk_31886_0.o.

#include "gazonk_31886_0.h"
void init_code(){do_init((void *)VV);}
/*      local entry for function CMP-ANON       */

static object LI1(object V2,object V1,object first,...)
{
        va_list ap;
        int narg = VFUN_NARGS; VMB1 VMS1 VMV1
        {VOL object V3;
        VOL object V4;
        va_start(ap,first);
        base[0]= V2;
        V3= V1;
        narg -= 2;
        if (narg <= 0) goto T1;
        else {
        V4= first;}
        --narg; goto T2;
        goto T1;
T1:;
        V4= ((object)VV[0]);
        goto T2;
T2:;
        goto TTL;
TTL:;
        base[3]= (((object)VV[1])->s.s_dbind);
        vs_top=(vs_base=base+3)+1;
        Lclrhash();
        vs_top=sup;
        {VOL object V5;
        base[3]= (/* READ-PAMPHLET-FILE */(*LnkLI12)(base[0]));
        V6 = CMPmake_fixnum((42));
        base[4]= (VFUN_NARGS=5,(/* MAKE-ARRAY
*/(*LnkLI13)(make_fixnum(1),((obje
ct)VV[2]),((object)VV[3]),((object)VV[4]),V6)));
        V5= Cnil;
        if(((((object)VV[5])->s.s_dbind))==Cnil){
        goto T10;}
        (((object)VV[6])->s.s_dbind)= base[3];
        goto T8;
        goto T10;
T10:;
        (((object)VV[6])->s.s_dbind)= Cnil;
        goto T8;
T8:;
        base[4]= (V4);
        (void)((VFUN_NARGS=1,(/* SCAN-FOR-CHUNKS
*/(*LnkLI14)((fixnum)0,base[3])
)));
        V5= ({struct htent
*_t=gethash(base[4],(((object)VV[1])->s.s_dbind)); _t
->hte_key==OBJNULL ? ({Cnil;}) : ({_t->hte_value;});});
        if(((V5))!=Cnil){
        goto T19;}
        (void)((VFUN_NARGS=1,(/* BREAK
*/(*LnkLI15)(((object)VV[7])))));
        goto T19;
T19:;
        base[5]= (VFUN_NARGS=7,(/* OPEN
*/(*LnkLI16)((V3),((object)VV[8]),((obje
ct)VV[9]),((object)VV[10]),((object)VV[11]),((object)VV[2]),((object)VV[3]))));
        frs_push(FRS_PROTECT,Cnil);
        {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
        if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
        else{
        base[7]= (/* WRITE-CHUNK
*/(*LnkLI17)(base[3],base[4],base[5],base[0]));
        vs_top=(vs_base=base+7)+1;
        active=FALSE;}
        base[6]=Cnil;
        while(vs_base<vs_top)
        {base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
        vs_top=sup;
        nlj_active=FALSE;frs_pop();
        if((base[5])==Cnil){
        goto T24;}
        base[7]= base[5];
        vs_top=(vs_base=base+7)+1;
        Lclose();
        vs_top=sup;
        goto T24;
T24:;
        vs_base=vs_top=base+7;
        for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
        if (active) {
        unwind(fr,tag);
        {object V7 = Cnil;VMR1
        (V7);}
        } else {
        {object V8 = ({register object _z=vs_base[0];_z;});VMR1
        (V8);}}}}
        va_end(ap);
        base[0]=base[0];
        return Cnil;}
        }
static object  LnkTLI17(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_proc_new(((object)VV[17]),0,0,(void **)(void
*)&LnkLI17,4,fir
st,ap);va_end(ap);return V1;} /* WRITE-CHUNK */
static object  LnkTLI16(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[16]),0,0,(void **)(void
*)&LnkLI16,firs
t,ap);va_end(ap);return V1;} /* OPEN */
static object  LnkTLI15(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[15]),0,0,(void **)(void
*)&LnkLI15,firs
t,ap);va_end(ap);return V1;} /* BREAK */
static object  LnkTLI14(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[14]),0,32,(void **)(void
*)&LnkLI14,fir
st,ap);va_end(ap);return V1;} /* SCAN-FOR-CHUNKS */
static object  LnkTLI13(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[13]),0,0,(void **)(void
*)&LnkLI13,firs
t,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
static object  LnkTLI12(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_proc_new(((object)VV[12]),0,0,(void **)(void
*)&LnkLI12,1,fir
st,ap);va_end(ap);return V1;} /* READ-PAMPHLET-FILE */
#(#(* *CHUNK-HASH-TABLE* ELEMENT-TYPE UTF8 INITIAL-ELEMENT *DEBUG-MODE*
    *LASTBUFF* No main chunk DIRECTION OUTPUT IF-EXISTS SUPERSEDE
    READ-PAMPHLET-FILE MAKE-ARRAY SCAN-FOR-CHUNKS BREAK OPEN
    WRITE-CHUNK
    (%INIT
     . #((LET ((*DISABLE-RECOMPILE* T))
           (MFVFUN 'CMP-ANON 0 196610 0)
           (ADD-HASH 'CMP-ANON '((T T *) T)
               '((CLOSE (T *) T) (WRITE-CHUNK (T T T T) NULL)
                 (OPEN (T *) T) (BREAK (*) NULL)
                 (GETHASH (T T *) (RETURNS-EXACTLY T BOOLEAN))
                 (SCAN-FOR-CHUNKS (*) *) (CHAR-CODE (T) FIXNUM)
                 (MAKE-ARRAY (T *) T) (READ-PAMPHLET-FILE (T) T)
                 (CLRHASH (T) T))
COMMON-LISP-USER
LISPLAMBDA
COMPILERCMP-ANONAFETY   !,BLOC!NA!      .CHUNKNAME
1.TANGL,CLRHASH!.*CHUNK-HASH-TABLE*,LET!.BUF.READ-PAMPHLET-FILE-!.CHUN!.NAME
,MAKE-ARRAY!
KEYWORDELEMENT-TYP!,QUOTE!.UTF88INITIAL-ELEMENT ,CHAR-CODE*
!,IF
    .*DEBUG-MODE*       !,SETQ!
.*LASTBUFF*4    <=      <6.SCAN-FOR-CHUNKS4     <5      ,GETHASH63     
,NOT!,PR
No main chunk   ,LET.OUT-FILE,OPEN/     8DIRECTION8OUTPUT      
8IF-EXISTS     8
SUPERSEDE9:     ,UNWIND-PROTEC>
                               .WRITE-CHUNK46?- ;,CLOSE?
               '/tmp/gazonk_31886_0.lsp)
           (DEBUGGER 'CMP-ANON '(IN-FILE OUT-NAME CHUNKNAME)))
         (DO-RECOMPILE)))))
static object LI1(object,object,object,...);
#define VMB1 register object *VOL base=vs_top; object  V6;
#define VMS1 register object *VOL sup=vs_top+8;vs_top=sup;
#define VMV1 vs_check;
#define VMR1(VMT1) vs_top=base ; return(VMT1);
#define VM1 8
static void * VVi[19]={
#define Cdata VV[18]
(void *)(LI1)
};
#define VV (VVi)
static object  LnkTLI17(object,...);
static object  (*LnkLI17)() = (object (*)()) LnkTLI17;
static object  LnkTLI16(object,...);
static object  (*LnkLI16)() = (object (*)()) LnkTLI16;
static object  LnkTLI15(object,...);
static object  (*LnkLI15)() = (object (*)()) LnkTLI15;
static object  LnkTLI14(object,...);
static object  (*LnkLI14)() = (object (*)()) LnkTLI14;
static object  LnkTLI13(object,...);
static object  (*LnkLI13)() = (object (*)()) LnkTLI13;
static object  LnkTLI12(object,...);
static object  (*LnkLI12)() = (object (*)()) LnkTLI12;
NIL




       
____________________________________________________________________________________Looking
 for a deal? Find great prices on flights and hotels with Yahoo! FareChase.
http://farechase.yahoo.com/




reply via email to

[Prev in Thread] Current Thread [Next in Thread]