URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [Open8 Tools/] [open8_src/] [open8_as/] [pass_3.c] - Blame information for rev 239

Go to most recent revision | Details | Compare with Previous | View Log


 
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#include "defines.h"
 
#include "include_file.h"
#include "pass_3.h"
 
 
extern struct incbin_file_data *incbin_file_data_first, *ifd_tmp;
extern struct section_def *sections_first, *sections_last, *sec_tmp, *sec_next;
extern struct file_name_info *file_name_info_first, *file_name_info_last, *file_name_info_tmp;
extern unsigned char *rom_banks, *rom_banks_usage_table;
extern FILE *file_out_ptr;
extern char gba_tmp_name[32], *gba_tmp_last_name, tmp[4096];
extern int verbose_mode, section_status, cartridgetype, output_format;
 
 
struct label_def *label_next, *label_last, *label_tmp, *labels = NULL;
struct block *blocks = NULL;
 
 
 
int pass_3(void) {
 
  struct section_def *s;
  struct label_def *l;
  struct block *b;
  FILE *f_in;
  int bank = 0, slot = 0, add = 0, file_name_id = 0, inz, line_number = 0, o, add_old = 0;
  char c;
 
 
  s = NULL;
 
  if (verbose_mode == ON)
    printf("Internal pass 1...\n");
 
  if ((f_in = fopen(gba_tmp_name, "rb")) == NULL) {
    fprintf(stderr, "INTERNAL_PASS_1: Error opening file \"%s\".\n", gba_tmp_name);
    return FAILED;
  }
 
  /* first loop */
  o = 0;
  if (output_format == OUTPUT_OBJECT) {
    while (o == 0 && fread(&c, 1, 1, f_in) != 0) {
      switch (c) {
 
      case ' ':
      case 'E':
        continue;
 
      case 'P':
        add_old = add;
        continue;
      case 'p':
        add = add_old;
        continue;
 
      case 'x':
        fscanf(f_in, "%d %*d ", &inz);
        if (section_status == ON) {
          add += inz;
          continue;
        }
 
        fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");
        return FAILED;
 
      case 'd':
        if (section_status == ON) {
          fscanf(f_in, "%*s ");
          add++;
          continue;
        }
 
        fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");
        return FAILED;
 
      case 'y':
        if (section_status == ON) {
          fscanf(f_in, "%*d ");
          add += 2;
          continue;
        }
 
        fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");
        return FAILED;
 
      case 'f':
        fscanf(f_in, "%d ", &file_name_id);
        continue;
 
      case 'B':
        fscanf(f_in, "%d %d ", &bank, &slot);
        continue;
 
      case 'k':
        fscanf(f_in, "%d ", &line_number);
        continue;
 
      case 'g':
        b = malloc(sizeof(struct block));
        if (b == NULL) {
          fscanf(f_in, "%64s ", tmp);
          fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for block \"%s\".\n",
                  get_file_name(file_name_id), line_number, tmp);
          return FAILED;
        }
        b->next = blocks;
        blocks = b;
        fscanf(f_in, "%64s ", b->name);
        b->address = add;
        continue;
 
      case 'G':
        b = blocks;
        blocks = blocks->next;
        fprintf(stderr, "INTERNAL_PASS_1: Block \"%s\" is %d bytes.\n", b->name, add - b->address);
        free(b);
        continue;
 
      case 'Z':
      case 'Y':
      case 'L':
        l = malloc(sizeof(struct label_def));
        if (l == NULL) {
          fscanf(f_in, "%64s ", tmp);
          fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for label \"%s\".\n",
                  get_file_name(file_name_id), line_number, tmp);
          return FAILED;
        }
 
        if (c == 'Y')
          l->symbol = 1;
        else if (c == 'L')
          l->symbol = 0;
        else
          l->symbol = 2;
 
        if (c == 'Z')
          l->label[0] = 0;
        else
          fscanf(f_in, "%64s ", l->label);
 
        l->next = NULL;
        l->section_status = ON;
        l->filename_id = file_name_id;
        l->linenumber = line_number;
        l->alive = ON;
        l->section_id = s->id;
        /* section labels get a relative address */
        l->address = add;
        l->bank = s->bank;
        l->slot = s->slot;
 
        if (c == 'Z' || is_label_anonymous(l->label) == SUCCEEDED || strcmp(l->label, "__") == 0) {
          if (labels != NULL) {
            label_last->next = l;
            label_last = l;
          }
          else {
            labels = l;
            label_last = l;
          }
          continue;
        }
 
        label_next = labels;
        while (label_next != NULL) {
          if (strcmp(l->label, label_next->label) == 0) {
            if ((l->label[0] != '_') || /* both are not local labels */
                (section_status == OFF && label_next->section_status == OFF) ||
                (section_status == ON && label_next->section_status == ON && label_next->section_id == l->section_id)) {
              fprintf(stderr, "%s:%d: INTERNAL_PASS_1: Label \"%s\" was defined for the second time.\n", get_file_name(file_name_id), line_number, l->label);
              return FAILED;
            }
          }
          label_next = label_next->next;
        }
 
        if (labels != NULL) {
          label_last->next = l;
          label_last = l;
        }
        else {
          labels = l;
          label_last = l;
        }
 
        continue;
 
      case 'S':
        fscanf(f_in, "%d ", &inz);
 
        add_old = add;
 
        s = sections_first;
        while (s->id != inz)
          s = s->next;
 
        /* a RAMSECTION? */
        if (s->status == SECTION_STATUS_RAM) {
          s->address = 0;
          s->listfile_items = 1;
          s->listfile_ints = NULL;
          s->listfile_cmds = NULL;
          add = 0;
          section_status = ON;
          continue;
        }
 
        fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");
        return FAILED;
 
      case 's':
        s->size = add - s->address;
 
        /* discard an empty section? */
        if (s->size == 0) {
          fprintf(stderr, "INTERNAL_PASS_1: %s: Discarding an empty section \"%s\".\n", get_file_name(file_name_id), s->name);
          s->alive = OFF;
 
          /* discard all labels which belong to this section */
          l = labels;
          while (l != NULL) {
            if (l->section_status == ON && l->section_id == s->id)
              l->alive = OFF;
            l = l->next;
          }
        }
 
        if (s->advance_org == NO)
          add = add_old;
 
        section_status = OFF;
        s = NULL;
        continue;
 
      case 'O':
        fscanf(f_in, "%d ", &add);
        o++;
        continue;
 
      default:
        fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");
        return FAILED;
      }
    }
  }
  else {
    while (o == 0 && fread(&c, 1, 1, f_in) != 0) {
      switch (c) {
 
      case ' ':
      case 'E':
        continue;
 
      case 'f':
        fscanf(f_in, "%d ", &file_name_id);
        continue;
 
      case 'S':
        fscanf(f_in, "%d ", &inz);
 
        add_old = add;
 
        s = sections_first;
        while (s->id != inz)
          s = s->next;
 
        if (s->status == SECTION_STATUS_FREE)
          add = 0;
 
        s->address = add;
        s->bank = bank;
        s->slot = slot;
        s->listfile_items = 1;
        s->listfile_ints = NULL;
        s->listfile_cmds = NULL;
        section_status = ON;
        o++;
        continue;
 
      default:
        fprintf(stderr, "INTERNAL_PASS_1: A section must be open before any code/data can be accepted.\n");
        return FAILED;
      }
    }
  }
 
  /* second (major) loop */
  while (fread(&c, 1, 1, f_in) != 0) {
    switch (c) {
 
    case ' ':
    case 'E':
      continue;
 
    case 'P':
      add_old = add;
      continue;
    case 'p':
      add = add_old;
      continue;
 
    case 'A':
    case 'S':
      if (c == 'A')
        fscanf(f_in, "%d %*d", &inz);
      else
        fscanf(f_in, "%d ", &inz);
 
      add_old = add;
 
      s = sections_first;
      while (s->id != inz)
        s = s->next;
 
      if (s->status == SECTION_STATUS_FREE || s->status == SECTION_STATUS_RAM)
        add = 0;
 
      if (s->status != SECTION_STATUS_RAM) {
        s->bank = bank;
        s->slot = slot;
      }
      s->address = add;
      s->listfile_items = 1;
      s->listfile_ints = NULL;
      s->listfile_cmds = NULL;
      section_status = ON;
      continue;
 
    case 's':
      s->size = add - s->address;
 
      /* discard an empty section? */
      if (s->size == 0) {
        fprintf(stderr, "DISCARD: %s: Discarding an empty section \"%s\".\n", get_file_name(file_name_id), s->name);
        s->alive = OFF;
 
        /* discard all labels which belong to this section */
        l = labels;
        while (l != NULL) {
          if (l->section_status == ON && l->section_id == s->id)
            l->alive = OFF;
          l = l->next;
        }
      }
 
      /* some sections don't affect the ORG outside of them */
      if (s->advance_org == NO)
        add = add_old;
 
      section_status = OFF;
      s = NULL;
      continue;
 
    case 'x':
      fscanf(f_in, "%d %*d ", &inz);
      add += inz;
      continue;
 
    case 'X':
      fscanf(f_in, "%d %*d ", &inz);
      add += inz << 1;
      continue;
 
    case 'R':
    case 'Q':
    case 'd':
    case 'c':
      fscanf(f_in, "%*s ");
      add++;
      continue;
 
    case 'r':
      fscanf(f_in, "%*s ");
      add += 2;
      continue;
 
    case 'y':
    case 'C':
      fscanf(f_in, "%*d ");
      add += 2;
      continue;
 
    case 'D':
      fscanf(f_in, "%*d %*d %*d %d ", &inz);
      add += inz;
      continue;
 
    case 'O':
      fscanf(f_in, "%d ", &add);
      continue;
 
    case 'B':
      fscanf(f_in, "%d %d ", &bank, &slot);
      continue;
 
    case 'g':
      b = malloc(sizeof(struct block));
      if (b == NULL) {
        fscanf(f_in, "%64s ", tmp);
        fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for block \"%s\".\n",
                get_file_name(file_name_id), line_number, tmp);
        return FAILED;
      }
      b->next = blocks;
      blocks = b;
      fscanf(f_in, "%64s ", b->name);
      b->address = add;
      continue;
 
    case 'G':
      b = blocks;
      blocks = blocks->next;
      fprintf(stderr, "INTERNAL_PASS_1: Block \"%s\" is %d bytes.\n", b->name, add - b->address);
      free(b);
      continue;
 
    case 'Z':
    case 'Y':
    case 'L':
      l = malloc(sizeof(struct label_def));
      if (l == NULL) {
        fscanf(f_in, "%64s ", tmp);
        fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for label \"%s\".\n",
                get_file_name(file_name_id), line_number, tmp);
        return FAILED;
      }
 
      if (c == 'Y')
        l->symbol = 1;
      else if (c == 'L')
        l->symbol = 0;
      else
        l->symbol = 2;
 
      if (c == 'Z')
        l->label[0] = 0;
      else
        fscanf(f_in, "%64s ", l->label);
 
      l->next = NULL;
      l->section_status = section_status;
      l->filename_id = file_name_id;
      l->linenumber = line_number;
      l->alive = ON;
      if (section_status == ON) {
        l->section_id = s->id;
        /* section labels get a relative address */
        l->address = add - s->address;
        l->bank = s->bank;
        l->slot = s->slot;
      }
      else {
        l->section_id = 0;
        l->address = add;
        l->bank = bank;
        l->slot = slot;
      }
 
      if (c == 'Z' || is_label_anonymous(l->label) == SUCCEEDED || strcmp(l->label, "__") == 0) {
        if (labels != NULL) {
          label_last->next = l;
          label_last = l;
        }
        else {
          labels = l;
          label_last = l;
        }
        continue;
      }
 
      label_next = labels;
      while (label_next != NULL) {
        if (strcmp(l->label, label_next->label) == 0) {
          if ((l->label[0] != '_') || /* both are not local labels */
              (section_status == OFF && label_next->section_status == OFF) ||
              (section_status == ON && label_next->section_status == ON && label_next->section_id == l->section_id)) {
            fprintf(stderr, "%s:%d: INTERNAL_PASS_1: Label \"%s\" was defined for the second time.\n", get_file_name(file_name_id), line_number, l->label);
            return FAILED;
          }
        }
        label_next = label_next->next;
      }
 
      if (labels != NULL) {
        label_last->next = l;
        label_last = l;
      }
      else {
        labels = l;
        label_last = l;
      }
 
      continue;
 
    case 'f':
      fscanf(f_in, "%d ", &file_name_id);
      if (s != NULL)
        s->listfile_items++;
      continue;
 
    case 'k':
      fscanf(f_in, "%d ", &line_number);
      if (s != NULL)
        s->listfile_items++;
      continue;
 
    default:
      fprintf(stderr, "%s: INTERNAL_PASS_1: Unknown internal symbol \"%c\".\n", get_file_name(file_name_id), c);
      return FAILED;
    }
  }
 
  fclose(f_in);
 
  return SUCCEEDED;
}
 
 
/* is the label of form -, --, ---, +, ++, +++, ... ? */
int is_label_anonymous(char *l) {
 
  int x, y;
  char c;
 
 
  c = *l;
  if (!(c == '-' || c == '+'))
    return FAILED;
  for (x = strlen(l), y = 0; y < x; y++) {
    if (*(l + y) != c)
      return FAILED;
  }
 
  return SUCCEEDED;
}

