home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1999 < prev   
Internet Message Format  |  1990-12-28  |  8KB
  1. From: loic@adesign.uucp (Loic Dachary)
  2. Newsgroups: alt.sources
  3. Subject: gas-1.36 patches for COFF generation patch01
  4. Message-ID: <LOIC.90Oct23011902@adesign.uucp>
  5. Date: 23 Oct 90 00:19:02 GMT
  6.  
  7.  
  8.     Here is the first bug fix to gas-coff patches (gas-coff/patch01).
  9.  
  10. . Special conditions where not tested when manipulating the double linked list
  11.   of symbols. This was not very clean but harmless. However the code has
  12.   been changed.
  13. . The c_dot_file_symbol function messed up the symbol list if called by
  14.   write_object instead of s_file. I.e. if .file was missing, gas bombed.
  15.  
  16. *** coff.c    Mon Oct 15 08:53:16 1990
  17. --- /spare/usenet/port/gas-1.36/coff.c    Tue Oct 23 00:06:12 1990
  18. ***************
  19. *** 242,250 ****
  20.   char*    filename;
  21.   {
  22.       symbolS* symbolP;
  23. -     symbolS* ante_lastP;
  24. - 
  25. -     ante_lastP = symbol_lastP;
  26.       
  27.       symbolP = symbol_new(".file", SEG_DEBUG, 0,
  28.                      C_FILE, &zero_address_frag);
  29. --- 242,247 ----
  30. ***************
  31. *** 254,262 ****
  32.   
  33.       /* Make sure that the symbol is first on the symbol chain */
  34.       if(symbol_rootP != symbolP) {
  35. !     symbol_lastP = ante_lastP;
  36. !     symbol_lastP->sy_next = NULL;
  37. !     symbolP->sy_next = symbol_rootP;
  38.       symbol_rootP = symbolP;
  39.       }
  40.   }
  41. --- 251,259 ----
  42.   
  43.       /* Make sure that the symbol is first on the symbol chain */
  44.       if(symbol_rootP != symbolP) {
  45. !     symbol_lastP = symbol_lastP->sy_previous;
  46. !     DL_REMOVE(symbolP);
  47. !     DL_INSERT(symbolP, symbol_rootP);
  48.       symbol_rootP = symbolP;
  49.       }
  50.   }
  51. *** coff.h    Mon Oct 15 09:59:28 1990
  52. --- /spare/usenet/port/gas-1.36/coff.h    Mon Oct 22 17:29:56 1990
  53. ***************
  54. *** 57,62 ****
  55. --- 57,88 ----
  56.   #define DO_NOT_STRIP    0
  57.   #define DO_STRIP    1
  58.   
  59. + /* Double linked list manipulations macros. */
  60. + /* See struc-symbol.h for a definition of symbolS. */
  61. + 
  62. + /* Remove the argument from the list. */
  63. + #define DL_REMOVE(p)    \
  64. +     (((p)->sy_next && ((p)->sy_next->sy_previous = (p)->sy_previous)),\
  65. +      ((p)->sy_previous && ((p)->sy_previous->sy_next = (p)->sy_next)))
  66. + 
  67. + /* Set the chain symbols to null. */
  68. + #define DL_CLEAR(p)    \
  69. +     ((p)->sy_next = (symbolS*)0, (p)->sy_previous = (symbolS*)0)
  70. + 
  71. + /* Link symbol p after symbol w in the chain. */
  72. + #define DL_APPEND(p,w)    \
  73. +     (((w)->sy_next && ((w)->sy_next->sy_previous = (p))),    \
  74. +      ((p)->sy_next = (w)->sy_next),                \
  75. +      ((w)->sy_next = (p)),                       \
  76. +      ((p)->sy_previous = (w)))
  77. + 
  78. + /* Link symbol p before symbol w in the chain. */
  79. + #define DL_INSERT(p,w)    \
  80. +     (((w)->sy_previous && ((w)->sy_previous->sy_next = (p))),    \
  81. +      ((p)->sy_previous = (w)->sy_previous),            \
  82. +      ((w)->sy_previous = (p)),                    \
  83. +      ((p)->sy_next = (w)))
  84. + 
  85.   /* Symbol table macros and constants */
  86.   
  87.   /* Possible and usefull section number in symbol table 
  88. *** read.c    Mon Oct 22 22:35:07 1990
  89. --- /spare/usenet/port/gas-1.36/read.c    Mon Oct 22 22:39:11 1990
  90. ***************
  91. *** 1395,1402 ****
  92.       symbolP = (symbolS *)obstack_alloc(¬es, sizeof(symbolS));
  93.       memcpy((char*)symbolP, &symbol, sizeof(symbolS));
  94.   
  95. !     symbol_lastP->sy_next = symbolP;
  96. !     symbolP->sy_previous = symbol_lastP;
  97.       symbol_lastP = symbolP;
  98.   
  99.       } else {
  100. --- 1395,1401 ----
  101.       symbolP = (symbolS *)obstack_alloc(¬es, sizeof(symbolS));
  102.       memcpy((char*)symbolP, &symbol, sizeof(symbolS));
  103.   
  104. !     DL_APPEND(symbolP, symbol_lastP);
  105.       symbol_lastP = symbolP;
  106.   
  107.       } else {
  108. ***************
  109. *** 1408,1424 ****
  110.       c_symbol_merge(&symbol, symbolP);
  111.       /* For the function, the symbol *must* be were the debug symbol
  112.          appear. Move the existing symbol to the current place. */
  113. -     /* Do not take in account special cases where symbolP is first 
  114. -        in the list. It is always after a .bf */
  115.       if(SF_GET_FUNCTION(symbolP)) {
  116.           /* If it already is at the end of the symbol list, do nothing */
  117.           if(symbolP != symbol_lastP) {
  118. !         /* Remove from the list */
  119. !         symbolP->sy_next->sy_previous = symbolP->sy_previous;
  120. !         symbolP->sy_previous->sy_next = symbolP->sy_next;
  121. !         /* Append at the end of the list */
  122. !         symbol_lastP->sy_next = symbolP;
  123. !         symbolP->sy_previous = symbol_lastP;
  124.           symbol_lastP = symbolP;
  125.           }
  126.       } else
  127. --- 1407,1417 ----
  128.       c_symbol_merge(&symbol, symbolP);
  129.       /* For the function, the symbol *must* be were the debug symbol
  130.          appear. Move the existing symbol to the current place. */
  131.       if(SF_GET_FUNCTION(symbolP)) {
  132.           /* If it already is at the end of the symbol list, do nothing */
  133.           if(symbolP != symbol_lastP) {
  134. !         DL_REMOVE(symbolP);
  135. !         DL_APPEND(symbolP, symbol_lastP);
  136.           symbol_lastP = symbolP;
  137.           }
  138.       } else
  139. *** symbols.c    Mon Oct 22 22:35:10 1990
  140. --- /spare/usenet/port/gas-1.36/symbols.c    Mon Oct 22 22:38:42 1990
  141. ***************
  142. *** 220,227 ****
  143.        * Link to end of symbol chain .
  144.        */
  145.       if (symbol_lastP) {
  146. !     symbol_lastP->sy_next = symbolP;
  147. !     symbolP->sy_previous = symbol_lastP;
  148.       } else {
  149.       symbol_rootP = symbolP;
  150.       }
  151. --- 220,226 ----
  152.        * Link to end of symbol chain .
  153.        */
  154.       if (symbol_lastP) {
  155. !     DL_APPEND(symbolP, symbol_lastP);
  156.       } else {
  157.       symbol_rootP = symbolP;
  158.       }
  159. *** write.c    Mon Oct 22 22:35:15 1990
  160. --- /spare/usenet/port/gas-1.36/write.c    Mon Oct 22 22:38:18 1990
  161. ***************
  162. *** 405,416 ****
  163.                 /* The symbols will never be the last or the first
  164.                because : 1st symbol is .file and 3 last symbols are
  165.                .text, .data, .bss */
  166. !               real_symbolP->sy_previous->sy_next = real_symbolP->sy_next;
  167. !               real_symbolP->sy_next->sy_previous = real_symbolP->sy_previous;
  168. !               symbolP->sy_previous->sy_next = real_symbolP;
  169. !               symbolP->sy_next->sy_previous = real_symbolP;
  170. !               real_symbolP->sy_next = symbolP->sy_next;
  171. !               real_symbolP->sy_previous = symbolP->sy_previous;
  172.                 symbolP = real_symbolP;
  173.             }
  174.             if(flagseen['R'] && S_IS_DATA(symbolP))
  175. --- 405,413 ----
  176.                 /* The symbols will never be the last or the first
  177.                because : 1st symbol is .file and 3 last symbols are
  178.                .text, .data, .bss */
  179. !               DL_REMOVE(real_symbolP);
  180. !               DL_INSERT(real_symbolP, symbolP);
  181. !               DL_REMOVE(symbolP);
  182.                 symbolP = real_symbolP;
  183.             }
  184.             if(flagseen['R'] && S_IS_DATA(symbolP))
  185. ***************
  186. *** 488,510 ****
  187.   
  188.             symbolP = thisP->sy_next;
  189.             /* remove C_EFCN and LOCAL (L...) symbols */
  190. !           if(SF_GET_LOCAL(thisP)) {
  191. !               thisP->sy_next->sy_previous = thisP->sy_previous;
  192. !               thisP->sy_previous->sy_next = thisP->sy_next;
  193. !           } else {
  194.                 if(S_GET_STORAGE_CLASS(thisP) == C_EXT &&
  195.                !SF_GET_FUNCTION(thisP)) {
  196.                 /* Remove from the list */
  197. !               thisP->sy_next->sy_previous = thisP->sy_previous;
  198. !               thisP->sy_previous->sy_next = thisP->sy_next;
  199.                 /* Move at the end of the list */
  200. !               if (symbol_extern_lastP) {
  201. !                   symbol_extern_lastP->sy_next = thisP;
  202. !                   thisP->sy_previous = symbol_extern_lastP;
  203. !               } else {
  204.                     symbol_externP = thisP;
  205. !               }
  206. !               thisP->sy_next = (symbolS*)0;
  207.                 symbol_extern_lastP = thisP;
  208.                 } else {
  209.                 if(SF_GET_STRING(thisP)) {
  210. --- 485,503 ----
  211.   
  212.             symbolP = thisP->sy_next;
  213.             /* remove C_EFCN and LOCAL (L...) symbols */
  214. !           if(SF_GET_LOCAL(thisP))
  215. !               DL_REMOVE(thisP);
  216. !           else {
  217.                 if(S_GET_STORAGE_CLASS(thisP) == C_EXT &&
  218.                !SF_GET_FUNCTION(thisP)) {
  219.                 /* Remove from the list */
  220. !               DL_REMOVE(thisP);
  221. !               DL_CLEAR(thisP);
  222.                 /* Move at the end of the list */
  223. !               if (symbol_extern_lastP == (symbolS*)0)
  224.                     symbol_externP = thisP;
  225. !               else
  226. !                   DL_APPEND(thisP, symbol_extern_lastP);
  227.                 symbol_extern_lastP = thisP;
  228.                 } else {
  229.                 if(SF_GET_STRING(thisP)) {
  230. --
  231. Loic Dachary     loic@adesign.uucp or loic@afp.uucp 
  232. Voice        +33 1 40 35 20 20
  233.