6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-08 15:29:37 +00:00
Code Issues Projects Releases Wiki Activity

Merge 9b5d11abde into 2c4d4d3314

Browse Source
This commit is contained in:
pm100 2024-05-16 19:06:37 +02:00 committed by GitHub
commit 85f2a3d512
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
9 changed files with 9104 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/ca65.sgml
View File

@ -100,6 +100,7 @@ Short options:
-mm model Set the memory model
-o name Name the output file
-s Enable smart mode
-S Generate segment offsets in listing
-t sys Set the target system
-v Increase verbosity
@ -121,6 +122,7 @@ Long options:
--memory-model model Set the memory model
--pagelength n Set the page length for the listing
--relax-checks Disables some error checks
--segment-list Generate segment offsets in listing
--smart Enable smart mode
--target sys Set the target system
--verbose Increase verbosity

9046
l.txt Normal file
View File

File diff suppressed because it is too large Load Diff

1
src/ca65/global.c
View File

@ -69,6 +69,7 @@ unsigned char RelaxChecks = 0; /* Relax a few assembler checks */
unsigned char StringEscapes = 0; /* Allow C-style escapes in strings */
unsigned char LongJsrJmpRts = 0; /* Allow JSR/JMP/RTS as alias for JSL/JML/RTL */
unsigned char WarningsAsErrors = 0; /* Error if any warnings */
unsigned char SegList = 0;
/* Emulation features */
unsigned char DollarIsPC = 0; /* Allow the $ symbol as current PC */

1
src/ca65/global.h
View File

@ -71,6 +71,7 @@ extern unsigned char RelaxChecks; /* Relax a few assembler checks */
extern unsigned char StringEscapes; /* Allow C-style escapes in strings */
extern unsigned char LongJsrJmpRts; /* Allow JSR/JMP/RTS as alias for JSL/JML/RTL */
extern unsigned char WarningsAsErrors; /* Error if any warnings */
extern unsigned char SegList;
/* Emulation features */
extern unsigned char DollarIsPC; /* Allow the $ symbol as current PC */

32
src/ca65/listing.c
View File

