c_src/core__math.sep.1.c

   1 #include "core__math.sep.0.h"
   2 /* method math$Int$& for (self: Int, Int): Int */
   3 long core__math___Int____38d(long self, long p0) {
   4 long var /* : Int */;
   5 long var1 /* : Int */;
   6 var1 = self & p0;
   7 var = var1;
   8 goto RET_LABEL;
   9 RET_LABEL:;
  10 return var;
  11 }
  12 /* method math$Int$| for (self: Int, Int): Int */
  13 long core__math___Int____124d(long self, long p0) {
  14 long var /* : Int */;
  15 long var1 /* : Int */;
  16 var1 = self | p0;
  17 var = var1;
  18 goto RET_LABEL;
  19 RET_LABEL:;
  20 return var;
  21 }
  22 /* method math$Byte$& for (self: Byte, Byte): Byte */
  23 unsigned char core__math___Byte____38d(unsigned char self, unsigned char p0) {
  24 unsigned char var /* : Byte */;
  25 unsigned char var1 /* : Byte */;
  26 var1 = self & p0;
  27 var = var1;
  28 goto RET_LABEL;
  29 RET_LABEL:;
  30 return var;
  31 }
  32 /* method math$Float$is_nan for (self: Float): Bool */
  33 short int core__math___Float___is_nan(double self) {
  34 short int var /* : Bool */;
  35 short int var1 /* : Bool */;
  36 var1 = core__math___Float_is_nan___impl(self);
  37 var = var1;
  38 goto RET_LABEL;
  39 RET_LABEL:;
  40 return var;
  41 }
  42 /* method math$Float$is_inf for (self: Float): Int */
  43 long core__math___Float___is_inf(double self) {
  44 long var /* : Int */;
  45 short int var1 /* : Bool */;
  46 short int var3 /* : Bool */;
  47 short int var4 /* : Bool */;
  48 short int var6 /* : Bool */;
  49 int cltype;
  50 int idtype;
  51 const char* var_class_name;
  52 short int var7 /* : Bool */;
  53 long var8 /* : Int */;
  54 long var10 /* : Int */;
  55 {
  56 { /* Inline math$Float$native_is_inf (self) on <self:Float> */
  57 var3 = core__math___Float_native_is_inf___impl(self);
  58 var1 = var3;
  59 goto RET_LABEL2;
  60 RET_LABEL2:(void)0;
  61 }
  62 }
  63 if (var1){
  64 {
  65 { /* Inline kernel$Float$< (self,0.0) on <self:Float> */
  66 /* Covariant cast for argument 0 (i) <0.0:Float> isa OTHER */
  67 /* <0.0:Float> isa OTHER */
  68 var6 = 1; /* easy <0.0:Float> isa OTHER*/
  69 if (unlikely(!var6)) {
  70 var_class_name = type_core__Float.name;
  71 PRINT_ERROR("Runtime error: Cast failed. Expected `%s`, got `%s`", "OTHER", var_class_name);
  72 PRINT_ERROR(" (%s:%d)\n", FILE_core__kernel, 530);
  73 fatal_exit(1);
  74 }
  75 var7 = self < 0.0;
  76 var4 = var7;
  77 goto RET_LABEL5;
  78 RET_LABEL5:(void)0;
  79 }
  80 }
  81 if (var4){
  82 {
  83 { /* Inline kernel$Int$unary - (1l) on <1l:Int> */
  84 var10 = -1l;
  85 var8 = var10;
  86 goto RET_LABEL9;
  87 RET_LABEL9:(void)0;
  88 }
  89 }
  90 var = var8;
  91 goto RET_LABEL;
  92 } else {
  93 }
  94 var = 1l;
  95 goto RET_LABEL;
  96 } else {
  97 }
  98 var = 0l;
  99 goto RET_LABEL;
 100 RET_LABEL:;
 101 return var;
 102 }
 103 /* method math$Float$native_is_inf for (self: Float): Bool */
 104 short int core__math___Float___native_is_inf(double self) {
 105 short int var /* : Bool */;
 106 short int var1 /* : Bool */;
 107 var1 = core__math___Float_native_is_inf___impl(self);
 108 var = var1;
 109 goto RET_LABEL;
 110 RET_LABEL:;
 111 return var;
 112 }
 113 /* method math$Sys$init for (self: Sys) */
 114 void core__math___Sys___core__kernel__Object__init(val* self) {
 115 {
 116 ((void(*)(val* self))(self->class->vft[COLOR_core__math___Sys___core__kernel__Object__init]))(self); /* init on <self:Sys>*/
 117 }
 118 {
 119 { /* Inline math$Sys$srand (self) on <self:Sys> */
 120 struct nitni_instance* var_for_c_0;
 121 var_for_c_0 = nit_alloc(sizeof(struct nitni_instance));
 122 var_for_c_0->value = self;
 123 core__math___Sys_srand___impl(var_for_c_0);
 124 RET_LABEL1:(void)0;
 125 }
 126 }
 127 RET_LABEL:;
 128 }
 129 /* method math$Sys$srand_from for (self: Sys, Int) */
 130 void core__math___Sys___srand_from(val* self, long p0) {
 131 struct nitni_instance* var_for_c_0;
 132 var_for_c_0 = nit_alloc(sizeof(struct nitni_instance));
 133 var_for_c_0->value = self;
 134 core__math___Sys_srand_from___impl(var_for_c_0, p0);
 135 RET_LABEL:;
 136 }
 137 /* method math$Sys$srand for (self: Sys) */
 138 void core__math___Sys___srand(val* self) {
 139 struct nitni_instance* var_for_c_0;
 140 var_for_c_0 = nit_alloc(sizeof(struct nitni_instance));
 141 var_for_c_0->value = self;
 142 core__math___Sys_srand___impl(var_for_c_0);
 143 RET_LABEL:;
 144 }