/* file generated by oo2c -- do not edit */
#include "__oo2c.h"
#include "__libc.h"
#include "LongStrings.d"

static _ModId _mid;

short int LongStrings__Length(const unsigned short int* stringVal, int stringVal_0d) {
  register int i0, i1;
  i0 = *(unsigned short int*)(int)stringVal;
  i0 = i0 != 0;
  if (i0) goto l0;
  i1 = 0;
  goto l2;
l0:
  i1 = 0;
l1:
  i1++;
  i0 = (int)_ashl(i1, 1, (unsigned int));
  i0 = (int)stringVal + i0;
  i0 = *(unsigned short int*)i0;
  i0 = i0 != 0;
  if (i0) goto l1;
l2:
  return (short int)i1;
}

void LongStrings__Assign(const unsigned short int* source__ref, int source_0d, unsigned short int* destination, int destination_0d) {
  register int i0, i1, i2, i3;
  unsigned short int* source;
  char* _old_top_vs = _top_vs;
  _push_value(int, source, source__ref, source_0d*2);
  i1 = destination_0d - 1;
  i2 = -1;
l0:
  i2++;
  i3 = (int)_ashl(i2, 1, (unsigned int));
  i3 = (int)source + i3;
  i0 = (int)_ashl(i2, 1, (unsigned int));
  i3 = *(unsigned short int*)i3;
  i0 = (int)destination + i0;
  *(unsigned short int*)i0 = i3;
  i3 = *(unsigned short int*)i0;
  i3 = i3 == 0;
  if (i3) goto l1;
  i3 = i2 != i1;
  if (i3) goto l0;
l1:
  i0 = (int)_ashl(i2, 1, (unsigned int));
  i0 = (int)destination + i0;
  *(unsigned short int*)i0 = 0;
  _top_vs = _old_top_vs;
}

void LongStrings__Extract(const unsigned short int* source__ref, int source_0d, short int startPos, short int numberToExtract, unsigned short int* destination, int destination_0d) {
  register int i0, i1, i2, i3, i4, i5, i6;
  unsigned short int* source;
  char* _old_top_vs = _top_vs;
  _push_value(int, source, source__ref, source_0d*2);
  i1 = LongStrings__Length((const unsigned short int*)(int)source, source_0d);
  i0 = destination_0d <= numberToExtract;
  i2 = startPos > i1;
  if (i0) goto l0;
  i0 = numberToExtract;
  goto l1;
l0:
  i0 = destination_0d - 1;
l1:
  if (i2) goto l2;
  i1 = startPos;
l2:
  i2 = i0 > 0;
  if (!(i2)) goto l4;
  i5 = (int)_ashl(i1, 1, (unsigned int));
  i5 = (int)source + i5;
  i5 = *(unsigned short int*)i5;
  i2 = i5 == 0;
  if (i2) goto l4;
  i5 = 0;
l3:
  i4 = i1 + i5;
  i6 = i5 + 1;
  i3 = (int)_ashl(i4, 1, (unsigned int));
  i3 = (int)source + i3;
  i4 = *(unsigned short int*)i3;
  i3 = (int)_ashl(i5, 1, (unsigned int));
  i3 = (int)destination + i3;
  *(unsigned short int*)i3 = i4;
  i5 = i0 <= i6;
  if (i5) goto l5;
  i4 = i1 + i6;
  i5 = (int)_ashl(i4, 1, (unsigned int));
  i5 = (int)source + i5;
  i4 = *(unsigned short int*)i5;
  i4 = i4 == 0;
  if (i4) goto l5;
  i5 = i6;
  goto l3;
l4:
  i6 = 0;
l5:
  i0 = (int)_ashl(i6, 1, (unsigned int));
  i0 = (int)destination + i0;
  *(unsigned short int*)i0 = 0;
  _top_vs = _old_top_vs;
}

