URN Logo
Linux | FreeBSD | OpenBSD | NetBSD | BSDI | AIX | Solaris/SunOS | Tru64 | HP-UX | IRIX | Minux | SCO Unix | Mac OS X
UNIX Resources » Linux » China Linux Forum » CPU 与 编译器 » 第4页 » 请教treelang的修改和调试
announcement 声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。
Resources
China Linux Forum(finished)
Linux Forum(finished)
FreeBSD China(finished)
linuxforum.net
  业界新闻与评论
  自由软件杂谈
  IT 人生
  Linux软件快递
  翻译作坊
  Linux图书与评论
  GNU Emacs/XEmacs
  Linux 中文环境和中文化
  Linux桌面与办公软件
  Linux 多媒体与娱乐版
  自由之窗Mozilla
  笔记本电脑上的Linux
  Gentoo
  Debian 一族
  网络管理技术
  Linux 安装与入门
  WEB服务器和FTP服务器
  域名服务器和邮件服务器
  Linux防火墙和代理服务器应用
  文件及打印服务器
  技术培训与认证
  Linux内核技术
  Linux 嵌入技术
  Linux设备驱动程序
  Linux 集群技术
  LINUX平台数据库
  系统和网络安全
  CPU 与 编译器
  系统计算研究所专栏
  Linux下的GUI软件开发
  C/C++编程版
  PHP 技 术
  Java&jsp技术
  Shell编程技术
  Perl 编 程
  Python 编 程
  XML/Web Service 技术
  永远的Unix
  FreeBSD世界
    
请教treelang的修改和调试
请教treelang的修改和调试 - EricFisher [2006-04-12 10:11 | 11,252 byte(s)]
 
Re: 请教treelang的修改和调试 - EricFisher [2006-04-13 18:07 | 1,932 byte(s)]
 
Subject: 请教treelang的修改和调试
Author: EricFisher    Posted: 2006-04-12 10:11    Length: 11,252 byte(s)
[Original] [Print] [Top]
gcc的前端例子treelang对于声明一个函数或者变量，规定必须明确写出存储类型。比如，
external_definition int add(int arg1, int arg2);
automatic int aaa;
语法分析parse.y中的相关定义如下， 
function_prototype:

storage typename NAME LEFT_PARENTHESIS parameters RIGHT_PARENTHESIS SEMICOLON {

  struct prod_token_parm_item* tok;

  struct prod_token_parm_item *prod;

  struct prod_token_parm_item *type;

  struct prod_token_parm_item* first_parms;

  struct prod_token_parm_item* last_parms;

  struct prod_token_parm_item* this_parms;

  struct prod_token_parm_item *this_parm;

  struct prod_token_parm_item *this_parm_var;

  tok = $3;

  prod = make_production (PROD_FUNCTION_NAME, $3);

  SYMBOL_TABLE_NAME (prod) = $3;

  EXPRESSION_TYPE (prod) = $2;

  NUMERIC_TYPE (prod) = NUMERIC_TYPE (( (struct prod_token_parm_item*)EXPRESSION_TYPE

(prod)));

  PARAMETERS (prod) = reverse_prod_list ($5); 

  insert_tree_name (prod);

  STORAGE_CLASS_TOKEN (prod) = $1;

  set_storage (prod);

  switch (STORAGE_CLASS (prod))

    { 

    case STATIC_STORAGE:

    case EXTERNAL_DEFINITION_STORAGE:

      break;

      

    case AUTOMATIC_STORAGE:

      fprintf (stderr, "%s:%i:%i: A function cannot be automatic
",

	       tok->tp.tok.location.file,

	       tok->tp.tok.location.line, tok->tp.tok.charno);

      print_token (stderr, 0, tok);

      errorcount++;

      YYERROR;

      break;



    default:

      abort ();

    }

  type = EXPRESSION_TYPE (prod);

  /* Create a parameter list in a non-front end specific format.  */

  for (first_parms = NULL, last_parms = NULL, this_parm = PARAMETERS (prod);

       this_parm;

       this_parm = this_parm->tp.pro.next)

    {

      if (this_parm->category != production_category)

        abort ();

      this_parm_var = VARIABLE (this_parm);

      if (!this_parm_var)

        abort ();

      if (this_parm_var->category != production_category)

        abort ();

      this_parms = my_malloc (sizeof (struct prod_token_parm_item));

      if (!this_parm_var->tp.pro.main_token)

        abort ();

      this_parms->tp.par.variable_name =

this_parm_var->tp.pro.main_token->tp.tok.chars;

      this_parms->category = parameter_category;

      this_parms->type = NUMERIC_TYPE 

        (( (struct prod_token_parm_item*)EXPRESSION_TYPE (this_parm_var)));

      if (last_parms)

        {

          last_parms->tp.par.next = this_parms;

          last_parms = this_parms;

        }

      else

        {

          first_parms = this_parms;

          last_parms = this_parms;

        }

      this_parms->tp.par.where_to_put_var_tree = 

        & (( (struct prod_token_parm_item*)VARIABLE

(this_parm))->tp.pro.code);

    }

  FIRST_PARMS (prod) = first_parms;



  prod->tp.pro.code = tree_code_create_function_prototype

    (tok->tp.tok.chars, STORAGE_CLASS (prod), NUMERIC_TYPE (type),

     first_parms, tok->tp.tok.location);

}

