LWTools: lwlink/link.c annotate

annotate lwlink/link.c @ 235:e3741cf53e00

Fix error messages related to undefined symbols in lwlink Make lwlink not complain about seciton base and length symbols. Also silence duplicate complaints about undefined symbols. There is no need to complain about undefined symbols during the file/section resolution stage! If they are truly undefined, they'll still be undefined at the reference resolution stage.

author	William Astle <lost@l-w.ca>
date	Sat, 11 Aug 2012 15:18:58 -0600
parents	d389adbcc4ab
children	ce1fdc8d6568

rev	line source
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	2 link.c
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	3 Copyright © 2009 William Astle
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	4
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	5 This file is part of LWLINK.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	6
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	7 LWLINK is free software: you can redistribute it and/or modify it under the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	8 terms of the GNU General Public License as published by the Free Software
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	9 Foundation, either version 3 of the License, or (at your option) any later
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	10 version.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	11
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	12 This program is distributed in the hope that it will be useful, but WITHOUT
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	15 more details.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	16
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	17 You should have received a copy of the GNU General Public License along with
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	18 this program. If not, see <http://www.gnu.org/licenses/>.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	19
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	20
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	21 Resolve section and symbol addresses; handle incomplete references
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	22 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	23
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	24 #include <stdio.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	25 #include <stdlib.h>
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	26 #include <string.h>
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	27
8 fdc11ef4115b Switched lwlink to lw_cmdline from argp and also brought in lw_alloc and lw_string to replace util.c lost@l-w.ca parents: 2 diff changeset	28 #include <lw_alloc.h>
234 d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	29 #include <lw_string.h>
8 fdc11ef4115b Switched lwlink to lw_cmdline from argp and also brought in lw_alloc and lw_string to replace util.c lost@l-w.ca parents: 2 diff changeset	30
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	31 #include "expr.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	32 #include "lwlink.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	33
148 08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	34 void check_os9(void);
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	35
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	36 struct section_list *sectlist = NULL;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	37 int nsects = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	38 static int nforced = 0;
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	39 static int resolveonly = 0;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	40
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	41 int quietsym = 1;
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	42
234 d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	43 symlist_t *symlist = NULL;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	44
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	45 void check_section_name(char name, int base, fileinfo_t *fn)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	46 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	47 int sn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	48
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	49 // fprintf(stderr, "Considering sections in %s (%d) for %s\n", fn -> filename, fn -> forced, name);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	50 if (fn -> forced == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	51 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	52
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	53 for (sn = 0; sn < fn -> nsections; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	54 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	55 // fprintf(stderr, " Considering section %s\n", fn -> sections[sn].name);
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	56 if (!strcmp(name, (char *)(fn -> sections[sn].name)))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	57 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	58 if (fn -> sections[sn].flags & SECTION_CONST)
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	59 continue;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	60 // we have a match
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	61 // fprintf(stderr, " Found\n");
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	62 sectlist = lw_realloc(sectlist, sizeof(struct section_list) * (nsects + 1));
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	63 sectlist[nsects].ptr = &(fn -> sections[sn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	64
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	65 fn -> sections[sn].processed = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	66 fn -> sections[sn].loadaddress = *base;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	67 *base += fn -> sections[sn].codesize;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	68 nsects++;
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	69 // fprintf(stderr, "Adding section %s (%s)\n",fn -> sections[sn].name, fn -> filename);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	70 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	71 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	72 for (sn = 0; sn < fn -> nsubs; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	73 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	74 check_section_name(name, base, fn -> subs[sn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	75 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	76 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	77
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	78 void add_matching_sections(char name, int yesflags, int noflags, int base);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	79 void check_section_flags(int yesflags, int noflags, int base, fileinfo_t fn)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	80 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	81 int sn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	82
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	83 // fprintf(stderr, "Considering sections in %s (%d) for %x/%x\n", fn -> filename, fn -> forced, yesflags, noflags);
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	84
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	85 if (fn -> forced == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	86 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	87
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	88 for (sn = 0; sn < fn -> nsections; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	89 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	90 // ignore "constant" sections - they're added during the file resolve stage
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	91 if (fn -> sections[sn].flags & SECTION_CONST)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	92 continue;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	93 // ignore if the noflags tell us to
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	94 if (noflags && (fn -> sections[sn].flags & noflags))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	95 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	96 // ignore unless the yesflags tell us not to
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	97 if (yesflags && ((fn -> sections[sn].flags & yesflags) == 0))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	98 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	99 // ignore it if already processed
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	100 if (fn -> sections[sn].processed)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	101 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	102
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	103 // we have a match - now collect all sections of the same name!
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	104 // fprintf(stderr, " Found\n");
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	105 add_matching_sections((char *)(fn -> sections[sn].name), 0, 0, base);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	106
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	107 // and then continue looking for sections
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	108 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	109 for (sn = 0; sn < fn -> nsubs; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	110 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	111 check_section_flags(yesflags, noflags, base, fn -> subs[sn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	112 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	113 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	114
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	115
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	116
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	117 void add_matching_sections(char name, int yesflags, int noflags, int base)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	118 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	119 int fn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	120 if (name)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	121 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	122 // named section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	123 // look for all instances of a section by the specified name
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	124 // and resolve base addresses and add to the list
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	125 for (fn = 0; fn < ninputfiles; fn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	126 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	127 check_section_name(name, base, inputfiles[fn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	128 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	129 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	130 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	131 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	132 // wildcard section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	133 // named section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	134 // look for all instances of a section by the specified name
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	135 // and resolve base addresses and add to the list
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	136 for (fn = 0; fn < ninputfiles; fn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	137 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	138 check_section_flags(yesflags, noflags, base, inputfiles[fn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	139 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	140 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	141 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	142
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	143 // work out section load order and resolve base addresses for each section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	144 // make a list of sections to load in order
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	145 void resolve_sections(void)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	146 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	147 int laddr = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	148 int ln, sn, fn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	149
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	150 for (ln = 0; ln < linkscript.nlines; ln++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	151 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	152 if (linkscript.lines[ln].loadat >= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	153 laddr = linkscript.lines[ln].loadat;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	154 add_matching_sections(linkscript.lines[ln].sectname, linkscript.lines[ln].yesflags, linkscript.lines[ln].noflags, &laddr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	155
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	156 if (linkscript.lines[ln].sectname)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	157 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	158 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	159 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	160 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	161 // wildcard section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	162 // look for all sections not yet processed that match flags
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	163
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	164 int f = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	165 int fn0, sn0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	166 char *sname;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	167
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	168 // named section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	169 // look for all instances of a section by the specified name
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	170 // and resolve base addresses and add to the list
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	171 for (fn0 = 0; fn0 < ninputfiles; fn0++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	172 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	173 for (sn0 = 0; sn0 < inputfiles[fn0] -> nsections; sn0++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	174 {
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	175 // ignore "constant" sections
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	176 if (inputfiles[fn0] -> sections[sn0].flags & SECTION_CONST)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	177 continue;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	178 // ignore if the "no flags" bit says to
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	179 if (linkscript.lines[ln].noflags && (inputfiles[fn0] -> sections[sn0].flags & linkscript.lines[ln].noflags))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	180 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	181 // ignore unless the yes flags tell us not to
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	182 if (linkscript.lines[ln].yesflags && ((inputfiles[fn0] -> sections[sn0].flags & linkscript.lines[ln].yesflags) == 0))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	183 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	184 if (inputfiles[fn0] -> sections[sn0].processed == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	185 {
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	186 sname = (char *)(inputfiles[fn0] -> sections[sn0].name);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	187 for (fn = 0; fn < ninputfiles; fn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	188 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	189 for (sn = 0; sn < inputfiles[fn] -> nsections; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	190 {
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	191 if (!strcmp(sname, (char *)(inputfiles[fn] -> sections[sn].name)))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	192 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	193 // we have a match
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	194 sectlist = lw_realloc(sectlist, sizeof(struct section_list) * (nsects + 1));
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	195 sectlist[nsects].ptr = &(inputfiles[fn] -> sections[sn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	196
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	197 inputfiles[fn] -> sections[sn].processed = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	198 if (!f && linkscript.lines[ln].loadat >= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	199 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	200 f = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	201 sectlist[nsects].forceaddr = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	202 laddr = linkscript.lines[ln].loadat;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	203 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	204 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	205 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	206 sectlist[nsects].forceaddr = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	207 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	208 inputfiles[fn] -> sections[sn].loadaddress = laddr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	209 laddr += inputfiles[fn] -> sections[sn].codesize;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	210 nsects++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	211 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	212 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	213 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	214 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	215 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	216 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	217 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	218 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	219
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	220 // theoretically, all the base addresses are set now
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	221 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	222
234 d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	223 /* run through all sections and generate any synthetic symbols */
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	224 void generate_symbols(void)
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	225 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	226 int sn;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	227 char *lastsect = NULL;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	228 char sym[256];
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	229 int len;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	230 symlist_t *se;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	231 for (sn = 0; sn < nsects; sn++)
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	232 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	233 if (!lastsect \|\| strcmp(lastsect, (char *)(sectlist[sn].ptr -> name)))
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	234 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	235 if (lastsect && linkscript.lensympat)
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	236 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	237 /* handle length symbol */
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	238 se = lw_alloc(sizeof(symlist_t));
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	239 se -> val = len;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	240 snprintf(sym, 255, linkscript.lensympat, lastsect);
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	241 se -> sym = lw_strdup(sym);
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	242 se -> next = symlist;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	243 symlist = se;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	244 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	245 lastsect = (char *)(sectlist[sn].ptr -> name);
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	246 len = 0;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	247 /* handle base symbol */
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	248 if (lastsect && linkscript.basesympat)
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	249 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	250 se = lw_alloc(sizeof(symlist_t));
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	251 se -> val = sectlist[sn].ptr -> loadaddress;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	252 snprintf(sym, 255, linkscript.basesympat, lastsect);
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	253 se -> sym = lw_strdup(sym);
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	254 se -> next = symlist;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	255 symlist = se;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	256 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	257 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	258 len += sectlist[sn].ptr -> codesize;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	259 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	260 if (lastsect && linkscript.lensympat)
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	261 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	262 /* handle length symbol */
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	263 se = lw_alloc(sizeof(symlist_t));
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	264 se -> val = len;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	265 snprintf(sym, 255, linkscript.lensympat, lastsect);
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	266 se -> sym = lw_strdup(sym);
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	267 se -> next = symlist;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	268 symlist = se;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	269 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	270
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	271 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	272
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	273 lw_expr_stack_t find_external_sym_recurse(char sym, fileinfo_t *fn)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	274 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	275 int sn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	276 lw_expr_stack_t *r;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	277 lw_expr_term_t *term;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	278 symtab_t *se;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	279 int val;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	280
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	281 for (sn = 0; sn < fn -> nsections; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	282 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	283 for (se = fn -> sections[sn].exportedsyms; se; se = se -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	284 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	285 // fprintf(stderr, " Considering %s\n", se -> sym);
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	286 if (!strcmp(sym, (char *)(se -> sym)))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	287 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	288 // fprintf(stderr, " Match (%d)\n", fn -> sections[sn].processed);
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	289 // if the section was not previously processed and is CONSTANT, force it in
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	290 // otherwise error out if it is not being processed
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	291 if (fn -> sections[sn].processed == 0)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	292 {
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	293 if (fn -> sections[sn].flags & SECTION_CONST)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	294 {
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	295 // add to section list
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	296 sectlist = lw_realloc(sectlist, sizeof(struct section_list) * (nsects + 1));
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	297 sectlist[nsects].ptr = &(fn -> sections[sn]);
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	298 fn -> sections[sn].processed = 1;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	299 fn -> sections[sn].loadaddress = 0;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	300 nsects++;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	301 }
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	302 else
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	303 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	304 if (resolveonly == 0)
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	305 {
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	306 fprintf(stderr, "Symbol %s found in section %s (%s) which is not going to be included\n", sym, fn -> sections[sn].name, fn -> filename);
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	307 continue;
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	308 }
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	309 }
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	310 }
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	311 // fprintf(stderr, "Found symbol %s in %s\n", sym, fn -> filename);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	312 if (!(fn -> forced))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	313 {
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	314 // fprintf(stderr, " Forced\n");
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	315 fn -> forced = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	316 nforced = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	317 }
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	318 if (fn -> sections[sn].flags & SECTION_CONST)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	319 val = se -> offset;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	320 else
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	321 val = se -> offset + fn -> sections[sn].loadaddress;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	322 r = lw_expr_stack_create();
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	323 term = lw_expr_term_create_int(val & 0xffff);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	324 lw_expr_stack_push(r, term);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	325 lw_expr_term_free(term);
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	326
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	327 return r;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	328 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	329 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	330 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	331
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	332 for (sn = 0; sn < fn -> nsubs; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	333 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	334 // fprintf(stderr, "Looking in %s\n", fn -> subs[sn] -> filename);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	335 r = find_external_sym_recurse(sym, fn -> subs[sn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	336 if (r)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	337 {
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	338 // fprintf(stderr, "Found symbol %s in %s\n", sym, fn -> filename);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	339 if (!(fn -> forced))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	340 {
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	341 // fprintf(stderr, " Forced\n");
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	342 nforced = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	343 fn -> forced = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	344 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	345 return r;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	346 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	347 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	348 return NULL;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	349 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	350
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	351 // resolve all incomplete references now
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	352 // anything that is unresolvable at this stage will throw an error
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	353 // because we know the load address of every section now
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	354 lw_expr_stack_t resolve_sym(char sym, int symtype, void *state)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	355 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	356 section_t *sect = state;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	357 lw_expr_term_t *term;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	358 int val = 0, i, fn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	359 lw_expr_stack_t *s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	360 symtab_t *se;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	361 fileinfo_t *fp;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	362
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	363 // fprintf(stderr, "Looking up %s\n", sym);
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	364
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	365 if (symtype == 1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	366 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	367 // local symbol
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	368 if (!sym)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	369 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	370 val = sect -> loadaddress;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	371 goto out;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	372 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	373
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	374 // start with this section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	375 for (se = sect -> localsyms; se; se = se -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	376 {
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	377 if (!strcmp((char *)(se -> sym), sym))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	378 {
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	379 if (sect -> flags & SECTION_CONST)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	380 val = se -> offset;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	381 else
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	382 val = se -> offset + sect -> loadaddress;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	383 goto out;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	384 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	385 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	386 // not in this section - check all sections in this file
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	387 for (i = 0; i < sect -> file -> nsections; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	388 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	389 for (se = sect -> file -> sections[i].localsyms; se; se = se -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	390 {
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	391 if (!strcmp((char *)(se -> sym), sym))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	392 {
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	393 if (sect -> file -> sections[i].flags & SECTION_CONST)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	394 val = se -> offset;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	395 else
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 155 diff changeset	396 val = se -> offset + sect -> file -> sections[i].loadaddress;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	397 goto out;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	398 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	399 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	400 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	401 // not found
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	402 if (!quietsym)
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	403 {
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	404 symerr = 1;
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	405 fprintf(stderr, "Local symbol %s not found in %s:%s\n", sanitize_symbol(sym), sect -> file -> filename, sect -> name);
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	406 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	407 goto outerr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	408 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	409 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	410 {
234 d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	411 symlist_t *se;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	412
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	413 // external symbol
234 d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	414 // first look up synthesized symbols
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	415 for (se = symlist; se; se = se -> next)
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	416 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	417 if (!strcmp(se -> sym, sym))
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	418 {
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	419 val = se -> val;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	420 goto out;
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	421 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	422 }
d389adbcc4ab Added section base and length symbols to lwlink William Astle <lost@l-w.ca> parents: 157 diff changeset	423
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	424 // read all files in order until found (or not found)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	425 if (sect)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	426 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	427 for (fp = sect -> file; fp; fp = fp -> parent)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	428 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	429 // fprintf(stderr, "Looking in %s\n", fp -> filename);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	430 s = find_external_sym_recurse(sym, fp);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	431 if (s)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	432 return s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	433 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	434 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	435
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	436 for (fn = 0; fn < ninputfiles; fn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	437 {
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	438 // fprintf(stderr, "Looking in %s\n", inputfiles[fn] -> filename);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	439 s = find_external_sym_recurse(sym, inputfiles[fn]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	440 if (s)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	441 return s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	442 }
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	443 if (!quietsym)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	444 {
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	445 if (sect)
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	446 {
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	447 fprintf(stderr, "External symbol %s not found in %s:%s\n", sanitize_symbol(sym), sect -> file -> filename, sect -> name);
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	448 }
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	449 else
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	450 {
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	451 fprintf(stderr, "External symbol %s not found\n", sym);
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	452 }
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	453 symerr = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	454 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	455 goto outerr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	456 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	457 fprintf(stderr, "Shouldn't ever get here!!!\n");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	458 exit(88);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	459 out:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	460 s = lw_expr_stack_create();
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	461 term = lw_expr_term_create_int(val & 0xffff);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	462 lw_expr_stack_push(s, term);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	463 lw_expr_term_free(term);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	464 return s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	465 outerr:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	466 return NULL;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	467 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	468
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	469 void resolve_references(void)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	470 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	471 int sn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	472 reloc_t *rl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	473 int rval;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	474
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	475 quietsym = 0;
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	476
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	477 // resolve entry point if required
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	478 // this must resolve to an exported symbol and will resolve to the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	479 // first instance of that symbol
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	480 if (linkscript.execsym)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	481 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	482 lw_expr_stack_t *s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	483
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	484 s = resolve_sym(linkscript.execsym, 0, NULL);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	485 if (!s)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	486 {
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	487 fprintf(stderr, "Cannot resolve exec address '%s'\n", linkscript.execsym);
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	488 symerr = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	489 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	490 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	491 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	492 linkscript.execaddr = lw_expr_get_value(s);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	493 lw_expr_stack_free(s);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	494 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	495 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	496
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	497 for (sn = 0; sn < nsects; sn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	498 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	499 for (rl = sectlist[sn].ptr -> incompletes; rl; rl = rl -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	500 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	501 // do a "simplify" on the expression
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	502 rval = lw_expr_reval(rl -> expr, resolve_sym, sectlist[sn].ptr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	503
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	504 // is it constant? error out if not
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	505 if (rval != 0 \|\| !lw_expr_is_constant(rl -> expr))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	506 {
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	507 fprintf(stderr, "Incomplete reference at %s:%s+%02X\n", sectlist[sn].ptr -> file -> filename, sectlist[sn].ptr -> name, rl -> offset);
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	508 symerr = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	509 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	510 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	511 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	512 // put the value into the relocation address
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	513 rval = lw_expr_get_value(rl -> expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	514 if (rl -> flags & RELOC_8BIT)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	515 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	516 sectlist[sn].ptr -> code[rl -> offset] = rval & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	517 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	518 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	519 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	520 sectlist[sn].ptr -> code[rl -> offset] = (rval >> 8) & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	521 sectlist[sn].ptr -> code[rl -> offset + 1] = rval & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	522 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	523 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	524 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	525 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	526
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	527 if (symerr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	528 exit(1);
148 08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	529
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	530 if (outformat == OUTPUT_OS9)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	531 check_os9();
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	532 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	533
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	534 void resolve_files_aux(fileinfo_t *fn)
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	535 {
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	536 int sn;
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	537 reloc_t *rl;
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	538 lw_expr_stack_t *te;
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	539
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	540 int rval;
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	541
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	542
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	543 if (fn -> forced == 0)
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	544 return;
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	545
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	546 for (sn = 0; sn < fn -> nsections; sn++)
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	547 {
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	548 for (rl = fn -> sections[sn].incompletes; rl; rl = rl -> next)
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	549 {
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	550 // do a "simplify" on the expression
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	551 te = lw_expr_stack_dup(rl -> expr);
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	552 rval = lw_expr_reval(te, resolve_sym, &(fn -> sections[sn]));
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	553
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	554 // is it constant? error out if not
235 e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	555 // incompletes will error out during resolve_references()
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	556 //if (rval != 0 \|\| !lw_expr_is_constant(te))
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	557 //{
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	558 // fprintf(stderr, "Incomplete reference at %s:%s+%02X\n", fn -> filename, fn -> sections[sn].name, rl -> offset);
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	559 // symerr = 1;
e3741cf53e00 Fix error messages related to undefined symbols in lwlink William Astle <lost@l-w.ca> parents: 234 diff changeset	560 //}
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	561 lw_expr_stack_free(te);
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	562 }
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	563 }
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	564
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	565 // handle any sub files
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	566 for (sn = 0; sn < fn -> nsubs; sn++)
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	567 resolve_files_aux(fn -> subs[sn]);
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	568 }
1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	569
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	570 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	571 This is just a pared down version of the algo for resolving references.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	572 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	573 void resolve_files(void)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	574 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	575 int fn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	576
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	577 resolveonly = 1;
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	578
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	579 // resolve entry point if required
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	580 // this must resolve to an exported symbol and will resolve to the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	581 // first instance of that symbol
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	582 // if (linkscript.execsym)
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	583 // {
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	584 // lw_expr_stack_t *s;
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	585 //
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	586 // s = resolve_sym(linkscript.execsym, 0, NULL);
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	587 // if (!s)
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	588 // {
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	589 // fprintf(stderr, "Cannot resolve exec address '%s'\n", sanitize_symbol(linkscript.execsym));
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	590 // symerr = 1;
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	591 // }
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	592 // }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	593
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	594 do
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	595 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	596 nforced = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	597 for (fn = 0; fn < ninputfiles; fn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	598 {
155 1571e150f1fd Fixed error where external references within a library file were not resolved when linking lost@l-w.ca parents: 149 diff changeset	599 resolve_files_aux(inputfiles[fn]);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	600 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	601 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	602 while (nforced == 1);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	603
157 4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	604 resolveonly = 0;
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	605
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	606 // if (symerr)
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	607 // exit(1);
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	608
4682460aed00 Correct bug with handling symbol resolution and constant section handling lost@l-w.ca parents: 156 diff changeset	609 symerr = 0;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	610 // theoretically, all files referenced by other files now have "forced" set to 1
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	611 for (fn = 0; fn < ninputfiles; fn++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	612 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	613 if (inputfiles[fn] -> forced == 1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	614 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	615
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	616 fprintf(stderr, "Warning: %s (%d) does not resolve any symbols\n", inputfiles[fn] -> filename, fn);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	617 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	618 }
148 08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	619 void find_section_by_name_once_aux(char name, fileinfo_t fn, section_t *rval, int found);
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	620 void find_section_by_name_once_aux(char name, fileinfo_t fn, section_t *rval, int found)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	621 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	622 int sn;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	623
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	624 if (fn -> forced == 0)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	625 return;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	626
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	627 for (sn = 0; sn < fn -> nsections; sn++)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	628 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	629 if (!strcmp(name, (char *)(fn -> sections[sn].name)))
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	630 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	631 (*found)++;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	632 *rval = &(fn -> sections[sn]);
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	633 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	634 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	635 for (sn = 0; sn < fn -> nsubs; sn++)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	636 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	637 find_section_by_name_once_aux(name, fn -> subs[sn], rval, found);
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	638 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	639 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	640
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	641 section_t find_section_by_name_once(char name)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	642 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	643 int fn;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	644 int found = 0;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	645 section_t *rval = NULL;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	646
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	647 for (fn = 0; fn < ninputfiles; fn++)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	648 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	649 find_section_by_name_once_aux(name, inputfiles[fn], &rval, &found);
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	650 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	651 if (found != 1)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	652 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	653 rval = NULL;
149 729a9c70934e Fixed crash and bogus warning with os9 module target lost@l-w.ca parents: 148 diff changeset	654 if (found > 1)
729a9c70934e Fixed crash and bogus warning with os9 module target lost@l-w.ca parents: 148 diff changeset	655 fprintf(stderr, "Warning: multiple instances of section %s found; ignoring all of them which is probably not what you want\n", name);
148 08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	656 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	657 return rval;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	658 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	659
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	660 void check_os9(void)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	661 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	662 section_t *s;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	663 symtab_t *sym;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	664
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	665 s = find_section_by_name_once("__os9");
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	666 linkscript.name = outfile;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	667
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	668 if (!s)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	669 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	670 // use defaults if not found
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	671 return;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	672 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	673
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	674 // this section is special
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	675 // several symbols may be defined as LOCAL symbols:
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	676 // type: module type
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	677 // lang: module language
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	678 // attr: module attributes
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	679 // rev: module revision
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	680 //
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	681 // the symbols are not case sensitive
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	682 //
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	683 // any unrecognized symbols are ignored
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	684
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	685 // the contents of the actual data to the first NUL
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	686 // is assumed to be the module name unless it is an empty string
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	687 if (s -> codesize > 0 && (s -> flags & SECTION_BSS) == 0 && s -> code[0] != 0)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	688 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	689 linkscript.name = (char *)(s -> code);
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	690 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	691
149 729a9c70934e Fixed crash and bogus warning with os9 module target lost@l-w.ca parents: 148 diff changeset	692 for (sym = s -> localsyms; sym; sym = sym -> next)
148 08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	693 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	694 char sm = (char )(sym -> sym);
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	695 if (!strcasecmp(sm, "type"))
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	696 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	697 linkscript.modtype = sym -> offset;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	698 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	699 else if (!strcasecmp(sm, "lang"))
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	700 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	701 linkscript.modlang = sym -> offset;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	702 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	703 else if (!strcasecmp(sm, "attr"))
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	704 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	705 linkscript.modlang = sym -> offset;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	706 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	707 else if (!strcasecmp(sm, "rev"))
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	708 {
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	709 linkscript.modrev = sym -> offset;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	710 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	711 }
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	712 if (linkscript.modtype > 15)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	713 linkscript.modtype = linkscript.modtype >> 4;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	714
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	715 if (linkscript.modattr > 15)
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	716 linkscript.modattr = linkscript.modattr >> 4;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	717
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	718 linkscript.modlang &= 15;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	719 linkscript.modtype &= 15;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	720 linkscript.modrev &= 15;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	721 linkscript.modattr &= 15;
08fb11004df9 Initial pass at OS9 module support for lwlink lost@l-w.ca parents: 8 diff changeset	722 }

Mercurial > hg > index.cgi

annotate lwlink/link.c @ 235:e3741cf53e00