/* pkl-typify.c - Type handling phases for the poke compiler.  */

/* Copyright (C) 2019, 2020, 2021, 2022, 2023 Jose E. Marchesi */

/* This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

/* This file contains the implementation of two compiler phases:

   `typify1' annotates expression nodes in the AST with their
   respective types, according to the rules documented in the handlers
   below.  It also performs type-checking.  It relies on the lexer and
   previous phases to set the types for INTEGER, CHAR, STRING and
   other entities, and propagates that information up the AST.

   `typify2' determines which types are "complete" and annotates the
   type nodes accordingly, for EXP nodes whose type-completeness has
   not been already determined in the lexer or indirectly, by
   propagating types, in typify1: namely, ARRAYs and STRUCTs.  A type
   if complete if its size in bits can be determined at compile-time,
   and that size is constant.  Note that not-complete types are legal
   poke entities, but certain operations are not allowed on them.

   Both phases perform general type checking, and they conform the
   implementation of the language's type system.  */

#include <config.h>

#include <string.h>

#include "pk-utils.h"

#include "pkl.h"
#include "pkl-diag.h"
#include "pkl-ast.h"
#include "pkl-env.h"
#include "pkl-pass.h"
#include "pkl-typify.h"

/* Roll out our own GCD from gnulib.  */
#define WORD_T uint64_t
#define GCD  typify_gcd
#include <gcd.c>

#define PKL_TYPIFY_PAYLOAD ((pkl_typify_payload) PKL_PASS_PAYLOAD)

/* Note the following macro evaluates the arguments twice!  */
#define MAX(A,B) ((A) > (B) ? (A) : (B))

/* The following handler is used in both `typify1' and `typify2'.  It
   initializes the payload.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify_pr_program)
{
  PKL_TYPIFY_PAYLOAD->errors = 0;
}
PKL_PHASE_END_HANDLER

/* The following handler is used in all typify phases, and handles
   changing the source file for diagnostics.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify_ps_src)
{
  pkl_ast_node src = PKL_PASS_NODE;
  char *filename = PKL_AST_SRC_FILENAME (src);

  free (PKL_PASS_AST->filename);
  PKL_PASS_AST->filename = filename ? strdup (filename) : NULL;
}
PKL_PHASE_END_HANDLER

/* The type of a NOT is a boolean encoded as a 32-bit signed integer,
   and the type of its sole operand should be suitable to be promoted
   to a boolean, i.e. it is an integral value.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_not)
{
  pkl_ast_node op = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 0);
  pkl_ast_node op_type = PKL_AST_TYPE (op);

  /* Handle integral structs.  */
  if (PKL_AST_TYPE_CODE (op_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op_type))
    op_type = PKL_AST_TYPE_S_ITYPE (op_type);

  if (PKL_AST_TYPE_CODE (op_type) != PKL_TYPE_INTEGRAL)
    {
      char *op_type_str = pkl_type_str (op_type, 1);

      PKL_ERROR (PKL_AST_LOC (op),
                 "invalid operand in expression\n"
                 "expected integral, got %s", op_type_str);
      free (op_type_str);

      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
  else
    {
      pkl_ast_node exp_type
        = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);

      PKL_AST_TYPE (PKL_PASS_NODE) = ASTREF (exp_type);
    }
}
PKL_PHASE_END_HANDLER

/* The following two macros are used in the handlers of the binary
   expressions, below.  They expect the following C context:

   op1
     AST node with the first operand.
   op2
     AST node with the second operand.
   op1_type
     AST node with the type of the first operand.
   op2_type
     AST node with he type of the second operand.
*/

#define INVALID_OPERAND(OP,EXPECTED_STR)                        \
  do                                                            \
    {                                                           \
      char *OP##_type_str = pkl_type_str (OP##_type, 1);        \
                                                                \
      PKL_ERROR (PKL_AST_LOC ((OP)),                            \
                 "invalid operand in expression\n%s, got %s",   \
                 (EXPECTED_STR), OP##_type_str);                \
      free (OP##_type_str);                                     \
                                                                \
      PKL_TYPIFY_PAYLOAD->errors++;                             \
      PKL_PASS_ERROR;                                           \
    }                                                           \
  while (0)

#define INVALID_SECOND_OPERAND                                          \
  do                                                                    \
    {                                                                   \
      char *op1_type_str = pkl_type_str (op1_type, 1);                  \
      char *op2_type_str = pkl_type_str (op2_type, 1);                  \
                                                                        \
      PKL_ERROR (PKL_AST_LOC (op2),                                     \
                 "invalid operand in expression\nexpected %s, got %s",  \
                 op1_type_str, op2_type_str);                           \
                                                                        \
      free (op1_type_str);                                              \
      free (op2_type_str);                                              \
                                                                        \
      PKL_TYPIFY_PAYLOAD->errors++;                                     \
      PKL_PASS_ERROR;                                                   \
    }                                                                   \
  while (0)

/* The type of the relational operations EQ, NE, LT, GT, LE and GE is
   a boolean encoded as a 32-bit signed integer type.  Their operands
   should be either both integral types, or strings, or offsets.  EQ
   and NE also accept arrays.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_rela)
{
  enum pkl_ast_op exp_code = PKL_AST_EXP_CODE (PKL_PASS_NODE);

  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 0);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);
  int op1_type_code = PKL_AST_TYPE_CODE (op1_type);

  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);
  int op2_type_code = PKL_AST_TYPE_CODE (op2_type);

  pkl_ast_node exp_type;

  switch (op1_type_code)
    {
    case PKL_TYPE_INTEGRAL:
      if (op2_type_code != PKL_TYPE_INTEGRAL)
        INVALID_OPERAND (op2, "expected integral");
      break;
    case PKL_TYPE_STRING:
      if (op2_type_code != PKL_TYPE_STRING)
        INVALID_OPERAND (op2, "expected string");
      break;
    case PKL_TYPE_OFFSET:
      if (op2_type_code != PKL_TYPE_OFFSET)
        INVALID_OPERAND (op2, "expected offset");
      break;
    case PKL_TYPE_ARRAY:
      {
        /* Only EQ and NE are supported for arrays.  */
        if (!(exp_code == PKL_AST_OP_EQ || exp_code == PKL_AST_OP_NE))
          goto invalid_first_operand;

        /* The second operand must be an array.  */
        if (op2_type_code != PKL_TYPE_ARRAY)
          goto invalid_second_operand;

        /* The arrays must contain the same kind of elements.  */
        if (!pkl_ast_type_equal_p (PKL_AST_TYPE_A_ETYPE (op1_type),
                                   PKL_AST_TYPE_A_ETYPE (op2_type)))
          goto invalid_second_operand;

        /* If the bounds of both array types are known at
           compile-time, then we can check and emit an error if they
           are not the same.  */
        {
          pkl_ast_node op1_type_bound = PKL_AST_TYPE_A_BOUND (op1_type);
          pkl_ast_node op2_type_bound = PKL_AST_TYPE_A_BOUND (op2_type);

          if (op1_type_bound
              && op2_type_bound
              && PKL_AST_CODE (op1_type_bound) == PKL_AST_INTEGER
              && PKL_AST_CODE (op2_type_bound) == PKL_AST_INTEGER
              && (PKL_AST_INTEGER_VALUE (op1_type_bound)
                  != PKL_AST_INTEGER_VALUE (op2_type_bound)))
            goto invalid_second_operand;
        }
        break;
      }
    case PKL_TYPE_FUNCTION:
      {
        /* Only EQ and NE are supported for functions.  */
        if (!(exp_code == PKL_AST_OP_EQ || exp_code == PKL_AST_OP_NE))
          goto invalid_first_operand;

        /* The second operand must be a function.  */
        if (op2_type_code != PKL_TYPE_FUNCTION)
          INVALID_OPERAND (op2, "expected function");

        break;
      }
    case PKL_TYPE_STRUCT:
      {
        /* Only EQ and NE are supported for structs.  */
        if (!(exp_code == PKL_AST_OP_EQ || exp_code == PKL_AST_OP_NE))
          goto invalid_first_operand;

        /* The second operand must be a struct.  */
        if (op2_type_code != PKL_TYPE_STRUCT)
          INVALID_OPERAND (op2, "expected struct");

        /* The two struct types should be named, and refer to the same
           type for equality to be tested.  */
        {
          pkl_ast_node op1_type_name = PKL_AST_TYPE_NAME (op1_type);
          pkl_ast_node op2_type_name = PKL_AST_TYPE_NAME (op2_type);

          if (op1_type_name
              && op2_type_name
              && STREQ (PKL_AST_IDENTIFIER_POINTER (op1_type_name),
                        PKL_AST_IDENTIFIER_POINTER (op2_type_name)))
            ;
          else
            goto invalid_second_operand;
        }

        break;
      }
    case PKL_TYPE_ANY:
    default:
      goto invalid_first_operand;
    }

  /* Set the type of the expression node.  */
  exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
  PKL_AST_TYPE (PKL_PASS_NODE) = ASTREF (exp_type);
  PKL_PASS_DONE;

 invalid_first_operand:
  INVALID_OPERAND (op1,
                   exp_code == PKL_AST_OP_EQ || exp_code == PKL_AST_OP_NE
                   ? "expected integral, string, offset, array, struct or function"
                   : "expected integral, string or offset");

 invalid_second_operand:
  INVALID_SECOND_OPERAND;
}
PKL_PHASE_END_HANDLER

/* The type of a binary operation EQ, NE, LT, GT, LE, GE, AND, and OR
   is a boolean encoded as a 32-bit signed integer type.

   Also, arguments to boolean operators should be of integral
   types.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_boolean)
{
  pkl_ast_node type;

  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 0);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);

  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);

  /* Integral structs shall be considered as integers in this
     context.  */
  if (PKL_AST_TYPE_CODE (op1_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op1_type))
    op1_type = PKL_AST_TYPE_S_ITYPE (op1_type);

  if (PKL_AST_TYPE_CODE (op2_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op2_type))
    op2_type = PKL_AST_TYPE_S_ITYPE (op2_type);

  if (PKL_AST_TYPE_CODE (op1_type) != PKL_TYPE_INTEGRAL)
    INVALID_OPERAND (op1, "expected integral");
  if (PKL_AST_TYPE_CODE (op2_type) != PKL_TYPE_INTEGRAL)
    INVALID_OPERAND (op2, "expected integral");

  type = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
  PKL_AST_TYPE (PKL_PASS_NODE) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* The type of an unary operation NEG, POS, BNOT is the type of its
   single operand.  They are only valid on certain types.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_neg_pos_bnot)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);

  /* Handle an integral struct operand.  */
  if (PKL_AST_TYPE_CODE (op1_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op1_type))
    op1_type = PKL_AST_TYPE_S_ITYPE (op1_type);

  switch (PKL_AST_TYPE_CODE (op1_type))
    {
    case PKL_TYPE_INTEGRAL:
    case PKL_TYPE_OFFSET:
      break;
    default:
      INVALID_OPERAND (op1, "expected integral or offset");
    }

  PKL_AST_TYPE (exp) = ASTREF (op1_type);
}
PKL_PHASE_END_HANDLER

/* The type of the unary UNMAP operator is the type of its single
   operand.  It is only valid for values that are suitable to be
   mapped.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_unmap)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);

  if (!pkl_ast_type_mappable_p (op1_type))
    INVALID_OPERAND (op1, "expected a mappable value");
  PKL_AST_TYPE (exp) = ASTREF (op1_type);
}
PKL_PHASE_END_HANDLER

/* The type of the unary REMAP operator is the type of its single
   operand.  It is only valid for values that are suitable to be
   mapped.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_remap)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);

  if (!pkl_ast_type_mappable_p (op1_type))
    INVALID_OPERAND (op1, "expected a mappable value");
  PKL_AST_TYPE (exp) = ASTREF (op1_type);
}
PKL_PHASE_END_HANDLER

/* The type of an ISA operation is a boolean.  Also, many ISA can be
   determined at compile-time.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_isa)
{
  pkl_ast_node isa = PKL_PASS_NODE;
  pkl_ast_node isa_type = PKL_AST_ISA_TYPE (isa);
  pkl_ast_node isa_exp = PKL_AST_ISA_EXP (isa);
  pkl_ast_node isa_exp_type = PKL_AST_TYPE (isa_exp);

  pkl_ast_node bool_type
    = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);

  if (PKL_AST_TYPE_CODE (isa_type) == PKL_TYPE_ANY)
    {
      /* EXP isa any is always true.  Replace the subtree with a
         `true' value.  */
      pkl_ast_node true_node = pkl_ast_make_integer (PKL_PASS_AST, 1);

      PKL_AST_TYPE (true_node) = ASTREF (bool_type);

      pkl_ast_node_free (PKL_PASS_NODE);
      PKL_PASS_NODE = true_node;
    }
  else if (PKL_AST_TYPE_CODE (isa_exp_type) != PKL_TYPE_ANY)
    {
      pkl_ast_node bool_node
        = pkl_ast_make_integer (PKL_PASS_AST,
                                pkl_ast_type_equal_p (isa_type, isa_exp_type));


      PKL_AST_TYPE (bool_node) = ASTREF (bool_type);

      pkl_ast_node_free (PKL_PASS_NODE);
      PKL_PASS_NODE = bool_node;
    }
  else
    /* The rest of the cases should be resolved at run-time.  */
    PKL_AST_TYPE (isa) = ASTREF (bool_type);
}
PKL_PHASE_END_HANDLER

/* The type of a CAST is the type of its target type.  However, not
   all types are allowed in casts.  */

