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] - Rev 221
Go to most recent revision | Compare with Previous | Blame | 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; }
Go to most recent revision | Compare with Previous | Blame | View Log