void LongStrings__Delete(unsigned short int* stringVar, int stringVar_0d, short int startPos, short int numberToDelete) {
  register int i0, i1, i2, i3, i4, i5;
  i4 = LongStrings__Length((const unsigned short int*)(int)stringVar, stringVar_0d);
  i0 = startPos + numberToDelete;
  i0 = i4 > i0;
  if (i0) goto l0;
  i0 = startPos >= i4;
  if (i0) goto l2;
  i0 = (int)_ashl(startPos, 1, (unsigned int));
  i0 = (int)stringVar + i0;
  *(unsigned short int*)i0 = 0;
  goto l2;
l0:
  i1 = i4 - numberToDelete;
  i4 = startPos > i1;
  if (i4) goto l2;
  i4 = startPos;
l1:
  i0 = numberToDelete + i4;
  i3 = (int)_ashl(i0, 1, (unsigned int));
  i3 = (int)stringVar + i3;
  i0 = *(unsigned short int*)i3;
  i2 = (int)_ashl(i4, 1, (unsigned int));
  i3 = i4 + 1;
  i2 = (int)stringVar + i2;
  i5 = i3 > i1;
  *(unsigned short int*)i2 = i0;
  if (i5) goto l2;
  i4 = i3;
  goto l1;
l2:
  ;
}

void LongStrings__Insert(const unsigned short int* source__ref, int source_0d, short int startPos, unsigned short int* destination, int destination_0d) {
  register int i0, i1, i2, i3, i4, i5;
  unsigned short int* source;
  char* _old_top_vs = _top_vs;
  _push_value(int, source, source__ref, source_0d*2);
  i5 = LongStrings__Length((const unsigned short int*)(int)source, source_0d);
  i0 = destination_0d - 1;
  i1 = LongStrings__Length((const unsigned short int*)(int)destination, destination_0d);
  i2 = startPos + i5;
  i2 = i2 < i0;
  if (i2) goto l1;
  i5 = startPos <= i1;
  if (i5) goto l0;
  i5 = 0;
  goto l4;
l0:
  i5 = (int)_ashl(i0, 1, (unsigned int));
  i5 = (int)destination + i5;
  *(unsigned short int*)i5 = 0;
  i5 = i0 - startPos;
  goto l4;
l1:
  i4 = i1 + i5;
  i4 = i4 <= i0;
  if (i4) goto l2;
  i1 = i0 - i5;
  i0 = (int)_ashl(i1, 1, (unsigned int));
  i0 = (int)destination + i0;
  *(unsigned short int*)i0 = 0;
l2:
  i0 = startPos <= i1;
  if (!(i0)) goto l4;
l3:
  i0 = i5 + i1;
  i4 = (int)_ashl(i1, 1, (unsigned int));
  i2 = (int)_ashl(i0, 1, (unsigned int));
  i4 = (int)destination + i4;
  i3 = i1 + -1;
  i2 = (int)destination + i2;
  i1 = *(unsigned short int*)i4;
  *(unsigned short int*)i2 = i1;
  i1 = startPos > i3;
  if (i1) goto l4;
  i1 = i3;
  goto l3;
l4:
  i4 = i5 - 1;
  i0 = i4 < 0;
  if (i0) goto l6;
  i5 = 0;
l5:
  i0 = startPos + i5;
  i1 = (int)_ashl(i5, 1, (unsigned int));
  i1 = (int)source + i1;
  i2 = (int)_ashl(i0, 1, (unsigned int));
  i3 = i5 + 1;
  i1 = *(unsigned short int*)i1;
  i2 = (int)destination + i2;
  *(unsigned short int*)i2 = i1;
  i0 = i3 > i4;
  if (i0) goto l6;
  i5 = i3;
  goto l5;
l6:
  _top_vs = _old_top_vs;
}

void LongStrings__Replace(const unsigned short int* source__ref, int source_0d, short int startPos, unsigned short int* destination, int destination_0d) {
  register int i0, i1, i2, i3, i4, i5, i6, i7;
  unsigned short int* source;
  char* _old_top_vs = _top_vs;
  _push_value(int, source, source__ref, source_0d*2);
  i6 = LongStrings__Length((const unsigned short int*)(int)destination, destination_0d);
  i0 = startPos >= i6;
  if (i0) goto l1;
  i5 = startPos == i6;
  if (i5) goto l1;
  i0 = *(unsigned short int*)(int)source;
  i5 = i0 == 0;
  if (i5) goto l1;
  i0 = 0;
  i7 = startPos;
l0:
  i1 = (int)_ashl(i0, 1, (unsigned int));
  i4 = (int)source + i1;
  i3 = i0 + 1;
  i1 = (int)_ashl(i7, 1, (unsigned int));
  i2 = i7 + 1;
  i0 = *(unsigned short int*)i4;
  i1 = (int)destination + i1;
  i4 = i6 == i2;
  *(unsigned short int*)i1 = i0;
  if (i4) goto l1;
  i7 = (int)_ashl(i3, 1, (unsigned int));
  i7 = (int)source + i7;
  i7 = *(unsigned short int*)i7;
  i7 = i7 == 0;
  if (i7) goto l1;
  i0 = i3;
  i7 = i2;
  goto l0;
l1:
  _top_vs = _old_top_vs;
}