#define INVALID_CAST(STR)                       \
  do                                            \
    {                                           \
      PKL_ERROR (PKL_AST_LOC (cast), (STR));    \
      PKL_TYPIFY_PAYLOAD->errors++;             \
      PKL_PASS_ERROR;                           \
    }                                           \
  while (0)

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_cast)
{
  pkl_ast_node cast = PKL_PASS_NODE;
  pkl_ast_node type = PKL_AST_CAST_TYPE (cast);
  pkl_ast_node exp = PKL_AST_CAST_EXP (cast);

  pkl_ast_node from_type = PKL_AST_TYPE (exp);
  pkl_ast_node to_type = PKL_AST_CAST_TYPE (cast);
  int from_type_code = PKL_AST_TYPE_CODE (from_type);
  int to_type_code = PKL_AST_TYPE_CODE (to_type);

  if (PKL_AST_TYPE_CODE (from_type) == PKL_TYPE_VOID)
    {
      /* Note that this is syntactically not possible.  So ICE instead
         of error.  */
      PKL_ICE (PKL_AST_LOC (cast),
               "casting `void' is not allowed");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* Some casts can be decided just by looking at the from_type.  */
  switch (from_type_code)
    {
    case PKL_TYPE_ANY:
      /* ANY can be casted to anything but not functions (yet).  */
      if (to_type_code != PKL_TYPE_FUNCTION)
        goto done;
      break;
    default:
      break;
    }

  /* For the rest we need to look at the to_type.  */
  switch (to_type_code)
    {
    case PKL_TYPE_VOID:
      INVALID_CAST ("invalid cast to `void'");
      break;
    case PKL_TYPE_ANY:
      INVALID_CAST ("invalid cast to `any'");
      break;
    case PKL_TYPE_FUNCTION:
      INVALID_CAST ("invalid cast to function");
      break;
    case PKL_TYPE_OFFSET:
      if (from_type_code != PKL_TYPE_OFFSET)
        INVALID_CAST ("invalid cast to offset");
      break;
    case PKL_TYPE_STRING:
      if (from_type_code != PKL_TYPE_STRING
          && (from_type_code != PKL_TYPE_INTEGRAL
              || PKL_AST_TYPE_I_SIGNED_P (from_type) != 0
              || PKL_AST_TYPE_I_SIZE (from_type) != 8))
        INVALID_CAST ("invalid cast to string");
      break;
    case PKL_TYPE_STRUCT:
      /* We are not supporting casts to non-integral unions yet.  */
      if (PKL_AST_TYPE_S_UNION_P (to_type)
          && !PKL_AST_TYPE_S_ITYPE (to_type))
        INVALID_CAST ("invalid cast to union");

      /* Only structs can be casted to regular structs.  Integral
         values can also be casted to integral structs.  */
      if (from_type_code != PKL_TYPE_STRUCT
          && !(PKL_AST_TYPE_S_ITYPE (to_type)
               && from_type_code == PKL_TYPE_INTEGRAL))
        INVALID_CAST ("invalid cast to struct");
      break;
    case PKL_TYPE_INTEGRAL:
      if (!pkl_ast_type_integrable_p (from_type))
        INVALID_CAST ("invalid cast to integral");
      break;
    case PKL_TYPE_ARRAY:
      /* Only arrays of the same type, i.e. only array boundaries may
         differ, can be casted to arrays.  */
      if (!pkl_ast_type_equal_p (from_type, to_type))
        INVALID_CAST ("invalid cast to array");
      break;
    default:
      break;
    }

 done:
  PKL_AST_TYPE (cast) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* IOR, XOR, BAND and SUB accept the following configurations of
   operands:

   INTEGRAL x INTEGRAL -> INTEGRAL
   OFFSET   x OFFSET   -> OFFSET

   DIV and CEILDIV accept the following configurations of operands:

   INTEGRAL x INTEGRAL -> INTEGRAL
   OFFSET   x OFFSET   -> INTEGRAL
   OFFSET   x INTEGRAL -> OFFSET

   MOD accepts the following configurations of operands:

   INTEGRAL x INTEGRAL -> INTEGRAL
   OFFSET   x OFFSET   -> OFFSET

   ADD accepts the following configurations of operands:

   INTEGRAL x INTEGRAL -> INTEGRAL
   OFFSET   x OFFSET   -> OFFSET
   STRING   x STRING   -> STRING
   ARRAY    x ARRAY    -> ARRAY
*/

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_bin)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (exp, 1);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);

  int op1_type_code;
  int op2_type_code;

  pkl_ast_node type;

  /* Integral structs are integers for binary operators.  */
  if (PKL_AST_TYPE_CODE (op1_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op1_type))
    op1_type = PKL_AST_TYPE_S_ITYPE (op1_type);

  if (PKL_AST_TYPE_CODE (op2_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op2_type))
    op2_type = PKL_AST_TYPE_S_ITYPE (op2_type);

  op1_type_code = PKL_AST_TYPE_CODE (op1_type);
  op2_type_code = PKL_AST_TYPE_CODE (op2_type);

  switch (op1_type_code)
    {
    case PKL_TYPE_INTEGRAL:
      if (op2_type_code != PKL_TYPE_INTEGRAL)
        INVALID_OPERAND (op2, "expected integral");

      type = pkl_type_integral_promote (PKL_PASS_AST,
                                        op1_type, op2_type);
      break;
    case PKL_TYPE_OFFSET:
      {
        switch (PKL_AST_EXP_CODE (exp))
          {
          case PKL_AST_OP_DIV:
          case PKL_AST_OP_CEILDIV:
            if (op2_type_code != PKL_TYPE_OFFSET
                && op2_type_code != PKL_TYPE_INTEGRAL)
              INVALID_OPERAND (op2, "expected integral or offset");

            /* For OFFSET / INTEGRAL the type of the result is the
               type of the first operand.  */
            if (op2_type_code == PKL_TYPE_INTEGRAL)
              {
                type = op1_type;
                break;
              }

            /* For OFFSET / OFFSET the type of the result is an
               integral as promoted by the base types of the offset
               operands.  */

            type = pkl_type_integral_promote (PKL_PASS_AST,
                                              PKL_AST_TYPE_O_BASE_TYPE (op1_type),
                                              PKL_AST_TYPE_O_BASE_TYPE (op2_type));
            break;
          case PKL_AST_OP_MOD:
            {
              if (op2_type_code != PKL_TYPE_OFFSET)
                INVALID_OPERAND (op2, "expected offset");

              pkl_ast_node base_type_1 = PKL_AST_TYPE_O_BASE_TYPE (op1_type);
              pkl_ast_node unit_type_1 = PKL_AST_TYPE_O_UNIT (op1_type);
              pkl_ast_node unit_type_2 = PKL_AST_TYPE_O_UNIT (op2_type);
              pkl_ast_node unit_type
                = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);

              pkl_ast_node unit;

              if (PKL_AST_CODE (unit_type_1) == PKL_AST_INTEGER
                  && PKL_AST_CODE (unit_type_2) == PKL_AST_INTEGER)
                {
                  uint64_t result_unit =
                    typify_gcd (PKL_AST_INTEGER_VALUE (unit_type_1),
                                PKL_AST_INTEGER_VALUE (unit_type_2));

                  unit = pkl_ast_make_integer (PKL_PASS_AST, result_unit);
                }
              else
                unit = pkl_ast_make_binary_exp (PKL_PASS_AST,
                                                PKL_AST_OP_GCD,
                                                unit_type_1, unit_type_2);

              PKL_AST_TYPE (unit) = ASTREF (unit_type);

              type = pkl_ast_make_offset_type (PKL_PASS_AST,
                                               base_type_1, unit);
              break;
            }
          default:
            {
              /* The other operations all use OFFSET x OFFSET ->
                 OFFSET */
              if (op2_type_code != PKL_TYPE_OFFSET)
                INVALID_OPERAND (op2, "expected offset");

              pkl_ast_node unit_type_1 = PKL_AST_TYPE_O_UNIT (op1_type);
              pkl_ast_node unit_type_2 = PKL_AST_TYPE_O_UNIT (op2_type);
              pkl_ast_node unit_type
                = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
              pkl_ast_node unit;

              /* Promotion rules work like in integral operations.  */
              pkl_ast_node base_type
                = pkl_type_integral_promote (PKL_PASS_AST,
                                             PKL_AST_TYPE_O_BASE_TYPE (op1_type),
                                             PKL_AST_TYPE_O_BASE_TYPE (op2_type));

              /* The unit of the result is the GCD of the units
                 involved.  */
              if (PKL_AST_CODE (unit_type_1) == PKL_AST_INTEGER
                  && PKL_AST_CODE (unit_type_2) == PKL_AST_INTEGER)
                {
                  uint64_t result_unit =
                    typify_gcd (PKL_AST_INTEGER_VALUE (unit_type_1),
                                PKL_AST_INTEGER_VALUE (unit_type_2));

                  unit = pkl_ast_make_integer (PKL_PASS_AST, result_unit);
                }
              else
                unit = pkl_ast_make_binary_exp (PKL_PASS_AST,
                                                PKL_AST_OP_GCD,
                                                unit_type_1, unit_type_2);

              PKL_AST_TYPE (unit) = ASTREF (unit_type);
              type = pkl_ast_make_offset_type (PKL_PASS_AST,
                                               base_type,
                                               unit);
              break;
            }
          }
        break;
      }
    case PKL_TYPE_STRING:
      /* This is only supported in ADD.  */
      if (PKL_AST_EXP_CODE (exp) != PKL_AST_OP_ADD)
        INVALID_OPERAND (op1, "expected integral or offset");
      if (op2_type_code != PKL_TYPE_STRING)
        INVALID_OPERAND (op2, "expected string");

      type = pkl_ast_make_string_type (PKL_PASS_AST);
      break;
    case PKL_TYPE_ARRAY:
      /* This is only supported in ADD.  */
      if (PKL_AST_EXP_CODE (exp) != PKL_AST_OP_ADD)
        INVALID_OPERAND (op1, "expected integral or offset");
      /* The type of the elements of the operand arrays should be the
         same.  */
      if (op2_type_code != PKL_TYPE_ARRAY
          || !pkl_ast_type_equal_p (PKL_AST_TYPE_A_ETYPE (op1_type),
                                    PKL_AST_TYPE_A_ETYPE (op2_type)))
        INVALID_SECOND_OPERAND;

      type = pkl_ast_make_array_type (PKL_PASS_AST,
                                      PKL_AST_TYPE_A_ETYPE (op1_type),
                                      NULL /* bound*/);
      /* We need to restart so the new type gets processed.  */
      PKL_PASS_RESTART = 1;
      break;
    default:
      if (PKL_AST_EXP_CODE (exp) == PKL_AST_OP_ADD)
        INVALID_OPERAND (op1, "expected integral, offset, string or array");
      else
        INVALID_OPERAND (op1, "expected integral or offset");
    }

  PKL_AST_TYPE (exp) = ASTREF (type);
  PKL_PASS_DONE;
}
PKL_PHASE_END_HANDLER

/* The bit-shift operators and the pow operator accept the following
   configurations of operands:

   INTEGRAL x INTEGRAL -> INTEGRAL
   OFFSET   x INTEGRAL -> OFFSET
*/

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_bshift_pow)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (exp, 1);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);

  pkl_ast_node type;

  /* Integral structs shall be considered as integers in this
     context.  */
  if (PKL_AST_TYPE_CODE (op1_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op1_type))
    op1_type = PKL_AST_TYPE_S_ITYPE (op1_type);

  if (PKL_AST_TYPE_CODE (op2_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op2_type))
    op2_type = PKL_AST_TYPE_S_ITYPE (op2_type);

  /* The first argument can be either an integral or an offset.  */
  switch (PKL_AST_TYPE_CODE (op1_type))
    {
    case PKL_TYPE_INTEGRAL:
      {
        int signed_p = PKL_AST_TYPE_I_SIGNED_P (op1_type);
        int size = PKL_AST_TYPE_I_SIZE (op1_type);

        type = pkl_ast_make_integral_type (PKL_PASS_AST,
                                           size, signed_p);
        break;
      }
    case PKL_TYPE_OFFSET:
      {
        pkl_ast_node base_type = PKL_AST_TYPE_O_BASE_TYPE (op1_type);
        pkl_ast_node unit = PKL_AST_TYPE_O_UNIT (op1_type);

        type = pkl_ast_make_offset_type (PKL_PASS_AST,
                                         base_type, unit);
        break;
      }
    default:
      INVALID_OPERAND (op1, "expected integral or offset");
      break;
    }

  /* The second argument should be an integral.  */
  if (PKL_AST_TYPE_CODE (op2_type) != PKL_TYPE_INTEGRAL)
    INVALID_OPERAND (op2, "expected integral");

  PKL_AST_TYPE (exp) = ASTREF (type);
  PKL_PASS_DONE;
}
PKL_PHASE_END_HANDLER

/* MUL accepts the following configurations of operands:

   INTEGRAL x INTEGRAL -> INTEGRAL
   STRING   x INTEGRAL -> STRING
   INTEGRAL x STRING   -> STRING
   OFFSET   x INTEGRAL -> OFFSET
   INTEGRAL x OFFSET   -> OFFSET
*/

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_mul)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (exp, 1);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);
  int op1_type_code;
  int op2_type_code;

  pkl_ast_node type;

  /* Integral structs shall be considered as integers in this
     context.  */
  if (PKL_AST_TYPE_CODE (op1_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op1_type))
    op1_type = PKL_AST_TYPE_S_ITYPE (op1_type);

  if (PKL_AST_TYPE_CODE (op2_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op2_type))
    op2_type = PKL_AST_TYPE_S_ITYPE (op2_type);

  op1_type_code = PKL_AST_TYPE_CODE (op1_type);
  op2_type_code = PKL_AST_TYPE_CODE (op2_type);

  switch (op1_type_code)
    {
    case PKL_TYPE_STRING:
      if (op2_type_code != PKL_TYPE_INTEGRAL)
        INVALID_OPERAND (op2, "expected integral");
      type = pkl_ast_make_string_type (PKL_PASS_AST);
      break;
    case PKL_TYPE_OFFSET:
      {
        pkl_ast_node res_base_type;

        if (op2_type_code != PKL_TYPE_INTEGRAL)
          INVALID_OPERAND (op2, "expected integral");

        res_base_type = pkl_type_integral_promote (PKL_PASS_AST,
                                                   PKL_AST_TYPE_O_BASE_TYPE (op1_type),
                                                   op2_type);
        type = pkl_ast_make_offset_type (PKL_PASS_AST,
                                         res_base_type,
                                         PKL_AST_TYPE_O_UNIT (op1_type));
        break;
      }
    case PKL_TYPE_INTEGRAL:
      switch (op2_type_code)
        {
        case PKL_TYPE_STRING:
          type = pkl_ast_make_string_type (PKL_PASS_AST);
          break;
        case PKL_TYPE_INTEGRAL:
          type = pkl_type_integral_promote (PKL_PASS_AST,
                                            op1_type, op2_type);
          break;
        case PKL_TYPE_OFFSET:
          {
            pkl_ast_node res_base_type
              = pkl_type_integral_promote (PKL_PASS_AST,
                                           PKL_AST_TYPE_O_BASE_TYPE (op2_type),
                                           op1_type);
            type = pkl_ast_make_offset_type (PKL_PASS_AST,
                                             res_base_type,
                                             PKL_AST_TYPE_O_UNIT (op2_type));
            break;
          }
        default:
          INVALID_OPERAND (op2, "expected integral, offset or string");
        }
      break;
    default:
      INVALID_OPERAND (op1, "expected integral, offset or string");
    }

  PKL_AST_TYPE (exp) = ASTREF (type);
  PKL_PASS_DONE;
}
PKL_PHASE_END_HANDLER