@ -75,7 +75,6 @@ static unsigned ListBytes = 12; /* Number of bytes to list for one line
static int ListingEnabled = 1; /* Enabled if > 0 */
/*****************************************************************************/
/* Code */
/*****************************************************************************/
@ -105,6 +104,7 @@ void NewListingLine (const StrBuf* Line, unsigned char File, unsigned char Depth
L->Next = 0;
L->FragList = 0;
L->FragLast = 0;
L->Seg = ActiveSeg->Num;
L->PC = GetPC ();
L->Reloc = GetRelocMode ();
L->File = File;
@ -181,6 +181,7 @@ void InitListingLine (void)
L = L->Next;
/* Set the values for this line */
CHECK (L != 0);
L->Seg = ActiveSeg->Num;
L->PC = GetPC ();
L->Reloc = GetRelocMode ();
L->Output = (ListingEnabled > 0);
@ -191,6 +192,7 @@ void InitListingLine (void)
/* Set the values for this line */
CHECK (LineCur != 0);
LineCur->Seg = ActiveSeg->Num;
LineCur->PC = GetPC ();
LineCur->Reloc = GetRelocMode ();
LineCur->Output = (ListingEnabled > 0);
@ -276,7 +278,7 @@ static char* MakeLineHeader (char* H, const ListLine* L)
{
char Mode;
char Depth;
unsigned Offset = 0;
/* Setup the PC mode */
Mode = (L->Reloc)? 'r' : ' ';
@ -284,8 +286,18 @@ static char* MakeLineHeader (char* H, const ListLine* L)
Depth = (L->Depth < 10)? L->Depth + '0' : '+';
/* Format the line */
sprintf (H, "%06lX%c %c", L->PC, Mode, Depth);
memset (H+9, ' ', LINE_HEADER_LEN-9);
if (!SegList) {
Offset = 9;
sprintf (H, "%06lX%c %c", L->PC, Mode, Depth);
}else if (L->Reloc){
Offset = 12;
sprintf (H, "%02X.%06lX%c %c",L->Seg, L->PC, Mode, Depth);
} else {
Offset = 12;
sprintf (H, " %06lX%c %c", L->PC, Mode, Depth);
}
memset (H + Offset, ' ', LINE_HEADER_LEN - Offset - (SegList?0:3));
/* Return the buffer */
return H;
@ -313,8 +325,11 @@ void CreateListing (void)
PageNumber = 0;
PrintPageHeader (F, LineList);
/* Terminate the header buffer. The last byte will never get overwritten */
HeaderBuf [LINE_HEADER_LEN] = '\0';
/* Terminate the header buffer. The last byte will never get overwritten
** the - 3 adjust is for when the segnum gets prepended to the header.
*/
HeaderBuf [(SegList ? LINE_HEADER_LEN : LINE_HEADER_LEN - 3)] = '\0';
/* Walk through all listing lines */
L = LineList;
@ -426,7 +441,7 @@ void CreateListing (void)
L->PC += Chunk;
/* Copy the bytes into the line */
P = HeaderBuf + 11;
P = HeaderBuf + (SegList?14: 11);
for (I = 0; I < Chunk; ++I) {
*P++ = *B++;
*P++ = *B++;
@ -448,7 +463,8 @@ void CreateListing (void)
L = L->Next;
}
if (SegList)
ListSegments (F);
/* Close the listing file */
(void) fclose (F);
}

3
src/ca65/listing.h
View File

@ -60,7 +60,7 @@ struct StrBuf;
/* Length of the header of a listing line */
#define LINE_HEADER_LEN 24
#define LINE_HEADER_LEN 27
/* One listing line as it is stored in memory */
typedef struct ListLine ListLine;
@ -68,6 +68,7 @@ struct ListLine {
ListLine* Next; /* Pointer to next line */
Fragment* FragList; /* List of fragments for this line */
Fragment* FragLast; /* Last entry in fragment list */
unsigned Seg; /* Which segment this line targets */
unsigned long PC; /* Program counter for this line */
unsigned char Reloc; /* Relocatable mode? */
unsigned char File; /* From which file is the line? */

14
src/ca65/main.c
View File

@ -105,6 +105,7 @@ static void Usage (void)
" -mm model\t\t\tSet the memory model\n"
" -o name\t\t\tName the output file\n"
" -s\t\t\t\tEnable smart mode\n"
" -S\t\t\t\tEnable segment offset listing\n"
" -t sys\t\t\tSet the target system\n"
" -v\t\t\t\tIncrease verbosity\n"
"\n"
@ -126,6 +127,7 @@ static void Usage (void)
" --memory-model model\t\tSet the memory model\n"
" --pagelength n\t\tSet the page length for the listing\n"
" --relax-checks\t\tRelax some checks (see docs)\n"
" --segment-list\t\tEnable segment offset listing\n"
" --smart\t\t\tEnable smart mode\n"
" --target sys\t\t\tSet the target system\n"
" --verbose\t\t\tIncrease verbosity\n"
@ -661,7 +663,12 @@ static void OptVersion (const char* Opt attribute ((unused)),
exit(EXIT_SUCCESS);
}
static void OptSeglist (const char* Opt attribute ((unused)),
const char* Arg attribute ((unused)))
/* Enable segment listing */
{
SegList = 1;
}
static void OptWarningsAsErrors (const char* Opt attribute ((unused)),
const char* Arg attribute ((unused)))
@ -975,6 +982,7 @@ int main (int argc, char* argv [])
{ "--memory-model", 1, OptMemoryModel },
{ "--pagelength", 1, OptPageLength },
{ "--relax-checks", 0, OptRelaxChecks },
{ "--segment-list", 0, OptSeglist },
{ "--smart", 0, OptSmart },
{ "--target", 1, OptTarget },
{ "--verbose", 0, OptVerbose },
@ -1060,6 +1068,10 @@ int main (int argc, char* argv [])
OptSmart (Arg, 0);
break;
case 'S':
OptSeglist (Arg, 0);
break;
case 't':
OptTarget (Arg, GetArg (&I, 2));
break;

12
src/ca65/segment.c
View File

@ -476,7 +476,17 @@ void SegDump (void)
printf ("\n");
}
void ListSegments (FILE* destination)
{
/* summary of segments when seglist requested */
unsigned I;
fprintf (destination, "\nSegment summary\n\n");
for (I = 0; I < CollCount (&SegmentList); ++I) {
Segment* S = CollAtUnchecked (&SegmentList, I);
if(S->FragCount)
fprintf (destination, "Segment: %02X = %s\n", S->Num, S->Def->Name);
}
}
void SegInit (void)
/* Initialize segments */

5
src/ca65/segment.h
View File

@ -36,7 +36,7 @@
#ifndef SEGMENT_H
#define SEGMENT_H
#include <stdio.h>
/* common */
#include "coll.h"
@ -96,6 +96,9 @@ extern Segment* ActiveSeg;
Fragment* GenFragment (unsigned char Type, unsigned short Len);
/* Generate a new fragment, add it to the current segment and return it. */
void ListSegments (FILE* destination);
/* List the segments to the given file when seglist set */
void UseSeg (const SegDef* D);
/* Use the given segment */