;

请教一下，如何修改这段代码，使得函数声明可以不明确写出存储类型，并且默认的存储类型为ex
ternal_definition
我作了如下改写，但是gcc运行出现internal compiler error，怎么调试？ 
function_prototype:

storage typename NAME LEFT_PARENTHESIS parameters RIGHT_PARENTHESIS SEMICOLON {

  struct prod_token_parm_item* tok;

  struct prod_token_parm_item *prod;

  struct prod_token_parm_item *type;

  struct prod_token_parm_item* first_parms;

  struct prod_token_parm_item* last_parms;

  struct prod_token_parm_item* this_parms;

  struct prod_token_parm_item *this_parm;

  struct prod_token_parm_item *this_parm_var;

  tok = $3;

  prod = make_production (PROD_FUNCTION_NAME, $3);

  SYMBOL_TABLE_NAME (prod) = $3;

  EXPRESSION_TYPE (prod) = $2;

  NUMERIC_TYPE (prod) = NUMERIC_TYPE (( (struct prod_token_parm_item*)EXPRESSION_TYPE

(prod)));

  PARAMETERS (prod) = reverse_prod_list ($5); 

  insert_tree_name (prod);

  STORAGE_CLASS_TOKEN (prod) = $1;

  set_storage (prod);

  switch (STORAGE_CLASS (prod))

    { 

    case STATIC_STORAGE:

    case EXTERNAL_DEFINITION_STORAGE:

      break;

      

    case AUTOMATIC_STORAGE:

      fprintf (stderr, "%s:%i:%i: A function cannot be automatic
",

	       tok->tp.tok.location.file,

	       tok->tp.tok.location.line, tok->tp.tok.charno);

      print_token (stderr, 0, tok);

      errorcount++;

      YYERROR;

      break;



    default:

      abort ();

    }

  type = EXPRESSION_TYPE (prod);

  /* Create a parameter list in a non-front end specific format.  */

  for (first_parms = NULL, last_parms = NULL, this_parm = PARAMETERS (prod);

       this_parm;

       this_parm = this_parm->tp.pro.next)

    {

      if (this_parm->category != production_category)

        abort ();

      this_parm_var = VARIABLE (this_parm);

      if (!this_parm_var)

        abort ();

      if (this_parm_var->category != production_category)

        abort ();

      this_parms = my_malloc (sizeof (struct prod_token_parm_item));

      if (!this_parm_var->tp.pro.main_token)

        abort ();

      this_parms->tp.par.variable_name =

this_parm_var->tp.pro.main_token->tp.tok.chars;

      this_parms->category = parameter_category;

      this_parms->type = NUMERIC_TYPE 

        (( (struct prod_token_parm_item*)EXPRESSION_TYPE (this_parm_var)));

      if (last_parms)

        {

          last_parms->tp.par.next = this_parms;

          last_parms = this_parms;

        }

      else

        {

          first_parms = this_parms;

          last_parms = this_parms;

        }

      this_parms->tp.par.where_to_put_var_tree = 

        & (( (struct prod_token_parm_item*)VARIABLE

(this_parm))->tp.pro.code);

    }

  FIRST_PARMS (prod) = first_parms;



  prod->tp.pro.code = tree_code_create_function_prototype

    (tok->tp.tok.chars, STORAGE_CLASS (prod), NUMERIC_TYPE (type),

     first_parms, tok->tp.tok.location);

}