void LongStrings__Append(const unsigned short int* source__ref, int source_0d, unsigned short int* destination, int destination_0d) {
  register int i0, i1, i2, i3, i4, i5, i6, i7, i8, i9;
  unsigned short int* source;
  char* _old_top_vs = _top_vs;
  _push_value(int, source, source__ref, source_0d*2);
  i8 = LongStrings__Length((const unsigned short int*)(int)destination, destination_0d);
  i7 = destination_0d - 1;
  i0 = i8 >= i7;
  if (i0) goto l1;
  i6 = *(unsigned short int*)(int)source;
  i1 = i6 == 0;
  if (i1) goto l1;
  i2 = 0;
  i0 = i8;
l0:
  i9 = i0 + 1;
  i6 = (int)_ashl(i2, 1, (unsigned int));
  i6 = (int)source + i6;
  i4 = i2 + 1;
  i5 = (int)_ashl(i0, 1, (unsigned int));
  i3 = i9 >= i7;
  i6 = *(unsigned short int*)i6;
  i5 = (int)destination + i5;
  *(unsigned short int*)i5 = i6;
  if (i3) goto l2;
  i0 = (int)_ashl(i4, 1, (unsigned int));
  i0 = (int)source + i0;
  i0 = *(unsigned short int*)i0;
  i0 = i0 == 0;
  if (i0) goto l2;
  i2 = i4;
  i0 = i9;
  goto l0;
l1:
  i9 = i8;
l2:
  i0 = (int)_ashl(i9, 1, (unsigned int));
  i0 = (int)destination + i0;
  *(unsigned short int*)i0 = 0;
  _top_vs = _old_top_vs;
}

void LongStrings__Concat(const unsigned short int* source1__ref, int source1_0d, const unsigned short int* source2__ref, int source2_0d, unsigned short int* destination, int destination_0d) {
  register int i0, i1, i2, i3, i4, i5, i6, i7, i8, i9;
  unsigned short int* source1;
  unsigned short int* source2;
  char* _old_top_vs = _top_vs;
  _push_value(int, source1, source1__ref, source1_0d*2);
  _push_value(int, source2, source2__ref, source2_0d*2);
  i0 = *(unsigned short int*)(int)source1;
  i0 = i0 == 0;
  if (i0) goto l1;
  i0 = destination_0d - 1;
  i1 = i0 <= 0;
  if (i1) goto l1;
  i4 = 0;
l0:
  i8 = i4 + 1;
  i3 = (int)_ashl(i8, 1, (unsigned int));
  i3 = (int)source1 + i3;
  i5 = (int)_ashl(i4, 1, (unsigned int));
  i2 = (int)source1 + i5;
  i3 = *(unsigned short int*)i3;
  i5 = (int)_ashl(i4, 1, (unsigned int));
  i2 = *(unsigned short int*)i2;
  i5 = (int)destination + i5;
  *(unsigned short int*)i5 = i2;
  i4 = i3 == 0;
  if (i4) goto l2;
  i4 = i8 >= i0;
  if (i4) goto l2;
  i4 = i8;
  goto l0;
l1:
  i8 = 0;
l2:
  i0 = *(unsigned short int*)(int)source2;
  i0 = i0 == 0;
  if (i0) goto l4;
  i0 = destination_0d - 1;
  i1 = i8 >= i0;
  if (i1) goto l4;
  i6 = i8;
  i7 = 0;
l3:
  i5 = i7 + 1;
  i4 = (int)_ashl(i5, 1, (unsigned int));
  i4 = (int)source2 + i4;
  i3 = (int)_ashl(i7, 1, (unsigned int));
  i2 = (int)source2 + i3;
  i9 = i6 + 1;
  i4 = *(unsigned short int*)i4;
  i3 = (int)_ashl(i6, 1, (unsigned int));
  i7 = *(unsigned short int*)i2;
  i3 = (int)destination + i3;
  *(unsigned short int*)i3 = i7;
  i7 = i4 == 0;
  if (i7) goto l5;
  i7 = i9 >= i0;
  if (i7) goto l5;
  i6 = i9;
  i7 = i5;
  goto l3;
l4:
  i9 = i8;
l5:
  i0 = (int)_ashl(i9, 1, (unsigned int));
  i0 = (int)destination + i0;
  *(unsigned short int*)i0 = 0;
  _top_vs = _old_top_vs;
}

