6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-18 00:07:21 +00:00
Code Issues Projects Releases Wiki Activity

Generate span types for .ADDR, .BYTE, .DBYT, .FARADDR and .WORD.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5256 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2011-08-21 20:17:22 +00:00
parent 6583320b79
commit 6e47980eb7
1 changed files with 72 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/ca65/pseudo.c
View File

@ -46,6 +46,7 @@
#include "bitops.h"
#include "cddefs.h"
#include "coll.h"
#include "gentype.h"
#include "intstack.h"
#include "scopedefs.h"
#include "symdefs.h"
@ -75,6 +76,7 @@
#include "repeat.h"
#include "segment.h"
#include "sizeof.h"
#include "span.h"
#include "spool.h"
#include "struct.h"
#include "symbol.h"
@ -331,6 +333,11 @@ static void DoA8 (void)
static void DoAddr (void)
/* Define addresses */
{
/* Record type information */
Span* S = OpenSpan ();
StrBuf Type = STATIC_STRBUF_INITIALIZER;
/* Parse arguments */
while (1) {
if (GetCPU() == CPU_65816) {
EmitWord (GenWordExpr (Expression ()));
@ -344,6 +351,15 @@ static void DoAddr (void)
NextTok ();
}
}
/* Close the span, then add type information to it */
S = CloseSpan (S);
GT_AddArray (&Type, GetSpanSize (S));
SB_AppendChar (&Type, GT_PTR);
SetSpanType (S, &Type);
/* Free the type string */
SB_Done (&Type);
}
@ -532,6 +548,11 @@ static void DoBss (void)
static void DoByte (void)
/* Define bytes */
{
/* Record type information */
Span* S = OpenSpan ();
StrBuf Type = STATIC_STRBUF_INITIALIZER;
/* Parse arguments */
while (1) {
if (CurTok.Tok == TOK_STRCON) {
/* A string, translate into target charset and emit */
@ -552,6 +573,15 @@ static void DoByte (void)
}
}
}
/* Close the span, then add type information to it */
S = CloseSpan (S);
GT_AddArray (&Type, GetSpanSize (S));
SB_AppendChar (&Type, GT_BYTE);
SetSpanType (S, &Type);
/* Free the type string */
SB_Done (&Type);
}
@ -726,6 +756,11 @@ static void DoDbg (void)
static void DoDByt (void)
/* Output double bytes */
{
/* Record type information */
Span* S = OpenSpan ();
StrBuf Type = STATIC_STRBUF_INITIALIZER;
/* Parse arguments */
while (1) {
EmitWord (GenSwapExpr (Expression ()));
if (CurTok.Tok != TOK_COMMA) {
@ -734,6 +769,15 @@ static void DoDByt (void)
NextTok ();
}
}
/* Close the span, then add type information to it */
S = CloseSpan (S);
GT_AddArray (&Type, GetSpanSize (S));
SB_AppendChar (&Type, GT_DBYTE);
SetSpanType (S, &Type);
/* Free the type string */
SB_Done (&Type);
}
@ -885,6 +929,11 @@ static void DoExportZP (void)
static void DoFarAddr (void)
/* Define far addresses (24 bit) */
{
/* Record type information */
Span* S = OpenSpan ();
StrBuf Type = STATIC_STRBUF_INITIALIZER;
/* Parse arguments */
while (1) {
EmitFarAddr (Expression ());
if (CurTok.Tok != TOK_COMMA) {
@ -893,6 +942,15 @@ static void DoFarAddr (void)
NextTok ();
}
}
/* Close the span, then add type information to it */
S = CloseSpan (S);
GT_AddArray (&Type, GetSpanSize (S));
SB_AppendChar (&Type, GT_FAR_PTR);
SetSpanType (S, &Type);
/* Free the type string */
SB_Done (&Type);
}
@ -1841,6 +1899,11 @@ static void DoWarning (void)
static void DoWord (void)
/* Define words */
{
/* Record type information */
Span* S = OpenSpan ();
StrBuf Type = STATIC_STRBUF_INITIALIZER;
/* Parse arguments */
while (1) {
EmitWord (Expression ());
if (CurTok.Tok != TOK_COMMA) {
@ -1849,6 +1912,15 @@ static void DoWord (void)
NextTok ();
}
}
/* Close the span, then add type information to it */
S = CloseSpan (S);
GT_AddArray (&Type, GetSpanSize (S));
SB_AppendChar (&Type, GT_WORD);
SetSpanType (S, &Type);
/* Free the type string */
SB_Done (&Type);
}