c_src/core__utf8.sep.1.c

   1 #include "core__utf8.sep.0.h"
   2 /* method utf8$Sys$utf8_codec for (self: Sys): Codec */
   3 val* core__utf8___Sys___utf8_codec(val* self) {
   4 val* var /* : Codec */;
   5 static val* varonce;
   6 static int varonce_guard;
   7 val* var1 /* : UTF8Codec */;
   8 val* var2 /* : UTF8Codec */;
   9 if (likely(varonce_guard)) {
  10 var1 = varonce;
  11 } else {
  12 var2 = NEW_core__utf8__UTF8Codec(&type_core__utf8__UTF8Codec);
  13 {
  14 { /* Inline kernel$Object$init (var2) on <var2:UTF8Codec> */
  15 RET_LABEL3:(void)0;
  16 }
  17 }
  18 var1 = var2;
  19 varonce = var1;
  20 varonce_guard = 1;
  21 }
  22 var = var1;
  23 goto RET_LABEL;
  24 RET_LABEL:;
  25 return var;
  26 }