ipret-a3.inc

   1 /*
   2  * Copyright (C) 2024 Mikulas Patocka
   3  *
   4  * This file is part of Ajla.
   5  *
   6  * Ajla is free software: you can redistribute it and/or modify it under the
   7  * terms of the GNU General Public License as published by the Free Software
   8  * Foundation, either version 3 of the License, or (at your option) any later
   9  * version.
  10  *
  11  * Ajla is distributed in the hope that it will be useful, but WITHOUT ANY
  12  * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  13  * A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License along with
  16  * Ajla. If not, see <https://www.gnu.org/licenses/>.
  17  */
  18
  19 #define OPC(op)         (OPCODE_REAL_OP + cat(OPCODE_REAL_OP_,op) * OPCODE_REAL_OP_MULT + cat(OPCODE_REAL_TYPE_,type) * OPCODE_REAL_TYPE_MULT)
  20
  21 #if cat3(REAL,TYPE_BITS,_ALT1_TYPES) & TYPE_MASK
  22
  23 #define orig_op         add
  24 #define op              add_alt1
  25 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
  26 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  27 #include "ipret-b1.inc"
  28
  29 #define orig_op         add
  30 #define op              add_alt2
  31 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
  32 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  33 #include "ipret-b1.inc"
  34
  35 #define orig_op         subtract
  36 #define op              subtract_alt1
  37 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
  38 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  39 #include "ipret-b1.inc"
  40
  41 #define orig_op         subtract
  42 #define op              subtract_alt2
  43 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
  44 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  45 #include "ipret-b1.inc"
  46
  47 #define orig_op         multiply
  48 #define op              multiply_alt1
  49 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
  50 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  51 #include "ipret-b1.inc"
  52
  53 #define orig_op         multiply
  54 #define op              multiply_alt2
  55 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
  56 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  57 #include "ipret-b1.inc"
  58
  59 #define orig_op         divide
  60 #define op              divide_alt1
  61 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
  62 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  63 #include "ipret-b1.inc"
  64
  65 #define orig_op         divide
  66 #define op              divide_alt2
  67 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
  68 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  69 #include "ipret-b1.inc"
  70
  71 #define orig_op         equal
  72 #define op              equal_alt1
  73 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
  74 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  75 #include "ipret-b1.inc"
  76
  77 #define orig_op         equal
  78 #define op              equal_alt2
  79 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
  80 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  81 #include "ipret-b1.inc"
  82
  83 #define orig_op         not_equal
  84 #define op              not_equal_alt1
  85 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
  86 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  87 #include "ipret-b1.inc"
  88
  89 #define orig_op         not_equal
  90 #define op              not_equal_alt2
  91 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
  92 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  93 #include "ipret-b1.inc"
  94
  95 #define orig_op         less
  96 #define op              less_alt1
  97 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
  98 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
  99 #include "ipret-b1.inc"
 100
 101 #define orig_op         less
 102 #define op              less_alt2
 103 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 104 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
 105 #include "ipret-b1.inc"
 106
 107 #define orig_op         less_equal
 108 #define op              less_equal_alt1
 109 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 110 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
 111 #include "ipret-b1.inc"
 112
 113 #define orig_op         less_equal
 114 #define op              less_equal_alt2
 115 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 116 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
 117 #include "ipret-b1.inc"
 118
 119 #define orig_op         greater
 120 #define op              greater_alt1
 121 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 122 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
 123 #include "ipret-b1.inc"
 124
 125 #define orig_op         greater
 126 #define op              greater_alt2
 127 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 128 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
 129 #include "ipret-b1.inc"
 130
 131 #define orig_op         greater_equal
 132 #define op              greater_equal_alt1
 133 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 134 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
 135 #include "ipret-b1.inc"
 136
 137 #define orig_op         greater_equal
 138 #define op              greater_equal_alt2
 139 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 140 #define DEF(type)       DEFINE_FIXED_REAL_BINARY_OPCODE(REAL_, type, op)
 141 #include "ipret-b1.inc"
 142
 143 #if TYPE_MASK != 1
 144 #define orig_op         neg
 145 #define op              neg_alt1
 146 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 147 #define DEF(type)       DEFINE_FIXED_REAL_UNARY_OPCODE(REAL_, type, op)
 148 #include "ipret-b1.inc"
 149
 150 #define orig_op         neg
 151 #define op              neg_alt2
 152 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 153 #define DEF(type)       DEFINE_FIXED_REAL_UNARY_OPCODE(REAL_, type, op)
 154 #include "ipret-b1.inc"
 155
 156 #define orig_op         sqrt
 157 #define op              sqrt_alt1
 158 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 159 #define DEF(type)       DEFINE_FIXED_REAL_UNARY_OPCODE(REAL_, type, op)
 160 #include "ipret-b1.inc"
 161
 162 #define orig_op         sqrt
 163 #define op              sqrt_alt2
 164 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 165 #define DEF(type)       DEFINE_FIXED_REAL_UNARY_OPCODE(REAL_, type, op)
 166 #include "ipret-b1.inc"
 167 #endif
 168
 169 #define orig_op         to_int
 170 #define op              to_int_alt1
 171 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 172 #define DEF(type)       DEFINE_REAL_TO_INT(type, op)
 173 #include "ipret-b1.inc"
 174
 175 #if TYPE_MASK != 1
 176 #define orig_op         to_int
 177 #define op              to_int_alt2
 178 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 179 #define DEF(type)       DEFINE_REAL_TO_INT(type, op)
 180 #include "ipret-b1.inc"
 181 #endif
 182
 183 #define orig_op         from_int
 184 #define op              from_int_alt1
 185 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 186 #define DEF(type)       DEFINE_REAL_FROM_INT(type, op)
 187 #include "ipret-b1.inc"
 188
 189 #if TYPE_MASK != 1
 190 #define orig_op         from_int
 191 #define op              from_int_alt2
 192 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 193 #define DEF(type)       DEFINE_REAL_FROM_INT(type, op)
 194 #include "ipret-b1.inc"
 195 #endif
 196
 197 #if TYPE_MASK != 1
 198 #define orig_op         is_exception
 199 #define op              is_exception_alt1
 200 #define OPF             cat4(REAL,TYPE_BITS,_,ALT1_)
 201 #define DEF(type)       DEFINE_FIXED_REAL_UNARY_OPCODE(REAL_, type, op)
 202 #include "ipret-b1.inc"
 203
 204 #define orig_op         is_exception
 205 #define op              is_exception_alt2
 206 #define OPF             cat4(REAL,TYPE_BITS,_,ALT2_)
 207 #define DEF(type)       DEFINE_FIXED_REAL_UNARY_OPCODE(REAL_, type, op)
 208 #include "ipret-b1.inc"
 209 #endif
 210
 211 #endif
 212
 213 #undef OPC