Line No.	Rev	Author	Line
1	178	jshamlet
2			`#include <ctype.h>`
3			`#include <stdio.h>`
4			`#include <stdlib.h>`
5			`#include <string.h>`
6
7			`#include "defines.h"`
8
9			`#include "include_file.h"`
10			`#include "pass_3.h"`
11
12
13			`extern struct incbin_file_data incbin_file_data_first, ifd_tmp;`
14			`extern struct section_def sections_first, sections_last, sec_tmp, sec_next;`
15			`extern struct file_name_info file_name_info_first, file_name_info_last, *file_name_info_tmp;`
16			`extern unsigned char rom_banks, rom_banks_usage_table;`
17			`extern FILE *file_out_ptr;`
18			`extern char gba_tmp_name[32], *gba_tmp_last_name, tmp[4096];`
19			`extern int verbose_mode, section_status, cartridgetype, output_format;`
20
21
22			`struct label_def label_next, label_last, label_tmp, labels = NULL;`
23			`struct block *blocks = NULL;`
24
25
26
27			`int pass_3(void) {`
28
29			`struct section_def *s;`
30			`struct label_def *l;`
31			`struct block *b;`
32			`FILE *f_in;`
33			`int bank = 0, slot = 0, add = 0, file_name_id = 0, inz, line_number = 0, o, add_old = 0;`
34			`char c;`
35
36
37			`s = NULL;`
38
39			`if (verbose_mode == ON)`
40			`printf("Internal pass 1...\n");`
41
42			`if ((f_in = fopen(gba_tmp_name, "rb")) == NULL) {`
43			`fprintf(stderr, "INTERNAL_PASS_1: Error opening file \"%s\".\n", gba_tmp_name);`
44			`return FAILED;`
45			`}`
46
47			`/* first loop */`
48			`o = 0;`
49			`if (output_format == OUTPUT_OBJECT) {`
50			`while (o == 0 && fread(&c, 1, 1, f_in) != 0) {`
51			`switch (c) {`
52
53			`case ' ':`
54			`case 'E':`
55			`continue;`
56
57			`case 'P':`
58			`add_old = add;`
59			`continue;`
60			`case 'p':`
61			`add = add_old;`
62			`continue;`
63
64			`case 'x':`
65			`fscanf(f_in, "%d %*d ", &inz);`
66			`if (section_status == ON) {`
67			`add += inz;`
68			`continue;`
69			`}`
70
71			`fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");`
72			`return FAILED;`
73
74			`case 'd':`
75			`if (section_status == ON) {`
76			`fscanf(f_in, "%*s ");`
77			`add++;`
78			`continue;`
79			`}`
80
81			`fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");`
82			`return FAILED;`
83
84			`case 'y':`
85			`if (section_status == ON) {`
86			`fscanf(f_in, "%*d ");`
87			`add += 2;`
88			`continue;`
89			`}`
90
91			`fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");`
92			`return FAILED;`
93
94			`case 'f':`
95			`fscanf(f_in, "%d ", &file_name_id);`
96			`continue;`
97
98			`case 'B':`
99			`fscanf(f_in, "%d %d ", &bank, &slot);`
100			`continue;`
101
102			`case 'k':`
103			`fscanf(f_in, "%d ", &line_number);`
104			`continue;`
105
106			`case 'g':`
107			`b = malloc(sizeof(struct block));`
108			`if (b == NULL) {`
109			`fscanf(f_in, "%64s ", tmp);`
110			`fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for block \"%s\".\n",`
111			`get_file_name(file_name_id), line_number, tmp);`
112			`return FAILED;`
113			`}`
114			`b->next = blocks;`
115			`blocks = b;`
116			`fscanf(f_in, "%64s ", b->name);`
117			`b->address = add;`
118			`continue;`
119
120			`case 'G':`
121			`b = blocks;`
122			`blocks = blocks->next;`
123			`fprintf(stderr, "INTERNAL_PASS_1: Block \"%s\" is %d bytes.\n", b->name, add - b->address);`
124			`free(b);`
125			`continue;`
126
127			`case 'Z':`
128			`case 'Y':`
129			`case 'L':`
130			`l = malloc(sizeof(struct label_def));`
131			`if (l == NULL) {`
132			`fscanf(f_in, "%64s ", tmp);`
133			`fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for label \"%s\".\n",`
134			`get_file_name(file_name_id), line_number, tmp);`
135			`return FAILED;`
136			`}`
137
138			`if (c == 'Y')`
139			`l->symbol = 1;`
140			`else if (c == 'L')`
141			`l->symbol = 0;`
142			`else`
143			`l->symbol = 2;`
144
145			`if (c == 'Z')`
146			`l->label[0] = 0;`
147			`else`
148			`fscanf(f_in, "%64s ", l->label);`
149
150			`l->next = NULL;`
151			`l->section_status = ON;`
152			`l->filename_id = file_name_id;`
153			`l->linenumber = line_number;`
154			`l->alive = ON;`
155			`l->section_id = s->id;`
156			`/* section labels get a relative address */`
157			`l->address = add;`
158			`l->bank = s->bank;`
159			`l->slot = s->slot;`
160
161			`if (c == 'Z' \|\| is_label_anonymous(l->label) == SUCCEEDED \|\| strcmp(l->label, "__") == 0) {`
162			`if (labels != NULL) {`
163			`label_last->next = l;`
164			`label_last = l;`
165			`}`
166			`else {`
167			`labels = l;`
168			`label_last = l;`
169			`}`
170			`continue;`
171			`}`
172
173			`label_next = labels;`
174			`while (label_next != NULL) {`
175			`if (strcmp(l->label, label_next->label) == 0) {`
176			`if ((l->label[0] != '_') \|\| /* both are not local labels */`
177			`(section_status == OFF && label_next->section_status == OFF) \|\|`
178			`(section_status == ON && label_next->section_status == ON && label_next->section_id == l->section_id)) {`
179			`fprintf(stderr, "%s:%d: INTERNAL_PASS_1: Label \"%s\" was defined for the second time.\n", get_file_name(file_name_id), line_number, l->label);`
180			`return FAILED;`
181			`}`
182			`}`
183			`label_next = label_next->next;`
184			`}`
185
186			`if (labels != NULL) {`
187			`label_last->next = l;`
188			`label_last = l;`
189			`}`
190			`else {`
191			`labels = l;`
192			`label_last = l;`
193			`}`
194
195			`continue;`
196
197			`case 'S':`
198			`fscanf(f_in, "%d ", &inz);`
199
200			`add_old = add;`
201
202			`s = sections_first;`
203			`while (s->id != inz)`
204			`s = s->next;`
205
206			`/* a RAMSECTION? */`
207			`if (s->status == SECTION_STATUS_RAM) {`
208			`s->address = 0;`
209			`s->listfile_items = 1;`
210			`s->listfile_ints = NULL;`
211			`s->listfile_cmds = NULL;`
212			`add = 0;`
213			`section_status = ON;`
214			`continue;`
215			`}`
216
217			`fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");`
218			`return FAILED;`
219
220			`case 's':`
221			`s->size = add - s->address;`
222
223			`/* discard an empty section? */`
224			`if (s->size == 0) {`
225			`fprintf(stderr, "INTERNAL_PASS_1: %s: Discarding an empty section \"%s\".\n", get_file_name(file_name_id), s->name);`
226			`s->alive = OFF;`
227
228			`/* discard all labels which belong to this section */`
229			`l = labels;`
230			`while (l != NULL) {`
231			`if (l->section_status == ON && l->section_id == s->id)`
232			`l->alive = OFF;`
233			`l = l->next;`
234			`}`
235			`}`
236
237			`if (s->advance_org == NO)`
238			`add = add_old;`
239
240			`section_status = OFF;`
241			`s = NULL;`
242			`continue;`
243
244			`case 'O':`
245			`fscanf(f_in, "%d ", &add);`
246			`o++;`
247			`continue;`
248
249			`default:`
250			`fprintf(stderr, "INTERNAL_PASS_1: .ORG needs to be set before any code/data can be accepted.\n");`
251			`return FAILED;`
252			`}`
253			`}`
254			`}`
255			`else {`
256			`while (o == 0 && fread(&c, 1, 1, f_in) != 0) {`
257			`switch (c) {`
258
259			`case ' ':`
260			`case 'E':`
261			`continue;`
262
263			`case 'f':`
264			`fscanf(f_in, "%d ", &file_name_id);`
265			`continue;`
266
267			`case 'S':`
268			`fscanf(f_in, "%d ", &inz);`
269
270			`add_old = add;`
271
272			`s = sections_first;`
273			`while (s->id != inz)`
274			`s = s->next;`
275
276			`if (s->status == SECTION_STATUS_FREE)`
277			`add = 0;`
278
279			`s->address = add;`
280			`s->bank = bank;`
281			`s->slot = slot;`
282			`s->listfile_items = 1;`
283			`s->listfile_ints = NULL;`
284			`s->listfile_cmds = NULL;`
285			`section_status = ON;`
286			`o++;`
287			`continue;`
288
289			`default:`
290			`fprintf(stderr, "INTERNAL_PASS_1: A section must be open before any code/data can be accepted.\n");`
291			`return FAILED;`
292			`}`
293			`}`
294			`}`
295
296			`/* second (major) loop */`
297			`while (fread(&c, 1, 1, f_in) != 0) {`
298			`switch (c) {`
299
300			`case ' ':`
301			`case 'E':`
302			`continue;`
303
304			`case 'P':`
305			`add_old = add;`
306			`continue;`
307			`case 'p':`
308			`add = add_old;`
309			`continue;`
310
311			`case 'A':`
312			`case 'S':`
313			`if (c == 'A')`
314			`fscanf(f_in, "%d %*d", &inz);`
315			`else`
316			`fscanf(f_in, "%d ", &inz);`
317
318			`add_old = add;`
319
320			`s = sections_first;`
321			`while (s->id != inz)`
322			`s = s->next;`
323
324			`if (s->status == SECTION_STATUS_FREE \|\| s->status == SECTION_STATUS_RAM)`
325			`add = 0;`
326
327			`if (s->status != SECTION_STATUS_RAM) {`
328			`s->bank = bank;`
329			`s->slot = slot;`
330			`}`
331			`s->address = add;`
332			`s->listfile_items = 1;`
333			`s->listfile_ints = NULL;`
334			`s->listfile_cmds = NULL;`
335			`section_status = ON;`
336			`continue;`
337
338			`case 's':`
339			`s->size = add - s->address;`
340
341			`/* discard an empty section? */`
342			`if (s->size == 0) {`
343			`fprintf(stderr, "DISCARD: %s: Discarding an empty section \"%s\".\n", get_file_name(file_name_id), s->name);`
344			`s->alive = OFF;`
345
346			`/* discard all labels which belong to this section */`
347			`l = labels;`
348			`while (l != NULL) {`
349			`if (l->section_status == ON && l->section_id == s->id)`
350			`l->alive = OFF;`
351			`l = l->next;`
352			`}`
353			`}`
354
355			`/* some sections don't affect the ORG outside of them */`
356			`if (s->advance_org == NO)`
357			`add = add_old;`
358
359			`section_status = OFF;`
360			`s = NULL;`
361			`continue;`
362
363			`case 'x':`
364			`fscanf(f_in, "%d %*d ", &inz);`
365			`add += inz;`
366			`continue;`
367
368			`case 'X':`
369			`fscanf(f_in, "%d %*d ", &inz);`
370			`add += inz << 1;`
371			`continue;`
372
373			`case 'R':`
374			`case 'Q':`
375			`case 'd':`
376			`case 'c':`
377			`fscanf(f_in, "%*s ");`
378			`add++;`
379			`continue;`
380
381			`case 'r':`
382			`fscanf(f_in, "%*s ");`
383			`add += 2;`
384			`continue;`
385
386			`case 'y':`
387			`case 'C':`
388			`fscanf(f_in, "%*d ");`
389			`add += 2;`
390			`continue;`
391
392			`case 'D':`
393			`fscanf(f_in, "%d %d %*d %d ", &inz);`
394			`add += inz;`
395			`continue;`
396
397			`case 'O':`
398			`fscanf(f_in, "%d ", &add);`
399			`continue;`
400
401			`case 'B':`
402			`fscanf(f_in, "%d %d ", &bank, &slot);`
403			`continue;`
404
405			`case 'g':`
406			`b = malloc(sizeof(struct block));`
407			`if (b == NULL) {`
408			`fscanf(f_in, "%64s ", tmp);`
409			`fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for block \"%s\".\n",`
410			`get_file_name(file_name_id), line_number, tmp);`
411			`return FAILED;`
412			`}`
413			`b->next = blocks;`
414			`blocks = b;`
415			`fscanf(f_in, "%64s ", b->name);`
416			`b->address = add;`
417			`continue;`
418
419			`case 'G':`
420			`b = blocks;`
421			`blocks = blocks->next;`
422			`fprintf(stderr, "INTERNAL_PASS_1: Block \"%s\" is %d bytes.\n", b->name, add - b->address);`
423			`free(b);`
424			`continue;`
425
426			`case 'Z':`
427			`case 'Y':`
428			`case 'L':`
429			`l = malloc(sizeof(struct label_def));`
430			`if (l == NULL) {`
431			`fscanf(f_in, "%64s ", tmp);`
432			`fprintf(stderr, "%s:%d INTERNAL_PASS_1: Out of memory while trying to allocate room for label \"%s\".\n",`
433			`get_file_name(file_name_id), line_number, tmp);`
434			`return FAILED;`
435			`}`
436
437			`if (c == 'Y')`
438			`l->symbol = 1;`
439			`else if (c == 'L')`
440			`l->symbol = 0;`
441			`else`
442			`l->symbol = 2;`
443
444			`if (c == 'Z')`
445			`l->label[0] = 0;`
446			`else`
447			`fscanf(f_in, "%64s ", l->label);`
448
449			`l->next = NULL;`
450			`l->section_status = section_status;`
451			`l->filename_id = file_name_id;`
452			`l->linenumber = line_number;`
453			`l->alive = ON;`
454			`if (section_status == ON) {`
455			`l->section_id = s->id;`
456			`/* section labels get a relative address */`
457			`l->address = add - s->address;`
458			`l->bank = s->bank;`
459			`l->slot = s->slot;`
460			`}`
461			`else {`
462			`l->section_id = 0;`
463			`l->address = add;`
464			`l->bank = bank;`
465			`l->slot = slot;`
466			`}`
467
468			`if (c == 'Z' \|\| is_label_anonymous(l->label) == SUCCEEDED \|\| strcmp(l->label, "__") == 0) {`
469			`if (labels != NULL) {`
470			`label_last->next = l;`
471			`label_last = l;`
472			`}`
473			`else {`
474			`labels = l;`
475			`label_last = l;`
476			`}`
477			`continue;`
478			`}`
479
480			`label_next = labels;`
481			`while (label_next != NULL) {`
482			`if (strcmp(l->label, label_next->label) == 0) {`
483			`if ((l->label[0] != '_') \|\| /* both are not local labels */`
484			`(section_status == OFF && label_next->section_status == OFF) \|\|`
485			`(section_status == ON && label_next->section_status == ON && label_next->section_id == l->section_id)) {`
486			`fprintf(stderr, "%s:%d: INTERNAL_PASS_1: Label \"%s\" was defined for the second time.\n", get_file_name(file_name_id), line_number, l->label);`
487			`return FAILED;`
488			`}`
489			`}`
490			`label_next = label_next->next;`
491			`}`
492
493			`if (labels != NULL) {`
494			`label_last->next = l;`
495			`label_last = l;`
496			`}`
497			`else {`
498			`labels = l;`
499			`label_last = l;`
500			`}`
501
502			`continue;`
503
504			`case 'f':`
505			`fscanf(f_in, "%d ", &file_name_id);`
506			`if (s != NULL)`
507			`s->listfile_items++;`
508			`continue;`
509
510			`case 'k':`
511			`fscanf(f_in, "%d ", &line_number);`
512			`if (s != NULL)`
513			`s->listfile_items++;`
514			`continue;`
515
516			`default:`
517			`fprintf(stderr, "%s: INTERNAL_PASS_1: Unknown internal symbol \"%c\".\n", get_file_name(file_name_id), c);`
518			`return FAILED;`
519			`}`
520			`}`
521
522			`fclose(f_in);`
523
524			`return SUCCEEDED;`
525			`}`
526
527
528			`/* is the label of form -, --, ---, +, ++, +++, ... ? */`
529			`int is_label_anonymous(char *l) {`
530
531			`int x, y;`
532			`char c;`
533
534
535			`c = *l;`
536			`if (!(c == '-' \|\| c == '+'))`
537			`return FAILED;`
538			`for (x = strlen(l), y = 0; y < x; y++) {`
539			`if (*(l + y) != c)`
540			`return FAILED;`
541			`}`
542
543			`return SUCCEEDED;`
544			`}`

Browse

Tools

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [Open8 Tools/] [open8_src/] [open8_as/] [pass_3.c] - Blame information for rev 239