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 short int var4 /* : Bool */;
  18 short int var6 /* : Bool */;
  19 int cltype;
  20 int idtype;
  21 const char* var_class_name;
  22 short int var7 /* : Bool */;
  23 long var8 /* : Int */;
  24 long var10 /* : Int */;
  25 {
  26 { /* Inline math#Float#is_inf_extern (self) on <self:Float> */
  27 var3 = isinf(self);
  28 var1 = var3;
  29 goto RET_LABEL2;
  30 RET_LABEL2:(void)0;
  31 }
  32 }
  33 if (var1){
  34 {
  35 { /* Inline kernel#Float#< (self,0.0) on <self:Float> */
  36 /* Covariant cast for argument 0 (i) <0.0:Float> isa OTHER */
  37 /* <0.0:Float> isa OTHER */
  38 var6 = 1; /* easy <0.0:Float> isa OTHER*/
  39 if (unlikely(!var6)) {
  40 var_class_name = type_standard__Float.name;
  41 PRINT_ERROR("Runtime error: Cast failed. Expected `%s`, got `%s`", "OTHER", var_class_name);
  42 PRINT_ERROR(" (%s:%d)\n", FILE_standard__kernel, 341);
  43 fatal_exit(1);
  44 }
  45 var7 = self < 0.0;
  46 var4 = var7;
  47 goto RET_LABEL5;
  48 RET_LABEL5:(void)0;
  49 }
  50 }
  51 if (var4){
  52 {
  53 { /* Inline kernel#Int#unary - (1l) on <1l:Int> */
  54 var10 = -1l;
  55 var8 = var10;
  56 goto RET_LABEL9;
  57 RET_LABEL9:(void)0;
  58 }
  59 }
  60 var = var8;
  61 goto RET_LABEL;
  62 } else {
  63 }
  64 var = 1l;
  65 goto RET_LABEL;
  66 } else {
  67 }
  68 var = 0l;
  69 goto RET_LABEL;
  70 RET_LABEL:;
  71 return var;
  72 }
  73 /* method math#Float#is_inf_extern for (self: Float): Bool */
  74 short int standard__math___Float___is_inf_extern(double self) {
  75 short int var /* : Bool */;
  76 short int var1 /* : Bool for extern */;
  77 var1 = isinf(self);
  78 var = var1;
  79 goto RET_LABEL;
  80 RET_LABEL:;
  81 return var;
  82 }
  83 /* method math#Sys#init for (self: Sys) */
  84 void standard__math___Sys___standard__kernel__Object__init(val* self) {
  85 {
  86 ((void(*)(val* self))(self->class->vft[COLOR_standard__math___Sys___standard__kernel__Object__init]))(self); /* init on <self:Sys>*/
  87 }
  88 {
  89 { /* Inline math#Sys#srand (self) on <self:Sys> */
  90 kernel_Any_Any_srand_0(self);
  91 RET_LABEL1:(void)0;
  92 }
  93 }
  94 RET_LABEL:;
  95 }
  96 /* method math#Sys#srand_from for (self: Sys, Int) */
  97 void standard__math___Sys___srand_from(val* self, long p0) {
  98 kernel_Any_Any_srand_from_1(self, p0);
  99 RET_LABEL:;
 100 }
 101 /* method math#Sys#srand for (self: Sys) */
 102 void standard__math___Sys___srand(val* self) {
 103 kernel_Any_Any_srand_0(self);
 104 RET_LABEL:;
 105 }