home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / assembler / as / src / c / area next >
Encoding:
Text File  |  1993-03-07  |  4.2 KB  |  183 lines
  1. /*
  2.  * area.c
  3.  * Copyright © 1992 Niklas Röjemo
  4.  */
  5.  
  6. #include <stdlib.h>
  7. #include <stdio.h>
  8. #include <ctype.h>
  9. #include <string.h>
  10. #include "lex.h"
  11. #include "hash.h"
  12. #include "symbol.h"
  13. #include "commands.h"
  14. #include "error.h"
  15. #include "input.h"
  16. #include "expr.h"
  17. #include "area.h"
  18.  
  19. #define DOUBLE_UP_TO 128*1024
  20. #define GROWSIZE      16*1024
  21.  
  22. Symbol *areaCurrent = 0;
  23. Symbol *areaEntry = 0;
  24. int     areaEntryOffset;
  25.  
  26. Symbol *areaHead = 0;
  27.  
  28. static Area *areaNew(int type)
  29. {
  30.   Area *res = malloc(sizeof(Area));
  31.   if(res) {
  32.     res->next = areaHead;
  33.     res->type = type | AREA_INIT;
  34.     res->imagesize = 0;
  35.     res->image = 0;
  36.     res->norelocs = 0;
  37.     res->relocs = 0;
  38.     res->lits = 0;
  39.   } else
  40.     error(ErrorSerious,FALSE,"Internal areaNew: Out of memory!.");
  41.   return res;
  42. }
  43.  
  44. static BOOL areaImage(Area *area,int newsize)
  45. {
  46.   char *new;
  47.   if(area->imagesize)
  48.     new = realloc(area->image,newsize);
  49.   else
  50.     new =  malloc(newsize);
  51.   if(new) {
  52.     area->imagesize = newsize;
  53.     area->image = new;
  54.     return TRUE;
  55.   } else
  56.     return FALSE;
  57. } 
  58.  
  59.  
  60. void areaGrow(Area *area,int mingrow)
  61. {
  62.  int inc;
  63.  if(area->imagesize && area->imagesize < DOUBLE_UP_TO)
  64.    inc = area->imagesize;
  65.  else
  66.    inc = GROWSIZE;
  67.  if(inc<mingrow)
  68.    inc = mingrow;
  69.  while(inc > mingrow && !areaImage(area,area->imagesize+inc)) {
  70.    inc = inc/2;
  71.  }
  72.  if(inc<=mingrow)
  73.    if(!areaImage(area,area->imagesize+mingrow))
  74.      error(ErrorSerious,FALSE,"Internal areaGrow: Out of memory, minsize = %d.",mingrow);
  75. }
  76.  
  77. void areaInit(void)
  78. {
  79.   areaCurrent = 0;
  80. }
  81.  
  82. void areaFinish(void)   /* insert ltorg at end of all areas */
  83. {
  84.   Symbol *ap;
  85.   for(ap = areaHead; ap; ap = ap->area.info->next) {
  86.     areaCurrent = ap;
  87.     litOrg(ap->area.info->lits);
  88.   }
  89. }
  90.  
  91. void c_entry(void)
  92. {
  93.   if(areaCurrent) {
  94.     if(areaEntry)
  95.       error(ErrorError,FALSE,"More than one entry.");
  96.     else {
  97.       areaEntry = areaCurrent;
  98.       areaEntryOffset = areaCurrent->value.ValueInt.i;
  99.     }
  100.   } else {
  101.     error(ErrorError,FALSE,"No area selected before entry.");
  102.   }
  103. }
  104.  
  105.  
  106. void c_align(void)         /* !!! Ought to do zero fill */
  107. {
  108.   Value value;
  109.   skipblanks();
  110.   if(!inputLook() || inputLook() == ';') { /* No expression follows */
  111.     areaCurrent->value.ValueInt.i = (areaCurrent->value.ValueInt.i+3) & ~3;
  112.   } else {    /* An expression follows */
  113.     exprBuild();
  114.     value = exprEval(ValueInt);
  115.     switch(value.Tag) {
  116.     case ValueInt:
  117.       areaCurrent->value.ValueInt.i = (areaCurrent->value.ValueInt.i+value.ValueInt.i-1)/value.ValueInt.i;
  118.       areaCurrent->value.ValueInt.i *= value.ValueInt.i;
  119.       break;
  120.     default:
  121.       error(ErrorError,TRUE,"Unresolved align not possible.");
  122.     }
  123.   }
  124. }
  125.  
  126. void c_reserve(void)         /* !!! Ought to do zero fill */
  127. {
  128.   Value value;
  129.   exprBuild();
  130.   value = exprEval(ValueInt);
  131.   switch(value.Tag) {
  132.   case ValueInt:
  133.     if(!areaCurrent)
  134.       error(ErrorSerious,TRUE,"No area defined.");
  135.     else 
  136.       areaCurrent->value.ValueInt.i += value.ValueInt.i;
  137.     break;
  138.   default:
  139.     error(ErrorError,TRUE,"Unresolved reserve not possible.");
  140.   }
  141. }
  142.  
  143. void c_area(void)
  144. {
  145.   Symbol *sym;
  146.   int oldtype = 0;
  147.   int newtype = 0;
  148.   int c;
  149.  
  150.   sym = symbolGet(lexGetId());
  151.   if(sym->type & SYMBOL_DEFINED) {
  152.     error(ErrorError,TRUE,"Redifinition of label to area %s.",sym->str);
  153.   } else if(sym->type == SYMBOL_AREA) {
  154.     oldtype = sym->area.info->type;
  155.   } else {
  156.     sym->type = SYMBOL_AREA;
  157.     sym->value.Tag = ValueInt;
  158.     sym->value.ValueInt.i = 0;
  159.     sym->area.info = areaNew(0);
  160.     areaHead = sym;
  161.   }
  162.   skipblanks();
  163.   while ((c=inputGet()) == ',') {
  164.     Lex attribute = lexGetId();
  165.     if(!strncmp("CODE",attribute.LexId.str,attribute.LexId.len))
  166.       newtype |= AREA_CODE | AREA_INIT;
  167.     else if(!strncmp("DATA",attribute.LexId.str,attribute.LexId.len))
  168.       newtype |= AREA_DATA | AREA_INIT;
  169.     else if(!strncmp("NOINIT",attribute.LexId.str,attribute.LexId.len))
  170.       newtype |= AREA_UDATA | AREA_INIT;
  171.     else if(!strncmp("READONLY",attribute.LexId.str,attribute.LexId.len))
  172.       newtype |= AREA_READONLY | AREA_INIT;
  173.     else
  174.       error(ErrorError,TRUE,"Illegal area attribute %s.",attribute.LexId.str);
  175.     skipblanks();
  176.   }
  177.   inputUnGet(c);
  178.   if(newtype && oldtype && newtype != oldtype)
  179.     error(ErrorError,TRUE,"Changing attribute of area %s.",sym->str);
  180.   sym->area.info->type |= newtype; 
  181.   areaCurrent = sym;
  182. }
  183.