dbsym.c 786 B

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. #include "header.h"
  2. #include "back.h"
  3. #include <em.h>
  4. #include <out.h>
  5. B_symbstr(s, len, type, add, val, added)
  6. char *s, *val;
  7. arith added;
  8. {
  9. int i = find_sym(val, STORE_STRING);
  10. register struct outname *p;
  11. if (! s) s = "";
  12. p = &symbol_table[find_sym(s, FORCE_DEF)];
  13. p->on_type = S_CRS | (type << 8);
  14. p->on_desc = add;
  15. p->on_valu = i;
  16. }
  17. B_symbcst(s, len, type, add, val)
  18. char *s;
  19. arith val;
  20. {
  21. register struct outname *p;
  22. if (! s) s = "";
  23. p = &symbol_table[find_sym(s, FORCE_DEF)];
  24. p->on_type = S_ABS | (type << 8);
  25. p->on_desc = add;
  26. p->on_valu = val;
  27. }
  28. B_symd(s, len, type, add)
  29. char *s;
  30. {
  31. register struct outname *p;
  32. if (! s) s = "";
  33. p = &symbol_table[find_sym(s, FORCE_DEF)];
  34. p->on_type = S_MIN | (type << 8);
  35. p->on_desc = add;
  36. p->on_valu = text-text_area;
  37. }