/* The type of an included operation IN is a boolean.  The right
   operator shall be an array, and the type of the left operator shall
   be promoteable to the type of the elements in the array.  Also the
   left type should allow testing for equality.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_in)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (exp, 1);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);

  pkl_ast_node exp_type;

  if (PKL_AST_TYPE_CODE (op2_type) != PKL_TYPE_ARRAY)
    INVALID_OPERAND (op2, "expected array");

  if (!pkl_ast_type_equal_p (op1_type, PKL_AST_TYPE_A_ETYPE (op2_type)))
    {
      char *t1_str = pkl_type_str (op1_type, 1);
      char *t2_str = pkl_type_str (PKL_AST_TYPE_A_ETYPE (op2_type), 1);

      PKL_ERROR (PKL_AST_LOC (op1), "invalid operand in expression\n"
                 "expected %s, got %s",
                 t2_str, t1_str);
      free (t1_str);
      free (t2_str);

      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
  PKL_AST_TYPE (exp) = ASTREF (exp_type);
}
PKL_PHASE_END_HANDLER

/* When applied to integral arguments, the type of a bit-concatenation
   ::: is an integral type with the following characteristics: the
   width of the operation is the sum of the widths of the operands,
   which in no case can exceed 64-bits.  The sign of the operation is
   the sign of the first argument.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_bconc)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (exp, 1);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);

  pkl_ast_node exp_type;

  /* Integral structs shall be considered as integers in this
     context.  */
  if (PKL_AST_TYPE_CODE (op1_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op1_type))
    op1_type = PKL_AST_TYPE_S_ITYPE (op1_type);

  if (PKL_AST_TYPE_CODE (op2_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (op2_type))
    op2_type = PKL_AST_TYPE_S_ITYPE (op2_type);

  /* This operation is only defined for integral arguments, of any
     width.  */
  if (PKL_AST_TYPE_CODE (op1_type) != PKL_TYPE_INTEGRAL)
    INVALID_OPERAND (op1, "expected integral");
  if (PKL_AST_TYPE_CODE (op2_type) != PKL_TYPE_INTEGRAL)
    INVALID_OPERAND (op2, "expected integral");

  /* The sum of the width of the operators should never exceed
     64-bit.  */
  if (PKL_AST_TYPE_I_SIZE (op1_type) + PKL_AST_TYPE_I_SIZE (op2_type)
      > 64)
    {
      PKL_ERROR (PKL_AST_LOC (exp),
                 "the sum of the width of the operators should not exceed 64-bit");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* All right, make the new type.  */
  exp_type = pkl_ast_make_integral_type (PKL_PASS_AST,
                                         PKL_AST_TYPE_I_SIZE (op1_type)
                                         + PKL_AST_TYPE_I_SIZE (op2_type),
                                         PKL_AST_TYPE_I_SIGNED_P (op1_type));
  PKL_AST_TYPE (exp) = ASTREF (exp_type);
}
PKL_PHASE_END_HANDLER

/* The type of a SIZEOF operation is an offset type with an unsigned
   64-bit magnitude and units bits.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_sizeof)
{
  pkl_ast_node itype
    = pkl_ast_make_integral_type (PKL_PASS_AST,
                                  64, 0);
  pkl_ast_node unit
    = pkl_ast_make_integer (PKL_PASS_AST, PKL_AST_OFFSET_UNIT_BITS);

  pkl_ast_node type
    = pkl_ast_make_offset_type (PKL_PASS_AST, itype, unit);

  PKL_AST_TYPE (unit) = ASTREF (itype);
  PKL_AST_TYPE (PKL_PASS_NODE) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* The type of a TYPEOF operation is a struct Type.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_typeof)
{

  /* Get the top-level compilation environment and look for the
     declaration of the type Pk_Type.  It must be there in a
     bootstrapped compiler.  If `typeof' is used in a non-bootstrapped
     compiler, the assert below will fire.  */

  pkl_ast_node type
    = pkl_env_lookup_type (pkl_get_env (PKL_PASS_COMPILER), "Pk_Type");

  assert (type);
  PKL_AST_TYPE (PKL_PASS_NODE) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* The type of an offset is an offset type featuring the type of its
   magnitude, and its unit.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_offset)
{
  pkl_ast_node offset = PKL_PASS_NODE;
  pkl_ast_node magnitude_type
    = PKL_AST_TYPE (PKL_AST_OFFSET_MAGNITUDE (offset));
  pkl_ast_node unit = PKL_AST_OFFSET_UNIT (offset);
  pkl_ast_node type;

  /* If the unit is expressed as a type (which must be complete) then
     replace it with an integer expressing its size in bits.  */
  if (PKL_AST_CODE (unit) == PKL_AST_TYPE)
    {
      pkl_ast_node new_unit;

      if (PKL_AST_TYPE_COMPLETE (unit) != PKL_AST_TYPE_COMPLETE_YES)
        {
          PKL_ERROR (PKL_AST_LOC (unit),
                     "offsets only work on complete types");
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }

      /* Calculate the size of the complete type in bits and put it in
         an integer node.  */
      new_unit = pkl_ast_sizeof_type (PKL_PASS_AST, unit);
      pkl_ast_node_free (unit);
      unit = new_unit;
      PKL_AST_OFFSET_UNIT (offset) = ASTREF (unit);
    }

  type = pkl_ast_make_offset_type (PKL_PASS_AST,
                                   magnitude_type, unit);
  PKL_AST_TYPE (offset) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* The type of an ARRAY is derived from the type of its initializers,
   which should be all of the same type.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_array)
{
  pkl_ast_node array = PKL_PASS_NODE;
  pkl_ast_node initializers = PKL_AST_ARRAY_INITIALIZERS (array);

  pkl_ast_node tmp, type = NULL;

  /* Check that the types of all the array elements are the same, and
     derive the type of the array from the first of them.  */
  for (tmp = initializers; tmp; tmp = PKL_AST_CHAIN (tmp))
    {
      pkl_ast_node initializer = PKL_AST_ARRAY_INITIALIZER_EXP (tmp);

      if (type == NULL)
        type = PKL_AST_TYPE (initializer);
      else if (!pkl_ast_type_equal_p (PKL_AST_TYPE (initializer), type))
        {
          PKL_ERROR (PKL_AST_LOC (array),
                     "array initializers should be of the same type");
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }

  /* Build the type of the array.  The arrays built from array
     literals are bounded by number of elements, and this number is
     always constant.  */
  {
    pkl_ast_node bound
      = pkl_ast_make_integer (PKL_PASS_AST, PKL_AST_ARRAY_NELEM (array));
    pkl_ast_node bound_type
      = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
    pkl_ast_node array_type;

    PKL_AST_TYPE (bound) = ASTREF (bound_type);

    array_type = pkl_ast_make_array_type (PKL_PASS_AST, type, bound);
    PKL_AST_TYPE_COMPLETE (array_type) = PKL_AST_TYPE_COMPLETE (type);
    PKL_AST_TYPE (array) = ASTREF (array_type);
  }
}
PKL_PHASE_END_HANDLER

/* The type of a trim is the type of the trimmed array, but unbounded.
   For strings, the result is another string.  The trimmer indexes
   should be unsigned 64-bit integrals, but this phase lets any
   integral pass to promo.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_trimmer)
{
  pkl_ast_node trimmer = PKL_PASS_NODE;
  pkl_ast_node from_idx = PKL_AST_TRIMMER_FROM (trimmer);
  pkl_ast_node to_idx = PKL_AST_TRIMMER_TO (trimmer);
  pkl_ast_node entity = PKL_AST_TRIMMER_ENTITY (trimmer);
  pkl_ast_node entity_type = PKL_AST_TYPE (entity);
  pkl_ast_node to_idx_type = PKL_AST_TYPE (to_idx);
  pkl_ast_node from_idx_type = PKL_AST_TYPE (from_idx);

  if (PKL_AST_TYPE_CODE (from_idx_type) != PKL_TYPE_INTEGRAL)
    {
      char *type_str = pkl_type_str (from_idx_type, 1);

      PKL_ERROR (PKL_AST_LOC (from_idx),
                 "invalid index in trimmer\n"
                 "expected integral, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_TYPE_CODE (to_idx_type) != PKL_TYPE_INTEGRAL)
    {
      char *type_str = pkl_type_str (to_idx_type, 1);

      PKL_ERROR (PKL_AST_LOC (to_idx),
                 "invalid index in trimmer\n"
                 "expected integral, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_TYPE_CODE (entity_type) != PKL_TYPE_ARRAY
      && PKL_AST_TYPE_CODE (entity_type) != PKL_TYPE_STRING)
    {
      char *type_str = pkl_type_str (entity_type, 1);

      PKL_ERROR (PKL_AST_LOC (entity),
                 "invalid operator to []\n"
                 "expected array or string, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_TYPE_CODE (entity_type) == PKL_TYPE_ARRAY)
  {
    pkl_ast_node new_type;

    new_type = pkl_ast_make_array_type (PKL_PASS_AST,
                                        PKL_AST_TYPE_A_ETYPE (entity_type),
                                        NULL /* bound */);
    PKL_AST_TYPE (trimmer) = ASTREF (new_type);
    PKL_PASS_RESTART = 1;
  }
  else
    PKL_AST_TYPE (trimmer) = ASTREF (entity_type);
}
PKL_PHASE_END_HANDLER