unsigned char LongStrings__CanAssignAll(short int sourceLength, unsigned short int* destination, int destination_0d) {
  register int i0;
  i0 = destination_0d > sourceLength;
  return (unsigned char)i0;
}

unsigned char LongStrings__CanExtractAll(short int sourceLength, short int startPos, short int numberToExtract, unsigned short int* destination, int destination_0d) {
  register int i0;
  i0 = startPos + numberToExtract;
  i0 = sourceLength < i0;
  if (i0) goto l0;
  i0 = destination_0d > numberToExtract;
  if (i0) goto l1;
l0:
  i0 = 0;
  goto l2;
l1:
  i0 = 1;
l2:
  return (unsigned char)i0;
}

unsigned char LongStrings__CanDeleteAll(short int stringLength, short int startPos, short int numberToDelete) {
  register int i0;
  i0 = startPos + numberToDelete;
  i0 = stringLength >= i0;
  return (unsigned char)i0;
}

unsigned char LongStrings__CanInsertAll(short int sourceLength, short int startPos, unsigned short int* destination, int destination_0d) {
  register int i0, i1;
  i0 = LongStrings__Length((const unsigned short int*)(int)destination, destination_0d);
  i1 = startPos > i0;
  if (i1) goto l0;
  i0 = sourceLength + i0;
  i0 = destination_0d > i0;
  if (i0) goto l1;
l0:
  i0 = 0;
  goto l2;
l1:
  i0 = 1;
l2:
  return (unsigned char)i0;
}

unsigned char LongStrings__CanReplaceAll(short int sourceLength, short int startPos, unsigned short int* destination, int destination_0d) {
  register int i0, i1;
  i1 = LongStrings__Length((const unsigned short int*)(int)destination, destination_0d);
  i0 = sourceLength + startPos;
  i0 = i1 >= i0;
  return (unsigned char)i0;
}

unsigned char LongStrings__CanAppendAll(short int sourceLength, unsigned short int* destination, int destination_0d) {
  register int i0;
  i0 = LongStrings__Length((const unsigned short int*)(int)destination, destination_0d);
  i0 = sourceLength + i0;
  i0 = destination_0d > i0;
  return (unsigned char)i0;
}

unsigned char LongStrings__CanConcatAll(short int source1Length, short int source2Length, unsigned short int* destination, int destination_0d) {
  register int i0;
  i0 = source1Length + source2Length;
  i0 = destination_0d > i0;
  return (unsigned char)i0;
}

signed char LongStrings__Compare(const unsigned short int* stringVal1, int stringVal1_0d, const unsigned short int* stringVal2, int stringVal2_0d) {
  register int i0, i1, i2, i3;
  i2 = *(unsigned short int*)(int)stringVal1;
  i0 = i2 == 0;
  if (i0) goto l1;
  i1 = *(unsigned short int*)(int)stringVal2;
  i1 = i2 != i1;
  if (i1) goto l1;
  i3 = 0;
l0:
  i3++;
  i2 = (int)_ashl(i3, 1, (unsigned int));
  i2 = (int)stringVal1 + i2;
  i2 = *(unsigned short int*)i2;
  i0 = i2 == 0;
  if (i0) goto l2;
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal2 + i0;
  i0 = *(unsigned short int*)i0;
  i2 = i2 == i0;
  if (i2) goto l0;
  goto l2;
l1:
  i3 = 0;
l2:
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal2 + i0;
  i1 = (int)_ashl(i3, 1, (unsigned int));
  i1 = (int)stringVal1 + i1;
  i0 = *(unsigned short int*)i0;
  i1 = *(unsigned short int*)i1;
  i2 = i1 < i0;
  if (i2) goto l4;
  i0 = i1 > i0;
  if (i0) goto l3;
  i2 = 0;
  goto l5;
l3:
  i2 = 1;
  goto l5;
l4:
  i2 = -1;
l5:
  return (signed char)i2;
}

