c_src/counter.sep.1.c

   1 #include "counter.sep.0.h"
   2 /* method counter#Sys#div for (self: Sys, Int, Int): String */
   3 val* counter___standard__Sys___div(val* self, long p0, long p1) {
   4 val* var /* : String */;
   5 long var_n /* var n: Int */;
   6 long var_d /* var d: Int */;
   7 short int var1 /* : Bool */;
   8 short int var3 /* : Bool */;
   9 static val* varonce;
  10 val* var4 /* : String */;
  11 char* var5 /* : NativeString */;
  12 val* var6 /* : FlatString */;
  13 long var7 /* : Int */;
  14 short int var9 /* : Bool */;
  15 int cltype;
  16 int idtype;
  17 const char* var_class_name;
  18 long var10 /* : Int */;
  19 long var11 /* : Int */;
  20 short int var13 /* : Bool */;
  21 int cltype14;
  22 int idtype15;
  23 const char* var_class_name16;
  24 long var17 /* : Int */;
  25 double var18 /* : Float */;
  26 double var20 /* : Float */;
  27 double var21 /* : Float */;
  28 short int var23 /* : Bool */;
  29 int cltype24;
  30 int idtype25;
  31 const char* var_class_name26;
  32 double var27 /* : Float */;
  33 val* var28 /* : String */;
  34 var_n = p0;
  35 var_d = p1;
  36 {
  37 { /* Inline kernel#Int#== (var_d,0l) on <var_d:Int> */
  38 var3 = var_d == 0l;
  39 var1 = var3;
  40 goto RET_LABEL2;
  41 RET_LABEL2:(void)0;
  42 }
  43 }
  44 if (var1){
  45 if (likely(varonce!=NULL)) {
  46 var4 = varonce;
  47 } else {
  48 var5 = "na";
  49 var6 = standard___standard__NativeString___to_s_with_length(var5, 2l);
  50 var4 = var6;
  51 varonce = var4;
  52 }
  53 var = var4;
  54 goto RET_LABEL;
  55 } else {
  56 }
  57 {
  58 { /* Inline kernel#Int#* (100l,var_n) on <100l:Int> */
  59 /* Covariant cast for argument 0 (i) <var_n:Int> isa OTHER */
  60 /* <var_n:Int> isa OTHER */
  61 var9 = 1; /* easy <var_n:Int> isa OTHER*/
  62 if (unlikely(!var9)) {
  63 var_class_name = type_standard__Int.name;
  64 PRINT_ERROR("Runtime error: Cast failed. Expected `%s`, got `%s`", "OTHER", var_class_name);
  65 PRINT_ERROR(" (%s:%d)\n", FILE_standard__kernel, 541);
  66 fatal_exit(1);
  67 }
  68 var10 = 100l * var_n;
  69 var7 = var10;
  70 goto RET_LABEL8;
  71 RET_LABEL8:(void)0;
  72 }
  73 }
  74 {
  75 { /* Inline kernel#Int#/ (var7,var_d) on <var7:Int> */
  76 /* Covariant cast for argument 0 (i) <var_d:Int> isa OTHER */
  77 /* <var_d:Int> isa OTHER */
  78 var13 = 1; /* easy <var_d:Int> isa OTHER*/
  79 if (unlikely(!var13)) {
  80 var_class_name16 = type_standard__Int.name;
  81 PRINT_ERROR("Runtime error: Cast failed. Expected `%s`, got `%s`", "OTHER", var_class_name16);
  82 PRINT_ERROR(" (%s:%d)\n", FILE_standard__kernel, 542);
  83 fatal_exit(1);
  84 }
  85 var17 = var7 / var_d;
  86 var11 = var17;
  87 goto RET_LABEL12;
  88 RET_LABEL12:(void)0;
  89 }
  90 }
  91 {
  92 { /* Inline kernel#Int#to_f (var11) on <var11:Int> */
  93 var20 = (double)var11;
  94 var18 = var20;
  95 goto RET_LABEL19;
  96 RET_LABEL19:(void)0;
  97 }
  98 }
  99 {
 100 { /* Inline kernel#Float#/ (var18,100.0) on <var18:Float> */
 101 /* Covariant cast for argument 0 (i) <100.0:Float> isa OTHER */
 102 /* <100.0:Float> isa OTHER */
 103 var23 = 1; /* easy <100.0:Float> isa OTHER*/
 104 if (unlikely(!var23)) {
 105 var_class_name26 = type_standard__Float.name;
 106 PRINT_ERROR("Runtime error: Cast failed. Expected `%s`, got `%s`", "OTHER", var_class_name26);
 107 PRINT_ERROR(" (%s:%d)\n", FILE_standard__kernel, 349);
 108 fatal_exit(1);
 109 }
 110 var27 = var18 / 100.0;
 111 var21 = var27;
 112 goto RET_LABEL22;
 113 RET_LABEL22:(void)0;
 114 }
 115 }
 116 {
 117 var28 = standard__string___Float___to_precision(var21, 2l);
 118 }
 119 var = var28;
 120 goto RET_LABEL;
 121 RET_LABEL:;
 122 return var;
 123 }