c_src/standard__math.sep.1.c

   1 #include "standard__math.sep.0.h"
   2 /* method math#Float#is_nan for (self: Float): Bool */
   3 short int standard__math___Float___is_nan(double self) {
   4 short int var /* : Bool */;
   5 short int var1 /* : Bool for extern */;
   6 var1 = isnan(self);
   7 var = var1;
   8 goto RET_LABEL;
   9 RET_LABEL:;
  10 return var;
  11 }
  12 /* method math#Float#is_inf for (self: Float): Int */
  13 long standard__math___Float___is_inf(double self) {
  14 long var /* : Int */;
  15 short int var1 /* : Bool */;
  16 short int var3 /* : Bool for extern */;
  17 double var4 /* : Float */;
  18 short int var5 /* : Bool */;
  19 short int var7 /* : Bool */;
  20 int cltype;
  21 int idtype;
  22 const char* var_class_name;
  23 short int var8 /* : Bool */;
  24 long var9 /* : Int */;
  25 long var10 /* : Int */;
  26 long var12 /* : Int */;
  27 long var13 /* : Int */;
  28 long var14 /* : Int */;
  29 {
  30 { /* Inline math#Float#is_inf_extern (self) on <self:Float> */
  31 var3 = isinf(self);
  32 var1 = var3;
  33 goto RET_LABEL2;
  34 RET_LABEL2:(void)0;
  35 }
  36 }
  37 if (var1){
  38 var4 = 0.0;
  39 {
  40 { /* Inline kernel#Float#< (self,var4) on <self:Float> */
  41 /* Covariant cast for argument 0 (i) <var4:Float> isa OTHER */
  42 /* <var4:Float> isa OTHER */
  43 var7 = 1; /* easy <var4:Float> isa OTHER*/
  44 if (unlikely(!var7)) {
  45 var_class_name = type_standard__Float.name;
  46 PRINT_ERROR("Runtime error: Cast failed. Expected `%s`, got `%s`", "OTHER", var_class_name);
  47 PRINT_ERROR(" (%s:%d)\n", FILE_standard__kernel, 322);
  48 show_backtrace(1);
  49 }
  50 var8 = self < var4;
  51 var5 = var8;
  52 goto RET_LABEL6;
  53 RET_LABEL6:(void)0;
  54 }
  55 }
  56 if (var5){
  57 var9 = 1;
  58 {
  59 { /* Inline kernel#Int#unary - (var9) on <var9:Int> */
  60 var12 = -var9;
  61 var10 = var12;
  62 goto RET_LABEL11;
  63 RET_LABEL11:(void)0;
  64 }
  65 }
  66 var = var10;
  67 goto RET_LABEL;
  68 } else {
  69 }
  70 var13 = 1;
  71 var = var13;
  72 goto RET_LABEL;
  73 } else {
  74 }
  75 var14 = 0;
  76 var = var14;
  77 goto RET_LABEL;
  78 RET_LABEL:;
  79 return var;
  80 }
  81 /* method math#Float#is_inf_extern for (self: Float): Bool */
  82 short int standard__math___Float___is_inf_extern(double self) {
  83 short int var /* : Bool */;
  84 short int var1 /* : Bool for extern */;
  85 var1 = isinf(self);
  86 var = var1;
  87 goto RET_LABEL;
  88 RET_LABEL:;
  89 return var;
  90 }