1 | /*****************************************************************************/ |
2 | /* */ |
3 | /* fragment.c */ |
4 | /* */ |
5 | /* Code/data fragment routines */ |
6 | /* */ |
7 | /* */ |
8 | /* */ |
9 | /* (C) 1998-2011, 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 "fragdefs.h" |
38 | #include "xmalloc.h" |
39 | |
40 | /* ld65 */ |
41 | #include "error.h" |
42 | #include "fragment.h" |
43 | #include "objdata.h" |
44 | #include "segments.h" |
45 | |
46 | |
47 | |
48 | /*****************************************************************************/ |
49 | /* Code */ |
50 | /*****************************************************************************/ |
51 | |
52 | |
53 | |
54 | Fragment* NewFragment (unsigned char Type, unsigned Size, Section* S) |
55 | /* Create a new fragment and insert it into the section S */ |
56 | { |
57 | Fragment* F; |
58 | |
59 | /* Calculate the size of the memory block. LitBuf is only needed if the |
60 | ** fragment contains literal data. |
61 | */ |
62 | unsigned FragSize = sizeof (Fragment) - 1; |
63 | if (Type == FRAG_LITERAL) { |
64 | FragSize += Size; |
65 | } |
66 | |
67 | /* Allocate memory */ |
68 | F = xmalloc (FragSize); |
69 | |
70 | /* Initialize the data */ |
71 | F->Next = 0; |
72 | F->Obj = 0; |
73 | F->Sec = S; |
74 | F->Size = Size; |
75 | F->Expr = 0; |
76 | F->LineInfos = EmptyCollection; |
77 | F->Type = Type; |
78 | |
79 | /* Insert the code fragment into the section */ |
80 | if (S->FragRoot == 0) { |
81 | /* First fragment */ |
82 | S->FragRoot = F; |
83 | } else { |
84 | S->FragLast->Next = F; |
85 | } |
86 | S->FragLast = F; |
87 | |
88 | /* Increment the size of the section by the size of the fragment */ |
89 | S->Size += Size; |
90 | |
91 | /* Increment the size of the segment that contains the section */ |
92 | S->Seg->Size += Size; |
93 | |
94 | /* Return the new fragment */ |
95 | return F; |
96 | } |
97 | |