|typename NAME LEFT_PARENTHESIS parameters RIGHT_PARENTHESIS SEMICOLON {

  struct prod_token_parm_item* tok;

  struct prod_token_parm_item *prod;

  struct prod_token_parm_item *type;

  struct prod_token_parm_item* first_parms;

  struct prod_token_parm_item* last_parms;

  struct prod_token_parm_item* this_parms;

  struct prod_token_parm_item *this_parm;

  struct prod_token_parm_item *this_parm_var;

  struct prod_token_parm_item * stor;

  tok = $3;

  prod = make_production (PROD_FUNCTION_NAME, $2);

  SYMBOL_TABLE_NAME (prod) = $2;

  EXPRESSION_TYPE (prod) = $1;

  NUMERIC_TYPE (prod) = NUMERIC_TYPE (( (struct prod_token_parm_item*)EXPRESSION_TYPE

(prod)));

  PARAMETERS (prod) = reverse_prod_list ($4); 

  insert_tree_name (prod);



  stor->category = token_category;

  stor->type = EXTERNAL_DEFINITION;

  stor->tp.tok.length = 19;

  stor->tp.tok.chars = "external_definition";  



  STORAGE_CLASS_TOKEN (prod) = stor;

  set_storage (prod);

  switch (STORAGE_CLASS (prod))

    { 

    case STATIC_STORAGE:

    case EXTERNAL_DEFINITION_STORAGE:

      break;

      

    case AUTOMATIC_STORAGE:

      fprintf (stderr, "%s:%i:%i: A function cannot be automatic
",

	       tok->tp.tok.location.file,

	       tok->tp.tok.location.line, tok->tp.tok.charno);

      print_token (stderr, 0, tok);

      errorcount++;

      YYERROR;

      break;



    default:

      abort ();

    }

  type = EXPRESSION_TYPE (prod);

  /* Create a parameter list in a non-front end specific format.  */

  for (first_parms = NULL, last_parms = NULL, this_parm = PARAMETERS (prod);

       this_parm;

       this_parm = this_parm->tp.pro.next)

    {

      if (this_parm->category != production_category)

        abort ();

      this_parm_var = VARIABLE (this_parm);

      if (!this_parm_var)

        abort ();

      if (this_parm_var->category != production_category)

        abort ();

      this_parms = my_malloc (sizeof (struct prod_token_parm_item));

      if (!this_parm_var->tp.pro.main_token)

        abort ();

      this_parms->tp.par.variable_name =

this_parm_var->tp.pro.main_token->tp.tok.chars;

      this_parms->category = parameter_category;

      this_parms->type = NUMERIC_TYPE 

        (( (struct prod_token_parm_item*)EXPRESSION_TYPE (this_parm_var)));

      if (last_parms)

        {

          last_parms->tp.par.next = this_parms;

          last_parms = this_parms;

        }

      else

        {

          first_parms = this_parms;

          last_parms = this_parms;

        }

      this_parms->tp.par.where_to_put_var_tree = 

        & (( (struct prod_token_parm_item*)VARIABLE

(this_parm))->tp.pro.code);

    }

  FIRST_PARMS (prod) = first_parms;



  prod->tp.pro.code = tree_code_create_function_prototype

    (tok->tp.tok.chars, STORAGE_CLASS (prod), NUMERIC_TYPE (type),

     first_parms, tok->tp.tok.location);

}

;
[Original] [Print] [Top]
Subject: Re: 请教treelang的修改和调试
Author: EricFisher    Posted: 2006-04-13 18:07    Length: 1,932 byte(s)
[Original] [Print] [Top]
问题好像解决了，在parse.y中作了如下修改： 
$ diff treelang/parse.y treelang/parse_new.y -u

--- treelang/parse.y    2004-01-08 15:50:46.000000000 +0800

+++ treelang/parse_new.y        2006-04-13 18:00:34.390625000 +0800

@@ -48,6 +48,7 @@

 #include "tm.h"

 #include "diagnostic.h"

 #include "timevar.h"

+#include "tree.h"



 #include "treelang.h"

 #include "treetree.h"

@@ -182,7 +183,7 @@

 ;



 variable_def:

-storage typename NAME init_opt SEMICOLON {

+storage_opt typename NAME init_opt SEMICOLON {

   struct prod_token_parm_item* tok;

   struct prod_token_parm_item *prod;

   tok = $3;

@@ -225,6 +226,15 @@

 }

 ;



+storage_opt:

+/* Nil.   */ {

+  $$ = 0;

+}

+|storage {

+  $$ = $1;

+}

+;

+

 storage:

 STATIC

 |AUTOMATIC

@@ -254,7 +264,7 @@

 ;



 function_prototype:

-storage typename NAME LEFT_PARENTHESIS parameters RIGHT_PARENTHESIS SEMICOLON



+storage_opt typename NAME LEFT_PARENTHESIS parameters RIGHT_PARENTHESIS SEMIC

ON {

   struct prod_token_parm_item* tok;

   struct prod_token_parm_item *prod;

   struct prod_token_parm_item *type;

@@ -951,6 +961,11 @@

 {

   struct prod_token_parm_item* stg_class;

   stg_class = STORAGE_CLASS_TOKEN (prod);

+  if(stg_class==NULL_TREE)

+  {

+    STORAGE_CLASS (prod) = EXTERNAL_DEFINITION_STORAGE;

+    return;

+  }

   switch (stg_class->type)

     {

     case STATIC:
[Original] [Print] [Top]
« Previous thread
有谁知道GNU的GCC是否能在ARM处理器上运行的吗？		 CPU 与 编译器
第4页		 Next thread »
[求助]怎样debug GCC 后端？
     
Google  
 
Copyright © 2007 UNIX Resources Network, All Rights Reserved.      About URN | Privacy & Legal | Help | Contact us
备案序号: 京ICP备05006143    webmaster: webmaster@unixresources.net
This page created on 2008-07-17 03:47:16, cost 0.044577836990356 ms.