开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
LIST.C
资源名称：c_compiler.zip　[点击查看]
上传用户：hlzzc88
上传日期：2007-01-06
资源大小：220k
文件大小：6k
源码类别：

编译器/解释器

开发平台：

Others

LIST.C：源码内容
  1. /*
  2.  * 68K/386 32-bit C compiler.
  3.  *
  4.  * copyright (c) 1997, David Lindauer
  5.  * 
  6.  * This compiler is intended for educational use.  It may not be used
  7.  * for profit without the express written consent of the author.
  8.  *
  9.  * It may be freely redistributed, as long as this notice remains intact
  10.  * and either the original sources or derived sources 
  11.  * are distributed along with any executables derived from the originals.
  12.  *
  13.  * The author is not responsible for any damages that may arise from use
  14.  * of this software, either idirect or consequential.
  15.  *
  16.  * v1.35 March 1997
  17.  * David Lindauer, gclind01@starbase.spd.louisville.edu
  18.  *
  19.  * Credits to Mathew Brandt for original K&R C compiler
  20.  *
  21.  */
  22. /* 
  23.  * Listing file
  24.  */
  25. #include        <stdio.h>
  26. #include        "expr.h"
  27. #include        "c.h"
  29. extern int prm_listfile;
  30. extern HASHREC **globalhash;
  31. extern FILE *listFile;
  32. extern TABLE gsyms;
  33. extern char *registers[];
  35. /* Unnamed structure tags */
  36. char *tn_unnamed = "<no name> ";
  39. static char * unmangledname(char *str)
  40. {
  41. static char name[40];
  42. unmangle(name,str);
  43. return name;
  44. }
  45. /* Put the storage class */
  46. void put_sc(int scl)
  47. {
  48.   if (!prm_listfile)
  49.     return;
  50.        switch(scl) {
  51.                 case sc_static:
  52.                         fprintf(listFile,"Static      ");
  53.                         break;
  54.                 case sc_auto:
  55.                         fprintf(listFile,"Auto        ");
  56.                         break;
  57.                 case sc_autoreg:
  58.                 case sc_memberreg:
  59.                         fprintf(listFile,"Register    ");
  60.                         break;
  61.                 case sc_global:
  62.                         fprintf(listFile,"Global      ");
  63.                         break;
  64.                 case sc_abs:
  65.                         fprintf(listFile,"Absolute    ");
  66.                         break;
  67.                 case sc_external:
  68.                 case sc_externalfunc:
  69.                         fprintf(listFile,"External    ");
  70.                         break;
  71.                 case sc_type:
  72.                         fprintf(listFile,"Type        ");
  73.                         break;
  74.                 case sc_const:
  75.                         fprintf(listFile,"Constant    ");
  76.                         break;
  77.                 case sc_member:
  78.                         fprintf(listFile,"Member      ");
  79.                         break;
  80.                 case sc_label:
  81.                         fprintf(listFile,"Label");
  82.                         break;
  83.                 case sc_ulabel:
  84.                         fprintf(listFile,"Undefined label");
  85.                         break;
  86.                 }
  87. }
  89. /* Put the type */
  90. void put_ty(TYP *tp)
  91. {       if((tp == 0) || (!prm_listfile))
  92.                 return;
  93.         switch(tp->type) {
  94. case bt_matchall:
  95. fprintf(listFile,"Undefined");
  96. break;
  97.                 case bt_char:
  98.                         fprintf(listFile,"Char");
  99.                         break;
  100.                 case bt_short:
  101.                         fprintf(listFile,"Short");
  102.                         break;
  103.                 case bt_enum:
  104.                         fprintf(listFile,"enum ");
  105.                         goto ucont;
  106.                 case bt_long:
  107.                         fprintf(listFile,"Long");
  108.                         break;
  109.                 case bt_unsigned:
  110.                         fprintf(listFile,"Unsigned Long");
  111.                         break;
  112.                 case bt_float:
  113.                         fprintf(listFile,"Float");
  114.                         break;
  115.                 case bt_double:
  116.                         fprintf(listFile,"Double");
  117.                         break;
  118.                 case bt_longdouble:
  119.                         fprintf(listFile,"Long Double");
  120.                         break;
  121.                 case bt_pointer:
  122.                         if( tp->val_flag == 0)
  123.                                 fprintf(listFile,"Pointer to ");
  124.                         else
  125.                                 fprintf(listFile,"Array of ");
  126.                         put_ty(tp->btp);
  127.                         break;
  128.                 case bt_union:
  129.                         fprintf(listFile,"union ");
  130.                         goto ucont;
  131.                 case bt_struct:
  132.                         fprintf(listFile,"struct ");
  133. ucont:                  if(tp->sname == 0)
  134.                                 fprintf(listFile,tn_unnamed);
  135.                         else
  136.                                 fprintf(listFile,"%s ",unmangledname(tp->sname));
  137.                         break;
  138. case bt_void:
  139. fprintf(listFile,"Void");
  140. break;
  141. case bt_ptrfunc:
  142.                         fprintf(listFile,"Pointer to ");
  143.                 case bt_ifunc:
  144.                 case bt_func:
  145.                         fprintf(listFile,"Function returning ");
  146.                         put_ty(tp->btp);
  147.                         break;
  148.                 }
  149. if (tp->startbit != -1)
  150. fprintf(listFile,"  Bits %d to %d",tp->startbit,tp->startbit+tp->bits-1);
  151. }
  152. /* List a variable */
  153. void list_var(SYM *sp, int i)
  154. {       int     j;
  155. long val;
  156. if (!prm_listfile)
  157. return;
  158.         for(j = i; j; --j)
  159.                 fprintf(listFile,"    ");
  160. if ((sp->storage_class == sc_auto || sp->storage_class == sc_autoreg) && !sp->inreg)
  161. val = (long)getautoval(sp->value.i);
  162. else
  163. val = sp->value.u;
  164. if (sp->inreg)
  165.          fprintf(listFile,"%-10s = Register %-3s ",unmangledname(sp->name),registers[-val]);
  166. else
  167.          fprintf(listFile,"%-10s = %06x       ",unmangledname(sp->name),val);
  168.         put_sc(sp->storage_class);
  169.         put_ty(sp->tp);
  170.         fprintf(listFile,"n");
  171.         if(sp->tp == 0)
  172.                 return;
  173.         if((sp->tp->type == bt_struct || sp->tp->type == bt_union) &&
  174.                 sp->storage_class == sc_type)
  175.                 list_table(&(sp->tp->lst),i+1);
  176. }
  178. /* List an entire table */
  179. void list_table(TABLE *t,int j)
  180. {       SYM     *sp;
  181. int i;
  182. if (!prm_listfile)
  183. return;
  184. if (t == &gsyms) {
  185. for (i=0; i < HASHTABLESIZE; i++) {
  186. if ((sp=(SYM *) globalhash[i]) != 0) {
  187. while (sp) {
  188. list_var(sp,j);
  189.            sp = sp->next;
  190. }
  191. }
  192. }
  193. }
  194. else {
  195.          sp = t->head;
  196.          while(sp != NULL) {
  197.                 list_var(sp,j);
  198.                 sp = sp->next;
  199.                 }
  200. }
  202. }