unsigned char LongStrings__Equal(const unsigned short int* stringVal1, int stringVal1_0d, const unsigned short int* stringVal2, int stringVal2_0d) {
  register int i0, i1, i2, i3;
  i2 = *(unsigned short int*)(int)stringVal1;
  i0 = i2 == 0;
  if (i0) goto l1;
  i1 = *(unsigned short int*)(int)stringVal2;
  i1 = i2 != i1;
  if (i1) goto l1;
  i3 = 0;
l0:
  i3++;
  i2 = (int)_ashl(i3, 1, (unsigned int));
  i2 = (int)stringVal1 + i2;
  i2 = *(unsigned short int*)i2;
  i0 = i2 == 0;
  if (i0) goto l2;
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal2 + i0;
  i0 = *(unsigned short int*)i0;
  i2 = i2 == i0;
  if (i2) goto l0;
  goto l2;
l1:
  i3 = 0;
l2:
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal1 + i0;
  i0 = *(unsigned short int*)i0;
  i0 = i0 != 0;
  if (i0) goto l3;
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal2 + i0;
  i3 = *(unsigned short int*)i0;
  i3 = i3 == 0;
  if (i3) goto l4;
l3:
  i0 = 0;
  goto l5;
l4:
  i0 = 1;
l5:
  return (unsigned char)i0;
}

void LongStrings__FindNext(const unsigned short int* pattern, int pattern_0d, const unsigned short int* stringToSearch, int stringToSearch_0d, short int startPos, unsigned char *patternFound, short int *posOfPattern) {
  register int i0, i1, i2, i3, i4, i5, i6;
  i0 = LongStrings__Length((const unsigned short int*)(int)stringToSearch, stringToSearch_0d);
  i0 = startPos < i0;
  if (i0) goto l0;
  *patternFound = 0;
  goto l7;
l0:
  i3 = startPos;
  i4 = 0;
l1:
  i0 = (int)_ashl(i4, 1, (unsigned int));
  i0 = (int)pattern + i0;
  i6 = *(unsigned short int*)i0;
  i0 = i6 == 0;
  if (i0) goto l5;
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringToSearch + i0;
  i0 = *(unsigned short int*)i0;
  i5 = i0 == 0;
  if (i5) goto l3;
  i1 = i0 == i6;
  if (i1) goto l2;
  i1 = i3 - i4;
  i1++;
  i2 = 0;
  goto l4;
l2:
  i1 = i3 + 1;
  i2 = i4 + 1;
  goto l4;
l3:
  *patternFound = 0;
  i1 = i3;
  i2 = i4;
l4:
  i4 = i2;
  i3 = i1;
  goto l6;
l5:
  *patternFound = 1;
  i0 = i3 - i4;
  *posOfPattern = i0;
  i5 = 1;
l6:
  if (!(i5)) goto l1;
l7:
  ;
}

void LongStrings__FindPrev(const unsigned short int* pattern, int pattern_0d, const unsigned short int* stringToSearch, int stringToSearch_0d, short int startPos, unsigned char *patternFound, short int *posOfPattern) {
  register int i0, i1, i2, i3, i4, i5;
  i0 = LongStrings__Length((const unsigned short int*)(int)pattern, pattern_0d);
  i1 = LongStrings__Length((const unsigned short int*)(int)stringToSearch, stringToSearch_0d);
  i4 = i1 - i0;
  i0 = startPos > i4;
  if (i0) goto l0;
  i4 = startPos;
l0:
  i0 = i4 >= 0;
  if (i0) goto l1;
  *patternFound = 0;
  goto l9;
l1:
  i5 = 0;
l2:
  i0 = (int)_ashl(i5, 1, (unsigned int));
  i0 = (int)pattern + i0;
  i0 = *(unsigned short int*)i0;
  i1 = i0 == 0;
  if (i1) goto l7;
  i2 = (int)_ashl(i4, 1, (unsigned int));
  i2 = (int)stringToSearch + i2;
  i2 = *(unsigned short int*)i2;
  i2 = i2 != i0;
  if (i2) goto l3;
  i1 = i4 + 1;
  i2 = i5 + 1;
  i3 = 0;
  goto l6;
l3:
  i3 = i4 > i5;
  if (i3) goto l4;
  *patternFound = 0;
  i2 = i5;
  i1 = i4;
  goto l5;
l4:
  i1 = i4 - i5;
  i1--;
  i2 = 0;
l5:
  i3 = ! i3;
l6:
  i5 = i2;
  i4 = i1;
  goto l8;
l7:
  *patternFound = 1;
  i0 = i4 - i5;
  *posOfPattern = i0;
  i3 = 1;
l8:
  if (!(i3)) goto l2;
l9:
  ;
}