/* The type of an INDEXER is the type of the elements of the array
   it references.  If the referenced container is a string, the type
   of the INDEXER is uint<8>.

   Also, the type of the index should be either integral or
   offset.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_indexer)
{
  pkl_ast_node indexer = PKL_PASS_NODE;
  pkl_ast_node index = PKL_AST_INDEXER_INDEX (indexer);
  pkl_ast_node container = PKL_AST_INDEXER_ENTITY (indexer);
  pkl_ast_node index_type = PKL_AST_TYPE (index);
  pkl_ast_node container_type = PKL_AST_TYPE (container);

  pkl_ast_node type;

  switch (PKL_AST_TYPE_CODE (container_type))
    {
    case PKL_TYPE_ARRAY:
      /* The type of the indexer is the type of the elements of the
         array.  */
      type
        = PKL_AST_TYPE_A_ETYPE (container_type);
      break;
    case PKL_TYPE_STRING:
      {
        /* The type of the indexer is a `char', i.e. a uint<8>.  */
        type = pkl_ast_make_integral_type (PKL_PASS_AST, 8, 0);
        break;
      }
    default:
      {
        char *type_str = pkl_type_str (container_type, 1);

        PKL_ERROR (PKL_AST_LOC (container),
                   "invalid operator to []\n"
                   "expected array or string, got %s",
                   type_str);
        free (type_str);
        PKL_TYPIFY_PAYLOAD->errors++;
        PKL_PASS_ERROR;
      }
    }

  if (PKL_AST_TYPE_CODE (index_type) != PKL_TYPE_INTEGRAL
      && PKL_AST_TYPE_CODE (index_type) != PKL_TYPE_OFFSET)
    {
      char *type_str = pkl_type_str (index_type, 1);

      PKL_ERROR (PKL_AST_LOC (index),
                 "invalid index in array indexer\n"
                 "expected integral or offset, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  PKL_AST_TYPE (indexer) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* The type of a STRUCT is determined from the types of its
   elements.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_struct)
{
  pkl_ast_node node = PKL_PASS_NODE;
  pkl_ast_node type;
  pkl_ast_node t, struct_field_types = NULL;

  /* Build a chain with the types of the struct fields.  */
  for (t = PKL_AST_STRUCT_FIELDS (node); t; t = PKL_AST_CHAIN (t))
    {
      pkl_ast_node struct_type_field
        = pkl_ast_make_struct_type_field (PKL_PASS_AST,
                                          PKL_AST_STRUCT_FIELD_NAME (t),
                                          PKL_AST_TYPE (t),
                                          NULL /* constraint */,
                                          NULL /* initializer */,
                                          NULL /* label */,
                                          PKL_AST_ENDIAN_DFL /* endian */,
                                          NULL /* optcond_pre */,
                                          NULL /* optcond_post */);

      struct_field_types = pkl_ast_chainon (struct_field_types,
                                            struct_type_field);
    }

  /* Build the type of the struct.  */
  type = pkl_ast_make_struct_type (PKL_PASS_AST,
                                   PKL_AST_STRUCT_NELEM (node),
                                   PKL_AST_STRUCT_NELEM (node), /* nfield */
                                   0, /* ndecl */
                                   NULL, /* itype */
                                   struct_field_types,
                                   0 /* pinned */,
                                   0 /* union */);
  PKL_AST_TYPE (node) = ASTREF (type);
  PKL_PASS_RESTART = 1;
}
PKL_PHASE_END_HANDLER

/* The type of a FUNC is determined from the types of its arguments,
   and its return type.  We need to use a pre-order handler here
   because variables holding recursive calls to the function need the
   type of the function to exist.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_pr_func)
{
  pkl_ast_node node = PKL_PASS_NODE;
  pkl_ast_node type;
  pkl_ast_node t, func_type_args = NULL;
  char *func_name = PKL_AST_FUNC_NAME (node);
  size_t nargs = 0;

  /* Build a chain with the types of the function arguments.  */
  for (t = PKL_AST_FUNC_ARGS (node); t; t = PKL_AST_CHAIN (t))
    {
      pkl_ast_node func_type_arg
        = pkl_ast_make_func_type_arg (PKL_PASS_AST,
                                      PKL_AST_FUNC_ARG_TYPE (t),
                                      PKL_AST_FUNC_ARG_IDENTIFIER (t));

      func_type_args = pkl_ast_chainon (func_type_args,
                                        func_type_arg);
      PKL_AST_FUNC_TYPE_ARG_OPTIONAL (func_type_arg)
        = PKL_AST_FUNC_ARG_INITIAL (t) != NULL;
      PKL_AST_FUNC_TYPE_ARG_VARARG (func_type_arg)
        = PKL_AST_FUNC_ARG_VARARG (t);

      nargs++;
    }

  /* Make the type of the function.  */
  type = pkl_ast_make_function_type (PKL_PASS_AST,
                                     PKL_AST_FUNC_RET_TYPE (node),
                                     nargs,
                                     func_type_args);
  if (func_name)
    {
      pkl_ast_node func_name_node = pkl_ast_make_string (PKL_PASS_AST,
                                                         func_name);
      PKL_AST_TYPE_NAME (type) = ASTREF (func_name_node);
    }
  PKL_AST_TYPE (node) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* The expression to which a FUNCALL is applied should be a function,
   and the types of the formal parameters should match the types of
   the actual arguments in the funcall.  Also, set the type of the
   funcall, which is the type returned by the function.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_funcall)
{
  pkl_ast_node funcall = PKL_PASS_NODE;
  pkl_ast_node funcall_function
    = PKL_AST_FUNCALL_FUNCTION (funcall);
  pkl_ast_node funcall_function_type
    = PKL_AST_TYPE (funcall_function);
  pkl_ast_node fa, aa;

  int mandatory_args, narg;
  int vararg = 0;

  if (PKL_AST_TYPE_CODE (funcall_function_type)
      != PKL_TYPE_FUNCTION)
    {
      char *type_str = pkl_type_str (funcall_function_type, 1);

      PKL_ERROR (PKL_AST_LOC (funcall_function),
                 "invalid operand in funcall\n"
                 "expected function, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* Calculate the number of formal arguments that are not optional,
     and determine whether we have the right number of actual
     arguments.  Emit an error otherwise.  */
  for (mandatory_args = 0, fa = PKL_AST_TYPE_F_ARGS (funcall_function_type);
       fa;
       fa = PKL_AST_CHAIN (fa))
    {
      if (PKL_AST_FUNC_TYPE_ARG_OPTIONAL (fa)
          || PKL_AST_FUNC_TYPE_ARG_VARARG (fa))
        break;
      mandatory_args += 1;
    }

  if (PKL_AST_FUNCALL_NARG (funcall) < mandatory_args)
    {
      char *function_type_str = pkl_type_str (funcall_function_type,
                                              0 /* use_given_name */);

      PKL_ERROR (PKL_AST_LOC (funcall_function),
                 "too few arguments passed to function\n"
                 "of type %s",
                 function_type_str);
      free (function_type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* Annotate the first vararg in the funcall.  */
  for (narg = 0,
       aa = PKL_AST_FUNCALL_ARGS (funcall),
       fa = PKL_AST_TYPE_F_ARGS (funcall_function_type);
       fa;
       narg++,
       aa = PKL_AST_CHAIN (aa),
       fa = PKL_AST_CHAIN (fa))
    {
      if (!aa)
        break;

      if (PKL_AST_FUNC_TYPE_ARG_VARARG (fa))
        {
          vararg = 1;
          PKL_AST_FUNCALL_ARG_FIRST_VARARG (aa) = 1;
        }
    }

  /* If named arguments are used, the vararg cannot be specified, so
     it will always be empty and this check applies.  */
  if (!vararg
      && (PKL_AST_FUNCALL_NARG (funcall) >
          PKL_AST_TYPE_F_NARG (funcall_function_type)))
    {
      char *function_type_str = pkl_type_str (funcall_function_type,
                                              0 /* use_given_name */);

      PKL_ERROR (PKL_AST_LOC (funcall_function),
                 "too many arguments passed to function\n"
                 "of type %s",
                 function_type_str);
      free (function_type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* If the funcall uses named arguments, reorder them to match the
     arguments specified in the function type.  If a funcall using
     named arguments is found but the function type doesn't include
     argument names, then an error is reported.  */
  {
    pkl_ast_node ordered_arg_list = NULL;
    size_t nfa;

    /* Make sure that the function type gets named arguments, and that
       every named actual argument corresponds to a formal
       argument.  */
    for (aa = PKL_AST_FUNCALL_ARGS (funcall);
         aa;
         aa = PKL_AST_CHAIN (aa))
      {
        pkl_ast_node aa_name
          = PKL_AST_FUNCALL_ARG_NAME (aa);
        int found_arg = 0;

        if (!aa_name)
          /* The funcall doesn't use named arguments; bail
             out.  Note this will always happen while
             processing the first actual argument, as per a
             check in anal1.  */
          goto after_named;

        for (fa = PKL_AST_TYPE_F_ARGS (funcall_function_type);
             fa;
             fa = PKL_AST_CHAIN (fa))
          {
            pkl_ast_node fa_name = PKL_AST_FUNC_TYPE_ARG_NAME (fa);

            if (!fa_name)
              {
                PKL_ICE (PKL_AST_LOC (aa_name),
                        "anonymous function argument");
                PKL_TYPIFY_PAYLOAD->errors++;
                PKL_PASS_ERROR;
              }

            if (STREQ (PKL_AST_IDENTIFIER_POINTER (aa_name),
                       PKL_AST_IDENTIFIER_POINTER (fa_name)))
              {
                found_arg = 1;
                break;
              }
          }

        if (!found_arg)
          {
            PKL_ERROR (PKL_AST_LOC (aa),
                       "function doesn't take a `%s' argument",
                       PKL_AST_IDENTIFIER_POINTER (aa_name));
            PKL_TYPIFY_PAYLOAD->errors++;
            PKL_PASS_ERROR;
          }
      }

    /* Reorder the actual arguments to match the arguments specified
       in the function type.  For not mentioned optional formal
       arguments, add a NULL.  */
    for (nfa = 0, fa = PKL_AST_TYPE_F_ARGS (funcall_function_type);
         fa;
         nfa++, fa = PKL_AST_CHAIN (fa))
      {
        pkl_ast_node aa_name, fa_name;
        pkl_ast_node new_aa;
        size_t naa;

        fa_name = PKL_AST_FUNC_TYPE_ARG_NAME (fa);
        for (naa = 0, aa = PKL_AST_FUNCALL_ARGS (funcall);
             aa;
             naa++, aa = PKL_AST_CHAIN (aa))
          {
            aa_name = PKL_AST_FUNCALL_ARG_NAME (aa);
            if (!fa_name)
              {
                PKL_ICE (PKL_AST_LOC (aa_name),
                         "function doesn't take named arguments");
                PKL_TYPIFY_PAYLOAD->errors++;
                PKL_PASS_ERROR;
              }

            if (STREQ (PKL_AST_IDENTIFIER_POINTER (aa_name),
                       PKL_AST_IDENTIFIER_POINTER (fa_name)))
              break;
          }

        if (aa)
          {
            new_aa = pkl_ast_make_funcall_arg (PKL_PASS_AST,
                                               PKL_AST_FUNCALL_ARG_EXP (aa),
                                               PKL_AST_FUNCALL_ARG_NAME (aa));
            PKL_AST_LOC (new_aa) = PKL_AST_LOC (aa);
          }
        else if (PKL_AST_FUNC_TYPE_ARG_OPTIONAL (fa))
          {
            new_aa = pkl_ast_make_funcall_arg (PKL_PASS_AST,
                                               NULL,
                                               fa_name);
            PKL_AST_LOC (new_aa) = PKL_AST_LOC (funcall);
          }
        else if (PKL_AST_FUNC_TYPE_ARG_VARARG (fa))
          continue;
        else
          {
            PKL_ERROR (PKL_AST_LOC (funcall),
                       "required argument `%s' not specified in funcall",
                       PKL_AST_IDENTIFIER_POINTER (fa_name));
            PKL_TYPIFY_PAYLOAD->errors++;
            PKL_PASS_ERROR;
          }

        ordered_arg_list
          = pkl_ast_chainon (ordered_arg_list, new_aa);
      }

    /* Dispose the old list of actual argument nodes.  */
    pkl_ast_node_free_chain (PKL_AST_FUNCALL_ARGS (funcall));

    /* Install the new ordered list in the funcall.  */
    PKL_AST_FUNCALL_ARGS (funcall) = ASTREF (ordered_arg_list);
  }
 after_named:

  /* Ok, check that the types of the actual arguments match the
     types of the corresponding formal arguments.  */
  for (fa = PKL_AST_TYPE_F_ARGS  (funcall_function_type),
         aa = PKL_AST_FUNCALL_ARGS (funcall),
         narg = 0;
       fa && aa;
       fa = PKL_AST_CHAIN (fa), aa = PKL_AST_CHAIN (aa))
    {
      pkl_ast_node fa_type = PKL_AST_FUNC_ARG_TYPE (fa);
      pkl_ast_node aa_exp = PKL_AST_FUNCALL_ARG_EXP (aa);

      if (!aa_exp)
        {
          /* This is an optional argument that hasn't been specified.
             Do not check.  */
        }
      else
        {
          pkl_ast_node aa_type =  PKL_AST_TYPE (aa_exp);

          if (!PKL_AST_FUNC_TYPE_ARG_VARARG (fa)
              && !pkl_ast_type_promoteable_p (aa_type, fa_type,
                                              1 /* promote_array_of_any */))
            {
              pkl_ast_node arg_name = PKL_AST_FUNC_TYPE_ARG_NAME (fa);
              char *passed_type = pkl_type_str (aa_type, 1);
              char *expected_type = pkl_type_str (fa_type, 1);

              if (arg_name)
                PKL_ERROR (PKL_AST_LOC (aa),
                           "invalid value for function argument `%s'\n"
                           "expected %s, got %s",
                           PKL_AST_IDENTIFIER_POINTER (arg_name),
                           expected_type, passed_type);
              else
                PKL_ERROR (PKL_AST_LOC (aa),
                           "invalid value for function argument `%d'\n"
                           "expected %s, got %s",
                           narg + 1, expected_type, passed_type);
              free (expected_type);
              free (passed_type);

              PKL_TYPIFY_PAYLOAD->errors++;
              PKL_PASS_ERROR;
            }
          narg++;
        }
    }

  /* Set the type of the funcall itself.  */
  PKL_AST_TYPE (funcall)
    = ASTREF (PKL_AST_TYPE_F_RTYPE (funcall_function_type));

  /* If the called function is a void function then the parent of this
     funcall shouldn't expect a value.  */
  {
    int parent_code = PKL_AST_CODE (PKL_PASS_PARENT);

    if (PKL_AST_TYPE_CODE (PKL_AST_TYPE (funcall)) == PKL_TYPE_VOID
        && (parent_code == PKL_AST_EXP
            || parent_code == PKL_AST_COND_EXP
            || parent_code == PKL_AST_ARRAY_INITIALIZER
            || parent_code == PKL_AST_INDEXER
            || parent_code == PKL_AST_STRUCT_FIELD
            || parent_code == PKL_AST_OFFSET
            || parent_code == PKL_AST_CAST
            || parent_code == PKL_AST_MAP
            || parent_code == PKL_AST_FUNCALL
            || parent_code == PKL_AST_FUNCALL_ARG
            || parent_code == PKL_AST_DECL))
    {
      PKL_ERROR (PKL_AST_LOC (funcall_function),
                 "function doesn't return a value");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
  }
}
PKL_PHASE_END_HANDLER

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_struct_field)
{
  pkl_ast_node struct_field = PKL_PASS_NODE;
  pkl_ast_node struct_field_exp
    = PKL_AST_STRUCT_FIELD_EXP (struct_field);
  pkl_ast_node struct_field_exp_type
    = PKL_AST_TYPE (struct_field_exp);

  /* The type of a STRUCT_FIELD in a struct initializer is the type of
     its expression.  */
  PKL_AST_TYPE (struct_field) = ASTREF (struct_field_exp_type);
}
PKL_PHASE_END_HANDLER

/* The type of a STRUCT_REF is the type of the referred element in the
   struct.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_struct_ref)
{
  pkl_ast_node struct_ref = PKL_PASS_NODE;
  pkl_ast_node astruct =
    PKL_AST_STRUCT_REF_STRUCT (struct_ref);
  pkl_ast_node field_name =
    PKL_AST_STRUCT_REF_IDENTIFIER (struct_ref);
  pkl_ast_node struct_type = PKL_AST_TYPE (astruct);
  pkl_ast_node t, type = NULL;

  if (PKL_AST_TYPE_CODE (struct_type) != PKL_TYPE_STRUCT)
    {
      char *type_str = pkl_type_str (struct_type, 1);

      PKL_ERROR (PKL_AST_LOC (astruct),
                 "invalid operand to field reference\n"
                 "expected struct, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* Search for the referred field type.  */
  for (t = PKL_AST_TYPE_S_ELEMS (struct_type); t;
       t = PKL_AST_CHAIN (t))
    {
      if (PKL_AST_CODE (t) == PKL_AST_STRUCT_TYPE_FIELD)
        {
          pkl_ast_node struct_type_field_name
            = PKL_AST_STRUCT_TYPE_FIELD_NAME (t);

          if (struct_type_field_name
              && STREQ (PKL_AST_IDENTIFIER_POINTER (struct_type_field_name),
                        PKL_AST_IDENTIFIER_POINTER (field_name)))
            {
              type = PKL_AST_STRUCT_TYPE_FIELD_TYPE (t);
              break;
            }
        }
      else if (PKL_AST_CODE (t) == PKL_AST_DECL
               && PKL_AST_CODE (PKL_AST_DECL_INITIAL (t)) == PKL_AST_FUNC
               && PKL_AST_FUNC_METHOD_P (PKL_AST_DECL_INITIAL (t))
               && STREQ (PKL_AST_IDENTIFIER_POINTER (PKL_AST_DECL_NAME (t)),
                         PKL_AST_IDENTIFIER_POINTER (field_name)))
        {
          pkl_ast_node func = PKL_AST_DECL_INITIAL (t);
          type = PKL_AST_TYPE (func);
        }
    }

  if (type == NULL)
    {
      PKL_ERROR (PKL_AST_LOC (field_name),
                 "field `%s' doesn't exist in struct",
                 PKL_AST_IDENTIFIER_POINTER (field_name));
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  PKL_AST_TYPE (struct_ref) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

/* The bit width in integral types should be between 1 and 64.  Note
   that the width is a constant integer as per the parser.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_type_integral)
{
  pkl_ast_node type = PKL_PASS_NODE;
  int signed_p = PKL_AST_TYPE_I_SIGNED_P (type);
  int width_min = signed_p ? 2 : 1;

  if (PKL_AST_TYPE_I_SIZE (type) < width_min
      || PKL_AST_TYPE_I_SIZE (type) > 64)
    {
      PKL_ERROR (PKL_AST_LOC (type),
                 "the width of %s integral type should be in the [%d,64] "
                 "range", signed_p ? "a signed" : "an unsigned", width_min);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
}
PKL_PHASE_END_HANDLER

/* The type associated with an integral struct or union shall be integral.

   The fields in an integral struct or union type shall be all of integral or
   offset types (including other integral structs) and the total int
   size shall match the sum of the sizes of all the fields.

   The total size declared in the integral struct or union should exactly
   match the size of all the contained fields.

   Pinned unions are not allowed.

   Labels are not allowed in integral structs or unions, pinned structs and
   unions.  Optional fields are not allowed in integral structs or unions.

   If computed fields have getter and setter methods defined for them,
   they should handle values of the right type.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_type_struct)
{
  pkl_ast_node struct_type = PKL_PASS_NODE;
  pkl_ast_node struct_type_itype = PKL_AST_TYPE_S_ITYPE (struct_type);
  pkl_ast_node field;
  int is_union_p = PKL_AST_TYPE_S_UNION_P (struct_type);

  if (struct_type_itype)
    {
      int fields_int_size = 0;

      /* This checks that the itype of the struct type is correct.  */
      PKL_PASS_SUBPASS (struct_type_itype);

      if (PKL_AST_TYPE_CODE (struct_type_itype)
          != PKL_TYPE_INTEGRAL)
        {
          char *type_str = pkl_type_str (struct_type_itype, 1);

          PKL_ERROR (PKL_AST_LOC (struct_type_itype),
                     "invalid type specifier in integral %s\n"
                     "expected integral, got %s",
                     is_union_p ? "union" : "struct", type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }

      for (field = PKL_AST_TYPE_S_ELEMS (struct_type);
           field;
           field = PKL_AST_CHAIN (field))
        {
          if (PKL_AST_CODE (field) == PKL_AST_STRUCT_TYPE_FIELD
              && !PKL_AST_STRUCT_TYPE_FIELD_COMPUTED_P (field))
            {
              pkl_ast_node ftype
                = PKL_AST_STRUCT_TYPE_FIELD_TYPE (field);

              if (PKL_AST_TYPE_CODE (ftype) != PKL_TYPE_INTEGRAL
                  && PKL_AST_TYPE_CODE (ftype) != PKL_TYPE_OFFSET
                  && !(PKL_AST_TYPE_CODE (ftype) == PKL_TYPE_STRUCT
                       && PKL_AST_TYPE_S_ITYPE (ftype) != NULL))
                {
                  char *type_str = pkl_type_str (ftype, 1);

                  PKL_ERROR (PKL_AST_LOC (field),
                             "invalid field in integral %s\n"
                             "expected integral, offset, integral struct or "
                             "union, got %s",
                             is_union_p ? "union" : "struct", type_str);
                  free (type_str);
                  PKL_TYPIFY_PAYLOAD->errors++;
                  PKL_PASS_ERROR;
                }

              if (PKL_AST_STRUCT_TYPE_FIELD_LABEL (field))
                {
                  PKL_ERROR (PKL_AST_LOC (field),
                             "labels are not allowed in integral %ss",
                             is_union_p ? "union" : "struct");
                  PKL_TYPIFY_PAYLOAD->errors++;
                  PKL_PASS_ERROR;
                }

              if (PKL_AST_STRUCT_TYPE_FIELD_OPTIONAL_P (field))
                {
                  PKL_ERROR (PKL_AST_LOC (field),
                             "optional fields are not allowed in integral %ss",
                             is_union_p ? "union" : "struct");
                  PKL_TYPIFY_PAYLOAD->errors++;
                  PKL_PASS_ERROR;
                }

              {
                int fsize = pkl_ast_sizeof_integral_type (ftype);

                if (is_union_p)
                  {
                    if (fsize != PKL_AST_TYPE_I_SIZE (struct_type_itype))
                      {
                        PKL_ERROR (PKL_AST_LOC (field),
                                   "invalid field size in integral union type\n"
                                   "expected %" PRIu64 " bits, got %" PRId32 " bits",
                                   (uint64_t) PKL_AST_TYPE_I_SIZE (struct_type_itype),
                                   fsize);
                        PKL_TYPIFY_PAYLOAD->errors++;
                        PKL_PASS_ERROR;
                      }
                    if (fields_int_size == 0)
                      fields_int_size = fsize;
                  }
                else
                  fields_int_size += fsize;
              }
            }
        }

      if (fields_int_size != PKL_AST_TYPE_I_SIZE (struct_type_itype))
        {
          PKL_ERROR (PKL_AST_LOC (struct_type_itype),
                     "invalid total size in integral %s type\n"
                     "expected %" PRIu64 " bits, got %" PRId32 " bits",
                     is_union_p ? "union" : "struct",
                     (uint64_t) PKL_AST_TYPE_I_SIZE (struct_type_itype),
                     fields_int_size);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }

  if (PKL_AST_TYPE_S_PINNED_P (struct_type) && is_union_p)
    {
      PKL_ERROR (PKL_AST_LOC (struct_type),
                 "unions are not allowed to be pinned");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_TYPE_S_PINNED_P (struct_type) || is_union_p)
    {
      for (field = PKL_AST_TYPE_S_ELEMS (struct_type);
           field;
           field = PKL_AST_CHAIN (field))
        {
          if (PKL_AST_CODE (field) != PKL_AST_STRUCT_TYPE_FIELD)
            continue;

          if (PKL_AST_STRUCT_TYPE_FIELD_LABEL (field))
            {
              PKL_ERROR (PKL_AST_LOC (field),
                         "labels are not allowed in %s",
                         PKL_AST_TYPE_S_PINNED_P (struct_type)
                           ? "pinned structs"
                           : "unions");
              PKL_TYPIFY_PAYLOAD->errors++;
              PKL_PASS_ERROR;
            }
        }
    }

  for (field = PKL_AST_TYPE_S_ELEMS (struct_type);
       field;
       field = PKL_AST_CHAIN (field))
    {
      if (PKL_AST_CODE (field) == PKL_AST_STRUCT_TYPE_FIELD
          && PKL_AST_STRUCT_TYPE_FIELD_COMPUTED_P (field))
        {
          /* For each computed field named FOO with type TYPE there
             must be a getter method with name get_FOO and signature
             ()TYPE and a setter method with name set_FOO and
             signature (TYPE)void.  */

          pkl_ast_node decl;
          char *getter_name, *setter_name;

          pkl_ast_node field_name = PKL_AST_STRUCT_TYPE_FIELD_NAME (field);
          pkl_ast_node field_type = PKL_AST_STRUCT_TYPE_FIELD_TYPE (field);

          /* This is guaranteed as per parser.  */
          assert (field_name);

          getter_name = pk_str_concat ("get_",
                                       PKL_AST_IDENTIFIER_POINTER (field_name),
                                       NULL);
          setter_name = pk_str_concat ("set_",
                                       PKL_AST_IDENTIFIER_POINTER (field_name),
                                       NULL);

          for (decl = PKL_AST_TYPE_S_ELEMS (struct_type);
               decl;
               decl = PKL_AST_CHAIN (decl))
            {
              if (PKL_AST_CODE (decl) == PKL_AST_DECL
                  && PKL_AST_FUNC_METHOD_P (PKL_AST_DECL_INITIAL (decl)))
                {
                  pkl_ast_node method = PKL_AST_DECL_INITIAL (decl);
                  pkl_ast_node method_name = PKL_AST_DECL_NAME (decl);
                  pkl_ast_node method_type = PKL_AST_TYPE (method);

                  if (STREQ (PKL_AST_IDENTIFIER_POINTER (method_name),
                             getter_name))
                    {
                      /* The getter should get no arguments and should
                         return a value of the same type than the
                         field.  */
                      pkl_ast_node rtype = PKL_AST_TYPE_F_RTYPE (method_type);

                      if (PKL_AST_TYPE_F_NARG (method_type) != 0
                          || !pkl_ast_type_equal_p (rtype, field_type))
                        {
                          char *field_type_str = pkl_type_str (field_type, 1);
                          char *method_type_str
                            = pk_str_concat ("()", field_type_str, NULL);

                          PKL_ERROR (PKL_AST_LOC (method_name),
                                     "getter method is of the wrong type\n"
                                     "expected %s",
                                     method_type_str);
                          free (field_type_str);
                          free (method_type_str);
                          PKL_TYPIFY_PAYLOAD->errors++;
                          PKL_PASS_ERROR;
                        }
                    }

                  if (STREQ (PKL_AST_IDENTIFIER_POINTER (method_name),
                             setter_name))
                    {
                      /* The setter should get exactly one argument of
                         the same type than the computed field, and
                         return no value.  */
                      pkl_ast_node rtype = PKL_AST_TYPE_F_RTYPE (method_type);
                      int narg = PKL_AST_TYPE_F_NARG (method_type);

                      if (narg != 1
                          || PKL_AST_TYPE_CODE (rtype) != PKL_TYPE_VOID
                          || !pkl_ast_type_equal_p (field_type,
                                                    PKL_AST_FUNC_TYPE_ARG_TYPE (PKL_AST_TYPE_F_ARGS (method_type))))
                        {
                          char *field_type_str = pkl_type_str (field_type, 1);
                          char *method_type_str
                            = pk_str_concat ("(", field_type_str, ")void", NULL);

                          PKL_ERROR (PKL_AST_LOC (method_name),
                                     "setter method is of the wrong type\n"
                                     "expected %s",
                                     method_type_str);
                          free (field_type_str);
                          free (method_type_str);
                          PKL_TYPIFY_PAYLOAD->errors++;
                          PKL_PASS_ERROR;
                        }
                    }
                }
            }

          free (getter_name);
          free (setter_name);
        }
    }
}
PKL_PHASE_END_HANDLER

/* The array bounds in array type literals, if present, should be
   integer expressions, or offset expressions.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_type_array)
{
  pkl_ast_node bound = PKL_AST_TYPE_A_BOUND (PKL_PASS_NODE);
  pkl_ast_node bound_type;

  if (bound == NULL)
    /* This array type isn't bounded.  Be done.  */
    PKL_PASS_DONE;

  bound_type = PKL_AST_TYPE (bound);
  if (PKL_AST_TYPE_CODE (bound_type) != PKL_TYPE_INTEGRAL
      && PKL_AST_TYPE_CODE (bound_type) != PKL_TYPE_OFFSET)
    {
      char *type_str = pkl_type_str (bound_type, 1);

      PKL_ERROR (PKL_AST_LOC (bound),
                 "invalid array bound\n"
                 "expected integral or offset, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
}
PKL_PHASE_END_HANDLER

/* The type of a map is the type of the mapped value.  The expression
   in a map should be an offset.

   If present, the expression evaluating to the IOS of a map should be
   an integer.

   Not every time is mappeable.  Check for this here.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_map)
{
  pkl_ast_node map = PKL_PASS_NODE;
  pkl_ast_node map_type = PKL_AST_MAP_TYPE (map);
  pkl_ast_node map_offset = PKL_AST_MAP_OFFSET (map);
  pkl_ast_node map_offset_type = PKL_AST_TYPE (map_offset);
  pkl_ast_node map_ios = PKL_AST_MAP_IOS (map);

  if (!pkl_ast_type_mappable_p (map_type))
    {
      PKL_ERROR (PKL_AST_LOC (map_type),
                 "specified type cannot be mapped");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_TYPE_CODE (map_offset_type) != PKL_TYPE_OFFSET)
    {
      char *type_str = pkl_type_str (map_offset_type, 1);

      PKL_ERROR (PKL_AST_LOC (map_offset),
                 "invalid argument to map operator\n"
                 "expected offset, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (map_ios)
    {
      pkl_ast_node map_ios_type = PKL_AST_TYPE (map_ios);

      if (PKL_AST_TYPE_CODE (map_ios_type) != PKL_TYPE_INTEGRAL)
        {
          char *type_str = pkl_type_str (map_ios_type, 1);

          PKL_ERROR (PKL_AST_LOC (map_ios),
                     "invalid IO space in map operator\n"
                     "expected integral, got %s",
                     type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }

  PKL_AST_TYPE (map) = ASTREF (map_type);
}
PKL_PHASE_END_HANDLER

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_cons)
{
  pkl_ast_node cons = PKL_PASS_NODE;
  pkl_ast_node cons_type = PKL_AST_CONS_TYPE (cons);
  pkl_ast_node cons_value = PKL_AST_CONS_VALUE (cons);

  /* Different kind of constructors require different number of
     arguments.  Check it here.  */

  switch (PKL_AST_TYPE_CODE (cons_type))
    {
    case PKL_TYPE_STRUCT:
      {
        /* The type of a struct constructor is the type specified
           before the struct value.  It should be a struct type.
           Also, there are several rules the struct must conform
           to.  */

        pkl_ast_node elem;
        pkl_ast_node astruct = cons_value;
        pkl_ast_node struct_fields = PKL_AST_STRUCT_FIELDS (astruct);

        /* The parser guarantees this.  */
        assert (PKL_AST_TYPE_CODE (cons_type) == PKL_TYPE_STRUCT);

        /* Unions require either zero or exactly one initializer in
           their constructors.  */
        if (PKL_AST_TYPE_S_UNION_P (cons_type)
            && PKL_AST_STRUCT_NELEM (astruct) > 1)
          {
            PKL_ERROR (PKL_AST_LOC (astruct),
                       "union constructors require exactly one field initializer");
            PKL_TYPIFY_PAYLOAD->errors++;
            PKL_PASS_ERROR;
          }

        /* Make sure that:
           0. Every field in the initializer is named.
           1. Every field in the initializer exists in the struct type.
           2. The type of the initializer field should be equal to (or
           promoteable to) the type of the struct field.  */
        for (elem = struct_fields; elem; elem = PKL_AST_CHAIN (elem))
          {
            pkl_ast_node type_elem;
            pkl_ast_node elem_name = PKL_AST_STRUCT_FIELD_NAME (elem);
            pkl_ast_node elem_exp = PKL_AST_STRUCT_FIELD_EXP (elem);
            pkl_ast_node elem_type = PKL_AST_TYPE (elem_exp);
            int found = 0;

            if (!elem_name)
              {
                PKL_ERROR (PKL_AST_LOC (elem),
                           "anonymous initializer in struct constructor");
                PKL_TYPIFY_PAYLOAD->errors++;
                PKL_PASS_ERROR;
              }

            for (type_elem = PKL_AST_TYPE_S_ELEMS (cons_type);
                 type_elem;
                 type_elem = PKL_AST_CHAIN (type_elem))
              {
                /* Process only struct type fields.  */
                if (PKL_AST_CODE (type_elem) == PKL_AST_STRUCT_TYPE_FIELD
                    && !PKL_AST_STRUCT_TYPE_FIELD_COMPUTED_P (type_elem))
                  {
                    pkl_ast_node type_elem_name;

                    type_elem_name = PKL_AST_STRUCT_TYPE_FIELD_NAME (type_elem);
                    if (type_elem_name
                        && STREQ (PKL_AST_IDENTIFIER_POINTER (type_elem_name),
                                  PKL_AST_IDENTIFIER_POINTER (elem_name)))
                      {
                        pkl_ast_node type_elem_type
                          = PKL_AST_STRUCT_TYPE_FIELD_TYPE (type_elem);

                        found = 1;

                        if (!pkl_ast_type_promoteable_p (elem_type, type_elem_type,
                                                         0 /* promote array of any */))
                          {
                            char *expected_type = pkl_type_str (type_elem_type, 1);
                            char *found_type = pkl_type_str (elem_type, 1);

                            PKL_ERROR (PKL_AST_LOC (elem_exp),
                                       "invalid initializer for `%s' in constructor\n"
                                       "expected %s, got %s",
                                       PKL_AST_IDENTIFIER_POINTER (elem_name),
                                       expected_type, found_type);

                            free (expected_type);
                            free (found_type);
                            PKL_TYPIFY_PAYLOAD->errors++;
                            PKL_PASS_ERROR;
                          }

                        break;
                      }
                  }
              }

            if (!found)
              {
                PKL_ERROR (PKL_AST_LOC (elem_name),
                           "invalid struct field `%s' in constructor",
                           PKL_AST_IDENTIFIER_POINTER (elem_name));
                PKL_TYPIFY_PAYLOAD->errors++;
                PKL_PASS_ERROR;
              }
          }

        PKL_AST_CONS_KIND (cons) = PKL_AST_CONS_KIND_STRUCT;
        break;
      }
    case PKL_TYPE_ARRAY:
      /* If an initialization value is provided its type should match
         the type of the elements of the array.  */

      if (cons_value)
        {
          pkl_ast_node initval_type = PKL_AST_TYPE (cons_value);
          pkl_ast_node cons_type_elems_type
            = PKL_AST_TYPE_A_ETYPE (cons_type);

          if (!pkl_ast_type_promoteable_p (initval_type,
                                           cons_type_elems_type,
                                           0 /* promote array of any */))
            {
              char *expected_type
                = pkl_type_str (cons_type_elems_type, 1);
              char *found_type = pkl_type_str (initval_type, 1);

              PKL_ERROR (PKL_AST_LOC (cons_value),
                         "invalid initial value for array\n"
                         "expected %s, got %s",
                         expected_type, found_type);
              free (expected_type);
              free (found_type);

              PKL_TYPIFY_PAYLOAD->errors++;
              PKL_PASS_ERROR;
            }
        }

      PKL_AST_CONS_KIND (cons) = PKL_AST_CONS_KIND_ARRAY;
      break;
    default:
      PK_UNREACHABLE ();
    }

  PKL_AST_TYPE (cons) = ASTREF (cons_type);
}
PKL_PHASE_END_HANDLER

/* The type of a variable reference is the type of its initializer.
   Note that due to the scope rules of the language it is guaranteed
   the type of the initializer has been already calculated.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_var)
{
  pkl_ast_node var = PKL_PASS_NODE;
  pkl_ast_node decl = PKL_AST_VAR_DECL (var);
  pkl_ast_node initial = PKL_AST_DECL_INITIAL (decl);

  if (PKL_AST_TYPE (initial) == NULL)
    {
      PKL_ICE (PKL_AST_LOC (initial),
               "the type of a variable initial is unknownx");
      PKL_PASS_ERROR;
    }
  PKL_AST_TYPE (var) = ASTREF (PKL_AST_TYPE (initial));
}
PKL_PHASE_END_HANDLER

/* The type of an incrdecr expression is the type of the expression it
   applies to.  Not all types support this operations though.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_incrdecr)
{
  pkl_ast_node incrdecr = PKL_PASS_NODE;
  pkl_ast_node incrdecr_exp = PKL_AST_INCRDECR_EXP (incrdecr);
  pkl_ast_node incrdecr_exp_type = PKL_AST_TYPE (incrdecr_exp);
  int incrdecr_order = PKL_AST_INCRDECR_ORDER (incrdecr);
  int incrdecr_sign = PKL_AST_INCRDECR_SIGN (incrdecr);

  /* Only values of certain types can be decremented/incremented.  */
  switch (PKL_AST_TYPE_CODE (incrdecr_exp_type))
    {
    case PKL_TYPE_INTEGRAL:
    case PKL_TYPE_OFFSET:
      break;
    default:
      {
        char *type_str = pkl_type_str (incrdecr_exp_type, 1);

        PKL_ERROR (PKL_AST_LOC (incrdecr_exp),
                   "invalid operand to %s%s\n"
                   "expected integral or offset, got %s",
                   incrdecr_order == PKL_AST_ORDER_PRE ? "pre" : "post",
                   incrdecr_sign == PKL_AST_SIGN_INCR ? "increment" : "decrement",
                   type_str);
        free (type_str);
        PKL_TYPIFY_PAYLOAD->errors++;
        PKL_PASS_ERROR;
      }
    }

  /* The type of the construction is the type of the expression.  */
  PKL_AST_TYPE (incrdecr) = ASTREF (incrdecr_exp_type);
}
PKL_PHASE_END_HANDLER

/* The type of a lambda node is the type of its function.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_lambda)
{
  pkl_ast_node lambda = PKL_PASS_NODE;
  pkl_ast_node function = PKL_AST_LAMBDA_FUNCTION (lambda);

  PKL_AST_TYPE (lambda) = ASTREF (PKL_AST_TYPE (function));
}
PKL_PHASE_END_HANDLER

/* The type of the condition expressions of a loop statement should be
   boolean.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_loop_stmt)
{
  pkl_ast_node loop_stmt = PKL_PASS_NODE;
  pkl_ast_node condition = PKL_AST_LOOP_STMT_CONDITION (loop_stmt);

  if (condition)
    {
      pkl_ast_node condition_type = PKL_AST_TYPE (condition);

      /* Allow an integral struct.  */
      if (PKL_AST_TYPE_CODE (condition_type) == PKL_TYPE_STRUCT
          && PKL_AST_TYPE_S_ITYPE (condition_type))
        condition_type = PKL_AST_TYPE_S_ITYPE (condition_type);

      if (PKL_AST_TYPE_CODE (condition_type) != PKL_TYPE_INTEGRAL)
        {
          char *type_str = pkl_type_str (condition_type, 1);

          PKL_ERROR (PKL_AST_LOC (condition),
                     "invalid condition in loop\n"
                     "expected boolean, got %s",
                     type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }
}
PKL_PHASE_END_HANDLER

/* Determine the type of an iterator declaration from the type of the
   container and install a dummy value with the right type in its
   initializer.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_loop_stmt_iterator)
{
  pkl_ast_node loop_stmt_iterator = PKL_PASS_NODE;
  pkl_ast_node decl
    = PKL_AST_LOOP_STMT_ITERATOR_DECL (loop_stmt_iterator);
  pkl_ast_node container
    = PKL_AST_LOOP_STMT_ITERATOR_CONTAINER (loop_stmt_iterator);

  pkl_ast_node container_type = PKL_AST_TYPE (container);
  pkl_ast_node container_elem_type;

  /* The type of the container should be a container type.  */
  if (PKL_AST_TYPE_CODE (container_type) != PKL_TYPE_ARRAY
      && PKL_AST_TYPE_CODE (container_type) != PKL_TYPE_STRING)
    {
      char *type_str = pkl_type_str (container_type, 1);

      PKL_ERROR (PKL_AST_LOC (container),
                 "invalid container in for loop\n"
                 "expected array or string, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* The type of the iterator is the type of the elements contained
     in the container.  */
  if (PKL_AST_TYPE_CODE (container_type) == PKL_TYPE_ARRAY)
    container_elem_type = PKL_AST_TYPE_A_ETYPE (container_type);
  else
    {
      /* Container is a string.  */
      container_elem_type
        = pkl_ast_make_integral_type (PKL_PASS_AST, 8, 0);
    }

  PKL_AST_TYPE (PKL_AST_DECL_INITIAL (decl))
    = ASTREF (container_elem_type);
}
PKL_PHASE_END_HANDLER

/* Type-check `format'.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_format)
{
  pkl_ast_node format = PKL_PASS_NODE;
  pkl_ast_node format_args = PKL_AST_FORMAT_ARGS (format);
  pkl_ast_node format_types = PKL_AST_FORMAT_TYPES (format);
  pkl_ast_node format_fmt = PKL_AST_FORMAT_FMT (format);
  pkl_ast_node type;
  pkl_ast_node arg;

  assert (format_fmt);

  /* Make sure the type of the ARGS match the types in TYPES.  */

  for (arg = format_args, type = format_types;
       arg && type;
       arg = PKL_AST_CHAIN (arg),
       type = PKL_AST_CHAIN (type))
    {
      pkl_ast_node arg_exp = PKL_AST_FORMAT_ARG_EXP (arg);

      /* Skip arguments without associated values.  */
      if (!arg_exp)
        continue;

      pkl_ast_node arg_type = PKL_AST_TYPE (arg_exp);

      if (!pkl_ast_type_promoteable_p (arg_type, type, 0))
        {
          char *found_type = pkl_type_str (arg_type, 1);
          char *expected_type = pkl_type_str (type, 1);

          PKL_ERROR (PKL_AST_LOC (arg),
                     "invalid argument in format\n"
                     "expected %s, got %s",
                     expected_type, found_type);
          free (found_type);
          free (expected_type);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }
}
PKL_PHASE_END_HANDLER

/* Type-check `print' statement.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_print_stmt)
{
  pkl_ast_node print_stmt = PKL_PASS_NODE;
  pkl_ast_node print_stmt_sexp = PKL_AST_PRINT_STMT_STR_EXP (print_stmt);

  if (print_stmt_sexp)
    {
      /* This is a `print'.  The type of the single element in STR_EXP
         should be a string.  */

      pkl_ast_node sexp_type = PKL_AST_TYPE (print_stmt_sexp);

      if (PKL_AST_TYPE_CODE (sexp_type) != PKL_TYPE_STRING)
        {
          char *type_str = pkl_type_str (sexp_type, 1);

          PKL_ERROR (PKL_AST_LOC (print_stmt_sexp),
                     "invalid format string\n"
                     "expected a string, got %s",
                     type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }
}
PKL_PHASE_END_HANDLER

/* The type of a `raise' exception, if specified, should be a
   Exception struct.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_raise_stmt)
{
  pkl_ast_node raise_stmt = PKL_PASS_NODE;
  pkl_ast_node raise_stmt_exp = PKL_AST_RAISE_STMT_EXP (raise_stmt);


  if (raise_stmt_exp)
    {
      pkl_ast_node raise_stmt_exp_type
        = PKL_AST_TYPE (raise_stmt_exp);

      if (raise_stmt_exp_type
          && !pkl_ast_type_is_exception (raise_stmt_exp_type))
        {
          PKL_ERROR (PKL_AST_LOC (raise_stmt),
                     "exception in `raise' statement should be an Exception");
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }
}
PKL_PHASE_END_HANDLER

/* The argument to a TRY-CATCH statement, if specified, should be an
   Exception.

   Also, the exception expression in a CATCH-IF clause should be an
   Exception.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_try_stmt)
{
  pkl_ast_node try_stmt = PKL_PASS_NODE;
  pkl_ast_node try_stmt_exp = PKL_AST_TRY_STMT_EXP (try_stmt);
  pkl_ast_node exp_type = NULL;
  pkl_ast_loc error_loc = PKL_AST_NOLOC;
  pkl_ast_node error_type;

  /* If the statement has an EXP it must be an exception.  */
  if (try_stmt_exp)
    {
      exp_type = PKL_AST_TYPE (try_stmt_exp);

      if (!pkl_ast_type_is_exception (exp_type))
        {
          error_loc = PKL_AST_LOC (try_stmt_exp);
          error_type = exp_type;
          goto expected_exception;
        }
    }

  /* try-catch statements may also have an ARG, which also must
     evaluate to an exception.  */
  if (PKL_AST_TRY_STMT_KIND (try_stmt) == PKL_AST_TRY_STMT_KIND_CATCH)
    {
      pkl_ast_node try_stmt_arg = PKL_AST_TRY_STMT_ARG (try_stmt);

      if (try_stmt_arg)
        {
          pkl_ast_node arg_type = PKL_AST_FUNC_ARG_TYPE (try_stmt_arg);

          if (!pkl_ast_type_is_exception (arg_type))
            {
              error_loc = PKL_AST_LOC (try_stmt_arg);
              error_type = arg_type;
              goto expected_exception;
            }
        }
    }

  PKL_PASS_DONE;

 expected_exception:
  {
    char *type_str = pkl_type_str (error_type, 1);

    PKL_ERROR (error_loc, "invalid expression in %s\n"
               "expected Exception, got %s",
               PKL_AST_TRY_STMT_KIND (try_stmt) == PKL_AST_TRY_STMT_KIND_CATCH
               ? "try-catch" : "try-until",
               type_str);
    free (type_str);
    PKL_TYPIFY_PAYLOAD->errors++;
    PKL_PASS_ERROR;
  }
}
PKL_PHASE_END_HANDLER

/* Check that attribute expressions are applied to the proper types
   and that they get the right kind of arguments, and then determine
   the type of the attribute expression itself.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_attr)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node operand = PKL_AST_EXP_OPERAND (exp, 0);
  pkl_ast_node operand_type = PKL_AST_TYPE (operand);
  enum pkl_ast_attr attr = PKL_AST_EXP_ATTR (exp);

  pkl_ast_node exp_type;
  pkl_ast_node offset_unit_type;
  pkl_ast_node offset_unit;

  switch (attr)
    {
    case PKL_AST_ATTR_SIZE:
      /* 'size is defined for all kind of values.  */
      /* The type of 'size is offset<uint<64>,1>  */
      offset_unit_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
      offset_unit = pkl_ast_make_integer (PKL_PASS_AST, 1);
      PKL_AST_TYPE (offset_unit) = ASTREF (offset_unit_type);

      exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
      exp_type = pkl_ast_make_offset_type (PKL_PASS_AST, exp_type, offset_unit);

      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_SIGNED:
      /* 'signed is defined for integral values.  */
      if (PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_INTEGRAL)
        goto invalid_attribute;

      /* The type of 'signed is int<32> */
      exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_MAGNITUDE:
      /* 'magnitude is defined for offset values.  */
      if (PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_OFFSET)
        goto invalid_attribute;

      /* The type of 'magnitude is the type of the offset's
         magnitude.  */
      exp_type = PKL_AST_TYPE_O_BASE_TYPE (operand_type);
      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_UNIT:
      /* 'unit is defined for offset values.  */
      if (PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_OFFSET)
        goto invalid_attribute;

      /* The type of 'unit is uint<64>  */
      exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_LENGTH:
      /* The type of 'length is uint<64>  */
      exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_OFFSET:
      /* This attribute is only supported in certain values.  It must
         be possible to apply to `any' values though.  */
      if (PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_STRUCT
          && PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_ARRAY
          && PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_ANY)
        goto invalid_attribute;

      /* The type of 'offset is an offset<uint<64>,1>  */
      offset_unit_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
      offset_unit = pkl_ast_make_integer (PKL_PASS_AST, 1);
      PKL_AST_TYPE (offset_unit) = ASTREF (offset_unit_type);

      exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
      exp_type = pkl_ast_make_offset_type (PKL_PASS_AST, exp_type, offset_unit);

      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_MAPPED:
    case PKL_AST_ATTR_STRICT:
      /* The type of 'mapped and 'strict is a boolean, int<32>  */
      exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_IOS:
      /* The type of 'mapped is an IOS descriptor, int<32>  */
      exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
      PKL_AST_TYPE (exp) = ASTREF (exp_type);
      break;
    case PKL_AST_ATTR_ELEM:
    case PKL_AST_ATTR_EOFFSET:
    case PKL_AST_ATTR_ESIZE:
    case PKL_AST_ATTR_ENAME:
      {
        /* All these attributes are binary and require an integral
           argument.  */

        pkl_ast_node argument = PKL_AST_EXP_OPERAND (exp, 1);
        pkl_ast_node argument_type = PKL_AST_TYPE (argument);

        /* Integral structs shall be considered as integers in this
           context.  */
        if (PKL_AST_TYPE_CODE (argument_type) == PKL_TYPE_STRUCT
            && PKL_AST_TYPE_S_ITYPE (argument_type))
          argument_type = PKL_AST_TYPE_S_ITYPE (argument_type);

        if (PKL_AST_TYPE_CODE (argument_type) != PKL_TYPE_INTEGRAL)
          {
            char *argument_type_str = pkl_type_str (argument_type, 1);

            PKL_ERROR (PKL_AST_LOC (argument),
                       "invalid argument to attribute\n"
                       "expected integral, got %s",
                       argument_type_str);
            free (argument_type_str);
            PKL_TYPIFY_PAYLOAD->errors++;
            PKL_PASS_ERROR;
          }

        /* These attributes are only supported in composite values.
           It must be possible to apply to `any' values though.  */
        if (PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_STRUCT
            && PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_ARRAY
            && PKL_AST_TYPE_CODE (operand_type) != PKL_TYPE_ANY)
          goto invalid_attribute;

        /* Now set the type of the resulting value depending on the
           attribute.  */
        if (attr == PKL_AST_ATTR_ENAME)
          exp_type = pkl_ast_make_string_type (PKL_PASS_AST);
        else if (attr == PKL_AST_ATTR_ELEM)
          exp_type = pkl_ast_make_any_type (PKL_PASS_AST);
        else
          {
            /* For both EOFFSET and ESIZE the result type is an offset
               in bits.  */
            offset_unit_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
            offset_unit = pkl_ast_make_integer (PKL_PASS_AST, 1);
            PKL_AST_TYPE (offset_unit) = ASTREF (offset_unit_type);

            exp_type = pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0);
            exp_type = pkl_ast_make_offset_type (PKL_PASS_AST, exp_type, offset_unit);
          }

        PKL_AST_TYPE (exp) = ASTREF (exp_type);
        break;
      }
    default:
      PKL_ICE (PKL_AST_LOC (exp),
               "unhandled attribute expression code #%d in typify1",
               attr);
      PKL_PASS_ERROR;
      break;
    }

  PKL_PASS_DONE;

 invalid_attribute:
  {
    char *operand_type_str = pkl_type_str (operand_type, 1);

    PKL_ERROR (PKL_AST_LOC (exp),
               "attribute '%s is not defined for values of type %s",
               pkl_attr_name (attr),
               operand_type_str);
    free (operand_type_str);

    PKL_TYPIFY_PAYLOAD->errors++;
    PKL_PASS_ERROR;
  }
}
PKL_PHASE_END_HANDLER

/* Check that the types of certain declarations in struct types are
   the right ones.  This applies to pretty printers and other methods
   that have some special meaning.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_decl)
{
  pkl_ast_node decl = PKL_PASS_NODE;

  /* If this is a declaration in a struct type, it is a function
     declaration, and its name is _print, then its type should be
     ()void: */
  if (PKL_PASS_PARENT
      && PKL_AST_CODE (PKL_PASS_PARENT) == PKL_AST_TYPE
      && PKL_AST_TYPE_CODE (PKL_PASS_PARENT) == PKL_TYPE_STRUCT
      && PKL_AST_DECL_KIND (decl) == PKL_AST_DECL_KIND_FUNC
      && PKL_AST_FUNC_METHOD_P (PKL_AST_DECL_INITIAL (decl)))
    {
      pkl_ast_node decl_name = PKL_AST_DECL_NAME (decl);

      if (STREQ (PKL_AST_IDENTIFIER_POINTER (decl_name), "_print"))
        {
          pkl_ast_node initial = PKL_AST_DECL_INITIAL (decl);
          pkl_ast_node initial_type = PKL_AST_TYPE (initial);
          pkl_ast_node ret_type = PKL_AST_TYPE_F_RTYPE (initial_type);

          if (PKL_AST_TYPE_CODE (ret_type) != PKL_TYPE_VOID
              || PKL_AST_TYPE_F_NARG (initial_type) != 0)
            {
              PKL_ERROR (PKL_AST_LOC (decl_name),
                         "_print should be of type ()void");
              PKL_TYPIFY_PAYLOAD->errors++;
              PKL_PASS_ERROR;
            }
        }
    }
}
PKL_PHASE_END_HANDLER

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_struct_type_field)
{
  pkl_ast_node elem = PKL_PASS_NODE;
  pkl_ast_node elem_type = PKL_AST_STRUCT_TYPE_FIELD_TYPE (elem);
  pkl_ast_node elem_constraint
    = PKL_AST_STRUCT_TYPE_FIELD_CONSTRAINT (elem);
  pkl_ast_node elem_initializer
    = PKL_AST_STRUCT_TYPE_FIELD_INITIALIZER (elem);
  pkl_ast_node elem_optcond_pre
    = PKL_AST_STRUCT_TYPE_FIELD_OPTCOND_PRE (elem);
  pkl_ast_node elem_optcond_post
    = PKL_AST_STRUCT_TYPE_FIELD_OPTCOND_POST (elem);
  pkl_ast_node elem_label
    = PKL_AST_STRUCT_TYPE_FIELD_LABEL (elem);

  /* Make sure the type of the field is valid in a struct.  For now,
     these are the types that are map-able.  */
  if (!pkl_ast_type_mappable_p (elem_type))
    {
      PKL_ERROR (PKL_AST_LOC (elem_type),
                 "invalid type in struct field");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  /* If specified, the constraint of a struct elem should be
     promoteable to a boolean.  */
  if (elem_constraint)
    {
      pkl_ast_node bool_type
        = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
      pkl_ast_node constraint_type
        = PKL_AST_TYPE (elem_constraint);

      if (!pkl_ast_type_promoteable_p (constraint_type, bool_type,
                                       1 /* promote_array_of_any */))
        {
          char *type_str = pkl_type_str (constraint_type, 1);

          PKL_ERROR (PKL_AST_LOC (elem_constraint),
                     "invalid struct field constraint\n"
                     "expected boolean, got %s",
                     type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }

      bool_type = ASTREF (bool_type); pkl_ast_node_free (bool_type);
    }

  /* Ditto for the optconds.  */

  if (elem_optcond_pre)
    {
      pkl_ast_node bool_type
        = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
      pkl_ast_node optcond_type
        = PKL_AST_TYPE (elem_optcond_pre);

      if (!pkl_ast_type_promoteable_p (optcond_type, bool_type,
                                       1 /* promote_array_of_any */))
        {
          char *type_str = pkl_type_str (optcond_type, 1);

          PKL_ERROR (PKL_AST_LOC (elem_optcond_pre),
                     "invalid optional field expression\n"
                     "expected boolean, got %s",
                     type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }

      bool_type = ASTREF (bool_type); pkl_ast_node_free (bool_type);
    }

  if (elem_optcond_post)
    {
      pkl_ast_node bool_type
        = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);
      pkl_ast_node optcond_type
        = PKL_AST_TYPE (elem_optcond_post);

      if (!pkl_ast_type_promoteable_p (optcond_type, bool_type,
                                       1 /* promote_array_of_any */))
        {
          char *type_str = pkl_type_str (optcond_type, 1);

          PKL_ERROR (PKL_AST_LOC (elem_optcond_post),
                     "invalid optional field expression\n"
                     "expected boolean, got %s",
                     type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }

      bool_type = ASTREF (bool_type); pkl_ast_node_free (bool_type);
    }

  /* If specified, the type of the initializer of a struct field
     should be promoteable to the type of the field.  */
  if (elem_initializer)
    {
      pkl_ast_node field_type
        = PKL_AST_STRUCT_TYPE_FIELD_TYPE (elem);
      pkl_ast_node initializer_type
        = PKL_AST_TYPE (elem_initializer);

      if (!pkl_ast_type_promoteable_p (initializer_type, field_type,
                                       0 /* promote_array_of_any */))
        {
          char *field_type_str = pkl_type_str (field_type, 1);
          char *initializer_type_str = pkl_type_str (initializer_type, 1);

          PKL_ERROR (PKL_AST_LOC (elem_initializer),
                     "invalid field initializer\n"
                     "expected %s, got %s",
                     field_type_str, initializer_type_str);
          free (field_type_str);
          free (initializer_type_str);

          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }

  /* If specified, the label of a struct elem should be promoteable to
     an offset<uint<64>,*>.  */
  if (elem_label)
    {
      pkl_ast_node label_type = PKL_AST_TYPE (elem_label);
      pkl_ast_node offset_type
        = pkl_ast_make_offset_type (PKL_PASS_AST,
                                    pkl_ast_make_integral_type (PKL_PASS_AST, 64, 0),
                                    pkl_ast_make_integer (PKL_PASS_AST, 1));


      if (!pkl_ast_type_promoteable_p (label_type, offset_type,
                                       1 /* promote_array_of_any */))
        {
          char *type_str = pkl_type_str (label_type, 1);

          PKL_ERROR (PKL_AST_LOC (elem_label),
                     "invalid field label\n"
                     "expected offset, got %s",
                     type_str);
          free (type_str);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }

      offset_type = ASTREF (offset_type); pkl_ast_node_free (offset_type);
    }
}
PKL_PHASE_END_HANDLER

/* Check that the type of the expression in a `return' statement
   matches the return type of its containing function.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_return_stmt)
{
  pkl_ast_node return_stmt = PKL_PASS_NODE;
  pkl_ast_node exp = PKL_AST_RETURN_STMT_EXP (return_stmt);
  pkl_ast_node function = PKL_AST_RETURN_STMT_FUNCTION (return_stmt);

  pkl_ast_node returned_type;
  pkl_ast_node expected_type;

  if (exp == NULL)
    PKL_PASS_DONE;

  returned_type = PKL_AST_TYPE (exp);
  expected_type = PKL_AST_FUNC_RET_TYPE (function);

  if (PKL_AST_TYPE_CODE (expected_type) != PKL_TYPE_VOID
      && !pkl_ast_type_promoteable_p (returned_type, expected_type,
                                      1 /* promote_array_of_any */))
    {
      char *returned_type_str = pkl_type_str (returned_type, 1);
      char *expected_type_str = pkl_type_str (expected_type, 1);

      PKL_ERROR (PKL_AST_LOC (exp),
                 "returning an expression of the wrong type\n"
                 "expected %s, got %s",
                 expected_type_str, returned_type_str);
      free (expected_type_str);
      free (returned_type_str);

      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
}
PKL_PHASE_END_HANDLER

/* Function argument initializers should be of the same type (or
   promoteable to) the type of the function argument.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_func_arg)
{
  pkl_ast_node func_arg = PKL_PASS_NODE;
  pkl_ast_node initial = PKL_AST_FUNC_ARG_INITIAL (func_arg);

  if (initial)
    {
      pkl_ast_node arg_type = PKL_AST_FUNC_ARG_TYPE (func_arg);
      pkl_ast_node initial_type = PKL_AST_TYPE (initial);

      if (!pkl_ast_type_promoteable_p (initial_type, arg_type,
                                       1 /* promote_aray_of_any */))
        {
          char *arg_type_str = pkl_type_str (arg_type, 1);
          char *initial_type_str = pkl_type_str (initial_type, 1);

          PKL_ERROR (PKL_AST_LOC (initial),
                     "argument initializer is of the wrong type\n"
                     "expected %s, got %s",
                     arg_type_str, initial_type_str);
          free (arg_type_str);
          free (initial_type_str);

          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }
}
PKL_PHASE_END_HANDLER

