1 /*****************************************************************************/
5 /* 6502 code generator */
9 /* (C) 1998 Ullrich von Bassewitz */
11 /* D-70597 Stuttgart */
12 /* EMail: uz@musoftware.de */
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. */
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: */
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 */
32 /*****************************************************************************/
41 /*****************************************************************************/
43 /*****************************************************************************/
47 /* Code generator flags.
48 * Note: The type flags are designed so that a smaller type may override a
49 * larger one by or'ing it into the existing one.
51 #define CF_NONE 0x0000 /* No special flags */
53 #define CF_TYPE 0x000F /* Mask for operand type */
54 #define CF_CHAR 0x0003 /* Operation on characters */
55 #define CF_INT 0x0001 /* Operation on ints */
56 #define CF_PTR CF_INT /* Alias for readability */
57 #define CF_LONG 0x0000 /* Operation on longs */
59 #define CF_UNSIGNED 0x0010 /* Value is unsigned */
60 #define CF_CONST 0x0020 /* Constant value available */
61 #define CF_CONSTADDR 0x0040 /* Constant address value available */
62 #define CF_TEST 0x0080 /* Test value */
63 #define CF_FIXARGC 0x0100 /* Function has fixed arg count */
64 #define CF_FORCECHAR 0x0200 /* Handle chars as chars, not ints */
65 #define CF_SHORT 0x0400 /* Use short addressing */
66 #define CF_REG 0x0800 /* Value is in primary register */
68 /* Type of static address */
69 #define CF_ADDRMASK 0xF000 /* Type of address */
70 #define CF_STATIC 0x0000 /* Static local */
71 #define CF_EXTERNAL 0x1000 /* Static external */
72 #define CF_ABSOLUTE 0x2000 /* Numeric absolute address */
73 #define CF_LOCAL 0x4000 /* Auto variable */
74 #define CF_REGVAR 0x8000 /* Register variable */
78 /* Compiler relative stackpointer */
83 /*****************************************************************************/
84 /* Pre- and postamble */
85 /*****************************************************************************/
89 void g_preamble (void);
90 /* Generate the assembler code preamble */
92 void g_postamble (void);
93 /* Generate assembler code postamble */
97 /*****************************************************************************/
99 /*****************************************************************************/
103 void g_usecode (void);
104 /* Switch to the code segment */
106 void g_userodata (void);
107 /* Switch to the read only data segment */
109 void g_usedata (void);
110 /* Switch to the data segment */
112 void g_usebss (void);
113 /* Switch to the bss segment */
115 void g_codename (const char* Name);
116 /* Set the name of the CODE segment */
118 void g_rodataname (const char* Name);
119 /* Set the name of the RODATA segment */
121 void g_dataname (const char* Name);
122 /* Set the name of the DATA segment */
124 void g_bssname (const char* Name);
125 /* Set the name of the BSS segment */
129 /*****************************************************************************/
130 /* Functions handling local labels */
131 /*****************************************************************************/
135 void g_defloclabel (unsigned label);
136 /* Define a local label */
140 /*****************************************************************************/
141 /* Functions handling global labels */
142 /*****************************************************************************/
146 void g_defgloblabel (const char* Name);
147 /* Define a global label with the given name */
149 void g_defexport (const char* Name, int ZP);
150 /* Export the given label */
152 void g_defimport (const char* Name, int ZP);
153 /* Import the given label */
157 /*****************************************************************************/
159 /*****************************************************************************/
163 int pop (unsigned flags);
164 /* Pop an argument of the given size */
166 int push (unsigned flags);
167 /* Push an argument of the given size */
169 unsigned sizeofarg (unsigned flags);
170 /* Return the size of a function argument type that is encoded in flags */
174 /*****************************************************************************/
175 /* type conversion and similiar stuff */
176 /*****************************************************************************/
180 void g_toslong (unsigned flags);
181 /* Make sure, the value on TOS is a long. Convert if necessary */
183 void g_tosint (unsigned flags);
184 /* Make sure, the value on TOS is an int. Convert if necessary */
186 void g_reglong (unsigned flags);
187 /* Make sure, the value in the primary register a long. Convert if necessary */
189 unsigned g_typeadjust (unsigned lhs, unsigned rhs);
190 /* Adjust the integer operands before doing a binary operation. lhs is a flags
191 * value, that corresponds to the value on TOS, rhs corresponds to the value
192 * in (e)ax. The return value is the the flags value for the resulting type.
195 unsigned g_typecast (unsigned lhs, unsigned rhs);
196 /* Cast the value in the primary register to the operand size that is flagged
197 * by the lhs value. Return the result value.
200 void g_scale (unsigned flags, long val);
201 /* Scale the value in the primary register by the given value. If val is positive,
202 * scale up, is val is negative, scale down. This function is used to scale
203 * the operands or results of pointer arithmetic by the size of the type, the
209 /*****************************************************************************/
210 /* Function entry and exit */
211 /*****************************************************************************/
215 void g_enter (unsigned flags, unsigned argsize);
216 /* Function prologue */
218 void g_leave (int flags, int val);
219 /* Function epilogue */
223 /*****************************************************************************/
224 /* Register variables */
225 /*****************************************************************************/
229 void g_save_regvars (int RegOffs, unsigned Bytes);
230 /* Save register variables */
232 void g_restore_regvars (int StackOffs, int RegOffs, unsigned Bytes);
233 /* Restore register variables */
237 /*****************************************************************************/
238 /* Fetching memory cells */
239 /*****************************************************************************/
243 void g_getimmed (unsigned flags, unsigned long val, unsigned offs);
244 void g_getstatic (unsigned flags, unsigned long label, unsigned offs);
245 void g_getlocal (unsigned flags, int offs);
246 void g_getind (unsigned flags, unsigned offs);
247 void g_leasp (int offs);
251 /*****************************************************************************/
252 /* Store into memory */
253 /*****************************************************************************/
257 void g_putstatic (unsigned flags, unsigned long label, unsigned offs);
258 /* Store the primary register into the specified static memory cell */
260 void g_putlocal (unsigned flags, int offs);
261 /* Put data into local object. */
263 void g_putind (unsigned flags, unsigned offs);
264 /* Store the specified object type in the primary register at the address
265 * on the top of the stack
270 /*****************************************************************************/
271 /* Adds and subs of variables fix a fixed address */
272 /*****************************************************************************/
276 void g_addlocal (unsigned flags, int offs);
277 /* Add a local variable to ax */
279 void g_addstatic (unsigned flags, unsigned long label, unsigned offs);
280 /* Add a static variable to ax */
284 /*****************************************************************************/
285 /* Compares of ax with a variable with fixed address */
286 /*****************************************************************************/
290 void g_cmplocal (unsigned flags, int offs);
291 /* Compare a local variable to ax */
293 void g_cmpstatic (unsigned flags, unsigned label, unsigned offs);
294 /* Compare a static variable to ax */
298 /*****************************************************************************/
299 /* Special op= functions */
300 /*****************************************************************************/
304 void g_addeqstatic (unsigned flags, unsigned long label, unsigned offs,
306 /* Emit += for a static variable */
308 void g_addeqlocal (unsigned flags, int offs, unsigned long val);
309 /* Emit += for a local variable */
311 void g_addeqind (unsigned flags, unsigned offs, unsigned long val);
312 /* Emit += for the location with address in ax */
314 void g_subeqstatic (unsigned flags, unsigned long label, unsigned offs,
316 /* Emit -= for a static variable */
318 void g_subeqlocal (unsigned flags, int offs, unsigned long val);
319 /* Emit -= for a local variable */
321 void g_subeqind (unsigned flags, unsigned offs, unsigned long val);
322 /* Emit -= for the location with address in ax */
326 /*****************************************************************************/
327 /* Add a variable address to the value in ax */
328 /*****************************************************************************/
332 void g_addaddr_local (unsigned flags, int offs);
333 /* Add the address of a local variable to ax */
335 void g_addaddr_static (unsigned flags, unsigned long label, unsigned offs);
336 /* Add the address of a static variable to ax */
340 /*****************************************************************************/
342 /*****************************************************************************/
346 void g_save (unsigned flags);
347 void g_restore (unsigned flags);
349 void g_cmp (unsigned flags, unsigned long val);
350 /* Immidiate compare. The primary register will not be changed, Z flag
354 void g_test (unsigned flags);
355 void g_push (unsigned flags, unsigned long val);
356 void g_swap (unsigned flags);
357 void g_call (unsigned flags, char *lbl, unsigned argsize);
358 void g_callind (unsigned flags, unsigned argsize);
359 void g_jump (unsigned label);
360 void g_switch (unsigned flags);
362 void g_case (unsigned flags, unsigned label, unsigned long val);
363 /* Create table code for one case selector */
365 void g_truejump (unsigned flags, unsigned label);
366 /* Jump to label if zero flag clear */
368 void g_falsejump (unsigned flags, unsigned label);
369 /* Jump to label if zero flag set */
371 void g_space (int space);
372 /* Create or drop space on the stack */
374 void g_stackcheck (void);
375 /* Check for a stack overflow */
377 void g_add (unsigned flags, unsigned long val);
378 void g_sub (unsigned flags, unsigned long val);
379 void g_rsub (unsigned flags, unsigned long val);
380 void g_mul (unsigned flags, unsigned long val);
381 void g_div (unsigned flags, unsigned long val);
382 void g_mod (unsigned flags, unsigned long val);
383 void g_or (unsigned flags, unsigned long val);
384 void g_xor (unsigned flags, unsigned long val);
385 void g_and (unsigned flags, unsigned long val);
386 void g_asr (unsigned flags, unsigned long val);
387 void g_asl (unsigned flags, unsigned long val);
388 void g_neg (unsigned flags);
389 void g_bneg (unsigned flags);
390 void g_com (unsigned flags);
391 void g_inc (unsigned flags, unsigned long n);
392 void g_dec (unsigned flags, unsigned long n);
393 void g_eq (unsigned flags, unsigned long val);
394 void g_ne (unsigned flags, unsigned long val);
395 void g_lt (unsigned flags, unsigned long val);
396 void g_le (unsigned flags, unsigned long val);
397 void g_gt (unsigned flags, unsigned long val);
398 void g_ge (unsigned flags, unsigned long val);
400 void g_res (unsigned n);
401 /* Reserve static storage, n bytes */
403 void g_defdata (unsigned flags, unsigned long val, unsigned offs);
404 /* Define data with the size given in flags */
406 void g_defbytes (const unsigned char *bytes, unsigned count);
407 /* Output a row of bytes as a constant */
409 void g_zerobytes (unsigned n);
410 /* Output n bytes of data initialized with zero */
414 /*****************************************************************************/
415 /* Inlined known functions */
416 /*****************************************************************************/
420 void g_strlen (unsigned flags, unsigned long val, unsigned offs);
421 /* Inline the strlen() function */
425 /* End of codegen.h */