home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1970 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  38.3 KB
  1. From: loic@adesign.uucp (Loic Dachary)
  2. Newsgroups: alt.sources
  3. Subject: gas-1.36 patches for COFF generation
  4. Message-ID: <LOIC.90Oct16093019@adesign.uucp>
  5. Date: 16 Oct 90 08:30:19 GMT
  6.  
  7.  
  8.     Hello,
  9.  
  10.    I have posted an article last week on gnu.gcc to announce that patches
  11. to gas-1.36 for COFF object file generation were availables.
  12.    About 30 mails have asked for it since then. Sorry if I'm wrong but I will
  13. consider this enough to post. Is there a precise definition of "popular
  14. demand" somewhere ?-)
  15.  
  16.    The patches will be posted in the alt.sources newsgroup. They are about
  17. 160 K due to diff -c verbosity and are splitted in 5 articles. To apply
  18. them just concat all the articles together and pipe the result to patch. They
  19. will succeed on gas-1.36.
  20.    They have been tested on Unisoft 1.3, SunOs 3.5 & 4.0.3, Esix rev C, 
  21. CTIX 3.2, Ix 2.02 and SCO unix. They have been used to compile the following :
  22. Unisoft V.3.2 kernel with tcp/ip extensions, MIT X11R4 libraries and clients, 
  23. bison-1.11, compress-4.0, cproto, cshar, diff-1.14, dist-18.55, flex-2.3, 
  24. gas-1.36, gcc-1.37.1, gdb-3.6, grep-1.5, kermit, make-3.58, makedep, patch,
  25. printf, tar-1.08, texi2roff, uuencode, uutraf-1.2, bash-1.05.
  26.  
  27.    How to make it work ?
  28.  
  29.    . There is a new file named config.gas. It is a shell script that make the 
  30. appropriate links for a given configuration.
  31.      If you have a 68k or an i386, there is a good chance that nothing else
  32. needs to be done.
  33.      However, if your processor is a sparc, ns32k or vax, you will need to 
  34. patch the machine dependent files. I strongly encourage you to contact me.
  35. By mail or voice. I will offer all the assistance I'm able to provide.
  36.  
  37.    . When the links are set up, edit the file Makefile.new according to you 
  38. system (BSD or USG). Refer to the original Makefile if more flags 
  39. or comments are needed.
  40.  
  41.    . Run make -f Makefile.new gas
  42.  
  43.    . Move gas to /usr/local/lib/gcc-as, i.e. a place where gcc can find it.
  44.  
  45.    If you are curious or plan to do some work on gas, read the file
  46. README.coff.
  47.  
  48.     I hope it will help,
  49.  
  50.                        Loic
  51.  
  52.  
  53. *** /dev/null    Mon Oct 15 09:51:48 1990
  54. --- Makefile.new    Mon Oct 15 19:38:09 1990
  55. ***************
  56. *** 0 ****
  57. --- 1,200 ----
  58. + # Makefile for GAS.
  59. + # Copyright (C) 1989, Free Software Foundation
  60. + # 
  61. + # This file is part of GAS, the GNU Assembler.
  62. + # 
  63. + # GAS is free software; you can redistribute it and/or modify
  64. + # it under the terms of the GNU General Public License as published by
  65. + # the Free Software Foundation; either version 1, or (at your option)
  66. + # any later version.
  67. + # 
  68. + # GAS is distributed in the hope that it will be useful,
  69. + # but WITHOUT ANY WARRANTY; without even the implied warranty of
  70. + # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  71. + # GNU General Public License for more details.
  72. + # 
  73. + # You should have received a copy of the GNU General Public License
  74. + # along with GAS; see the file COPYING.  If not, write to
  75. + # the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  76. + 
  77. + BINDIR = /usr/local/bin
  78. + 
  79. + BINARY = gas
  80. + 
  81. + #
  82. + # Add these flags to XCFLAGS below for specific use.
  83. + #
  84. + # If you machine does not have vfprintf, but does have _doprnt(),
  85. + # -DNO_VARARGS
  86. + #
  87. + # If the return-type of a signal-hander is void (instead of int),
  88. + # -DSIGTY
  89. + #
  90. + # To include the mc68851 mmu coprocessor instructions in the 68020 assembler,
  91. + # -Dm68851 
  92. + #
  93. + # If you want the 80386 assembler to correctly handle fsub/fsubr and fdiv/fdivr
  94. + # opcodes (unlike most 80386 assemblers)
  95. + # -DNON_BROKEN_WORDS
  96. + #
  97. + XCFLAGS =
  98. + 
  99. + # Your favorite compiler
  100. + CC = gcc
  101. + 
  102. + # Uncomment the following lines if you use USG
  103. + 
  104. + INCLUDE_DIRS = -I.
  105. + COFF_OBJECTS = stack.o
  106. + CPPFLAGS = -DUSG
  107. + CFLAGS = -g $(CPPFLAGS) $(XCFLAGS)
  108. + LDFLAGS = 
  109. + LOADLIBES = -lPW
  110. + 
  111. + # Uncomment the following lines if you use BSD
  112. + #INCLUDE_DIRS = -I.
  113. + #CPPFLAGS = 
  114. + #CFLAGS = -g $(CPPFLAGS) $(XCFLAGS)
  115. + #LDFLAGS = 
  116. + #LOADLIBES =
  117. + 
  118. + CONFIG_FILES = \
  119. +     machine.c machine.h atof.c oformat.c oformat.h opcode.h
  120. + 
  121. + OBJECTS = \
  122. +     as.o xrealloc.o xmalloc.o hash.o hex-value.o \
  123. +     atof-generic.o append.o messages.o expr.o app.o \
  124. +     frags.o input-file.o input-scrub.o output-file.o \
  125. +     subsegs.o symbols.o version.o flonum-const.o flonum-copy.o \
  126. +     flonum-mult.o strstr.o bignum-copy.o obstack.o write.o read.o \
  127. +     oformat.o machine.o atof.o $(COFF_OBJECTS)
  128. + 
  129. + SOURCES = $(OBJECTS:.o=.c)
  130. + 
  131. + all : $(BINARY)
  132. + 
  133. + install : all
  134. +     cp $(BINARY) $(BINDIR)
  135. + 
  136. + clean : 
  137. +     rm -f $(OBJECTS)
  138. + 
  139. + clobber : clean
  140. +     rm -f $(BINARY) $(CONFIG_FILES) dependencies TAGS m68k.h
  141. + 
  142. + $(BINARY) : $(OBJECTS)
  143. +     $(CC) -o $(BINARY) $(LDFLAGS) $(OBJECTS) $(LOADLIBES)
  144. + 
  145. + TAGS : $(SOURCES)
  146. +     etags $(SOURCES) *.h
  147. + 
  148. + CXREF : $(SOURCES)
  149. +     cxref -c $(INCLUDE_DIRS) $(SOURCES)
  150. + 
  151. + atof.o: \
  152. +     flonum.h \
  153. +     bignum.h
  154. + oformat.o: \
  155. +     as.h \
  156. +     md.h \
  157. +     aout.h \
  158. +     a.out.h \
  159. +     struc-symbol.h \
  160. +     write.h \
  161. +     append.h
  162. + read.o: \
  163. +     oformat.h \
  164. +     a.out.h \
  165. +     as.h \
  166. +     read.h \
  167. +     md.h \
  168. +     hash.h \
  169. +     obstack.h \
  170. +     frags.h \
  171. +     flonum.h \
  172. +     bignum.h \
  173. +     struc-symbol.h \
  174. +     expr.h \
  175. +     symbols.h \
  176. +     sparc.h
  177. + write.o: \
  178. +     oformat.h \
  179. +     a.out.h \
  180. +     as.h \
  181. +     md.h \
  182. +     subsegs.h \
  183. +     obstack.h \
  184. +     struc-symbol.h \
  185. +     write.h \
  186. +     symbols.h \
  187. +     append.h \
  188. +     sparc.h
  189. + obstack.o: \
  190. +     obstack.h
  191. + bignum-copy.o: \
  192. +     bignum.h
  193. + flonum-mult.o: \
  194. +     flonum.h \
  195. +     bignum.h
  196. + flonum-copy.o: \
  197. +     flonum.h \
  198. +     bignum.h
  199. + flonum-const.o: \
  200. +     flonum.h \
  201. +     bignum.h
  202. + symbols.o: \
  203. +     oformat.h \
  204. +     a.out.h \
  205. +     as.h \
  206. +     hash.h \
  207. +     obstack.h \
  208. +     struc-symbol.h \
  209. +     symbols.h \
  210. +     frags.h
  211. + subsegs.o: \
  212. +     oformat.h \
  213. +     a.out.h \
  214. +     as.h \
  215. +     subsegs.h \
  216. +     obstack.h \
  217. +     frags.h \
  218. +     struc-symbol.h \
  219. +     write.h
  220. + input-scrub.o: \
  221. +     as.h \
  222. +     read.h \
  223. +     input-file.h
  224. + input-file.o: \
  225. +     input-file.h
  226. + frags.o: \
  227. +     oformat.h \
  228. +     a.out.h \
  229. +     as.h \
  230. +     subsegs.h \
  231. +     obstack.h \
  232. +     frags.h \
  233. +     struc-symbol.h
  234. + expr.o: \
  235. +     oformat.h \
  236. +     a.out.h \
  237. +     as.h \
  238. +     flonum.h \
  239. +     bignum.h \
  240. +     read.h \
  241. +     struc-symbol.h \
  242. +     expr.h \
  243. +     obstack.h \
  244. +     symbols.h
  245. + messages.o: \
  246. +     as.h
  247. + atof-generic.o: \
  248. +     flonum.h \
  249. +     bignum.h
  250. + hash.o: \
  251. +     hash.h
  252. + as.o: \
  253. +     oformat.h \
  254. +     a.out.h \
  255. +     as.h \
  256. +     struc-symbol.h \
  257. +     write.h
  258. *** /dev/null    Mon Oct 15 09:51:48 1990
  259. --- aout.h    Mon Oct 15 10:22:20 1990
  260. ***************
  261. *** 0 ****
  262. --- 1,160 ----
  263. + #ifndef AOUT_H
  264. + #define AOUT_H
  265. + 
  266. + #include "a.out.h"
  267. + 
  268. + /* Tag to validate a.out object file format processing */
  269. + #define aout
  270. + 
  271. + /* RELOCATION INFORMATION */
  272. + 
  273. + #define relocation_type struct relocation_info    /* Relocation table entry */
  274. + #define RELSZ sizeof(relocation_type)        /* For coff compatibility */
  275. +  
  276. + /* SYMBOL TABLE */
  277. + /* Symbol table entry data type */
  278. + 
  279. + #define symbol_type struct nlist    /* Symbol table entry */
  280. + 
  281. + /* If compiler generate leading underscores, remove them. */
  282. + 
  283. + #ifndef STRIP_UNDERSCORE
  284. + #define STRIP_UNDERSCORE 0
  285. + #endif /* STRIP_UNDERSCORE */
  286. + 
  287. + /* Symbol table macros and constants */
  288. + 
  289. + /*
  290. +  *  Macros to extract information from a symbol table entry.
  291. +  *  This syntaxic indirection allows independence regarding a.out or coff.
  292. +  *  The argument (s) of all these macros is a pointer to a symbol table entry.
  293. +  */
  294. + 
  295. + /* Predicates */
  296. + /* True if in text segment */
  297. + #define S_IS_TEXT(s)        (((s)->sy_type & N_TYPE) == N_TEXT)
  298. + /* True if in data segment */
  299. + #define S_IS_DATA(s)        (((s)->sy_type & N_TYPE) == N_DATA)
  300. + /* True if in bss segment */
  301. + #define S_IS_BSS(s)        (((s)->sy_type & N_TYPE) == N_BSS)
  302. + /* True if in abs segment */
  303. + #define S_IS_ABS(s)        (((s)->sy_type & N_TYPE) == N_ABS)
  304. + /* True if the symbol is external */
  305. + #define S_IS_EXTERNAL(s)    ((s)->sy_type & N_EXT)
  306. + /* True if symbol has been defined, ie is in N_{TEXT,DATA,BSS,ABS} or N_EXT */
  307. + #define S_IS_DEFINED(s)        (((s)->sy_type & N_TYPE) != N_UNDF)
  308. + /* True if a debug special symbol entry */
  309. + #define S_IS_DEBUG(s)        ((s)->sy_type & N_STAB)
  310. + /* True if a symbol is local symbol name */
  311. + /* A symbol name whose name begin with ^A is a gas internal pseudo symbol
  312. +    nameless symbols come from .stab directives. */
  313. + #define S_IS_LOCAL(s)        (S_GET_NAME(s) && \
  314. +                  !S_IS_DEBUG(s) && \
  315. +                  (S_GET_NAME(s)[0] == '\001' || \
  316. +                   (S_GET_NAME(s)[0] == 'L' && !flagseen['L'])))
  317. + /* True if a symbol is not defined in this file */
  318. + #define S_IS_EXTERN(s)        ((s)->sy_type & N_EXT)
  319. + /* True if the symbol has been generated because of a .stabd directive */
  320. + #define S_IS_STABD(s)        ((s)->sy_name == (char *)0)
  321. + 
  322. + /* Accessors */
  323. + /* The value of the symbol */
  324. + #define S_GET_VALUE(s)        ((s)->sy_value)
  325. + /* The name of the symbol */
  326. + #define S_GET_NAME(s)        ((s)->sy_name)
  327. + /* The pointer to the string table */
  328. + #define S_GET_OFFSET(s)        ((s)->sy_strx)
  329. + /* The numeric value of the segment */
  330. + #define S_GET_SEGMENT(s)    ((s)->sy_type & N_TYPE)
  331. + /* The n_other expression value */
  332. + #define S_GET_OTHER(s)        ((s)->sy_other)
  333. + /* The n_desc expression value */
  334. + #define S_GET_DESC(s)        ((s)->sy_desc)
  335. + 
  336. + /* Modifiers */
  337. + /* Set the value of the symbol */
  338. + #define S_SET_VALUE(s,v)    ((s)->sy_value = (v))
  339. + /* Assume that a symbol cannot be simultaneously in more than on segment */
  340. + /* Set the segment to text */
  341. + #define S_SET_TEXT(s)        ((s)->sy_type &= ~N_TYPE,(s)->sy_type|=N_TEXT)
  342. + /* Set the segment to data */
  343. + #define S_SET_DATA(s)        ((s)->sy_type &= ~N_TYPE,(s)->sy_type|=N_DATA)
  344. + /* Set the segment to bss */
  345. + #define S_SET_BSS(s)        ((s)->sy_type &= ~N_TYPE,(s)->sy_type|=N_BSS)
  346. + /* Set the segment to abs */
  347. + #define S_SET_ABS(s)        ((s)->sy_type &= ~N_TYPE,(s)->sy_type|=N_ABS)
  348. + /* The symbol is external */
  349. + #define S_SET_EXTERNAL(s)    ((s)->sy_type |= N_EXT)
  350. + /* The symbol is not external */
  351. + #define S_CLEAR_EXTERNAL(s)    ((s)->sy_type &= ~N_EXT)
  352. + /* Set the name of the symbol */
  353. + #define S_SET_NAME(s,v)        ((s)->sy_name = v)
  354. + /* Set the offset in the string table */
  355. + #define S_SET_OFFSET(s,v)    ((s)->sy_strx = v)
  356. + /* Set the n_other expression value */
  357. + #define S_SET_OTHER(s,v)    ((s)->sy_other = (v))
  358. + /* Set the n_desc expression value */
  359. + #define S_SET_DESC(s,v)        ((s)->sy_desc = (v))
  360. + 
  361. + /* File header macro and type definition */
  362. + 
  363. + #define H_GET_FILE_SIZE(h)    (sizeof(struct exec) + \
  364. +                  H_GET_TEXT_SIZE(h) + H_GET_DATA_SIZE(h) + \
  365. +                  H_GET_SYMBOL_TABLE_SIZE(h) + \
  366. +                  H_GET_TEXT_RELOCATION_SIZE(h) + \
  367. +                  H_GET_DATA_RELOCATION_SIZE(h) + \
  368. +                  (h)->string_table_size)
  369. + 
  370. + #define H_GET_TEXT_SIZE(h)        ((h)->header.a_text)
  371. + #define H_GET_DATA_SIZE(h)        ((h)->header.a_data)
  372. + #define H_GET_BSS_SIZE(h)        ((h)->header.a_bss)
  373. + #define H_GET_TEXT_RELOCATION_SIZE(h)    ((h)->header.a_trsize)
  374. + #define H_GET_DATA_RELOCATION_SIZE(h)    ((h)->header.a_drsize)
  375. + #define H_GET_SYMBOL_TABLE_SIZE(h)    ((h)->header.a_syms)
  376. + #define H_GET_MAGIC_NUMBER(h)        ((h)->header.a_magic)
  377. + #define H_GET_ENTRY_POINT(h)        ((h)->header.a_entry)
  378. + #define H_GET_STRING_SIZE(h)        ((h)->string_table_size)
  379. + #ifdef EXEC_MACHINE_TYPE
  380. + #define H_GET_MACHINE_TYPE(h)        ((h)->header.a_machtype)
  381. + #endif /* EXEC_MACHINE_TYPE */
  382. + #ifdef EXEC_VERSION
  383. + #define H_GET_VERSION(h)        ((h)->header.a_version)
  384. + #endif /* EXEC_VERSION */
  385. + 
  386. + #define H_SET_TEXT_SIZE(h,v)        ((h)->header.a_text = (v))
  387. + #define H_SET_DATA_SIZE(h,v)        ((h)->header.a_data = (v))
  388. + #define H_SET_BSS_SIZE(h,v)        ((h)->header.a_bss = (v))
  389. + #define H_SET_RELOCATION_SIZE(h,t,d)    (H_SET_TEXT_RELOCATION_SIZE((h),(t)),\
  390. +                      H_SET_DATA_RELOCATION_SIZE((h),(d)))
  391. + #define H_SET_TEXT_RELOCATION_SIZE(h,v)    ((h)->header.a_trsize = (v))
  392. + #define H_SET_DATA_RELOCATION_SIZE(h,v)    ((h)->header.a_drsize = (v))
  393. + #define H_SET_SYMBOL_TABLE_SIZE(h,v)    ((h)->header.a_syms = (v) * \
  394. +                      sizeof(struct nlist))
  395. + #define H_SET_MAGIC_NUMBER(h,v)        ((h)->header.a_magic = (v))
  396. + #define H_SET_ENTRY_POINT(h,v)        ((h)->header.a_entry = (v))
  397. + #define H_SET_STRING_SIZE(h,v)        ((h)->string_table_size = (v))
  398. + #ifdef EXEC_MACHINE_TYPE
  399. + #define H_SET_MACHINE_TYPE(h,v)        ((h)->header.a_machtype = (v))
  400. + #endif /* EXEC_MACHINE_TYPE */
  401. + #ifdef EXEC_VERSION
  402. + #define H_SET_VERSION(h,v)        ((h)->header.a_version = (v))
  403. + #endif /* EXEC_VERSION */
  404. + 
  405. + /* Output the file(s) header(s) in a character array */
  406. + #define H_OUTPUT(h,where)    a_header_append(&(h)->header,(where))
  407. + 
  408. + /* Output a symbol entry */
  409. + #define SYMBOL_OUTPUT(s,w)    a_symbol_append((s), (w))
  410. + 
  411. + typedef struct {
  412. +     struct exec    header;            /* a.out header */
  413. +     long int    string_table_size;    /* names + '\0' + sizeof(int) */
  414. + } object_headers;
  415. + 
  416. + /* Format independent interface functions */
  417. + extern void        emit_relocations();
  418. + extern void        emit_symbols();
  419. + extern void        a_header_append();
  420. + extern void        a_symbol_append();
  421. + 
  422. + #endif /* AOUT_H */
  423. *** /dev/null    Mon Oct 15 09:51:48 1990
  424. --- coff.h    Mon Oct 15 09:59:28 1990
  425. ***************
  426. *** 0 ****
  427. --- 1,366 ----
  428. + #ifndef COFF_H
  429. + #define COFF_H
  430. + 
  431. + #include <filehdr.h>
  432. + #include <aouthdr.h>
  433. + #include <scnhdr.h>
  434. + #include <storclass.h>
  435. + #include <linenum.h>
  436. + #include <syms.h>
  437. + #include <reloc.h>
  438. + 
  439. + #include "machine.h"
  440. + #include "stack.h"
  441. + 
  442. + /* Tag to validate coff object file format processing */
  443. + #define coff
  444. + 
  445. + /* Define some processor dependent values according to the processor we are
  446. +    on. */
  447. + #if defined(PROCESSOR_68000)
  448. + 
  449. + #define BYTE_ORDERING        F_AR32W    /* See filehdr.h for more info. */
  450. + #define FILE_HEADER_MAGIC    MC68MAGIC  /* ... */
  451. + 
  452. + #elif defined(PROCESSOR_i386)
  453. + 
  454. + #define BYTE_ORDERING        F_AR32WR   /* See filehdr.h for more info. */
  455. + #define FILE_HEADER_MAGIC    I386MAGIC  /* ... */
  456. + 
  457. + #elif
  458. + you lose
  459. + #endif 
  460. + 
  461. + /* Magic number of paged executable. */
  462. + #define OMAGIC    0413
  463. + 
  464. + /* Add these definitions to have a consistent convention for all the
  465. +    types used in COFF format. */
  466. + #define AOUTHDR            struct aouthdr
  467. + #define AOUTHDRSZ        sizeof(AOUTHDR)
  468. + 
  469. + /* RELOCATION INFORMATION */
  470. + 
  471. + #define relocation_type RELOC    /* Relocation table entry */
  472. +  
  473. + /* SYMBOL TABLE */
  474. + 
  475. + /* Symbol table entry data type */
  476. + 
  477. + #define symbol_type SYMENT    /* Symbol table entry */
  478. + 
  479. + /* If compiler generate leading underscores, remove them. */
  480. + 
  481. + #ifndef STRIP_UNDERSCORE
  482. + #define STRIP_UNDERSCORE 0
  483. + #endif /* STRIP_UNDERSCORE */
  484. + #define DO_NOT_STRIP    0
  485. + #define DO_STRIP    1
  486. + 
  487. + /* Symbol table macros and constants */
  488. + 
  489. + /* Possible and usefull section number in symbol table 
  490. +  * The values of TEXT, DATA and BSS may not be portable.
  491. +  */
  492. + 
  493. + #define C_TEXT_SECTION        1
  494. + #define C_DATA_SECTION        2
  495. + #define C_BSS_SECTION        3
  496. + #define C_ABS_SECTION        N_ABS
  497. + #define C_UNDEF_SECTION        N_UNDEF
  498. + #define C_DEBUG_SECTION        N_DEBUG
  499. + #define C_NTV_SECTION        N_TV
  500. + #define C_PTV_SECTION        P_TV
  501. + 
  502. + /*
  503. +  *  Macros to extract information from a symbol table entry.
  504. +  *  This syntaxic indirection allows independence regarding a.out or coff.
  505. +  *  The argument (s) of all these macros is a pointer to a symbol table entry.
  506. +  */
  507. + 
  508. + /* Predicates */
  509. + /* True if in text segment */
  510. + #define S_IS_TEXT(s)        ((s)->sy_scnum == C_TEXT_SECTION)
  511. + /* True if in data segment */
  512. + #define S_IS_DATA(s)        ((s)->sy_scnum == C_DATA_SECTION)
  513. + /* True if in bss segment */
  514. + #define S_IS_BSS(s)        ((s)->sy_scnum == C_BSS_SECTION)
  515. + /* True if in bss segment */
  516. + #define S_IS_ABS(s)        ((s)->sy_scnum == C_ABS_SECTION)
  517. + /* True if the symbol is external */
  518. + #define S_IS_EXTERNAL(s)        ((s)->sy_scnum == C_UNDEF_SECTION)
  519. + /* True if symbol has been defined, ie :
  520. +   section > 0 (DATA, TEXT or BSS)
  521. +   section == 0 and value > 0 (external bss symbol) */
  522. + #define S_IS_DEFINED(s)         ((s)->sy_scnum > C_UNDEF_SECTION || \
  523. +                  ((s)->sy_scnum == C_UNDEF_SECTION && \
  524. +                   (s)->sy_value > 0))
  525. + /* True if a debug special symbol entry */
  526. + #define S_IS_DEBUG(s)        ((s)->sy_scnum == C_DEGUG_SECTION)
  527. + /* True if a symbol is local symbol name */
  528. + /* A symbol name whose name begin with ^A is a gas internal pseudo symbol */
  529. + #define S_IS_LOCAL(s)        (S_GET_NAME(s)[0] == '\001' || \
  530. +                  (S_LOCAL_NAME(s) && !flagseen['L']))
  531. + /* True if a symbol is not defined in this file */
  532. + #define S_IS_EXTERN(s)        ((s)->sy_scnum == 0 && (s)->sy_value == 0)
  533. + /*
  534. +  * True if a symbol can be multiply defined (bss symbols have this def
  535. +  * though it is bad practice)
  536. +  */
  537. + #define S_IS_COMMON(s)        ((s)->sy_scnum == 0 && (s)->sy_value != 0)
  538. + /* True if a symbol name is in the string table, i.e. its length is > 8. */
  539. + #define S_IS_STRING(s)        (strlen(S_GET_NAME(s)) > 8 ? 1 : 0)
  540. + 
  541. + /* Accessors */
  542. + /* The name of the symbol */
  543. + #define S_GET_NAME(s)        ((char*)(s)->sy_offset)
  544. + /* The pointer to the string table */
  545. + #define S_GET_OFFSET(s)         ((s)->sy_offset)
  546. + /* The zeroes if symbol name is longer than 8 chars */
  547. + #define S_GET_ZEROES(s)        ((s)->sy_zeroes)
  548. + /* The value of the symbol */
  549. + #define S_GET_VALUE(s)        ((s)->sy_value)
  550. + /* The numeric value of the segment */
  551. + #define S_GET_SEGMENT(s)        ((s)->sy_scnum)
  552. + /* The data type */
  553. + #define S_GET_DATA_TYPE(s)    ((s)->sy_type)
  554. + /* The storage class */
  555. + #define S_GET_STORAGE_CLASS(s)    ((s)->sy_sclass)
  556. + /* The number of auxiliary entries */
  557. + #define S_GET_NUMBER_AUXILIARY(s)    ((s)->sy_numaux)
  558. + 
  559. + /* Modifiers */
  560. + /* Set the name of the symbol */
  561. + #define S_SET_NAME(s,v)        ((s)->sy_offset = (unsigned long)(v))
  562. + /* Set the offset of the symbol */
  563. + #define S_SET_OFFSET(s,v)    ((s)->sy_offset = (v))
  564. + /* The zeroes if symbol name is longer than 8 chars */
  565. + #define S_SET_ZEROES(s,v)        ((s)->sy_zeroes = (v))
  566. + /* Set the value of the symbol */
  567. + #define S_SET_VALUE(s,v)    ((s)->sy_value = (v))
  568. + /* The numeric value of the segment */
  569. + #define S_SET_SEGMENT(s,v)        ((s)->sy_scnum = (v))
  570. + /* The data type */
  571. + #define S_SET_DATA_TYPE(s,v)    ((s)->sy_type = (v))
  572. + /* The storage class */
  573. + #define S_SET_STORAGE_CLASS(s,v)    ((s)->sy_sclass = (v))
  574. + /* The number of auxiliary entries */
  575. + #define S_SET_NUMBER_AUXILIARY(s,v)    ((s)->sy_numaux = (v))
  576. + 
  577. + /* Additional modifiers */
  578. + /* Assume that a symbol cannot be simultaneously in more than on segment */
  579. + /* Set the segment to text */
  580. + #define S_SET_TEXT(s)        ((s)->sy_scnum = C_TEXT_SECTION)
  581. + /* Set the segment to data */
  582. + #define S_SET_DATA(s)        ((s)->sy_scnum = C_DATA_SECTION)
  583. + /* Set the segment to bss */
  584. + #define S_SET_BSS(s)        ((s)->sy_scnum = C_BSS_SECTION)
  585. + /* Set the segment to abs */
  586. + #define S_SET_ABS(s)        ((s)->sy_scnum = C_ABS_SECTION)
  587. + /* The symbol is external (does not mean undefined) */
  588. + #define S_SET_EXTERNAL(s)       S_SET_STORAGE_CLASS(s,C_EXT)
  589. + 
  590. + /* Auxiliary entry macros. SA_ stands for symbol auxiliary */
  591. + /* Omit the tv related fields */
  592. + /* Accessors */
  593. + #define SA_GET_SYM_TAGNDX(s)    ((s)->sy_auxent.x_sym.x_tagndx)
  594. + #define SA_GET_SYM_LNNO(s)    ((s)->sy_auxent.x_sym.x_misc.x_lnsz.x_lnno)
  595. + #define SA_GET_SYM_SIZE(s)    ((s)->sy_auxent.x_sym.x_misc.x_lnsz.x_size)
  596. + #define SA_GET_SYM_FSIZE(s)    ((s)->sy_auxent.x_sym.x_misc.x_fsize)
  597. + #define SA_GET_SYM_LNNOPTR(s)    ((s)->sy_auxent.x_sym.x_fcnary.x_fcn.x_lnnoptr)
  598. + #define SA_GET_SYM_ENDNDX(s)    ((s)->sy_auxent.x_sym.x_fcnary.x_fcn.x_endndx)
  599. + #define SA_GET_SYM_DIMEN(s,i)    ((s)->sy_auxent.x_sym.x_fcnary.x_ary.x_dimen[(i)])
  600. + #define SA_GET_FILE_FNAME(s)    ((s)->sy_auxent.x_file.x_fname)
  601. + #define SA_GET_SCN_SCNLEN(s)    ((s)->sy_auxent.x_scn.x_scnlen)
  602. + #define SA_GET_SCN_NRELOC(s)    ((s)->sy_auxent.x_scn.x_nreloc)
  603. + #define SA_GET_SCN_NLINNO(s)    ((s)->sy_auxent.x_scn.x_nlinno)
  604. + 
  605. + /* Modifiers */
  606. + #define SA_SET_SYM_TAGNDX(s,v)    ((s)->sy_auxent.x_sym.x_tagndx=(v))
  607. + #define SA_SET_SYM_LNNO(s,v)    ((s)->sy_auxent.x_sym.x_misc.x_lnsz.x_lnno=(v))
  608. + #define SA_SET_SYM_SIZE(s,v)    ((s)->sy_auxent.x_sym.x_misc.x_lnsz.x_size=(v))
  609. + #define SA_SET_SYM_FSIZE(s,v)    ((s)->sy_auxent.x_sym.x_misc.x_fsize=(v))
  610. + #define SA_SET_SYM_LNNOPTR(s,v)    ((s)->sy_auxent.x_sym.x_fcnary.x_fcn.x_lnnoptr=(v))
  611. + #define SA_SET_SYM_ENDNDX(s,v)    ((s)->sy_auxent.x_sym.x_fcnary.x_fcn.x_endndx=(v))
  612. + #define SA_SET_SYM_DIMEN(s,i,v)    ((s)->sy_auxent.x_sym.x_fcnary.x_ary.x_dimen[(i)]=(v))
  613. + #define SA_SET_FILE_FNAME(s,v)    strncpy((s)->sy_auxent.x_file.x_fname,(v),FILNMLEN)
  614. + #define SA_SET_SCN_SCNLEN(s,v)    ((s)->sy_auxent.x_scn.x_scnlen=(v))
  615. + #define SA_SET_SCN_NRELOC(s,v)    ((s)->sy_auxent.x_scn.x_nreloc=(v))
  616. + #define SA_SET_SCN_NLINNO(s,v)    ((s)->sy_auxent.x_scn.x_nlinno=(v))
  617. + 
  618. + /* Internal use only definitions. SF_ stands for symbol flags. */
  619. + 
  620. + /* These values can be assigned to sy_flags field of a symbolS */
  621. + /* The first 16 bits are general purpose. The last 16 bits are debug info */
  622. + 
  623. + #define SF_STATICS        0x00000001 /* Mark the .text & all symbols */
  624. + #define SF_DEFINED        0x00000002 /* Symbol is defined in this file */
  625. + #define SF_STRING        0x00000004 /* Symbol name length > 8 */
  626. + #define SF_LOCAL        0x00000008 /* Symbol must not be emitted */
  627. + 
  628. + #define SF_FUNCTION        0x00010000 /* The symbol is a function */
  629. + #define SF_PROCESS        0x00020000 /* Process symbol before write */
  630. + #define SF_TAGGED        0x00040000 /* Is associated with a tag */
  631. + #define SF_TAG            0x00080000 /* Is a tag */
  632. + #define SF_DEBUG        0x00100000 /* Is in debug or abs section */
  633. + 
  634. + /* Masks */
  635. + #define SF_NORMAL_MASK        0x0000ffff /* Non debug information */
  636. + #define SF_DEBUG_MASK        0xffff0000 /* Debug information */
  637. + 
  638. + /* Accessors */
  639. + #define SF_GET(s)        ((s)->sy_flags)
  640. + #define SF_GET_NORMAL_FIELD(s)    ((s)->sy_flags & SF_NORMAL_MASK)
  641. + #define SF_GET_DEBUG_FIELD(s)    ((s)->sy_flags & SF_DEBUG_MASK)
  642. + #define SF_GET_FILE(s)        ((s)->sy_flags & SF_FILE)
  643. + #define SF_GET_STATICS(s)    ((s)->sy_flags & SF_STATICS)
  644. + #define SF_GET_DEFINED(s)    ((s)->sy_flags & SF_DEFINED)
  645. + #define SF_GET_STRING(s)    ((s)->sy_flags & SF_STRING)
  646. + #define SF_GET_LOCAL(s)        ((s)->sy_flags & SF_LOCAL)
  647. + #define SF_GET_FUNCTION(s)      ((s)->sy_flags & SF_FUNCTION)
  648. + #define SF_GET_PROCESS(s)    ((s)->sy_flags & SF_PROCESS)
  649. + #define SF_GET_DEBUG(s)        ((s)->sy_flags & SF_DEBUG)
  650. + #define SF_GET_TAGGED(s)    ((s)->sy_flags & SF_TAGGED)
  651. + #define SF_GET_TAG(s)        ((s)->sy_flags & SF_TAG)
  652. + 
  653. + /* Modifiers */
  654. + #define SF_SET(s,v)        ((s)->sy_flags = (v))
  655. + #define SF_SET_NORMAL_FIELD(s,v)((s)->sy_flags |= ((v) & SF_NORMAL_MASK))
  656. + #define SF_SET_DEBUG_FIELD(s,v)    ((s)->sy_flags |= ((v) & SF_DEBUG_MASK))
  657. + #define SF_SET_FILE(s)        ((s)->sy_flags |= SF_FILE)
  658. + #define SF_SET_STATICS(s)    ((s)->sy_flags |= SF_STATICS)
  659. + #define SF_SET_DEFINED(s)    ((s)->sy_flags |= SF_DEFINED)
  660. + #define SF_SET_STRING(s)    ((s)->sy_flags |= SF_STRING)
  661. + #define SF_SET_LOCAL(s)        ((s)->sy_flags |= SF_LOCAL)
  662. + #define SF_SET_FUNCTION(s)      ((s)->sy_flags |= SF_FUNCTION)
  663. + #define SF_SET_PROCESS(s)    ((s)->sy_flags |= SF_PROCESS)
  664. + #define SF_SET_DEBUG(s)        ((s)->sy_flags |= SF_DEBUG)
  665. + #define SF_SET_TAGGED(s)    ((s)->sy_flags |= SF_TAGGED)
  666. + #define SF_SET_TAG(s)        ((s)->sy_flags |= SF_TAG)
  667. + 
  668. + /* File header macro and type definition */
  669. + 
  670. + /*
  671. +  * File position calculators. Beware to use them when all the
  672. +  * appropriate fields are set in the header.
  673. +  */
  674. + 
  675. + #define H_GET_FILE_SIZE(h) \
  676. +     (long)(FILHSZ + AOUTHDRSZ + \
  677. +        H_GET_NUMBER_OF_SECTIONS(h) * SCNHSZ + \
  678. +        H_GET_TEXT_SIZE(h) + H_GET_DATA_SIZE(h) + \
  679. +        H_GET_RELOCATION_SIZE(h) + H_GET_LINENO_SIZE(h) + \
  680. +        H_GET_SYMBOL_TABLE_SIZE(h) * SYMESZ + \
  681. +        (h)->string_table_size)
  682. + #define H_GET_TEXT_FILE_OFFSET(h) \
  683. +     (long)(FILHSZ + AOUTHDRSZ + \
  684. +        H_GET_NUMBER_OF_SECTIONS(h) * SCNHSZ)
  685. + #define H_GET_DATA_FILE_OFFSET(h) \
  686. +     (long)(FILHSZ + AOUTHDRSZ + \
  687. +        H_GET_NUMBER_OF_SECTIONS(h) * SCNHSZ + \
  688. +        H_GET_TEXT_SIZE(h))
  689. + #define H_GET_BSS_FILE_OFFSET(h) 0
  690. + #define H_GET_RELOCATION_FILE_OFFSET(h) \
  691. +     (long)(FILHSZ + AOUTHDRSZ + \
  692. +        H_GET_NUMBER_OF_SECTIONS(h) * SCNHSZ + \
  693. +        H_GET_TEXT_SIZE(h) + H_GET_DATA_SIZE(h))
  694. + #define H_GET_LINENO_FILE_OFFSET(h) \
  695. +     (long)(FILHSZ + AOUTHDRSZ + \
  696. +        H_GET_NUMBER_OF_SECTIONS(h) * SCNHSZ + \
  697. +        H_GET_TEXT_SIZE(h) + H_GET_DATA_SIZE(h) + \
  698. +        H_GET_RELOCATION_SIZE(h))
  699. + #define H_GET_SYMBOL_TABLE_FILE_OFFSET(h) \
  700. +     (long)(FILHSZ + AOUTHDRSZ + \
  701. +        H_GET_NUMBER_OF_SECTIONS(h) * SCNHSZ + \
  702. +        H_GET_TEXT_SIZE(h) + H_GET_DATA_SIZE(h) + \
  703. +        H_GET_RELOCATION_SIZE(h) + H_GET_LINENO_SIZE(h))
  704. + 
  705. + /* Accessors */
  706. + /* aouthdr */
  707. + #define H_GET_MAGIC_NUMBER(h)           ((h)->aouthdr.magic)
  708. + #define H_GET_VERSION_STAMP(h)        ((h)->aouthdr.vstamp)
  709. + #define H_GET_TEXT_SIZE(h)              ((h)->aouthdr.tsize)
  710. + #define H_GET_DATA_SIZE(h)              ((h)->aouthdr.dsize)
  711. + #define H_GET_BSS_SIZE(h)               ((h)->aouthdr.bsize)
  712. + #define H_GET_ENTRY_POINT(h)            ((h)->aouthdr.entry)
  713. + #define H_GET_TEXT_START(h)        ((h)->aouthdr.text_start)
  714. + #define H_GET_DATA_START(h)        ((h)->aouthdr.data_start)
  715. + /* filehdr */
  716. + #define H_GET_FILE_MAGIC_NUMBER(h)    ((h)->filehdr.f_magic)
  717. + #define H_GET_NUMBER_OF_SECTIONS(h)    ((h)->filehdr.f_nscns)
  718. + #define H_GET_TIME_STAMP(h)        ((h)->filehdr.f_timdat)
  719. + #define H_GET_SYMBOL_TABLE_POINTER(h)    ((h)->filehdr.f_symptr)
  720. + #define H_GET_SYMBOL_TABLE_SIZE(h)    ((h)->filehdr.f_nsyms)
  721. + #define H_GET_SIZEOF_OPTIONAL_HEADER(h)    ((h)->filehdr.f_opthdr)
  722. + #define H_GET_FLAGS(h)            ((h)->filehdr.f_flags)
  723. + /* Extra fields to achieve bsd a.out compatibility and for convinience */
  724. + #define H_GET_RELOCATION_SIZE(h)       ((h)->relocation_size)
  725. + #define H_GET_STRING_SIZE(h)            ((h)->string_table_size)
  726. + #define H_GET_LINENO_SIZE(h)            ((h)->lineno_size)
  727. + 
  728. + /* Modifiers */
  729. + /* aouthdr */
  730. + #define H_SET_MAGIC_NUMBER(h,v)         ((h)->aouthdr.magic = (v))
  731. + #define H_SET_VERSION_STAMP(h,v)    ((h)->aouthdr.vstamp = (v))
  732. + #define H_SET_TEXT_SIZE(h,v)            ((h)->aouthdr.tsize = (v))
  733. + #define H_SET_DATA_SIZE(h,v)            ((h)->aouthdr.dsize = (v))
  734. + #define H_SET_BSS_SIZE(h,v)             ((h)->aouthdr.bsize = (v))
  735. + #define H_SET_ENTRY_POINT(h,v)          ((h)->aouthdr.entry = (v))
  736. + #define H_SET_TEXT_START(h,v)        ((h)->aouthdr.text_start = (v))
  737. + #define H_SET_DATA_START(h,v)        ((h)->aouthdr.data_start = (v))
  738. + /* filehdr */
  739. + #define H_SET_FILE_MAGIC_NUMBER(h,v)    ((h)->filehdr.f_magic = (v))
  740. + #define H_SET_NUMBER_OF_SECTIONS(h,v)    ((h)->filehdr.f_nscns = (v))
  741. + #define H_SET_TIME_STAMP(h,v)        ((h)->filehdr.f_timdat = (v))
  742. + #define H_SET_SYMBOL_TABLE_POINTER(h,v)    ((h)->filehdr.f_symptr = (v))
  743. + #define H_SET_SYMBOL_TABLE_SIZE(h,v)    ((h)->filehdr.f_nsyms = (v))
  744. + #define H_SET_SIZEOF_OPTIONAL_HEADER(h,v) ((h)->filehdr.f_opthdr = (v))
  745. + #define H_SET_FLAGS(h,v)        ((h)->filehdr.f_flags = (v))
  746. + /* Extra fields to achieve bsd a.out compatibility and for convinience */
  747. + #define H_SET_RELOCATION_SIZE(h,t,d)     ((h)->relocation_size = (t)+(d))
  748. + #define H_SET_STRING_SIZE(h,v)          ((h)->string_table_size = (v))
  749. + #define H_SET_LINENO_SIZE(h,v)          ((h)->lineno_size = (v))
  750. + 
  751. + /* Output the file(s) header(s) in a character array */
  752. + #define H_OUTPUT(h,where) c_header_append(&(h)->aouthdr, &(h)->filehdr,(where))
  753. + 
  754. + /* Output a symbol entry */
  755. + #define SYMBOL_OUTPUT(s,w)    c_symbol_append((s), (w))
  756. + 
  757. + typedef struct {
  758. +     AOUTHDR       aouthdr;             /* a.out header */
  759. +     FILHDR       filehdr;        /* File header, not machine dep. */
  760. +     long int       string_table_size;   /* names + '\0' + sizeof(int) */
  761. +     long int       relocation_size;    /* Cumulated size of relocation
  762. +                        information for all sections in
  763. +                        bytes. */
  764. +     long int       lineno_size;        /* Size of the line number information
  765. +                        table in bytes */
  766. + } object_headers;
  767. + 
  768. + /* Format independent interface functions */
  769. + extern void             emit_relocations();
  770. + extern void        emit_symbols();
  771. + extern void        c_symbol_merge();
  772. + extern void             c_header_append();
  773. + extern void             c_symbol_append();
  774. + extern void        c_section_header_append();
  775. + extern char*        c_section_symbol();
  776. + extern void        c_section_header();
  777. + 
  778. + /* --------------  Line number handling ------- */
  779. + extern int        text_lineno_number;
  780. + 
  781. + typedef struct internal_lineno {
  782. +     LINENO line;            /* The lineno structure itself */
  783. +     char* frag;                /* Frag the line number is related to*/
  784. +     struct internal_lineno* next;    /* Forward chain pointer */
  785. + } lineno;
  786. + 
  787. + extern lineno* c_new_file();
  788. + extern void    emit_lineno();
  789. + extern lineno* lineno_rootP;
  790. + extern lineno* lineno_lastP;
  791. + #endif /* COFF_H */
  792. + 
  793. + 
  794. *** /dev/null    Mon Oct 15 09:51:48 1990
  795. --- m-motor.h    Mon Oct 15 08:12:50 1990
  796. ***************
  797. *** 0 ****
  798. --- 1,10 ----
  799. + /* Machine specific defines for the unisoft 680x0 V.3.2 version 1.3 */
  800. + #define unisoft
  801. + #define PROCESSOR_68000
  802. + 
  803. + /* Return true if s (a non null string pointer), points to a local variable
  804. +    name. */
  805. + #define S_LOCAL_NAME(s)  (S_GET_NAME(s)[0] == 'L')
  806. + 
  807. + /* Remove leading underscore from the gcc generated symbol names */
  808. + #define STRIP_UNDERSCORE 1
  809. *** /dev/null    Mon Oct 15 09:51:48 1990
  810. --- README.coff    Mon Oct 15 17:42:45 1990
  811. ***************
  812. *** 0 ****
  813. --- 1,79 ----
  814. + The coff patches intend to do the following :
  815. + 
  816. +    . Generate coff files very compatible with vanilla linker.
  817. +    . Understands coff debug directives.
  818. + 
  819. + Here are the guidelines of the work I have done :
  820. + 
  821. +    . Encapsulate format dependent code in macros where it is possible.
  822. +    . Where not possible differenciate with #ifdef
  823. +    . try not to change the calling conventions of the existing functions. 
  824. +     I made one exception : symbol_new. I would be pleased to hear about
  825. +     a better solution. (symbols.c)
  826. +    . Extend the use of N_TYPE_seg seg_N_TYPE tables so that segments can
  827. +     be manipulated without using their format dependent name. (subsegs.c)
  828. +    . Write a function to parse the .def debug directives
  829. +    . Write two small peaces of code to handle the .ln directive.
  830. +    . In write.c try to move all the cross compilation specifics (md_..) to
  831. +      format dependent files.
  832. +    . Encapsulate the data structures using generic types, macros calls.
  833. +    . Added too much code to resolve the complexity of the symbol table
  834. +      generated. Most of the code deals with debug stuff.
  835. +    . Create another makefile, shorter, cleaner.
  836. +    . Create a config.gas shell script to mimic the gcc,gdb... configuration
  837. +     mechanism. This reduce the complexity of the makefile.
  838. +    . Isolate the format dependent code in two files 
  839. +     coff.c coff.h
  840. +     aout.c aout.h
  841. +     elf.c elf.h    [ Not yet ;-]
  842. +    . added a little stack management routine for coff in file stack.c
  843. +    . isolate os specific flags in m- files
  844. + 
  845. + If further development is planed on it is should solve the following problems :
  846. + 
  847. +    . Encapsulate DESC & OTHER tests in a macro call. I'm not aware
  848. +     of their exact semantics.
  849. +    . Clean up the seg_N_TYPE N_TYPE_seg naming scheme
  850. +    . Try to remove as much reference to segment dependent names as possible
  851. +    . Find a cleaner solution for symbol_new.
  852. +    . Report the modifications on vax, ns32k, sparc machine dependent files.
  853. +     To acheive this goal, search for \<N_, sy_, symbol_new and symbolS.
  854. +    . Allow an arbitrary number of segments (spare sections .ctor .dtor .bletch)
  855. +    . Find a way to extend the debug information without breaking sdb
  856. +      compatibility. Mainly intended for G++.
  857. +    . should it do something to generate shared libraries objects ?
  858. + 
  859. + I have tested this code on the following processor/os. gcc-1.37.1 was
  860. +    used for all the tests.
  861. + 
  862. + 386    SCO unix ODT
  863. +     gcc-1.37.1, gas, emacs-18.55
  864. + 
  865. + 386    Esix rev C
  866. +     gas-1.36/write.s
  867. + 
  868. + 386    Ix 2.02
  869. +     gas, all the X11R4 mit clients
  870. + 
  871. + 386    CTIX 3.2
  872. +     xsol (X11R4 solitary game), gas
  873. + 
  874. + 68030    unisoft 1.3    
  875. +     the kernel (V.3.2) + tcp/ip extensions
  876. +     bash-1.05, bison-1.11, compress-4.0, cproto, cshar, diff-1.14,
  877. +     dist-18.55, flex-2.3, gas-1.36, gcc-1.37.1, gdb-3.6, grep-1.5,
  878. +     kermit, make-3.58, makedep, patch, printf,
  879. +     tar-1.08, texi2roff, uuencode, uutraf-1.2
  880. + 
  881. + 68020    sunos 3.5 (no, not coff, just to be sure that I didn't
  882. +             introduce errors)
  883. +     gcc-1.37.1, gas, emacs-18.55, gdb-3.6, bison-1.11, diff-1.14, 
  884. +     make-3.58, tar-1.08
  885. + 
  886. + 68030   sunos 4.0.3 (idem)
  887. +     gas
  888. + 
  889. + I would be glad to hear about new experiences
  890. + 
  891. +     Loic  (loic@adesign.uucp or loic@afp.uucp)
  892. + 
  893. *** /dev/null    Mon Oct 15 09:51:48 1990
  894. --- append.h    Thu Aug  2 15:00:24 1990
  895. ***************
  896. *** 0 ****
  897. --- 1,1 ----
  898. + extern void    append();
  899. *** /dev/null    Mon Oct 15 09:51:48 1990
  900. --- config.gas    Mon Oct 15 17:22:59 1990
  901. ***************
  902. *** 0 ****
  903. --- 1,61 ----
  904. + # Set the appropriate links for machine dependent files
  905. +  
  906. + # Chose one of
  907. + #
  908. + # i386                for 386 box running SCO unix (ODT),
  909. + #                                Esix rev C
  910. + #                            Ix 2.02
  911. + #                            CTIX 3.2
  912. + #
  913. + # sun-3                for sun3 running SunOs 3.5
  914. + #                         SunOs 4.0.3
  915. + #                    
  916. + # motorola-3600-unisoft-1.3    for Motorola 3600 running Unisoft 1.3 (V.3.2)
  917. + # microlec-2030-lectra-1    for Microlec 2030 running Lectra 1.1
  918. + 
  919. + case $1 in
  920. +     default)
  921. +         cp /dev/null dependencies
  922. +         ln aout.h oformat.h
  923. +         exit
  924. +     ;;
  925. +     sun-3)
  926. +         [ -f m68k.h ] && rm -f m68k.h
  927. +         ln m-sun3.h m68k.h
  928. +         machine_file=m68k.c
  929. +         atof_file=atof-ieee.c
  930. +         machine_header=m-sun3.h
  931. +         opcode_header=m68k-opcode.h
  932. +         object_format=aout
  933. +     ;;
  934. +     motorola-3600-unisoft-1.3|microlec-2030-lectra-1.1)
  935. +         [ -f m68k.h ] && rm -f m68k.h
  936. +         ln m-sun3.h m68k.h
  937. +         machine_file=m68k.c
  938. +         atof_file=atof-ieee.c
  939. +         machine_header=m-motor.h
  940. +         opcode_header=m68k-opcode.h
  941. +         object_format=coff
  942. +     ;;
  943. +     i386)
  944. +         [ -f m68k.h ] && rm -f m68k.h
  945. +         machine_file=i386.c
  946. +         atof_file=atof-ieee.c
  947. +         machine_header=m-i386.h
  948. +         opcode_header=i386-opcode.h
  949. +         object_format=coff
  950. +     ;;
  951. +     *)
  952. +         echo $1 not a known configuration
  953. +         exit 1
  954. +     ;;
  955. + esac
  956. + 
  957. + rm -f machine.c atof.c machine.h oformat.h oformat.c opcode.h
  958. + set -x
  959. + ln $machine_file machine.c
  960. + ln $atof_file atof.c
  961. + ln $machine_header machine.h
  962. + ln ${object_format}.c oformat.c
  963. + ln ${object_format}.h oformat.h
  964. + ln ${opcode_header} opcode.h
  965. *** /dev/null    Mon Oct 15 09:51:48 1990
  966. --- stack.c    Wed Aug 29 13:22:32 1990
  967. ***************
  968. *** 0 ****
  969. --- 1,59 ----
  970. + #include "stack.h"
  971. + 
  972. + extern char* malloc();
  973. + extern char* realloc();
  974. + 
  975. + stack* stack_init(chunk_size, element_size)
  976. + unsigned long chunk_size;
  977. + unsigned long element_size;
  978. + {
  979. +     stack* st;
  980. +     if((st = (stack*)malloc(sizeof(stack))) == (stack*)0)
  981. +     return (stack*)0;
  982. +     if((st->data = malloc(chunk_size)) == (char*)0) {
  983. +     free(st);
  984. +     return (stack*)0;
  985. +     }
  986. +     st->pointer = 0;
  987. +     st->size = chunk_size;
  988. +     st->chunk_size = chunk_size;
  989. +     st->element_size = element_size;
  990. +     return st;
  991. + }
  992. + 
  993. + void stack_delete(st)
  994. + stack* st;
  995. + {
  996. +     free(st->data);
  997. +     free(st);
  998. + }
  999. + 
  1000. + char* stack_push(st, element)
  1001. + stack* st;
  1002. + char* element;
  1003. + {
  1004. +     if(st->pointer + st->element_size >= st->size) {
  1005. +     st->size += st->chunk_size;
  1006. +     if((st->data = realloc(st->data, st->size)) == (char*)0)
  1007. +         return (char*)0;
  1008. +     }
  1009. +     memcpy(st->data + st->pointer, element, st->element_size);
  1010. +     st->pointer += st->element_size;
  1011. +     return st->data + st->pointer;
  1012. + }
  1013. + 
  1014. + char* stack_pop(st)
  1015. + stack* st;
  1016. + {
  1017. +     if((st->pointer -= st->element_size) < 0) {
  1018. +     st->pointer = 0;
  1019. +     return (char*)0;
  1020. +     }
  1021. +     return st->data + st->pointer;
  1022. + }
  1023. + 
  1024. + char* stack_top(st)
  1025. + stack* st;
  1026. + {
  1027. +     return st->data + st->pointer - st->element_size;
  1028. + }
  1029. *** /dev/null    Mon Oct 15 09:51:48 1990
  1030. --- aout.c    Mon Oct 15 08:53:32 1990
  1031. ***************
  1032. *** 0 ****
  1033. --- 1,146 ----
  1034. + #include "as.h"
  1035. + #include "md.h"
  1036. + #include "aout.h"
  1037. + #include "struc-symbol.h"
  1038. + #include "write.h"
  1039. + #include "append.h"
  1040. + 
  1041. + /* Relocation. */
  1042. + 
  1043. + /*
  1044. +  * In: length of relocation (or of address) in chars: 1, 2 or 4.
  1045. +  * Out: GNU LD relocation length code: 0, 1, or 2.
  1046. +  */
  1047. + 
  1048. + static unsigned char
  1049. + 
  1050. + nbytes_r_length [] = {
  1051. +   42, 0, 1, 42, 2
  1052. +   };
  1053. + 
  1054. + 
  1055. + /* The sparc needs its own emit_relocations() */
  1056. + #ifndef SPARC
  1057. + /*
  1058. +  *        emit_relocations()
  1059. +  *
  1060. +  * Crawl along a fixS chain. Emit the segment's relocations.
  1061. +  */
  1062. + void
  1063. + emit_relocations (fixP, segment_address_in_file)
  1064. +      register fixS *    fixP;    /* Fixup chain for this segment. */
  1065. +      relax_addressT    segment_address_in_file;
  1066. + {
  1067. +   struct relocation_info    ri;
  1068. +   register symbolS *        symbolP;
  1069. + 
  1070. +     /* JF this is for paranoia */
  1071. +   bzero((char *)&ri,sizeof(ri));
  1072. +   for ( ;  fixP;  fixP = fixP -> fx_next)
  1073. +     {
  1074. +       if (symbolP = fixP -> fx_addsy)
  1075. +     {
  1076. + 
  1077. + #ifndef hpux
  1078. +         /* These two 'cuz of NS32K */
  1079. +       ri . r_bsr        = fixP -> fx_bsr;
  1080. +       ri . r_disp        = fixP -> fx_im_disp;
  1081. + #endif
  1082. + 
  1083. +       ri . r_length        = nbytes_r_length [fixP -> fx_size];
  1084. +       ri . r_pcrel        = fixP -> fx_pcrel;
  1085. +       ri . r_address    = fixP -> fx_frag -> fr_address
  1086. +         +   fixP -> fx_where
  1087. +           - segment_address_in_file;
  1088. +       if ((symbolP -> sy_type & N_TYPE) == N_UNDF)
  1089. +         {
  1090. +           ri . r_extern    = 1;
  1091. +           ri . r_symbolnum    = symbolP -> sy_number;
  1092. +         }
  1093. +       else
  1094. +         {
  1095. +           ri . r_extern    = 0;
  1096. +           ri . r_symbolnum    = symbolP -> sy_type & N_TYPE;
  1097. +         }
  1098. + 
  1099. +       /* 
  1100. +         The 68k machines assign bit-fields from higher bits to 
  1101. +         lower bits ("left-to-right") within the int.  VAXen assign 
  1102. +         bit-fields from lower bits to higher bits ("right-to-left").
  1103. +         Both handle multi-byte numbers in their usual fashion
  1104. +         (Big-endian and little-endian stuff).
  1105. +         Thus we need a machine dependent routine to make
  1106. +         sure the structure is written out correctly.  FUN!
  1107. +        */
  1108. +       md_ri_to_chars((char *) &ri, ri); 
  1109. +       append (&next_object_file_charP, (char *)& ri, (unsigned long)sizeof(ri));
  1110. +     }
  1111. +     }
  1112. + 
  1113. + }
  1114. + #endif
  1115. + 
  1116. + /* Aout file generation & utilities */
  1117. + 
  1118. + /* Convert a lvalue to machine dependent data */
  1119. + #define MD(v)    \
  1120. +   md_number_to_chars((char *)&header->v,header->v, sizeof(header->v))
  1121. + 
  1122. + void a_header_append(header, where)
  1123. + struct exec * header;
  1124. + char** where;
  1125. + {
  1126. +     MD(a_text);
  1127. +     MD(a_data);
  1128. +     MD(a_bss);
  1129. +     MD(a_trsize);
  1130. +     MD(a_drsize);
  1131. +     MD(a_syms);
  1132. +     MD(a_magic);
  1133. +     MD(a_entry);
  1134. + #ifdef EXEC_MACHINE_TYPE
  1135. +     MD(a_machtype);
  1136. + #endif /* EXEC_MACHINE_TYPE */
  1137. + #ifdef EXEC_VERSION
  1138. +     MD(a_version);
  1139. + #endif /* EXEC_VERSION */
  1140. +     append(where, (char *)header, sizeof(struct exec));
  1141. + }
  1142. + 
  1143. + #undef MD
  1144. + /* Convert a lvalue to machine dependent data */
  1145. + #define MD(v)    \
  1146. +   md_number_to_chars((char *)&symbolP->v,symbolP->v, sizeof(symbolP->v))
  1147. + 
  1148. + void a_symbol_append(symbolP, where)
  1149. + symbolS *    symbolP;
  1150. + char**         where;
  1151. + {
  1152. +     MD(sy_strx);
  1153. +     MD(sy_desc);
  1154. +     MD(sy_value);
  1155. +     append(where, (char *)&symbolP->sy_symbol, sizeof(symbol_type));
  1156. + }
  1157. + 
  1158. + void emit_symbols(symbol_rootP, where)
  1159. + symbolS *    symbol_rootP;
  1160. + char**        where;
  1161. + {
  1162. +     symbolS *    symbolP;
  1163. +     /*
  1164. +      * Emit all symbols left in the symbol chain.
  1165. +      */
  1166. +     for(symbolP = symbol_rootP; symbolP; symbolP = symbolP -> sy_next) {
  1167. +     /* Used to save the offset of the name. It is used to point
  1168. +        to the string in memory but must be a file offset. */
  1169. +     register char *    temp;
  1170. + 
  1171. +     temp = S_GET_NAME(symbolP);
  1172. +     S_SET_OFFSET(symbolP, symbolP->sy_name_offset);
  1173. +     /* Any symbol still undefined is made N_EXT. */
  1174. +     if (!S_IS_DEFINED(symbolP))
  1175. +         S_SET_EXTERNAL(symbolP);
  1176. +     SYMBOL_OUTPUT(symbolP, where);
  1177. +     S_SET_NAME(symbolP,temp);
  1178. +     }
  1179. + }
  1180. --
  1181. Loic Dachary     loic@adesign.uucp or loic@afp.uucp 
  1182. Voice        +33 1 40 35 20 20
  1183.