/* The base type in an offset type shall be an integral type.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_type_offset)
{
  pkl_ast_node offset_type = PKL_PASS_NODE;
  pkl_ast_node base_type = PKL_AST_TYPE_O_BASE_TYPE (offset_type);

  if (PKL_AST_TYPE_CODE (base_type) != PKL_TYPE_INTEGRAL)
    {
      PKL_ERROR (PKL_AST_LOC (base_type),
                 "base type of offset types shall be integral");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
}
PKL_PHASE_END_HANDLER

/* The expression in an `if' statement should evaluate to an integral
   type, as it is expected by the code generator.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_if_stmt)
{
  pkl_ast_node if_stmt = PKL_PASS_NODE;
  pkl_ast_node exp = PKL_AST_IF_STMT_EXP (if_stmt);
  pkl_ast_node exp_type = PKL_AST_TYPE (exp);

  /* Allow an integral struct.  */
  if (PKL_AST_TYPE_CODE (exp_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (exp_type))
    exp_type = PKL_AST_TYPE_S_ITYPE (exp_type);

  if (PKL_AST_TYPE_CODE (exp_type) != PKL_TYPE_INTEGRAL)
    {
      char *type_str = pkl_type_str (exp_type, 1);

      PKL_ERROR (PKL_AST_LOC (exp),
                 "invalid expression\n"
                 "expected boolean, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
}
PKL_PHASE_END_HANDLER

/* The `then' and `else' expressions in a ternary conditional
   expression shall be of the exactly the same type, with no coercions
   performed.  The condition should evaluate to an integral type.  The
   type of the conditional expression is the type of the operands.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_cond_exp)
{
  pkl_ast_node cond_exp = PKL_PASS_NODE;
  pkl_ast_node cond = PKL_AST_COND_EXP_COND (cond_exp);
  pkl_ast_node cond_type = PKL_AST_TYPE (cond);

  pkl_ast_node then_exp = PKL_AST_COND_EXP_THENEXP (cond_exp);
  pkl_ast_node else_exp = PKL_AST_COND_EXP_ELSEEXP (cond_exp);

  pkl_ast_node then_type = PKL_AST_TYPE (then_exp);
  pkl_ast_node else_type = PKL_AST_TYPE (else_exp);

  /* Allow an integral struct.  */
  if (PKL_AST_TYPE_CODE (cond_type) == PKL_TYPE_STRUCT
      && PKL_AST_TYPE_S_ITYPE (cond_type))
    cond_type = PKL_AST_TYPE_S_ITYPE (cond_type);

  if (!pkl_ast_type_equal_p (then_type, else_type))
    {
      char *then_type_str = pkl_type_str (then_type, 1);
      char *else_type_str = pkl_type_str (else_type, 1);

      PKL_ERROR (PKL_AST_LOC (else_exp),
                 "alternative is of the wrong type\n"
                 "expected %s, got %s",
                 then_type_str, else_type_str);
      free (then_type_str);
      free (else_type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_TYPE_CODE (cond_type) != PKL_TYPE_INTEGRAL)
    {
      char *type_str = pkl_type_str (cond_type, 1);

      PKL_ERROR (PKL_AST_LOC (cond),
                 "invalid expression\n"
                 "expected boolean, got %s",
                 type_str);
      free (type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  PKL_AST_TYPE (cond_exp) = ASTREF (then_type);
}
PKL_PHASE_END_HANDLER

/* The type of the r-value in an assignment statement should match the
   type of the l-value.

   Additionally, when assigning to a l-value bconc expression the
   width of the integral at the r-value should match exactly with the
   width of the bconc expression at the l-value.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_ass_stmt)
{
  pkl_ast_node ass_stmt = PKL_PASS_NODE;
  pkl_ast_node lvalue = PKL_AST_ASS_STMT_LVALUE (ass_stmt);
  pkl_ast_node exp = PKL_AST_ASS_STMT_EXP (ass_stmt);
  pkl_ast_node lvalue_type = PKL_AST_TYPE (lvalue);
  pkl_ast_node exp_type;

  if (!exp)
    /* Nothing to check for.  */
    PKL_PASS_DONE;

  exp_type = PKL_AST_TYPE (exp);

  if (!pkl_ast_type_promoteable_p (exp_type, lvalue_type,
                                   1 /* promote_array_of_any */))
    {
      char *expected_type = pkl_type_str (lvalue_type, 1);
      char *found_type = pkl_type_str (exp_type, 1);

      PKL_ERROR (PKL_AST_LOC (ass_stmt),
                 "r-value in assignment has the wrong type\n"
                 "expected %s got %s",
                 expected_type, found_type);
      free (found_type);
      free (expected_type);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_CODE (lvalue) == PKL_AST_EXP
      && PKL_AST_EXP_CODE (lvalue) == PKL_AST_OP_BCONC)
    {
      size_t lvalue_width, rvalue_width;

      assert (PKL_AST_TYPE_CODE (lvalue_type) == PKL_TYPE_INTEGRAL);
      assert (PKL_AST_TYPE_CODE (exp_type) == PKL_TYPE_INTEGRAL);

      lvalue_width = PKL_AST_TYPE_I_SIZE (lvalue_type);
      rvalue_width = PKL_AST_TYPE_I_SIZE (exp_type);

      if (lvalue_width != rvalue_width)
        {
          PKL_ERROR (PKL_AST_LOC (exp),
                     "invalid integral value in r-value\n"
                     "expected an integral value of exactly %lu bits, got %lu bits",
                     lvalue_width,
                     rvalue_width);
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }
}
PKL_PHASE_END_HANDLER

/* The type of an APUSH operation is the type of the array argument.

   The type of the second argument must be the promoteable to the type
   of the array's elements.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_apush)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op1 = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 0);
  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 1);
  pkl_ast_node op1_type = PKL_AST_TYPE (op1);
  pkl_ast_node op2_type = PKL_AST_TYPE (op2);
  pkl_ast_node op1_elem_type;

  if (PKL_AST_TYPE_CODE (op1_type) != PKL_TYPE_ARRAY)
    {
      char *op1_type_str = pkl_type_str (op1_type, 1);

      PKL_ERROR (PKL_AST_LOC (op1),
                 "invalid operand in expression\n"
                 "expected array, got %s",
                 op1_type_str);
      free (op1_type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  op1_elem_type = PKL_AST_TYPE_A_ETYPE (op1_type);
  if (!pkl_ast_type_promoteable_p (op2_type, op1_elem_type,
                                   0 /* promote_array_of_any */))
    {
      char *op1_elem_type_str = pkl_type_str (op1_elem_type, 1);
      char *op2_type_str = pkl_type_str (op2_type, 1);

      PKL_ERROR (PKL_AST_LOC (op2), "invalid operand in expression\n"
                 "expected %s, got %s",
                 op1_elem_type_str, op2_type_str);
      free (op1_elem_type_str);
      free (op2_type_str);

      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  PKL_AST_TYPE (exp) = ASTREF (op1_type);
}
PKL_PHASE_END_HANDLER

/* The type of an APOP operation is the type of the elements of the
   array argument.

   The argument of an APOP must be an array.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_apop)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 0);
  pkl_ast_node op_type = PKL_AST_TYPE (op);
  pkl_ast_node op_elem_type;

  if (PKL_AST_TYPE_CODE (op_type) != PKL_TYPE_ARRAY)
    {
      char *op_type_str = pkl_type_str (op_type, 1);

      PKL_ERROR (PKL_AST_LOC (op),
                 "invalid operand in expression\n"
                 "expected array, got %s",
                 op_type_str);
      free (op_type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  op_elem_type = PKL_AST_TYPE_A_ETYPE (op_type);
  PKL_AST_TYPE (exp) = ASTREF (op_elem_type);
}
PKL_PHASE_END_HANDLER

/* The type of an EXCOND ?! operation is a boolean encoded in an
   int<32>.

   The first operand, when it is an expression, can be of any type.
   The first operand, when it is a statement, has not type.

   The second operand must be an Exception struct.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_op_excond)
{
  pkl_ast_node exp = PKL_PASS_NODE;
  pkl_ast_node op2 = PKL_AST_EXP_OPERAND (exp, 1);
  pkl_ast_node t2 = PKL_AST_TYPE (op2);

  if (!pkl_ast_type_is_exception (t2))
    {
      char *t2_str = pkl_type_str (t2, 1);

      PKL_ERROR (PKL_AST_LOC (op2),
                 "operator has the wrong type\n"
                 "expected Exception, got %s",
                 t2_str);
      free (t2_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
  else
    {
      pkl_ast_node int32_type
        = pkl_ast_make_integral_type (PKL_PASS_AST, 32, 1);

      PKL_AST_TYPE (exp) = ASTREF (int32_type);
    }
}
PKL_PHASE_END_HANDLER

/* The template in an asm statement should be of type string.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_asm_stmt)
{
  pkl_ast_node asm_stmt = PKL_PASS_NODE;
  pkl_ast_node template = PKL_AST_ASM_STMT_TEMPLATE (asm_stmt);
  pkl_ast_node template_type = PKL_AST_TYPE (template);

  if (PKL_AST_TYPE_CODE (template_type) != PKL_TYPE_STRING)
    {
      char *template_type_str = pkl_type_str (template_type, 1);

      PKL_ERROR (PKL_AST_LOC (template),
                 "expected string, got %s",
                 template_type_str);
      free (template_type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }
}
PKL_PHASE_END_HANDLER

/* The type of an asm expression is the type specified by the user in
   the expression.

   Also, the template in the asm expression should be of type
   string.

   Also, the returned type cannot be void.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify1_ps_asm_exp)
{
  pkl_ast_node asm_exp = PKL_PASS_NODE;
  pkl_ast_node template = PKL_AST_ASM_EXP_TEMPLATE (asm_exp);
  pkl_ast_node template_type = PKL_AST_TYPE (template);
  pkl_ast_node type = PKL_AST_ASM_EXP_TYPE (asm_exp);

  if (PKL_AST_TYPE_CODE (template_type) != PKL_TYPE_STRING)
    {
      char *template_type_str = pkl_type_str (template_type, 1);

      PKL_ERROR (PKL_AST_LOC (template),
                 "expected string, got %s",
                 template_type_str);
      free (template_type_str);
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  if (PKL_AST_TYPE_CODE (type) == PKL_TYPE_VOID)
    {
      PKL_ERROR (PKL_AST_LOC (type),
                 "asm expression cannot return `void'");
      PKL_TYPIFY_PAYLOAD->errors++;
      PKL_PASS_ERROR;
    }

  PKL_AST_TYPE (asm_exp) = ASTREF (type);
}
PKL_PHASE_END_HANDLER

struct pkl_phase pkl_phase_typify1 =
  {
   PKL_PHASE_PS_HANDLER (PKL_AST_SRC, pkl_typify_ps_src),
   PKL_PHASE_PR_HANDLER (PKL_AST_PROGRAM, pkl_typify_pr_program),
   PKL_PHASE_PS_HANDLER (PKL_AST_VAR, pkl_typify1_ps_var),
   PKL_PHASE_PS_HANDLER (PKL_AST_LAMBDA, pkl_typify1_ps_lambda),
   PKL_PHASE_PS_HANDLER (PKL_AST_INCRDECR, pkl_typify1_ps_incrdecr),
   PKL_PHASE_PS_HANDLER (PKL_AST_CAST, pkl_typify1_ps_cast),
   PKL_PHASE_PS_HANDLER (PKL_AST_ISA, pkl_typify1_ps_isa),
   PKL_PHASE_PS_HANDLER (PKL_AST_MAP, pkl_typify1_ps_map),
   PKL_PHASE_PS_HANDLER (PKL_AST_CONS, pkl_typify1_ps_cons),
   PKL_PHASE_PS_HANDLER (PKL_AST_OFFSET, pkl_typify1_ps_offset),
   PKL_PHASE_PS_HANDLER (PKL_AST_ARRAY, pkl_typify1_ps_array),
   PKL_PHASE_PS_HANDLER (PKL_AST_TRIMMER, pkl_typify1_ps_trimmer),
   PKL_PHASE_PS_HANDLER (PKL_AST_INDEXER, pkl_typify1_ps_indexer),
   PKL_PHASE_PS_HANDLER (PKL_AST_STRUCT, pkl_typify1_ps_struct),
   PKL_PHASE_PS_HANDLER (PKL_AST_STRUCT_FIELD, pkl_typify1_ps_struct_field),
   PKL_PHASE_PR_HANDLER (PKL_AST_FUNC, pkl_typify1_pr_func),
   PKL_PHASE_PS_HANDLER (PKL_AST_FUNC_ARG, pkl_typify1_ps_func_arg),
   PKL_PHASE_PS_HANDLER (PKL_AST_FUNCALL, pkl_typify1_ps_funcall),
   PKL_PHASE_PS_HANDLER (PKL_AST_STRUCT_REF, pkl_typify1_ps_struct_ref),
   PKL_PHASE_PS_HANDLER (PKL_AST_LOOP_STMT, pkl_typify1_ps_loop_stmt),
   PKL_PHASE_PS_HANDLER (PKL_AST_LOOP_STMT_ITERATOR, pkl_typify1_ps_loop_stmt_iterator),
   PKL_PHASE_PS_HANDLER (PKL_AST_FORMAT, pkl_typify1_ps_format),
   PKL_PHASE_PS_HANDLER (PKL_AST_PRINT_STMT, pkl_typify1_ps_print_stmt),
   PKL_PHASE_PS_HANDLER (PKL_AST_RAISE_STMT, pkl_typify1_ps_raise_stmt),
   PKL_PHASE_PS_HANDLER (PKL_AST_TRY_STMT, pkl_typify1_ps_try_stmt),
   PKL_PHASE_PS_HANDLER (PKL_AST_STRUCT_TYPE_FIELD, pkl_typify1_ps_struct_type_field),
   PKL_PHASE_PS_HANDLER (PKL_AST_DECL, pkl_typify1_ps_decl),
   PKL_PHASE_PS_HANDLER (PKL_AST_RETURN_STMT, pkl_typify1_ps_return_stmt),
   PKL_PHASE_PS_HANDLER (PKL_AST_IF_STMT, pkl_typify1_ps_if_stmt),
   PKL_PHASE_PS_HANDLER (PKL_AST_COND_EXP, pkl_typify1_ps_cond_exp),
   PKL_PHASE_PS_HANDLER (PKL_AST_ASS_STMT, pkl_typify1_ps_ass_stmt),
   PKL_PHASE_PS_HANDLER (PKL_AST_ASM_EXP, pkl_typify1_ps_asm_exp),
   PKL_PHASE_PS_HANDLER (PKL_AST_ASM_STMT, pkl_typify1_ps_asm_stmt),

   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_SIZEOF, pkl_typify1_ps_op_sizeof),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_TYPEOF, pkl_typify1_ps_op_typeof),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_NOT, pkl_typify1_ps_op_not),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_EQ, pkl_typify1_ps_op_rela),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_NE, pkl_typify1_ps_op_rela),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_LT, pkl_typify1_ps_op_rela),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_GT, pkl_typify1_ps_op_rela),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_LE, pkl_typify1_ps_op_rela),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_GE, pkl_typify1_ps_op_rela),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_AND, pkl_typify1_ps_op_boolean),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_OR, pkl_typify1_ps_op_boolean),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_IMPL, pkl_typify1_ps_op_boolean),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_MUL, pkl_typify1_ps_mul),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_POW, pkl_typify1_ps_bshift_pow),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_SL, pkl_typify1_ps_bshift_pow),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_SR, pkl_typify1_ps_bshift_pow),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_IOR, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_XOR, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_BAND, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_ADD, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_SUB, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_DIV, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_CEILDIV, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_MOD, pkl_typify1_ps_bin),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_ATTR, pkl_typify1_ps_attr),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_NEG, pkl_typify1_ps_neg_pos_bnot),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_POS, pkl_typify1_ps_neg_pos_bnot),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_BNOT, pkl_typify1_ps_neg_pos_bnot),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_UNMAP, pkl_typify1_ps_op_unmap),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_REMAP, pkl_typify1_ps_op_remap),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_BCONC, pkl_typify1_ps_op_bconc),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_IN, pkl_typify1_ps_op_in),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_EXCOND, pkl_typify1_ps_op_excond),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_APUSH, pkl_typify1_ps_op_apush),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_APOP, pkl_typify1_ps_op_apop),

   PKL_PHASE_PS_TYPE_HANDLER (PKL_TYPE_INTEGRAL, pkl_typify1_ps_type_integral),
   PKL_PHASE_PS_TYPE_HANDLER (PKL_TYPE_ARRAY, pkl_typify1_ps_type_array),
   PKL_PHASE_PS_TYPE_HANDLER (PKL_TYPE_STRUCT, pkl_typify1_ps_type_struct),
   PKL_PHASE_PS_TYPE_HANDLER (PKL_TYPE_OFFSET, pkl_typify1_ps_type_offset),
  };



/* Determine the completeness of a type node.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify2_ps_type)
{
  pkl_ast_node type = PKL_PASS_NODE;

  PKL_AST_TYPE_COMPLETE (type) = pkl_ast_type_is_complete (type);
}
PKL_PHASE_END_HANDLER

/* Static array indexes should be non-negative.  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify2_ps_type_array)
{
  pkl_ast_node array = PKL_PASS_NODE;
  pkl_ast_node bound = PKL_AST_TYPE_A_BOUND (array);

  if (bound)
    {
      pkl_ast_node bound_type = PKL_AST_TYPE (bound);

      if (PKL_AST_TYPE_CODE (bound_type) == PKL_TYPE_INTEGRAL
          && PKL_AST_CODE (bound) == PKL_AST_INTEGER
          && ((int64_t) PKL_AST_INTEGER_VALUE (bound)) < 0)
        {
          PKL_ERROR (PKL_AST_LOC (bound),
                     "array dimensions may not be negative");
          PKL_TYPIFY_PAYLOAD->errors++;
          PKL_PASS_ERROR;
        }
    }
}
PKL_PHASE_END_HANDLER

/* Determine the completeness of the type associated with a SIZEOF
   (TYPE).  */

PKL_PHASE_BEGIN_HANDLER (pkl_typify2_ps_op_sizeof)
{
  pkl_ast_node op
    = PKL_AST_EXP_OPERAND (PKL_PASS_NODE, 0);

  PKL_AST_TYPE_COMPLETE (op) = pkl_ast_type_is_complete (op);
}
PKL_PHASE_END_HANDLER


struct pkl_phase pkl_phase_typify2 =
  {
   PKL_PHASE_PS_HANDLER (PKL_AST_SRC, pkl_typify_ps_src),
   PKL_PHASE_PR_HANDLER (PKL_AST_PROGRAM, pkl_typify_pr_program),
   PKL_PHASE_PS_HANDLER (PKL_AST_TYPE, pkl_typify2_ps_type),
   PKL_PHASE_PS_TYPE_HANDLER (PKL_TYPE_ARRAY, pkl_typify2_ps_type_array),
   PKL_PHASE_PS_OP_HANDLER (PKL_AST_OP_SIZEOF, pkl_typify2_ps_op_sizeof),
  };
