Subject: Re: Entry

From: Zheng Gengbing <[email-masked]>
Date: Sat, 4 May 1996 09:09:00 +0800 (EAT)

On Fri, 3 May 1996, Guansong Zhang wrote:

> On May 2,  7:58pm, Li Xinying wrote:
> > Subject: Entry
> > The modification of entry is this:
> >
> > f90.y:
> > ------
> > %{
> >
> >  int entryFlag=0;
> >
> > %}
> >
> > dummy_arg
> > 	:  ....
> >         ;
> >
> > opt_result
> >         :  ....
> > 	;
> >
> > entry_stmt
> >         : ....
> >         ;
> >
> > "makespec.c"
> > ------------
> >
> > PTR_BFND
> > makeEntry(fi,symb_ptr,arg,result)
> > ....
> >
> >
> > I will put the f90.y makespec.c and a example "t.f" in pact518 ~zq/tozgs.
> > If you want them please fetch.
> >
> > By the way the Segment fault in "test1.f90" happens in "writenodes()".
> >
> > xinying
> >-- End of excerpt from Li Xinying

	My co-worker has modified rule entry_stmt :

entry_stmt
    :  ENTRY name arglist opt_result in_prog {
          PTR_BFND bif;
          PTR_SYMB q;
          bif = cur_scope();
          if (bif->variant == FUNC_HEDR)
             q = makeSymbUnithead(fi,FUNCTION_NAME,$2);
          else   {
             if ((bif->variant == PROC_HEDR) || (bif->variant == PROG_HEDR))
                q = makeSymbUnithead(fi,PROCEDURE_NAME,$2);
             }
          install_param_list(q,$3,$4,bif->variant);
          $$ = makeEntry(fi,q,$3,$4);
          q=$$->entry.Template.symbol;/*added by Yanmi*/
          q->attr=q->attr | ENTRY_BIT;
          /* by Yanmi*/
          q->scope=bif->entry.Template.symbol->scope;
          q->entry.Template.func_hedr=$$;

          }
        ;

	Please tell me your modification .

***************************************************************************
*     Zheng Gengbin                 *                                     *
*                                   *                                     *
*  Dept. of Computer Science        *  Phone:  86-10-2585088              *
*         & Technology              *  Email:                             *
*                                   *      [email-masked]   *
*  Peking University P.R.China      *  Mail:                              *
*                                   *      Room 1077 ,Building 47,        *
*                                   *      Peking University, P.R.China   *
***************************************************************************