3867cfdaca
* Fixing of potential crash issue with function tables in compiler. + SYSTEM.h is now renamed to SYSTEMM2.h to avoid conflicts on non case sensitive filesystems.
53 lines
1.5 KiB
C
53 lines
1.5 KiB
C
/* Copyright (c) 2019 ACK Project.
|
|
* See the copyright notice in the ACK home directory,
|
|
* in the file "Copyright".
|
|
*
|
|
* Created on: 2019-02-26
|
|
*
|
|
*/
|
|
#ifndef CODE_H_
|
|
#define CODE_H_
|
|
|
|
#include "parameters.h"
|
|
#include <em_arith.h>
|
|
#include <em_label.h>
|
|
|
|
/* Forward declarations. */
|
|
typedef struct node t_node;
|
|
typedef struct desig t_desig;
|
|
typedef struct type t_type;
|
|
|
|
/* Generate code to push constant "cst" with size "size" bytes. */
|
|
void CodeConst(arith cst, int size);
|
|
/* Generate constant character or string. */
|
|
void CodeString(register t_node *nd);
|
|
/* Generate code for an expression contained in "nd". */
|
|
void CodeExpr(t_node *nd, t_desig *ds, label true_label, label false_label);
|
|
/* Generate implicit type conversion code. */
|
|
void CodeCoercion(t_type *t1, t_type *t2);
|
|
/* Generate code for a procedure call including parameter setup. Checking of parameters
|
|
and result is already done. */
|
|
void CodeCall(t_node *nd);
|
|
void CodePString(t_node *nd, t_type *tp);
|
|
/* Generate a range check if necessary */
|
|
void RangeCheck(register t_type *tpl, t_type *tpr);
|
|
void CodeOper(register t_node *expr, label true_label, label false_label);
|
|
/* Generate code to push the value of the expression "nd"
|
|
on the stack. */
|
|
void CodePExpr(register t_node *nd);
|
|
/* Generate code to store the expression on the stack into the
|
|
designator "nd".
|
|
*/
|
|
void CodeDStore(register t_node *nd);
|
|
|
|
#ifdef SQUEEZE
|
|
void c_bra(label l);
|
|
void c_loc(int n);
|
|
void c_lae_dlb(label l);
|
|
void CAL(char *name, int ssp);
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#endif /* CODE_H_ */
|