1/*****************************************************************************/
2/* */
3/* codelab.c */
4/* */
5/* Code label structure */
6/* */
7/* */
8/* */
9/* (C) 2001-2009, Ullrich von Bassewitz */
10/* Roemerstrasse 52 */
11/* D-70794 Filderstadt */
12/* EMail: uz@cc65.org */
13/* */
14/* */
15/* This software is provided 'as-is', without any expressed or implied */
16/* warranty. In no event will the authors be held liable for any damages */
17/* arising from the use of this software. */
18/* */
19/* Permission is granted to anyone to use this software for any purpose, */
20/* including commercial applications, and to alter it and redistribute it */
21/* freely, subject to the following restrictions: */
22/* */
23/* 1. The origin of this software must not be misrepresented; you must not */
24/* claim that you wrote the original software. If you use this software */
25/* in a product, an acknowledgment in the product documentation would be */
26/* appreciated but is not required. */
27/* 2. Altered source versions must be plainly marked as such, and must not */
28/* be misrepresented as being the original software. */
29/* 3. This notice may not be removed or altered from any source */
30/* distribution. */
31/* */
32/*****************************************************************************/
33
34
35
36/* common */
37#include "check.h"
38#include "xmalloc.h"
39
40/* cc65 */
41#include "codeent.h"
42#include "codelab.h"
43#include "output.h"
44
45
46
47/*****************************************************************************/
48/* Code */
49/*****************************************************************************/
50
51
52
53CodeLabel* NewCodeLabel (const char* Name, unsigned Hash)
54/* Create a new code label, initialize and return it */
55{
56 /* Allocate memory */
57 CodeLabel* L = xmalloc (sizeof (CodeLabel));
58
59 /* Initialize the fields */
60 L->Next = 0;
61 L->Name = xstrdup (Name);
62 L->Hash = Hash;
63 L->Owner = 0;
64 InitCollection (&L->JumpFrom);
65
66 /* Return the new label */
67 return L;
68}
69
70
71
72void FreeCodeLabel (CodeLabel* L)
73/* Free the given code label */
74{
75 /* Free the name */
76 xfree (L->Name);
77
78 /* Free the collection */
79 DoneCollection (&L->JumpFrom);
80
81 /* Delete the struct */
82 xfree (L);
83}
84
85
86
87void CL_AddRef (CodeLabel* L, struct CodeEntry* E)
88/* Let the CodeEntry E reference the label L */
89{
90 /* The insn at E jumps to this label */
91 E->JumpTo = L;
92
93 /* Replace the code entry argument with the name of the new label */
94 CE_SetArg (E, L->Name);
95
96 /* Remember that in the label */
97 CollAppend (&L->JumpFrom, E);
98}
99
100
101
102void CL_MoveRefs (CodeLabel* OldLabel, CodeLabel* NewLabel)
103/* Move all references to OldLabel to point to NewLabel. OldLabel will have no
104** more references on return.
105*/
106{
107 /* Walk through all instructions referencing the old label */
108 unsigned Count = CL_GetRefCount (OldLabel);
109 while (Count--) {
110
111 /* Get the instruction that references the old label */
112 CodeEntry* E = CL_GetRef (OldLabel, Count);
113
114 /* Change the reference to the new label */
115 CHECK (E->JumpTo == OldLabel);
116 CL_AddRef (NewLabel, E);
117
118 }
119
120 /* There are no more references to the old label */
121 CollDeleteAll (&OldLabel->JumpFrom);
122}
123
124
125
126void CL_Output (const CodeLabel* L)
127/* Output the code label to the output file */
128{
129 WriteOutput ("%s:", L->Name);
130 if (strlen (L->Name) > 6) {
131 /* Label is too long, add a linefeed */
132 WriteOutput ("\n");
133 }
134}
135