void LongStrings__FindDiff(const unsigned short int* stringVal1, int stringVal1_0d, const unsigned short int* stringVal2, int stringVal2_0d, unsigned char *differenceFound, short int *posOfDifference) {
  register int i0, i1, i2, i3;
  i2 = *(unsigned short int*)(int)stringVal1;
  i0 = i2 == 0;
  if (i0) goto l1;
  i1 = *(unsigned short int*)(int)stringVal2;
  i1 = i2 != i1;
  if (i1) goto l1;
  i3 = 0;
l0:
  i3++;
  i2 = (int)_ashl(i3, 1, (unsigned int));
  i2 = (int)stringVal1 + i2;
  i2 = *(unsigned short int*)i2;
  i0 = i2 == 0;
  if (i0) goto l2;
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal2 + i0;
  i0 = *(unsigned short int*)i0;
  i2 = i2 == i0;
  if (i2) goto l0;
  goto l2;
l1:
  i3 = 0;
l2:
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal1 + i0;
  i0 = *(unsigned short int*)i0;
  i0 = i0 != 0;
  if (i0) goto l3;
  i0 = (int)_ashl(i3, 1, (unsigned int));
  i0 = (int)stringVal2 + i0;
  i0 = *(unsigned short int*)i0;
  i0 = i0 != 0;
  if (i0) goto l3;
  i0 = 0;
  goto l4;
l3:
  i0 = 1;
l4:
  *differenceFound = i0;
  i0 = *differenceFound;
  if (!(i0)) goto l5;
  *posOfDifference = i3;
l5:
  ;
}

void LongStrings__Capitalize(unsigned short int* stringVar, int stringVar_0d) {
  register int i0, i1, i2, i3, i4;
  i0 = *(unsigned short int*)(int)stringVar;
  i0 = i0 == 0;
  if (i0) goto l1;
  i0 = 0;
l0:
  i4 = i0 + 1;
  i1 = (int)_ashl(i0, 1, (unsigned int));
  i1 = (int)stringVar + i1;
  i3 = *(unsigned short int*)i1;
  i2 = (int)_ashl(i4, 1, (unsigned int));
  i3 = _capl(i3);
  *(unsigned short int*)i1 = i3;
  i0 = (int)stringVar + i2;
  i0 = *(unsigned short int*)i0;
  i0 = i0 == 0;
  if (i0) goto l1;
  i0 = i4;
  goto l0;
l1:
  ;
}

void LongStrings__Long(const unsigned char* source, int source_0d, unsigned short int* destination, int destination_0d) {
  _string_copy2l((int)destination, (int)source, destination_0d);
}

void LongStrings__Short(const unsigned short int* source, int source_0d, unsigned char repl, unsigned char* destination, int destination_0d) {
  register int i0, i1, i2, i3, i4;
  i0 = *(unsigned short int*)(int)source;
  i3 = destination_0d - 1;
  i0 = i0 == 0;
  if (i0) goto l3;
  i0 = i3 == 0;
  if (i0) goto l3;
  i4 = 0;
l0:
  i2 = (int)_ashl(i4, 1, (unsigned int));
  i2 = (int)source + i2;
  i1 = *(unsigned short int*)i2;
  i2 = i1 <= 255;
  if (i2) goto l1;
  i2 = (int)destination + i4;
  *(unsigned char*)i2 = (int)repl;
  goto l2;
l1:
  i2 = (int)destination + i4;
  *(unsigned char*)i2 = i1;
l2:
  i4++;
  i2 = (int)_ashl(i4, 1, (unsigned int));
  i2 = (int)source + i2;
  i2 = *(unsigned short int*)i2;
  i2 = i2 == 0;
  if (i2) goto l4;
  i2 = i3 != i4;
  if (i2) goto l0;
  goto l4;
l3:
  i4 = 0;
l4:
  i0 = (int)destination + i4;
  *(unsigned char*)i0 = 0;
}

void LongStrings_init(void) {
  _mid = _register_module(&LongStrings_md.md, NULL);
}