//
-// RMAC - Reboot's Macro Assembler for the Atari Jaguar Console System
+// RMAC - Reboot's Macro Assembler for all Atari computers
// SYMBOL.C - Symbol Handling
-// Copyright (C) 199x Landon Dyer, 2011-2012 Reboot and Friends
+// Copyright (C) 199x Landon Dyer, 2011-2018 Reboot and Friends
// RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
// Source utilised with the kind permission of Landon Dyer
//
}
}
- // For ELF object mode run through all symbols in reference order
- // and export all global-referenced labels. Not sure if this is
- // required but it's here nonetheless
-/* why?? when you have sy_assign_ELF ???
- if (obj_format == ELF)
- {
- for(sy=sdecl; sy!=NULL; sy=sy->sorder)
- {
- if ((sy->sattr == (GLOBAL | REFERENCED)) && (buf != NULL))
- {
- buf = (*construct)(buf, sy, 0);
- scount++;
- }
- }
- }*/
-
return scount;
}
// them. We also pick which symbols should be global or not here.
for(SYM * sy=sdecl; sy!=NULL; sy=sy->sdecl)
{
- // Export or import external references, and export COMMON blocks.
- //if ((sy->stype == LABEL)
- // && ((sy->sattr & (GLOBAL | DEFINED)) == (GLOBAL | DEFINED)
- // || (sy->sattr & (GLOBAL | REFERENCED)) == (GLOBAL | REFERENCED))
- // || (sy->sattr & COMMON))
- //{
- // sy->senv = (WORD)scount++;
- //
- // if (buf != NULL)
- // buf = (*construct)(buf, sy, 1);
- //}
// Export vanilla labels (but don't make them global). An exception is
// made for equates, which are not exported unless they are referenced.
if (sy->stype == LABEL && lsym_flag
&& (sy->sattr & (DEFINED | REFERENCED)) != 0
&& (*sy->sname != '.')
&& (sy->sattr & GLOBAL) == 0)
- //if (sy->stype == 0)
- // if (lsym_flag)
- // if ((sy->sattr & (DEFINED | REFERENCED)) != 0)
- // if ((!as68_flag || *sy->sname != 'L'))
{
sy->senv = scount++;
// and export all global-referenced labels. Not sure if this is
// required but it's here nonetheless
- //for(sy=sdecl; sy!=NULL; sy=sy->sorder)
for(SYM * sy=sdecl; sy!=NULL; sy=sy->sdecl)
{
if ((sy->stype == LABEL)
//
int symtable(void)
{
- extern int pagelen;
int i;
int j;
SYM * q = NULL;
strcpy(ln2, "external");
else
{
- sprintf(ln2, "%08X", q->svalue);
+ sprintf(ln2, "%016lX", q->svalue);
ToUppercase(ln2);
}