[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-415-g5c93184
Benoit Sonntag
sonntag at icps.u-strasbg.fr
Wed Aug 19 18:17:17 UTC 2009
The following commit has been merged in the master branch:
commit 5c93184283a5bfb86aacb16627cb4de2782b294e
Author: Benoit Sonntag <sonntag at icps.u-strasbg.fr>
Date: Wed Aug 19 20:17:15 2009 +0200
optim nico switch ok
diff --git a/example/shootout/OLD/thread-ring/threadring.c b/example/shootout/OLD/thread-ring/threadring.c
deleted file mode 100755
index d8cfaa0..0000000
--- a/example/shootout/OLD/thread-ring/threadring.c
+++ /dev/null
@@ -1,1598 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// THREADRING
-
-#include <pthread.h>
-pthread_attr_t stack_attr;
-
-// MUTEX
-pthread_mutex_t MUTEX__;
-// STACK
-
-#include <limits.h>
-struct stack {
- char x[PTHREAD_STACK_MIN];
-};
-struct stack STACK__;
-
-// THREAD
-pthread_t THREAD__;
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM
-#include <time.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__HK;
- volatile __UINTEGER_32 size_and_id__IK;
- __MEMORY *next_free__JK;
- __MEMORY *previous_free__KK;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// ARRAYED_COLLECTION[Expanded INTEGER]
-#define __ARRAYED_COLLECTIONoExpanded_INTEGERo__ 1
-typedef struct ARRAYED_COLLECTIONoExpanded_INTEGERo_struct __ARRAYED_COLLECTIONoExpanded_INTEGERo;
-struct ARRAYED_COLLECTIONoExpanded_INTEGERo_struct {
- __INTEGER capacity__AEC;
- __INTEGER upper__WEC;
- __INTEGER *storage__QBC;
-};
-__ARRAYED_COLLECTIONoExpanded_INTEGERo ARRAYED_COLLECTIONoExpanded_INTEGERo_;
-#define ARRAYED_COLLECTIONoExpanded_INTEGERo__ (&ARRAYED_COLLECTIONoExpanded_INTEGERo_)
-
-// FAST_ARRAY[Expanded INTEGER]
-#define __FAST_ARRAYoExpanded_INTEGERo__ 2
-typedef struct FAST_ARRAYoExpanded_INTEGERo_struct __FAST_ARRAYoExpanded_INTEGERo;
-struct FAST_ARRAYoExpanded_INTEGERo_struct {
- __ARRAYED_COLLECTIONoExpanded_INTEGERo parent_arrayed_collection__4;
-};
-__FAST_ARRAYoExpanded_INTEGERo FAST_ARRAYoExpanded_INTEGERo_;
-#define FAST_ARRAYoExpanded_INTEGERo__ (&FAST_ARRAYoExpanded_INTEGERo_)
-
-// NUMERIC
-#define __NUMERIC__ 3
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__XFG;
- __CHARACTER *storage__GMH;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// THREADRING
-#define __THREADRING__ 6
-typedef struct THREADRING_struct __THREADRING;
-struct THREADRING_struct {
- void *Nothing;
-};
-__THREADRING THREADRING_;
-#define THREADRING__ (&THREADRING_)
-
-// STRING
-#define __STRING__ 7
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__EVH;
- __INTEGER capacity__2XH;
- __CHARACTER *storage__FYH;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 8
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER capacity__HJC;
- __INTEGER upper__TJC;
- void **storage__KDC;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 9
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__0D;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// MUTEX
-typedef pthread_mutex_t __MUTEX;
-
-// ARRAYED_COLLECTION[Expanded MUTEX]
-#define __ARRAYED_COLLECTIONoExpanded_MUTEXo__ 10
-typedef struct ARRAYED_COLLECTIONoExpanded_MUTEXo_struct __ARRAYED_COLLECTIONoExpanded_MUTEXo;
-struct ARRAYED_COLLECTIONoExpanded_MUTEXo_struct {
- __INTEGER capacity__UGC;
- __INTEGER upper__KHC;
- __MUTEX *storage__RCC;
-};
-__ARRAYED_COLLECTIONoExpanded_MUTEXo ARRAYED_COLLECTIONoExpanded_MUTEXo_;
-#define ARRAYED_COLLECTIONoExpanded_MUTEXo__ (&ARRAYED_COLLECTIONoExpanded_MUTEXo_)
-
-// FAST_ARRAY[Expanded MUTEX]
-#define __FAST_ARRAYoExpanded_MUTEXo__ 11
-typedef struct FAST_ARRAYoExpanded_MUTEXo_struct __FAST_ARRAYoExpanded_MUTEXo;
-struct FAST_ARRAYoExpanded_MUTEXo_struct {
- __ARRAYED_COLLECTIONoExpanded_MUTEXo parent_arrayed_collection__VB;
-};
-__FAST_ARRAYoExpanded_MUTEXo FAST_ARRAYoExpanded_MUTEXo_;
-#define FAST_ARRAYoExpanded_MUTEXo__ (&FAST_ARRAYoExpanded_MUTEXo_)
-
-// STACK
-typedef struct stack __STACK;
-
-// ARRAYED_COLLECTION[Expanded STACK]
-#define __ARRAYED_COLLECTIONoExpanded_STACKo__ 12
-typedef struct ARRAYED_COLLECTIONoExpanded_STACKo_struct __ARRAYED_COLLECTIONoExpanded_STACKo;
-struct ARRAYED_COLLECTIONoExpanded_STACKo_struct {
- __INTEGER capacity__HZH;
- __INTEGER upper__3ZH;
- __STACK *storage__WUH;
-};
-__ARRAYED_COLLECTIONoExpanded_STACKo ARRAYED_COLLECTIONoExpanded_STACKo_;
-#define ARRAYED_COLLECTIONoExpanded_STACKo__ (&ARRAYED_COLLECTIONoExpanded_STACKo_)
-
-// FAST_ARRAY[Expanded STACK]
-#define __FAST_ARRAYoExpanded_STACKo__ 13
-typedef struct FAST_ARRAYoExpanded_STACKo_struct __FAST_ARRAYoExpanded_STACKo;
-struct FAST_ARRAYoExpanded_STACKo_struct {
- __ARRAYED_COLLECTIONoExpanded_STACKo parent_arrayed_collection__AC;
-};
-__FAST_ARRAYoExpanded_STACKo FAST_ARRAYoExpanded_STACKo_;
-#define FAST_ARRAYoExpanded_STACKo__ (&FAST_ARRAYoExpanded_STACKo_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// THREAD
-typedef pthread_t __THREAD;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[14];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-__POINTER begin_memory__PCB;
-__UINTEGER_32 nb_page__0QB;
-__UINTEGER_32 capacity_max__ZQD;
-__MEMORY *first_free__ALG;
-void *parent_numeric__H;
-__UINTEGER_32 clone_allocation_size__3J;
-void *data__5;
-void *mutex__WB;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__IQB(__UINTEGER_32 t__KQB);
-static __MEMORY* search__3JG(__UINTEGER_32 new_size__5JG);
-static void** create__4QG(__INTEGER nb_elements__ARG);
-static __CHARACTER* create__MKM(__INTEGER nb_elements__OKM);
-static __POINTER realloc_dynamic__old_size__new_size__Y4I(__POINTER p__04I,__UINTEGER_32 old_sz__14I,__UINTEGER_32 new_sz__24I);
-__POINTER thread(__POINTER num__HF);
-static __MEMORY* new_page__PQD();
-static void print_positif__CMK(__INTEGER Self__DMK);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __POINTER ptr__KJ,ptr_table__DWZ,next__CWZ,result__EWZ,ptr_table__IWZ;
- __POINTER next__HWZ,result__JWZ,result__XMZ,ptr_table__NWZ,next__MWZ;
- __POINTER result__OWZ,ptr__2P,ptr_table__SWZ,next__RWZ,result__TWZ;
- __POINTER ptr_table__XWZ,next__WWZ,result__YWZ,ptr__DME;
- __POINTER ptr_table__2WZ,next__1WZ,result__3WZ,ptr_table__BXZ;
- __POINTER next__AXZ,result__CXZ,ptr__FM,ptr_table__GXZ,next__FXZ;
- __POINTER result__HXZ,ptr_table__LXZ,next__KXZ,result__MXZ;
- __POINTER result__INZ,ptr_table__QXZ,next__PXZ,result__RXZ,ptr__ZXE;
- __POINTER ptr_table__VXZ,next__UXZ,result__WXZ,ptr_table__0XZ;
- __POINTER next__ZXZ,result__1XZ,result__O1E,ptr_table__VAB,next__0AB;
- __POINTER result__YAB;
- __INTEGER typ_id__PJ,Self__XPI,__tmp__DFC,Self__CML,new_count__3K;
- __INTEGER typ_id__BQ,Self__EL,limit_up__FL,idx__2XD,typ_id__IME;
- __INTEGER i__2UH,new_capacity__SIM,__tmp__LJM,__tmp__5FP,Self__0FT;
- __INTEGER new_capacity__VZD,__tmp__Z0D,__tmp__ECI,Self__OMP;
- __INTEGER typ_id__KM,Self__4QI,__tmp__XHC,Self__KOL,typ_id__4XE;
- __INTEGER Self__VNP,__tmp__K0H,Self__OES,state__3TO,result__AUO;
- __INTEGER i__2TO,__tmp__NVZ,__tmp__PVZ,Self__JE;
- __UINTEGER_32 sz__MJ,a__FSZ,new_size__GSZ,t__PSZ,a__MSZ,new_size__LWZ;
- __UINTEGER_32 lab_type__KWZ,sz__YMZ,a__3MZ,new_size__ZMZ;
- __UINTEGER_32 new_size2__0MZ,a__TSZ,new_size__USZ,sz__4P,a__ATZ;
- __UINTEGER_32 new_size__BTZ,t__KTZ,a__HTZ,new_size__0WZ,lab_type__ZWZ;
- __UINTEGER_32 sz__FME,a__OTZ,new_size__PTZ,t__YTZ,a__VTZ;
- __UINTEGER_32 new_size__EXZ,lab_type__DXZ,sz__HM,a__IUZ,new_size__JUZ;
- __UINTEGER_32 t__SUZ,a__PUZ,new_size__OXZ,lab_type__NXZ,sz__JNZ;
- __UINTEGER_32 a__ONZ,new_size__KNZ,new_size2__LNZ,a__WUZ;
- __UINTEGER_32 new_size__XUZ,sz__1XE,a__DVZ,new_size__EVZ,t__R0,a__OOZ;
- __UINTEGER_32 new_size__3XZ,lab_type__2XZ,sz__G1E,a__SNZ;
- __UINTEGER_32 new_size__I1E,new_size2__L1E,a__IOZ,new_size__IZ;
- __STRING *result__CME,*Self__NXH,*Self__0UH,*Self__0TO;
- __MUTEX v__EXH,v__ETK;
- __STACK v__GAP,v__DKR;
- __FAST_ARRAYoExpanded_INTEGERo *result__JJ,*Self__WDC;
- __INTEGER *Result__IFE,*__tmp__CFC,*Self__GRK;
- __BOOLEAN __tmp__KEC,__tmp__D0D,__tmp__4GC,__tmp__RZH,negative__5TO;
- __BOOLEAN __tmp__MVO,result__AIW,__tmp__5VO,__tmp__UWO,result__UOU;
- __BOOLEAN __tmp__1XO,result__GPU,result__YOO;
- __CHARACTER *arg__1G,*Self__QXD,*p__1UH,*__tmp__KJM,*new__MFP;
- __CHARACTER *__tmp__OVZ;
- __FAST_ARRAYoSTRINGo *result__1P,*Self__4IC,*Self__TZD;
- void *result__0G;
- __CHARACTER __tmp__RVH,cc__4TO;
- void **__tmp__Y0D,**new__RBI;
- __FAST_ARRAYoExpanded_MUTEXo *result__EM,*Self__KGC;
- __MUTEX *Result__UHE,*__tmp__WHC,*Self__TSK,*__tmp__QVZ,*__tmp__RVZ;
- __FAST_ARRAYoExpanded_STACKo *result__YXE,*Self__3YH;
- __STACK *Result__RQL,*__tmp__J0H,*Self__SJR,*__tmp__SVZ;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoExpanded_INTEGERo__->storage__QBC=NULL;
- ARRAYED_COLLECTIONoExpanded_INTEGERo__->capacity__AEC= 0;
- ARRAYED_COLLECTIONoExpanded_INTEGERo__->upper__WEC= 0;
- FAST_ARRAYoExpanded_INTEGERo__->parent_arrayed_collection__4=(*ARRAYED_COLLECTIONoExpanded_INTEGERo__);
- parent_numeric__H=NUMERIC__;
- clone_allocation_size__3J= 0;
- STRING_CONSTANT__->count__XFG=((__INTEGER )((0)));
- STRING_CONSTANT__->storage__GMH=((__CHARACTER *)(NULL));
- nb_page__0QB= 0;
- MEMORY__->size_and_id__IK= 0;
- capacity_max__ZQD= 0;
- begin_memory__PCB=((__POINTER )(NULL));
- MEMORY__->previous_linear__HK= 0;
- first_free__ALG=NULL;
- MEMORY__->next_free__JK=NULL;
- MEMORY__->previous_free__KK=NULL;
- result__JJ=NULL;
- ptr__KJ=((__POINTER )(NULL));
- typ_id__PJ= 0;
- sz__MJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoExpanded_INTEGERo));
- if ((sz__MJ == 0)) {
- result__JJ=FAST_ARRAYoExpanded_INTEGERo__;
- } else {
- typ_id__PJ=__FAST_ARRAYoExpanded_INTEGERo__;
- clone_allocation_size__3J=sz__MJ;
- if ((typ_id__PJ == (__INTEGER)(- 1))) {
- a__FSZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GSZ=(__UINTEGER_32)((__UINTEGER_32)(sz__MJ + a__FSZ) & (__UINTEGER_32)(~ a__FSZ));
- ptr_table__DWZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GSZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CWZ=((__POINTER )(NULL));
- result__EWZ=((__POINTER *)ptr_table__DWZ)[ 0];
- if ((result__EWZ == (void *)NULL)) {
- result__EWZ=new_lab__IQB(new_size__GSZ);
- next__CWZ=(void *)((unsigned long)result__EWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GSZ)));
- ((__POINTER *)next__CWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__DWZ)[ 0]=next__CWZ;
- } else {
- next__CWZ=((__POINTER *)result__EWZ)[ 0];
- if ((next__CWZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EWZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__GSZ << 1)) <= 4096)) {
- next__CWZ=(void *)((unsigned long)result__EWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GSZ)));
- } else {
- next__CWZ=new_lab__IQB(new_size__GSZ);
- };
- ((__POINTER *)next__CWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__DWZ)[ 0]=next__CWZ;
- } else {
- ((__POINTER *)result__EWZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__CWZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EWZ=next__CWZ;
- };
- };
- ptr__KJ=result__EWZ;
- } else {
- t__PSZ=((__UINTEGER_32 )typ_id__PJ);
- a__MSZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LWZ=(__UINTEGER_32)((__UINTEGER_32)(sz__MJ + a__MSZ) & (__UINTEGER_32)(~ a__MSZ));
- ptr_table__IWZ=((__POINTER )(&(table_type[(t__PSZ)])));
- lab_type__KWZ=(__UINTEGER_32)(t__PSZ | 1);
- next__HWZ=((__POINTER )(NULL));
- result__JWZ=((__POINTER *)ptr_table__IWZ)[ 0];
- if ((result__JWZ == (void *)NULL)) {
- result__JWZ=new_lab__IQB(lab_type__KWZ);
- next__HWZ=(void *)((unsigned long)result__JWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LWZ)));
- ((__POINTER *)next__HWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__IWZ)[ 0]=next__HWZ;
- } else {
- next__HWZ=((__POINTER *)result__JWZ)[ 0];
- if ((next__HWZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JWZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__LWZ << 1)) <= 4096)) {
- next__HWZ=(void *)((unsigned long)result__JWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LWZ)));
- } else {
- next__HWZ=new_lab__IQB(lab_type__KWZ);
- };
- ((__POINTER *)next__HWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__IWZ)[ 0]=next__HWZ;
- } else {
- ((__POINTER *)result__JWZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__HWZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JWZ=next__HWZ;
- };
- };
- ptr__KJ=result__JWZ;
- };
- result__JJ=((__FAST_ARRAYoExpanded_INTEGERo *)ptr__KJ);
- *(result__JJ) = *(FAST_ARRAYoExpanded_INTEGERo__);
- };
- Self__WDC=((__FAST_ARRAYoExpanded_INTEGERo *)result__JJ);
- if (( 503 > Self__WDC->parent_arrayed_collection__4.capacity__AEC)) {
- sz__YMZ=((__UINTEGER_32 )(__INTEGER)( 503 * sizeof(__INTEGER)));
- result__XMZ=((__POINTER )(NULL));
- a__3MZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZMZ=(__UINTEGER_32)((__UINTEGER_32)(sz__YMZ + a__3MZ) & (__UINTEGER_32)(~ a__3MZ));
- new_size2__0MZ=(__UINTEGER_32)(new_size__ZMZ + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__0MZ <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__TSZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__USZ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0MZ + a__TSZ) & (__UINTEGER_32)(~ a__TSZ));
- ptr_table__NWZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__USZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__MWZ=((__POINTER )(NULL));
- result__OWZ=((__POINTER *)ptr_table__NWZ)[ 0];
- if ((result__OWZ == (void *)NULL)) {
- result__OWZ=new_lab__IQB(new_size__USZ);
- next__MWZ=(void *)((unsigned long)result__OWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__USZ)));
- ((__POINTER *)next__MWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__NWZ)[ 0]=next__MWZ;
- } else {
- next__MWZ=((__POINTER *)result__OWZ)[ 0];
- if ((next__MWZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OWZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__USZ << 1)) <= 4096)) {
- next__MWZ=(void *)((unsigned long)result__OWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__USZ)));
- } else {
- next__MWZ=new_lab__IQB(new_size__USZ);
- };
- ((__POINTER *)next__MWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__NWZ)[ 0]=next__MWZ;
- } else {
- ((__POINTER *)result__OWZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__MWZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OWZ=next__MWZ;
- };
- };
- ((__POINTER *)result__OWZ)[ 0]=((__POINTER ) 3);
- result__XMZ=(void *)((unsigned long)result__OWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__XMZ=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__3JG(new_size__ZMZ))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__IFE=((__INTEGER *)result__XMZ);
- Self__XPI= 502;
- while ((Self__XPI >= 0)) {
- Result__IFE[Self__XPI]= 0;
- Self__XPI=(__INTEGER)(Self__XPI - 1);
- };
- Self__WDC->parent_arrayed_collection__4.storage__QBC=Result__IFE;
- Self__WDC->parent_arrayed_collection__4.capacity__AEC= 503;
- __tmp__KEC=TRUE__;
- } else {
- __tmp__KEC=FALSE__;
- };
- if ((! __tmp__KEC)) {
- if (((Self__WDC->parent_arrayed_collection__4.capacity__AEC > 0) && (Self__WDC->parent_arrayed_collection__4.upper__WEC >= 0))) {
- __tmp__CFC=Self__WDC->parent_arrayed_collection__4.storage__QBC;
- __tmp__DFC=Self__WDC->parent_arrayed_collection__4.upper__WEC;
- Self__GRK=((__INTEGER *)__tmp__CFC);
- Self__CML= 0;
- while ((Self__CML <= __tmp__DFC)) {
- Self__GRK[Self__CML]= 0;
- Self__CML=(__INTEGER)(Self__CML + 1);
- };
- };
- };
- Self__WDC->parent_arrayed_collection__4.upper__WEC= 502;
- data__5=result__JJ;
- ARRAYED_COLLECTIONoSTRINGo__->storage__KDC=NULL;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__HJC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->upper__TJC= 0;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__0D=(*ARRAYED_COLLECTIONoSTRINGo__);
- STRING__->capacity__2XH= 0;
- STRING__->storage__FYH=NULL;
- STRING__->count__EVH= 0;
- arg__1G=NULL;
- new_count__3K=((__INTEGER )(arg_count));
- result__1P=NULL;
- ptr__2P=((__POINTER )(NULL));
- typ_id__BQ= 0;
- sz__4P=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__4P == 0)) {
- result__1P=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__BQ=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__3J=(__UINTEGER_32)(clone_allocation_size__3J + sz__4P);
- if ((typ_id__BQ == (__INTEGER)(- 1))) {
- a__ATZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BTZ=(__UINTEGER_32)((__UINTEGER_32)(sz__4P + a__ATZ) & (__UINTEGER_32)(~ a__ATZ));
- ptr_table__SWZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BTZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__RWZ=((__POINTER )(NULL));
- result__TWZ=((__POINTER *)ptr_table__SWZ)[ 0];
- if ((result__TWZ == (void *)NULL)) {
- result__TWZ=new_lab__IQB(new_size__BTZ);
- next__RWZ=(void *)((unsigned long)result__TWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BTZ)));
- ((__POINTER *)next__RWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__SWZ)[ 0]=next__RWZ;
- } else {
- next__RWZ=((__POINTER *)result__TWZ)[ 0];
- if ((next__RWZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TWZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__BTZ << 1)) <= 4096)) {
- next__RWZ=(void *)((unsigned long)result__TWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BTZ)));
- } else {
- next__RWZ=new_lab__IQB(new_size__BTZ);
- };
- ((__POINTER *)next__RWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__SWZ)[ 0]=next__RWZ;
- } else {
- ((__POINTER *)result__TWZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__RWZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TWZ=next__RWZ;
- };
- };
- ptr__2P=result__TWZ;
- } else {
- t__KTZ=((__UINTEGER_32 )typ_id__BQ);
- a__HTZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0WZ=(__UINTEGER_32)((__UINTEGER_32)(sz__4P + a__HTZ) & (__UINTEGER_32)(~ a__HTZ));
- ptr_table__XWZ=((__POINTER )(&(table_type[(t__KTZ)])));
- lab_type__ZWZ=(__UINTEGER_32)(t__KTZ | 1);
- next__WWZ=((__POINTER )(NULL));
- result__YWZ=((__POINTER *)ptr_table__XWZ)[ 0];
- if ((result__YWZ == (void *)NULL)) {
- result__YWZ=new_lab__IQB(lab_type__ZWZ);
- next__WWZ=(void *)((unsigned long)result__YWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0WZ)));
- ((__POINTER *)next__WWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__XWZ)[ 0]=next__WWZ;
- } else {
- next__WWZ=((__POINTER *)result__YWZ)[ 0];
- if ((next__WWZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YWZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__0WZ << 1)) <= 4096)) {
- next__WWZ=(void *)((unsigned long)result__YWZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0WZ)));
- } else {
- next__WWZ=new_lab__IQB(lab_type__ZWZ);
- };
- ((__POINTER *)next__WWZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__XWZ)[ 0]=next__WWZ;
- } else {
- ((__POINTER *)result__YWZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__WWZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YWZ=next__WWZ;
- };
- };
- ptr__2P=result__YWZ;
- };
- result__1P=((__FAST_ARRAYoSTRINGo *)ptr__2P);
- *(result__1P) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__4IC=((__FAST_ARRAYoSTRINGo *)result__1P);
- if ((Self__4IC->parent_arrayed_collection__0D.capacity__HJC < new_count__3K)) {
- Self__4IC->parent_arrayed_collection__0D.storage__KDC=create__4QG(new_count__3K);
- Self__4IC->parent_arrayed_collection__0D.capacity__HJC=new_count__3K;
- };
- Self__4IC->parent_arrayed_collection__0D.upper__TJC=(__INTEGER)(- 1);
- result__0G=result__1P;
- Self__EL= 0;
- limit_up__FL=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__EL <= limit_up__FL)) {
- arg__1G=((__CHARACTER *)(arg_vector[(Self__EL)]));
- Self__QXD=((__CHARACTER *)arg__1G);
- idx__2XD= 0;
- while ((! ((idx__2XD > 1024) || ('\0' == Self__QXD[idx__2XD])))) {
- idx__2XD=(__INTEGER)(idx__2XD + 1);
- };
- result__CME=NULL;
- ptr__DME=((__POINTER )(NULL));
- typ_id__IME= 0;
- sz__FME=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__FME == 0)) {
- result__CME=STRING__;
- } else {
- typ_id__IME=__STRING__;
- clone_allocation_size__3J=(__UINTEGER_32)(clone_allocation_size__3J + sz__FME);
- if ((typ_id__IME == (__INTEGER)(- 1))) {
- a__OTZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PTZ=(__UINTEGER_32)((__UINTEGER_32)(sz__FME + a__OTZ) & (__UINTEGER_32)(~ a__OTZ));
- ptr_table__2WZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PTZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__1WZ=((__POINTER )(NULL));
- result__3WZ=((__POINTER *)ptr_table__2WZ)[ 0];
- if ((result__3WZ == (void *)NULL)) {
- result__3WZ=new_lab__IQB(new_size__PTZ);
- next__1WZ=(void *)((unsigned long)result__3WZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PTZ)));
- ((__POINTER *)next__1WZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__2WZ)[ 0]=next__1WZ;
- } else {
- next__1WZ=((__POINTER *)result__3WZ)[ 0];
- if ((next__1WZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3WZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__PTZ << 1)) <= 4096)) {
- next__1WZ=(void *)((unsigned long)result__3WZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PTZ)));
- } else {
- next__1WZ=new_lab__IQB(new_size__PTZ);
- };
- ((__POINTER *)next__1WZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__2WZ)[ 0]=next__1WZ;
- } else {
- ((__POINTER *)result__3WZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__1WZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3WZ=next__1WZ;
- };
- };
- ptr__DME=result__3WZ;
- } else {
- t__YTZ=((__UINTEGER_32 )typ_id__IME);
- a__VTZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EXZ=(__UINTEGER_32)((__UINTEGER_32)(sz__FME + a__VTZ) & (__UINTEGER_32)(~ a__VTZ));
- ptr_table__BXZ=((__POINTER )(&(table_type[(t__YTZ)])));
- lab_type__DXZ=(__UINTEGER_32)(t__YTZ | 1);
- next__AXZ=((__POINTER )(NULL));
- result__CXZ=((__POINTER *)ptr_table__BXZ)[ 0];
- if ((result__CXZ == (void *)NULL)) {
- result__CXZ=new_lab__IQB(lab_type__DXZ);
- next__AXZ=(void *)((unsigned long)result__CXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EXZ)));
- ((__POINTER *)next__AXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__BXZ)[ 0]=next__AXZ;
- } else {
- next__AXZ=((__POINTER *)result__CXZ)[ 0];
- if ((next__AXZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CXZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__EXZ << 1)) <= 4096)) {
- next__AXZ=(void *)((unsigned long)result__CXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EXZ)));
- } else {
- next__AXZ=new_lab__IQB(lab_type__DXZ);
- };
- ((__POINTER *)next__AXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__BXZ)[ 0]=next__AXZ;
- } else {
- ((__POINTER *)result__CXZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__AXZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CXZ=next__AXZ;
- };
- };
- ptr__DME=result__CXZ;
- };
- result__CME=((__STRING *)ptr__DME);
- *(result__CME) = *(STRING__);
- };
- Self__NXH=((__STRING *)result__CME);
- if ((idx__2XD > 0)) {
- if ((Self__NXH->capacity__2XH < idx__2XD)) {
- Self__NXH->storage__FYH=create__MKM(idx__2XD);
- Self__NXH->capacity__2XH=idx__2XD;
- };
- };
- Self__NXH->count__EVH= 0;
- Self__0UH=((__STRING *)result__CME);
- p__1UH=arg__1G;
- i__2UH= 0;
- Self__0UH->count__EVH= 0;
- while ((((__CHARACTER *)p__1UH)[i__2UH] != '\0')) {
- __tmp__RVH=((__CHARACTER *)p__1UH)[i__2UH];
- new_capacity__SIM= 0;
- if ((Self__0UH->capacity__2XH <= Self__0UH->count__EVH)) {
- if ((Self__0UH->capacity__2XH == 0)) {
- Self__0UH->capacity__2XH= 32;
- Self__0UH->storage__FYH=create__MKM( 32);
- } else {
- new_capacity__SIM=(__INTEGER)(Self__0UH->capacity__2XH << 1);
- __tmp__KJM=Self__0UH->storage__FYH;
- __tmp__LJM=Self__0UH->capacity__2XH;
- new__MFP=((__CHARACTER *)realloc_dynamic__old_size__new_size__Y4I(((__POINTER )((__CHARACTER *)__tmp__KJM)),((__UINTEGER_32 )__tmp__LJM),((__UINTEGER_32 )new_capacity__SIM)));
- __tmp__5FP=(__INTEGER)(new_capacity__SIM - 1);
- Self__0FT=__tmp__LJM;
- while ((Self__0FT <= __tmp__5FP)) {
- new__MFP[Self__0FT]='\0';
- Self__0FT=(__INTEGER)(Self__0FT + 1);
- };
- Self__0UH->storage__FYH=new__MFP;
- Self__0UH->capacity__2XH=new_capacity__SIM;
- };
- };
- ((__CHARACTER *)Self__0UH->storage__FYH)[Self__0UH->count__EVH]=__tmp__RVH;
- Self__0UH->count__EVH=(__INTEGER)(Self__0UH->count__EVH + 1);
- i__2UH=(__INTEGER)(i__2UH + 1);
- };
- Self__TZD=((__FAST_ARRAYoSTRINGo *)result__0G);
- new_capacity__VZD= 0;
- if (((__INTEGER)(Self__TZD->parent_arrayed_collection__0D.upper__TJC + 1) <= (__INTEGER)(Self__TZD->parent_arrayed_collection__0D.capacity__HJC - 1))) {
- Self__TZD->parent_arrayed_collection__0D.upper__TJC=(__INTEGER)(Self__TZD->parent_arrayed_collection__0D.upper__TJC + 1);
- __tmp__D0D=TRUE__;
- } else {
- __tmp__D0D=FALSE__;
- };
- if ((! __tmp__D0D)) {
- if ((Self__TZD->parent_arrayed_collection__0D.capacity__HJC == 0)) {
- Self__TZD->parent_arrayed_collection__0D.storage__KDC=create__4QG( 2);
- Self__TZD->parent_arrayed_collection__0D.capacity__HJC= 2;
- Self__TZD->parent_arrayed_collection__0D.upper__TJC= 0;
- } else {
- new_capacity__VZD=(__INTEGER)(Self__TZD->parent_arrayed_collection__0D.capacity__HJC << 1);
- __tmp__Y0D=Self__TZD->parent_arrayed_collection__0D.storage__KDC;
- __tmp__Z0D=Self__TZD->parent_arrayed_collection__0D.capacity__HJC;
- new__RBI=((void **)realloc_dynamic__old_size__new_size__Y4I(((__POINTER )((void **)__tmp__Y0D)),((__UINTEGER_32 )(__INTEGER)(__tmp__Z0D * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__VZD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__ECI=(__INTEGER)(new_capacity__VZD - 1);
- Self__OMP=__tmp__Z0D;
- while ((Self__OMP <= __tmp__ECI)) {
- new__RBI[Self__OMP]=NULL;
- Self__OMP=(__INTEGER)(Self__OMP + 1);
- };
- Self__TZD->parent_arrayed_collection__0D.storage__KDC=new__RBI;
- Self__TZD->parent_arrayed_collection__0D.capacity__HJC=new_capacity__VZD;
- Self__TZD->parent_arrayed_collection__0D.upper__TJC=(__INTEGER)(Self__TZD->parent_arrayed_collection__0D.upper__TJC + 1);
- };
- };
- ((void **)Self__TZD->parent_arrayed_collection__0D.storage__KDC)[Self__TZD->parent_arrayed_collection__0D.upper__TJC]=result__CME;
- Self__EL=(__INTEGER)(Self__EL + 1);
- };
- ARRAYED_COLLECTIONoExpanded_MUTEXo__->storage__RCC=NULL;
- ARRAYED_COLLECTIONoExpanded_MUTEXo__->capacity__UGC= 0;
- ARRAYED_COLLECTIONoExpanded_MUTEXo__->upper__KHC= 0;
- FAST_ARRAYoExpanded_MUTEXo__->parent_arrayed_collection__VB=(*ARRAYED_COLLECTIONoExpanded_MUTEXo__);
- result__EM=NULL;
- ptr__FM=((__POINTER )(NULL));
- typ_id__KM= 0;
- sz__HM=((__UINTEGER_32 )sizeof(__FAST_ARRAYoExpanded_MUTEXo));
- if ((sz__HM == 0)) {
- result__EM=FAST_ARRAYoExpanded_MUTEXo__;
- } else {
- typ_id__KM=__FAST_ARRAYoExpanded_MUTEXo__;
- clone_allocation_size__3J=(__UINTEGER_32)(clone_allocation_size__3J + sz__HM);
- if ((typ_id__KM == (__INTEGER)(- 1))) {
- a__IUZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JUZ=(__UINTEGER_32)((__UINTEGER_32)(sz__HM + a__IUZ) & (__UINTEGER_32)(~ a__IUZ));
- ptr_table__GXZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JUZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FXZ=((__POINTER )(NULL));
- result__HXZ=((__POINTER *)ptr_table__GXZ)[ 0];
- if ((result__HXZ == (void *)NULL)) {
- result__HXZ=new_lab__IQB(new_size__JUZ);
- next__FXZ=(void *)((unsigned long)result__HXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JUZ)));
- ((__POINTER *)next__FXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__GXZ)[ 0]=next__FXZ;
- } else {
- next__FXZ=((__POINTER *)result__HXZ)[ 0];
- if ((next__FXZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HXZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__JUZ << 1)) <= 4096)) {
- next__FXZ=(void *)((unsigned long)result__HXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JUZ)));
- } else {
- next__FXZ=new_lab__IQB(new_size__JUZ);
- };
- ((__POINTER *)next__FXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__GXZ)[ 0]=next__FXZ;
- } else {
- ((__POINTER *)result__HXZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__FXZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HXZ=next__FXZ;
- };
- };
- ptr__FM=result__HXZ;
- } else {
- t__SUZ=((__UINTEGER_32 )typ_id__KM);
- a__PUZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OXZ=(__UINTEGER_32)((__UINTEGER_32)(sz__HM + a__PUZ) & (__UINTEGER_32)(~ a__PUZ));
- ptr_table__LXZ=((__POINTER )(&(table_type[(t__SUZ)])));
- lab_type__NXZ=(__UINTEGER_32)(t__SUZ | 1);
- next__KXZ=((__POINTER )(NULL));
- result__MXZ=((__POINTER *)ptr_table__LXZ)[ 0];
- if ((result__MXZ == (void *)NULL)) {
- result__MXZ=new_lab__IQB(lab_type__NXZ);
- next__KXZ=(void *)((unsigned long)result__MXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OXZ)));
- ((__POINTER *)next__KXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__LXZ)[ 0]=next__KXZ;
- } else {
- next__KXZ=((__POINTER *)result__MXZ)[ 0];
- if ((next__KXZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MXZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__OXZ << 1)) <= 4096)) {
- next__KXZ=(void *)((unsigned long)result__MXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OXZ)));
- } else {
- next__KXZ=new_lab__IQB(lab_type__NXZ);
- };
- ((__POINTER *)next__KXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__LXZ)[ 0]=next__KXZ;
- } else {
- ((__POINTER *)result__MXZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__KXZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MXZ=next__KXZ;
- };
- };
- ptr__FM=result__MXZ;
- };
- result__EM=((__FAST_ARRAYoExpanded_MUTEXo *)ptr__FM);
- *(result__EM) = *(FAST_ARRAYoExpanded_MUTEXo__);
- };
- Self__KGC=((__FAST_ARRAYoExpanded_MUTEXo *)result__EM);
- if (( 503 > Self__KGC->parent_arrayed_collection__VB.capacity__UGC)) {
- sz__JNZ=((__UINTEGER_32 )(__INTEGER)( 503 * sizeof(__MUTEX)));
- result__INZ=((__POINTER )(NULL));
- a__ONZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KNZ=(__UINTEGER_32)((__UINTEGER_32)(sz__JNZ + a__ONZ) & (__UINTEGER_32)(~ a__ONZ));
- new_size2__LNZ=(__UINTEGER_32)(new_size__KNZ + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__LNZ <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__WUZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XUZ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LNZ + a__WUZ) & (__UINTEGER_32)(~ a__WUZ));
- ptr_table__QXZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XUZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PXZ=((__POINTER )(NULL));
- result__RXZ=((__POINTER *)ptr_table__QXZ)[ 0];
- if ((result__RXZ == (void *)NULL)) {
- result__RXZ=new_lab__IQB(new_size__XUZ);
- next__PXZ=(void *)((unsigned long)result__RXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XUZ)));
- ((__POINTER *)next__PXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__QXZ)[ 0]=next__PXZ;
- } else {
- next__PXZ=((__POINTER *)result__RXZ)[ 0];
- if ((next__PXZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RXZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__XUZ << 1)) <= 4096)) {
- next__PXZ=(void *)((unsigned long)result__RXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XUZ)));
- } else {
- next__PXZ=new_lab__IQB(new_size__XUZ);
- };
- ((__POINTER *)next__PXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__QXZ)[ 0]=next__PXZ;
- } else {
- ((__POINTER *)result__RXZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__PXZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RXZ=next__PXZ;
- };
- };
- ((__POINTER *)result__RXZ)[ 0]=((__POINTER ) 3);
- result__INZ=(void *)((unsigned long)result__RXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__INZ=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__3JG(new_size__KNZ))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__UHE=((__MUTEX *)result__INZ);
- v__EXH=((__MUTEX )(MUTEX__));
- Self__4QI= 502;
- while ((Self__4QI >= 0)) {
- Result__UHE[Self__4QI]=v__EXH;
- Self__4QI=(__INTEGER)(Self__4QI - 1);
- };
- Self__KGC->parent_arrayed_collection__VB.storage__RCC=Result__UHE;
- Self__KGC->parent_arrayed_collection__VB.capacity__UGC= 503;
- __tmp__4GC=TRUE__;
- } else {
- __tmp__4GC=FALSE__;
- };
- if ((! __tmp__4GC)) {
- if (((Self__KGC->parent_arrayed_collection__VB.capacity__UGC > 0) && (Self__KGC->parent_arrayed_collection__VB.upper__KHC >= 0))) {
- __tmp__WHC=Self__KGC->parent_arrayed_collection__VB.storage__RCC;
- __tmp__XHC=Self__KGC->parent_arrayed_collection__VB.upper__KHC;
- Self__TSK=((__MUTEX *)__tmp__WHC);
- v__ETK=((__MUTEX )(MUTEX__));
- Self__KOL= 0;
- while ((Self__KOL <= __tmp__XHC)) {
- Self__TSK[Self__KOL]=v__ETK;
- Self__KOL=(__INTEGER)(Self__KOL + 1);
- };
- };
- };
- Self__KGC->parent_arrayed_collection__VB.upper__KHC= 502;
- mutex__WB=result__EM;
- ARRAYED_COLLECTIONoExpanded_STACKo__->storage__WUH=NULL;
- ARRAYED_COLLECTIONoExpanded_STACKo__->capacity__HZH= 0;
- ARRAYED_COLLECTIONoExpanded_STACKo__->upper__3ZH= 0;
- FAST_ARRAYoExpanded_STACKo__->parent_arrayed_collection__AC=(*ARRAYED_COLLECTIONoExpanded_STACKo__);
- result__YXE=NULL;
- ptr__ZXE=((__POINTER )(NULL));
- typ_id__4XE= 0;
- sz__1XE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoExpanded_STACKo));
- if ((sz__1XE == 0)) {
- result__YXE=FAST_ARRAYoExpanded_STACKo__;
- } else {
- typ_id__4XE=__FAST_ARRAYoExpanded_STACKo__;
- clone_allocation_size__3J=(__UINTEGER_32)(clone_allocation_size__3J + sz__1XE);
- if ((typ_id__4XE == (__INTEGER)(- 1))) {
- a__DVZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EVZ=(__UINTEGER_32)((__UINTEGER_32)(sz__1XE + a__DVZ) & (__UINTEGER_32)(~ a__DVZ));
- ptr_table__VXZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EVZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__UXZ=((__POINTER )(NULL));
- result__WXZ=((__POINTER *)ptr_table__VXZ)[ 0];
- if ((result__WXZ == (void *)NULL)) {
- result__WXZ=new_lab__IQB(new_size__EVZ);
- next__UXZ=(void *)((unsigned long)result__WXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EVZ)));
- ((__POINTER *)next__UXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__VXZ)[ 0]=next__UXZ;
- } else {
- next__UXZ=((__POINTER *)result__WXZ)[ 0];
- if ((next__UXZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WXZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__EVZ << 1)) <= 4096)) {
- next__UXZ=(void *)((unsigned long)result__WXZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EVZ)));
- } else {
- next__UXZ=new_lab__IQB(new_size__EVZ);
- };
- ((__POINTER *)next__UXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__VXZ)[ 0]=next__UXZ;
- } else {
- ((__POINTER *)result__WXZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__UXZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WXZ=next__UXZ;
- };
- };
- ptr__ZXE=result__WXZ;
- } else {
- t__R0=((__UINTEGER_32 )typ_id__4XE);
- a__OOZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3XZ=(__UINTEGER_32)((__UINTEGER_32)(sz__1XE + a__OOZ) & (__UINTEGER_32)(~ a__OOZ));
- ptr_table__0XZ=((__POINTER )(&(table_type[(t__R0)])));
- lab_type__2XZ=(__UINTEGER_32)(t__R0 | 1);
- next__ZXZ=((__POINTER )(NULL));
- result__1XZ=((__POINTER *)ptr_table__0XZ)[ 0];
- if ((result__1XZ == (void *)NULL)) {
- result__1XZ=new_lab__IQB(lab_type__2XZ);
- next__ZXZ=(void *)((unsigned long)result__1XZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XZ)));
- ((__POINTER *)next__ZXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__0XZ)[ 0]=next__ZXZ;
- } else {
- next__ZXZ=((__POINTER *)result__1XZ)[ 0];
- if ((next__ZXZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1XZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__3XZ << 1)) <= 4096)) {
- next__ZXZ=(void *)((unsigned long)result__1XZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XZ)));
- } else {
- next__ZXZ=new_lab__IQB(lab_type__2XZ);
- };
- ((__POINTER *)next__ZXZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__0XZ)[ 0]=next__ZXZ;
- } else {
- ((__POINTER *)result__1XZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZXZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1XZ=next__ZXZ;
- };
- };
- ptr__ZXE=result__1XZ;
- };
- result__YXE=((__FAST_ARRAYoExpanded_STACKo *)ptr__ZXE);
- *(result__YXE) = *(FAST_ARRAYoExpanded_STACKo__);
- };
- Self__3YH=((__FAST_ARRAYoExpanded_STACKo *)result__YXE);
- if (( 503 > Self__3YH->parent_arrayed_collection__AC.capacity__HZH)) {
- sz__G1E=((__UINTEGER_32 )(__INTEGER)( 503 * sizeof(__STACK)));
- result__O1E=((__POINTER )(NULL));
- a__SNZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__I1E=(__UINTEGER_32)((__UINTEGER_32)(sz__G1E + a__SNZ) & (__UINTEGER_32)(~ a__SNZ));
- new_size2__L1E=(__UINTEGER_32)(new_size__I1E + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__L1E <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__IOZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IZ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__L1E + a__IOZ) & (__UINTEGER_32)(~ a__IOZ));
- ptr_table__VAB=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__0AB=((__POINTER )(NULL));
- result__YAB=((__POINTER *)ptr_table__VAB)[ 0];
- if ((result__YAB == (void *)NULL)) {
- result__YAB=new_lab__IQB(new_size__IZ);
- next__0AB=(void *)((unsigned long)result__YAB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IZ)));
- ((__POINTER *)next__0AB)[ 0]=NULL;
- ((__POINTER *)ptr_table__VAB)[ 0]=next__0AB;
- } else {
- next__0AB=((__POINTER *)result__YAB)[ 0];
- if ((next__0AB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YAB - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__IZ << 1)) <= 4096)) {
- next__0AB=(void *)((unsigned long)result__YAB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IZ)));
- } else {
- next__0AB=new_lab__IQB(new_size__IZ);
- };
- ((__POINTER *)next__0AB)[ 0]=NULL;
- ((__POINTER *)ptr_table__VAB)[ 0]=next__0AB;
- } else {
- ((__POINTER *)result__YAB)[ 0]=(void *)((unsigned long)((__POINTER *)next__0AB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YAB=next__0AB;
- };
- };
- ((__POINTER *)result__YAB)[ 0]=((__POINTER ) 3);
- result__O1E=(void *)((unsigned long)result__YAB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__O1E=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__3JG(new_size__I1E))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__RQL=((__STACK *)result__O1E);
- v__GAP=((__STACK )(STACK__));
- Self__VNP= 502;
- while ((Self__VNP >= 0)) {
- Result__RQL[Self__VNP]=v__GAP;
- Self__VNP=(__INTEGER)(Self__VNP - 1);
- };
- Self__3YH->parent_arrayed_collection__AC.storage__WUH=Result__RQL;
- Self__3YH->parent_arrayed_collection__AC.capacity__HZH= 503;
- __tmp__RZH=TRUE__;
- } else {
- __tmp__RZH=FALSE__;
- };
- if ((! __tmp__RZH)) {
- if (((Self__3YH->parent_arrayed_collection__AC.capacity__HZH > 0) && (Self__3YH->parent_arrayed_collection__AC.upper__3ZH >= 0))) {
- __tmp__J0H=Self__3YH->parent_arrayed_collection__AC.storage__WUH;
- __tmp__K0H=Self__3YH->parent_arrayed_collection__AC.upper__3ZH;
- Self__SJR=((__STACK *)__tmp__J0H);
- v__DKR=((__STACK )(STACK__));
- Self__OES= 0;
- while ((Self__OES <= __tmp__K0H)) {
- Self__SJR[Self__OES]=v__DKR;
- Self__OES=(__INTEGER)(Self__OES + 1);
- };
- };
- };
- Self__3YH->parent_arrayed_collection__AC.upper__3ZH= 502;
- Self__0TO=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__1P)->parent_arrayed_collection__0D.storage__KDC)[ 1]);
- state__3TO= 0;
- cc__4TO='\0';
- negative__5TO=FALSE__;
- result__AUO= 0;
- i__2TO= 1;
- __tmp__NVZ=Self__0TO->count__EVH;
- __tmp__OVZ=Self__0TO->storage__FYH;
- __tmp__PVZ=Self__0TO->count__EVH;
- while ((i__2TO <= __tmp__NVZ)) {
- cc__4TO=((__CHARACTER *)__tmp__OVZ)[(__INTEGER)(i__2TO - 1)];
- if ((state__3TO == 0)) {
- if ((((((((cc__4TO == ' ') || (cc__4TO == '\t')) || (cc__4TO == '\n')) || (cc__4TO == '\r')) || (cc__4TO == '\0')) || (cc__4TO == '\f')) || (cc__4TO == '\v'))) {
- __tmp__MVO=TRUE__;
- } else {
- result__AIW=(cc__4TO == '+');
- if (result__AIW) {
- state__3TO= 1;
- };
- __tmp__MVO=result__AIW;
- };
- if ((! __tmp__MVO)) {
- if ((cc__4TO == '-')) {
- negative__5TO=TRUE__;
- state__3TO= 1;
- } else {
- result__AUO=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__4TO)) - 48);
- state__3TO= 2;
- };
- };
- __tmp__5VO=TRUE__;
- } else {
- __tmp__5VO=FALSE__;
- };
- if (__tmp__5VO) {
- __tmp__UWO=TRUE__;
- } else {
- result__UOU=(state__3TO == 1);
- if (result__UOU) {
- result__AUO=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__4TO)) - 48);
- if (negative__5TO) {
- result__AUO=(__INTEGER)(- result__AUO);
- };
- state__3TO= 2;
- };
- __tmp__UWO=result__UOU;
- };
- if (__tmp__UWO) {
- __tmp__1XO=TRUE__;
- } else {
- result__GPU=(state__3TO == 2);
- if (result__GPU) {
- result__YOO=FALSE__;
- if ((((__INTEGER_8 )cc__4TO) >= ((__INTEGER_8 )'0'))) {
- result__YOO=(((__INTEGER_8 )cc__4TO) <= ((__INTEGER_8 )'9'));
- };
- if (result__YOO) {
- if (negative__5TO) {
- result__AUO=(__INTEGER)((__INTEGER)( 10 * result__AUO) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__4TO)) - 48));
- } else {
- result__AUO=(__INTEGER)((__INTEGER)( 10 * result__AUO) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__4TO)) - 48));
- };
- } else {
- state__3TO= 3;
- };
- };
- __tmp__1XO=result__GPU;
- };
- if ((! __tmp__1XO)) {
- if ((state__3TO == 3)) {
- i__2TO=__tmp__PVZ;
- };
- };
- i__2TO=(__INTEGER)(i__2TO + 1);
- };
- ((__INTEGER *)((__FAST_ARRAYoExpanded_INTEGERo *)result__JJ)->parent_arrayed_collection__4.storage__QBC)[ 0]=result__AUO;
- pthread_attr_init(&stack_attr);
- Self__JE= 0;
- __tmp__QVZ=((__FAST_ARRAYoExpanded_MUTEXo *)result__EM)->parent_arrayed_collection__VB.storage__RCC;
- __tmp__RVZ=((__FAST_ARRAYoExpanded_MUTEXo *)result__EM)->parent_arrayed_collection__VB.storage__RCC;
- __tmp__SVZ=((__FAST_ARRAYoExpanded_STACKo *)result__YXE)->parent_arrayed_collection__AC.storage__WUH;
- while ((Self__JE <= 502)) {
- pthread_mutex_init(&(((__MUTEX *)__tmp__QVZ)[Self__JE]), NULL);
- pthread_mutex_lock(&(((__MUTEX *)__tmp__RVZ)[Self__JE]));
- pthread_attr_setstack(&stack_attr, &(((__STACK *)__tmp__SVZ)[Self__JE]), sizeof(struct stack));
- pthread_create(&(THREAD__), &stack_attr, thread, (void*)(Self__JE));
- Self__JE=(__INTEGER)(Self__JE + 1);
- };
- pthread_mutex_unlock(&(((__MUTEX *)((__FAST_ARRAYoExpanded_MUTEXo *)result__EM)->parent_arrayed_collection__VB.storage__RCC)[ 0]));
- pthread_join((THREAD__), NULL);
- exit(( 0));
- thread(((__POINTER ) 0));
- thread(((__POINTER ) 1));
- return( 0);
-}
-
-static __POINTER new_lab__IQB(__UINTEGER_32 t__KQB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__MQB,pv__TQB;
- __MEMORY *blc__PQB,*prev__QQB,*Self__EZY,*Self__OMZ,*prev__PMZ;
- __MEMORY *next__QMZ;
- __POINTER result__RQB;
- __BOOLEAN __tmp__TRB;
- idx__MQB= 0;
- blc__PQB=NULL;
- prev__QQB=NULL;
- pv__TQB= 0;
- while_do__MVB:
- {
- if ((idx__MQB < nb_page__0QB)) {
- blc__PQB=((__MEMORY *)(last_block[(idx__MQB)]));
- __tmp__TRB=(((__UINTEGER_32)(((__MEMORY *)blc__PQB)->size_and_id__IK & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__PQB)->size_and_id__IK & 1) == 1));
- } else {
- __tmp__TRB=FALSE__;
- };
- if (__tmp__TRB) {
- idx__MQB=(__UINTEGER_32)(idx__MQB + 1);
- goto while_do__MVB;
- };
- };
- if ((idx__MQB >= nb_page__0QB)) {
- blc__PQB=new_page__PQD();
- };
- ((__MEMORY *)blc__PQB)->size_and_id__IK=(__UINTEGER_32)(blc__PQB->size_and_id__IK - 4096);
- Self__EZY=((__MEMORY *)blc__PQB);
- result__RQB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__EZY) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__EZY->size_and_id__IK & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__PQB)->size_and_id__IK & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__OMZ=((__MEMORY *)blc__PQB);
- prev__PMZ=Self__OMZ->previous_free__KK;
- next__QMZ=Self__OMZ->next_free__JK;
- if (((void *)prev__PMZ == (void *)NULL)) {
- first_free__ALG=next__QMZ;
- } else {
- ((__MEMORY *)prev__PMZ)->next_free__JK=next__QMZ;
- };
- if (((void *)next__QMZ != (void *)NULL)) {
- ((__MEMORY *)next__QMZ)->previous_free__KK=prev__PMZ;
- };
- pv__TQB=blc__PQB->previous_linear__HK;
- if ((pv__TQB != 4294967295LU)) {
- prev__QQB=((__MEMORY *)(void *)((unsigned long)begin_memory__PCB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__TQB))));
- ((__MEMORY *)prev__QQB)->size_and_id__IK=(__UINTEGER_32)((__UINTEGER_32)(prev__QQB->size_and_id__IK + blc__PQB->size_and_id__IK) + 8);
- last_block[(idx__MQB)] = (prev__QQB);
- };
- };
- ((__POINTER *)result__RQB)[ 0]=((__POINTER )t__KQB);
- return((void *)((unsigned long)result__RQB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static __MEMORY* search__3JG(__UINTEGER_32 new_size__5JG)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__BKG,*Self__HYZ,*new__GYZ,*prev__IYZ,*next__JYZ;
- __MEMORY *Self__NYZ,*Self__PYZ;
- __UINTEGER_32 idx__OYZ,siz__KYZ,new_size__MYZ;
- result__BKG=first_free__ALG;
- while ((((void *)result__BKG != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__BKG)->size_and_id__IK & 4294967292LU) < new_size__5JG))) {
- result__BKG=result__BKG->next_free__JK;
- };
- if (((void *)result__BKG == (void *)NULL)) {
- result__BKG=new_page__PQD();
- };
- Self__HYZ=((__MEMORY *)result__BKG);
- idx__OYZ=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__BKG)) - (unsigned long)begin_memory__PCB)))) >> 26);
- new__GYZ=NULL;
- prev__IYZ=Self__HYZ->previous_free__KK;
- next__JYZ=Self__HYZ->next_free__JK;
- if (((void *)prev__IYZ == (void *)NULL)) {
- first_free__ALG=next__JYZ;
- } else {
- ((__MEMORY *)prev__IYZ)->next_free__JK=next__JYZ;
- };
- if (((void *)next__JYZ != (void *)NULL)) {
- ((__MEMORY *)next__JYZ)->previous_free__KK=prev__IYZ;
- };
- siz__KYZ=Self__HYZ->size_and_id__IK;
- new_size__MYZ=(__UINTEGER_32)(siz__KYZ - new_size__5JG);
- if ((new_size__MYZ > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__KYZ=new_size__5JG;
- new__GYZ=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__HYZ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JG))));
- ((__MEMORY *)new__GYZ)->previous_linear__HK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__HYZ) - (unsigned long)begin_memory__PCB))));
- ((__MEMORY *)new__GYZ)->size_and_id__IK=(__UINTEGER_32)(new_size__MYZ - 8);
- Self__NYZ=((__MEMORY *)new__GYZ);
- Self__NYZ->next_free__JK=first_free__ALG;
- Self__NYZ->previous_free__KK=NULL;
- if (((void *)first_free__ALG != (void *)NULL)) {
- ((__MEMORY *)first_free__ALG)->previous_free__KK=Self__NYZ;
- };
- first_free__ALG=Self__NYZ;
- if (((__UINTEGER_32)(((__MEMORY *)new__GYZ)->size_and_id__IK & 2) != 0)) {
- last_block[(idx__OYZ)] = (new__GYZ);
- } else {
- Self__PYZ=((__MEMORY *)new__GYZ);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PYZ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__PYZ->size_and_id__IK & 4294967292LU)))))->previous_linear__HK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__GYZ)) - (unsigned long)begin_memory__PCB))));
- };
- };
- Self__HYZ->size_and_id__IK=(__UINTEGER_32)(siz__KYZ | 1);
- return(result__BKG);
-}
-
-static void** create__4QG(__INTEGER nb_elements__ARG)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__WKZ,a__SOZ,new_size__XKZ,new_size2__YKZ,a__XOZ;
- __UINTEGER_32 new_size__YOZ;
- __POINTER result__VKZ,ptr_table__UVZ,next__TVZ,result__VVZ;
- __INTEGER Self__WGJ;
- void **Result__E3G;
- sz__WKZ=((__UINTEGER_32 )(__INTEGER)(nb_elements__ARG * ((__INTEGER )(sizeof(void *)))));
- result__VKZ=((__POINTER )(NULL));
- a__SOZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XKZ=(__UINTEGER_32)((__UINTEGER_32)(sz__WKZ + a__SOZ) & (__UINTEGER_32)(~ a__SOZ));
- new_size2__YKZ=(__UINTEGER_32)(new_size__XKZ + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__YKZ <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__XOZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YOZ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__YKZ + a__XOZ) & (__UINTEGER_32)(~ a__XOZ));
- ptr_table__UVZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YOZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TVZ=((__POINTER )(NULL));
- result__VVZ=((__POINTER *)ptr_table__UVZ)[ 0];
- if ((result__VVZ == (void *)NULL)) {
- result__VVZ=new_lab__IQB(new_size__YOZ);
- next__TVZ=(void *)((unsigned long)result__VVZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YOZ)));
- ((__POINTER *)next__TVZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__UVZ)[ 0]=next__TVZ;
- } else {
- next__TVZ=((__POINTER *)result__VVZ)[ 0];
- if ((next__TVZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VVZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__YOZ << 1)) <= 4096)) {
- next__TVZ=(void *)((unsigned long)result__VVZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YOZ)));
- } else {
- next__TVZ=new_lab__IQB(new_size__YOZ);
- };
- ((__POINTER *)next__TVZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__UVZ)[ 0]=next__TVZ;
- } else {
- ((__POINTER *)result__VVZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__TVZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VVZ=next__TVZ;
- };
- };
- ((__POINTER *)result__VVZ)[ 0]=((__POINTER ) 3);
- result__VKZ=(void *)((unsigned long)result__VVZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__VKZ=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__3JG(new_size__XKZ))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__E3G=((void **)result__VKZ);
- Self__WGJ=(__INTEGER)(nb_elements__ARG - 1);
- while ((Self__WGJ >= 0)) {
- Result__E3G[Self__WGJ]=NULL;
- Self__WGJ=(__INTEGER)(Self__WGJ - 1);
- };
- return(Result__E3G);
-}
-
-static __CHARACTER* create__MKM(__INTEGER nb_elements__OKM)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__0KZ,a__APZ,new_size__1KZ,new_size2__2KZ,a__FPZ;
- __UINTEGER_32 new_size__GPZ;
- __POINTER result__ZKZ,ptr_table__ZVZ,next__YVZ,result__0VZ;
- __INTEGER Self__XQP;
- __CHARACTER *Result__A5M;
- sz__0KZ=((__UINTEGER_32 )nb_elements__OKM);
- result__ZKZ=((__POINTER )(NULL));
- a__APZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1KZ=(__UINTEGER_32)((__UINTEGER_32)(sz__0KZ + a__APZ) & (__UINTEGER_32)(~ a__APZ));
- new_size2__2KZ=(__UINTEGER_32)(new_size__1KZ + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__2KZ <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__FPZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GPZ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__2KZ + a__FPZ) & (__UINTEGER_32)(~ a__FPZ));
- ptr_table__ZVZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GPZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__YVZ=((__POINTER )(NULL));
- result__0VZ=((__POINTER *)ptr_table__ZVZ)[ 0];
- if ((result__0VZ == (void *)NULL)) {
- result__0VZ=new_lab__IQB(new_size__GPZ);
- next__YVZ=(void *)((unsigned long)result__0VZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GPZ)));
- ((__POINTER *)next__YVZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZVZ)[ 0]=next__YVZ;
- } else {
- next__YVZ=((__POINTER *)result__0VZ)[ 0];
- if ((next__YVZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0VZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__GPZ << 1)) <= 4096)) {
- next__YVZ=(void *)((unsigned long)result__0VZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GPZ)));
- } else {
- next__YVZ=new_lab__IQB(new_size__GPZ);
- };
- ((__POINTER *)next__YVZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZVZ)[ 0]=next__YVZ;
- } else {
- ((__POINTER *)result__0VZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__YVZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0VZ=next__YVZ;
- };
- };
- ((__POINTER *)result__0VZ)[ 0]=((__POINTER ) 3);
- result__ZKZ=(void *)((unsigned long)result__0VZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__ZKZ=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__3JG(new_size__1KZ))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__A5M=((__CHARACTER *)result__ZKZ);
- Self__XQP=(__INTEGER)(nb_elements__OKM - 1);
- while ((Self__XQP >= 0)) {
- Result__A5M[Self__XQP]='\0';
- Self__XQP=(__INTEGER)(Self__XQP - 1);
- };
- return(Result__A5M);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__Y4I(__POINTER p__04I,__UINTEGER_32 old_sz__14I,__UINTEGER_32 new_sz__24I)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__H5I,*Self__5YL,*nxt__DZL,*result__EZL,*Self__YCI;
- __MEMORY *new__BDI,*prev__QDJ,*next__RDJ,*Self__YVH,*Self__OVY;
- __MEMORY *next__U2N,*new_free__T2N,*prev__SQZ,*next__TQZ;
- __POINTER result__I5I,result__3KZ,ptr_table__4VZ,next__3VZ;
- __POINTER result__5VZ,p__VXL,last__EUM,src__PWL,dst__QWL;
- __UINTEGER_32 a__OPZ,old_size__44I,old_size2__B5I,a__SPZ;
- __UINTEGER_32 new_size__E5I,a__WPZ,new_size__5KZ,new_size2__ALZ;
- __UINTEGER_32 a__1PZ,new_size__2PZ,a__S4,__tmp__ZAJ,sz__IZL;
- __UINTEGER_32 old_size__FZL,siz__1CI,new_size__4CI,prev__V2N;
- __UINTEGER_32 new_size__Y2N;
- __INTEGER siz__5XZ,Self__EYZ,siz__UWL,Self__XRM;
- __POINTER *na_src__BYZ,*na_dst__DYZ,*na_src__SWL,*na_dst__TWL;
- mem__H5I=NULL;
- result__I5I=((__POINTER )(NULL));
- a__OPZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__44I=(__UINTEGER_32)((__UINTEGER_32)(old_sz__14I + a__OPZ) & (__UINTEGER_32)(~ a__OPZ));
- old_size2__B5I=(__UINTEGER_32)(old_size__44I + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__SPZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__E5I=(__UINTEGER_32)((__UINTEGER_32)(new_sz__24I + a__SPZ) & (__UINTEGER_32)(~ a__SPZ));
- if ((old_size2__B5I <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__3KZ=((__POINTER )(NULL));
- a__WPZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5KZ=(__UINTEGER_32)((__UINTEGER_32)(new_size__E5I + a__WPZ) & (__UINTEGER_32)(~ a__WPZ));
- new_size2__ALZ=(__UINTEGER_32)(new_size__5KZ + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__ALZ <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__1PZ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2PZ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ALZ + a__1PZ) & (__UINTEGER_32)(~ a__1PZ));
- ptr_table__4VZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2PZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__3VZ=((__POINTER )(NULL));
- result__5VZ=((__POINTER *)ptr_table__4VZ)[ 0];
- if ((result__5VZ == (void *)NULL)) {
- result__5VZ=new_lab__IQB(new_size__2PZ);
- next__3VZ=(void *)((unsigned long)result__5VZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2PZ)));
- ((__POINTER *)next__3VZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__4VZ)[ 0]=next__3VZ;
- } else {
- next__3VZ=((__POINTER *)result__5VZ)[ 0];
- if ((next__3VZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5VZ - (unsigned long)begin_memory__PCB)))) & 4095) + (__UINTEGER_32)(new_size__2PZ << 1)) <= 4096)) {
- next__3VZ=(void *)((unsigned long)result__5VZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2PZ)));
- } else {
- next__3VZ=new_lab__IQB(new_size__2PZ);
- };
- ((__POINTER *)next__3VZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__4VZ)[ 0]=next__3VZ;
- } else {
- ((__POINTER *)result__5VZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__3VZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5VZ=next__3VZ;
- };
- };
- ((__POINTER *)result__5VZ)[ 0]=((__POINTER ) 3);
- result__3KZ=(void *)((unsigned long)result__5VZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__3KZ=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__3JG(new_size__5KZ))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__I5I=result__3KZ;
- siz__5XZ=((__INTEGER )old_size__44I);
- siz__5XZ=(__INTEGER)(siz__5XZ / ((__INTEGER )(sizeof(void *))));
- na_src__BYZ=((__POINTER *)p__04I);
- na_dst__DYZ=((__POINTER *)result__3KZ);
- Self__EYZ=(__INTEGER)(siz__5XZ - 1);
- while ((Self__EYZ >= 0)) {
- na_dst__DYZ[Self__EYZ]=na_src__BYZ[Self__EYZ];
- Self__EYZ=(__INTEGER)(Self__EYZ - 1);
- };
- p__VXL=(void *)((unsigned long)p__04I - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__S4=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__EUM=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__B5I + a__S4) & (__UINTEGER_32)(~ a__S4)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__VXL)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__EUM)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__EUM)[ 0]=p__VXL;
- } else {
- mem__H5I=((__MEMORY *)(void *)((unsigned long)p__04I - (unsigned long)((__POINTER ) 8)));
- __tmp__ZAJ=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__04I - (unsigned long)begin_memory__PCB)))) >> 26);
- Self__5YL=((__MEMORY *)mem__H5I);
- nxt__DZL=NULL;
- result__EZL=NULL;
- sz__IZL= 0;
- old_size__FZL=(__UINTEGER_32)(Self__5YL->size_and_id__IK & 4294967292LU);
- if ((new_size__E5I > old_size__FZL)) {
- if ((! ((__UINTEGER_32)(Self__5YL->size_and_id__IK & 2) != 0))) {
- nxt__DZL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YL->size_and_id__IK & 4294967292LU)))));
- sz__IZL=(__UINTEGER_32)((__UINTEGER_32)(new_size__E5I - old_size__FZL) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__DZL)->size_and_id__IK & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__DZL)->size_and_id__IK & 4294967292LU) >= sz__IZL))) {
- Self__YCI=((__MEMORY *)nxt__DZL);
- new__BDI=NULL;
- prev__QDJ=Self__YCI->previous_free__KK;
- next__RDJ=Self__YCI->next_free__JK;
- if (((void *)prev__QDJ == (void *)NULL)) {
- first_free__ALG=next__RDJ;
- } else {
- ((__MEMORY *)prev__QDJ)->next_free__JK=next__RDJ;
- };
- if (((void *)next__RDJ != (void *)NULL)) {
- ((__MEMORY *)next__RDJ)->previous_free__KK=prev__QDJ;
- };
- siz__1CI=Self__YCI->size_and_id__IK;
- new_size__4CI=(__UINTEGER_32)(siz__1CI - sz__IZL);
- if ((new_size__4CI > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__1CI=sz__IZL;
- new__BDI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YCI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__IZL))));
- ((__MEMORY *)new__BDI)->previous_linear__HK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__YCI) - (unsigned long)begin_memory__PCB))));
- ((__MEMORY *)new__BDI)->size_and_id__IK=(__UINTEGER_32)(new_size__4CI - 8);
- Self__YVH=((__MEMORY *)new__BDI);
- Self__YVH->next_free__JK=first_free__ALG;
- Self__YVH->previous_free__KK=NULL;
- if (((void *)first_free__ALG != (void *)NULL)) {
- ((__MEMORY *)first_free__ALG)->previous_free__KK=Self__YVH;
- };
- first_free__ALG=Self__YVH;
- if (((__UINTEGER_32)(((__MEMORY *)new__BDI)->size_and_id__IK & 2) != 0)) {
- last_block[(__tmp__ZAJ)] = (new__BDI);
- } else {
- Self__OVY=((__MEMORY *)new__BDI);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OVY) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__OVY->size_and_id__IK & 4294967292LU)))))->previous_linear__HK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__BDI)) - (unsigned long)begin_memory__PCB))));
- };
- };
- Self__YCI->size_and_id__IK=(__UINTEGER_32)(siz__1CI | 1);
- Self__5YL->size_and_id__IK=(__UINTEGER_32)((__UINTEGER_32)(Self__5YL->size_and_id__IK + (__UINTEGER_32)(nxt__DZL->size_and_id__IK & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__5YL->size_and_id__IK & 2) != 0)) {
- last_block[(__tmp__ZAJ)] = (Self__5YL);
- } else {
- nxt__DZL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YL->size_and_id__IK & 4294967292LU)))));
- ((__MEMORY *)nxt__DZL)->previous_linear__HK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__5YL) - (unsigned long)begin_memory__PCB))));
- };
- result__EZL=Self__5YL;
- };
- };
- if (((void *)result__EZL == (void *)NULL)) {
- result__EZL=search__3JG(new_size__E5I);
- src__PWL=(void *)((unsigned long)((__POINTER )Self__5YL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__QWL=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__EZL)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__UWL=((__INTEGER )old_size__FZL);
- siz__UWL=(__INTEGER)(siz__UWL / ((__INTEGER )(sizeof(void *))));
- na_src__SWL=((__POINTER *)src__PWL);
- na_dst__TWL=((__POINTER *)dst__QWL);
- Self__XRM=(__INTEGER)(siz__UWL - 1);
- while ((Self__XRM >= 0)) {
- na_dst__TWL[Self__XRM]=na_src__SWL[Self__XRM];
- Self__XRM=(__INTEGER)(Self__XRM - 1);
- };
- prev__V2N=Self__5YL->previous_linear__HK;
- next__U2N=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YL->size_and_id__IK & 4294967292LU)))));
- new_free__T2N=((__MEMORY *)(void *)((unsigned long)begin_memory__PCB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__V2N))));
- new_size__Y2N=(__UINTEGER_32)(Self__5YL->size_and_id__IK & 4294967294LU);
- if (((prev__V2N == 4294967295LU) || ((__UINTEGER_32)(new_free__T2N->size_and_id__IK & 1) != 0))) {
- new_free__T2N=Self__5YL;
- Self__5YL->next_free__JK=first_free__ALG;
- Self__5YL->previous_free__KK=NULL;
- if (((void *)first_free__ALG != (void *)NULL)) {
- ((__MEMORY *)first_free__ALG)->previous_free__KK=Self__5YL;
- };
- first_free__ALG=Self__5YL;
- } else {
- new_size__Y2N=(__UINTEGER_32)((__UINTEGER_32)(new_size__Y2N + new_free__T2N->size_and_id__IK) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__5YL->size_and_id__IK & 2) != 0)) && ((__UINTEGER_32)(next__U2N->size_and_id__IK & 1) == 0))) {
- new_size__Y2N=(__UINTEGER_32)((__UINTEGER_32)(new_size__Y2N + next__U2N->size_and_id__IK) + 8);
- prev__SQZ=next__U2N->previous_free__KK;
- next__TQZ=next__U2N->next_free__JK;
- if (((void *)prev__SQZ == (void *)NULL)) {
- first_free__ALG=next__TQZ;
- } else {
- ((__MEMORY *)prev__SQZ)->next_free__JK=next__TQZ;
- };
- if (((void *)next__TQZ != (void *)NULL)) {
- ((__MEMORY *)next__TQZ)->previous_free__KK=prev__SQZ;
- };
- };
- new_free__T2N->size_and_id__IK=new_size__Y2N;
- if (((__UINTEGER_32)(new_free__T2N->size_and_id__IK & 2) != 0)) {
- last_block[(__tmp__ZAJ)] = (new_free__T2N);
- } else {
- next__U2N=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YL->size_and_id__IK & 4294967292LU)))));
- next__U2N->previous_linear__HK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__T2N) - (unsigned long)begin_memory__PCB))));
- };
- };
- } else {
- result__EZL=Self__5YL;
- };
- result__I5I=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__EZL)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__I5I);
-}
-
-__POINTER thread(__POINTER num__HF)
-// ({POINTER}) With resultNo recursive, No inlinable.
-{
- __INTEGER token__LF,l__JF,r__KF,Self__B2;
- __BOOLEAN __tmp__I2;
- token__LF= 0;
- l__JF=((__INTEGER )num__HF);
- r__KF=(__INTEGER)((__INTEGER)(l__JF + 1) % 503);
- while (((__BOOLEAN )((1)))) {
- pthread_mutex_lock(&(((__MUTEX *)((__FAST_ARRAYoExpanded_MUTEXo *)mutex__WB)->parent_arrayed_collection__VB.storage__RCC)[l__JF]));
- token__LF=((__INTEGER *)((__FAST_ARRAYoExpanded_INTEGERo *)data__5)->parent_arrayed_collection__4.storage__QBC)[l__JF];
- if ((token__LF != 0)) {
- ((__INTEGER *)((__FAST_ARRAYoExpanded_INTEGERo *)data__5)->parent_arrayed_collection__4.storage__QBC)[r__KF]=(__INTEGER)(token__LF - 1);
- pthread_mutex_unlock(&(((__MUTEX *)((__FAST_ARRAYoExpanded_MUTEXo *)mutex__WB)->parent_arrayed_collection__VB.storage__RCC)[r__KF]));
- } else {
- Self__B2=(__INTEGER)(l__JF + 1);
- if ((Self__B2 == 0)) {
- fputc((int)('0'),stdout);
- __tmp__I2=TRUE__;
- } else {
- __tmp__I2=FALSE__;
- };
- if ((! __tmp__I2)) {
- if ((Self__B2 < 0)) {
- fputc((int)('-'),stdout);
- print_positif__CMK((__INTEGER)(- Self__B2));
- } else {
- print_positif__CMK(Self__B2);
- };
- };
- fputc((int)('\n'),stdout);
- exit(( 0));
- };
- };
- return(NULL);
-}
-
-static __MEMORY* new_page__PQD()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__JLF;
- __UINTEGER_32 cap__GLF,old_size__SQD;
- __INTEGER Self__2FG,limit_up__3FG;
- __MEMORY *block__YQD;
- __CHARACTER *__tmp__1RZ;
- if ((capacity_max__ZQD == 0)) {
- mem__JLF=((__POINTER )(NULL));
- cap__GLF= 33554432;
- do {
- cap__GLF=(__UINTEGER_32)(cap__GLF << 1);
- mem__JLF=((__POINTER )(malloc((cap__GLF))));
- if ((mem__JLF != (void *)NULL)) {
- free((mem__JLF));
- };
- } while ((! ((mem__JLF == (void *)NULL) || (cap__GLF == 2147483648LU))));
- if ((mem__JLF == (void *)NULL)) {
- cap__GLF=(__UINTEGER_32)(cap__GLF >> 1);
- };
- capacity_max__ZQD=cap__GLF;
- begin_memory__PCB=((__POINTER )(malloc((cap__GLF))));
- };
- old_size__SQD=(__UINTEGER_32)(nb_page__0QB << 26);
- nb_page__0QB=(__UINTEGER_32)(nb_page__0QB + 1);
- if (((__UINTEGER_32)(old_size__SQD + 67108864) > capacity_max__ZQD)) {
- Self__2FG= 1;
- limit_up__3FG=((__STRING_CONSTANT *)(&__string_1))->count__XFG;
- __tmp__1RZ=((__STRING_CONSTANT *)(&__string_1))->storage__GMH;
- while ((Self__2FG <= limit_up__3FG)) {
- fputc((int)(((__CHARACTER *)__tmp__1RZ)[(__INTEGER)(Self__2FG - 1)]),stdout);
- Self__2FG=(__INTEGER)(Self__2FG + 1);
- };
- exit(( 1));
- };
- block__YQD=((__MEMORY *)(void *)((unsigned long)begin_memory__PCB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__SQD))));
- block__YQD->previous_linear__HK= 4294967295LU;
- block__YQD->size_and_id__IK= 67108858;
- block__YQD->next_free__JK=first_free__ALG;
- block__YQD->previous_free__KK=NULL;
- if (((void *)first_free__ALG != (void *)NULL)) {
- ((__MEMORY *)first_free__ALG)->previous_free__KK=block__YQD;
- };
- first_free__ALG=block__YQD;
- last_block[((__UINTEGER_32)(nb_page__0QB - 1))] = (block__YQD);
- return(block__YQD);
-}
-
-static void print_positif__CMK(__INTEGER Self__DMK)
-// ({INTEGER}) VoidRecursive, No inlinable.
-{
- __INTEGER val__MMK;
- __CHARACTER Result__RGL;
- Result__RGL=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__DMK % 10)) + ((__INTEGER_8 )'0')))));
- val__MMK=(__INTEGER)(Self__DMK / 10);
- if ((val__MMK != 0)) {
- print_positif__CMK(val__MMK);
- };
- fputc((int)(Result__RGL),stdout);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/OLD/thread-ring/threadring_c.c b/example/shootout/OLD/thread-ring/threadring_c.c
deleted file mode 100755
index 192acb5..0000000
--- a/example/shootout/OLD/thread-ring/threadring_c.c
+++ /dev/null
@@ -1,95 +0,0 @@
-/*
-* The Computer Language Benchmarks Game
-* http://shootout.alioth.debian.org/
-
-* contributed by Premysl Hruby
-*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <pthread.h>
-#include <string.h>
-#include <limits.h>
-
-#define THREADS (503)
-
-
-struct stack {
- char x[PTHREAD_STACK_MIN];
-};
-
-
-/* staticaly initialize mutex[0] mutex */
-static pthread_mutex_t mutex[THREADS];
-static int data[THREADS];
-static struct stack stacks[THREADS];
-/* stacks must be defined staticaly, or my i386 box run of virtual memory for this
- * process while creating thread +- #400 */
-
-static void* thread(void *num)
-{
- int l = (int)num;
- int r = (l+1) % THREADS;
- int token;
-
- while(1) {
- pthread_mutex_lock(mutex + l);
- token = data[l];
- if (token) {
- data[r] = token - 1;
- pthread_mutex_unlock(mutex + r);
- }
- else {
- printf("%i\n", l+1);
- exit(0);
- }
- }
-}
-
-
-void* calloc(unsigned int i,unsigned int s)
-{ char *res;
- printf("calloc %d\n",i*s);
- res=realloc(NULL,i*s);
- memset(res,0,i*s);
- return res;
-}
-
-void* malloc(unsigned int i)
-{
- printf("malloc %d\n",i);
- exit(0);
- return NULL;
-}
-/*
-void* realloc(void *old,size_t i)
-{
- printf("Tondu du slip\n");
- exit(0);
- return NULL;
-}
-*/
-
-int main(int argc, char **argv)
-{
- int i;
- pthread_t cthread;
- pthread_attr_t stack_attr;
-
- if (argc != 2)
- exit(255);
- data[0] = atoi(argv[1]);
-
- pthread_attr_init(&stack_attr);
-
- for (i = 0; i < THREADS; i++) {
- pthread_mutex_init(mutex + i, NULL);
- pthread_mutex_lock(mutex + i);
-
- pthread_attr_setstack(&stack_attr, &stacks[i], sizeof(struct stack));
- pthread_create(&cthread, NULL /*&stack_attr*/, thread, (void*)i);
- }
-
- pthread_mutex_unlock(mutex + 0);
- pthread_join(cthread, NULL);
-}
diff --git a/example/shootout/TOP/recursive/old.c b/example/shootout/TOP/recursive/old.c
deleted file mode 100755
index 9b244cc..0000000
--- a/example/shootout/TOP/recursive/old.c
+++ /dev/null
@@ -1,156 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// INTEGER
-typedef int __INTEGER;
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-
-void *table_type[0];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __INTEGER ack__FB(__INTEGER x__HB,__INTEGER y__IB);
-static void print_positif__FI(__INTEGER Self__GI);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __INTEGER Self__QC;
- __BOOLEAN __tmp__XC;
- arg_count = argc;
- arg_vector = argv;
- Self__QC=ack__FB( 3, 4);
- if ((Self__QC == 0)) {
- fputc((int)('0'),stdout);
- __tmp__XC=TRUE__;
- } else {
- __tmp__XC=FALSE__;
- };
- if ((! __tmp__XC)) {
- if ((Self__QC < 0)) {
- fputc((int)('-'),stdout);
- print_positif__FI((__INTEGER)(- Self__QC));
- } else {
- print_positif__FI(Self__QC);
- };
- };
- fputc((int)('\n'),stdout);
- fputc((int)('\n'),stdout);
- return( 0);
-}
-
-static __INTEGER ack__FB(__INTEGER x__HB,__INTEGER y__IB)
-// ({INTEGER},{INTEGER}) With resultRecursive, No inlinable.
-{
- __INTEGER result__KB;
- __BOOLEAN __tmp__SB;
- result__KB= 0;
- if ((x__HB == 0)) {
- result__KB=(__INTEGER)(y__IB + 1);
- __tmp__SB=TRUE__;
- } else {
- __tmp__SB=FALSE__;
- };
- if ((! __tmp__SB)) {
- if ((y__IB == 0)) {
- result__KB=ack__FB((__INTEGER)(x__HB - 1), 1);
- } else {
- result__KB=ack__FB((__INTEGER)(x__HB - 1),ack__FB(x__HB,(__INTEGER)(y__IB - 1)));
- };
- };
- return(result__KB);
-}
-
-static void print_positif__FI(__INTEGER Self__GI)
-// ({INTEGER}) VoidRecursive, No inlinable.
-{
- __INTEGER val__PI;
- __CHARACTER Result__4J;
- Result__4J=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__GI % 10)) + ((__INTEGER_8 )'0')))));
- val__PI=(__INTEGER)(Self__GI / 10);
- if ((val__PI != 0)) {
- print_positif__FI(val__PI);
- };
- fputc((int)(Result__4J),stdout);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/TOP/recursive/recursive b/example/shootout/TOP/recursive/recursive
deleted file mode 100755
index ac5f43b..0000000
Binary files a/example/shootout/TOP/recursive/recursive and /dev/null differ
diff --git a/example/shootout/TOP/recursive/recursive.c b/example/shootout/TOP/recursive/recursive.c
deleted file mode 100755
index 363c33a..0000000
--- a/example/shootout/TOP/recursive/recursive.c
+++ /dev/null
@@ -1,163 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <sys/syscall.h>
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// INTEGER__L
-typedef int __INTEGER__L;
-
-// RECURSIVE
-#define __RECURSIVE__B__ 0
-typedef struct RECURSIVE__B_struct __RECURSIVE__B;
-struct RECURSIVE__B_struct {
- void *Nothing;
-};
-// TRUE__C
-#define TRUE__C__ 1
-
-// FALSE__J
-#define FALSE__J__ 0
-
-// BOOLEAN__D
-typedef char __BOOLEAN__D;
-
-// CHARACTER__4
-typedef char __CHARACTER__4;
-
-// INTEGER_8__TL
-typedef signed char __INTEGER_8__TL;
-
-
-void *table_type[1];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-__RECURSIVE__B RECURSIVE__B_;
-#define RECURSIVE__B__ (&RECURSIVE__B_)
-
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Source code
-static __INTEGER__L ack__YB(__RECURSIVE__B *Self__ZB,__INTEGER__L x__0B,__INTEGER__L y__1B);
-static void print_positif__QJ(__INTEGER__L Self__RJ);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __INTEGER__L __tmp__VB;
- __BOOLEAN__D __tmp__LD;
- arg_count = argc;
- arg_vector = argv;
-#ifdef _PTHREAD_H
- pthread_key_create(¤t_thread, NULL);
- pthread_attr_init(&thread_attr);
- /*pthread_attr_setdetachstate(&thread_attr,PTHREAD_CREATE_DETACHED);*/
-#endif
- ;
- __tmp__VB=ack__YB(RECURSIVE__B__, 3, 4);
- if ((__tmp__VB == 0)) {
- fputc((int)('0'),stdout);
- __tmp__LD=TRUE__C__;
- } else {
- __tmp__LD=FALSE__J__;
- };
- if ((! __tmp__LD)) {
- if ((__tmp__VB < 0)) {
- fputc((int)('-'),stdout);
- print_positif__QJ((__INTEGER__L)(- __tmp__VB));
- } else {
- print_positif__QJ(__tmp__VB);
- };
- };
- fputc((int)('\n'),stdout);
- fputc((int)('\n'),stdout);
- return(0);
-}
-
-
-static __INTEGER__L ack__YB(__RECURSIVE__B *Self__ZB,__INTEGER__L x__0B,__INTEGER__L y__1B)
-// ({RECURSIVE__B},{INTEGER__L},{INTEGER__L}) With result Recursive, No inlinable.
-{
- __INTEGER__L result__3B,__tmp__TC,__tmp__ZC,__tmp__4C,__tmp__AD;
- __INTEGER__L Result__2B;
- __BOOLEAN__D __tmp__FC;
- result__3B= 0;
- if ((x__0B == 0)) {
- result__3B=(__INTEGER__L)(y__1B + 1);
- __tmp__FC=TRUE__C__;
- } else {
- __tmp__FC=FALSE__J__;
- };
- if ((! __tmp__FC)) {
- if ((y__1B == 0)) {
- __tmp__TC=ack__YB(Self__ZB,(__INTEGER__L)(x__0B - 1), 1);
- result__3B=__tmp__TC;
- } else {
- __tmp__ZC=(__INTEGER__L)(x__0B - 1);
- __tmp__4C=ack__YB(Self__ZB,x__0B,(__INTEGER__L)(y__1B - 1));
- __tmp__AD=ack__YB(Self__ZB,__tmp__ZC,__tmp__4C);
- result__3B=__tmp__AD;
- };
- };
- Result__2B=result__3B;
- return(Result__2B);
-}
-
-static void print_positif__QJ(__INTEGER__L Self__RJ)
-// ({INTEGER__L}) Void Recursive, No inlinable.
-{
- __INTEGER__L __tmp__4J;
- __CHARACTER__4 Result__LL;
- Result__LL=((__CHARACTER__4 )(((__INTEGER_8__TL)(((__INTEGER_8__TL )(__INTEGER__L)(Self__RJ % 10)) + ((__INTEGER_8__TL )'0')))));
- __tmp__4J=(__INTEGER__L)(Self__RJ / 10);
- if ((__tmp__4J != 0)) {
- print_positif__QJ(__tmp__4J);
- };
- fputc((int)(Result__LL),stdout);
-}
diff --git a/example/shootout/TOP/recursive/recursive_c.c b/example/shootout/TOP/recursive/recursive_c.c
deleted file mode 100755
index dd4057a..0000000
--- a/example/shootout/TOP/recursive/recursive_c.c
+++ /dev/null
@@ -1,55 +0,0 @@
-/*
- * The Computer Language Shootout
- * http://shootout.alioth.debian.org/
-
- * contributed by bearophile, Jan 24 2006
- * modified by wolfjb, Feb 28 2007
- */
-#include <stdio.h>
-
-int ack(int x, int y) {
- if (x == 0) {
- return y + 1;
- }
-
- return ack(x - 1, ((y | 0) ? ack(x, y - 1) : 1));
-}
-
-int fib(int n) {
- if (n < 2) {
- return 1;
- }
- return fib(n - 2) + fib(n - 1);
-}
-
-double fibFP(double n) {
- if (n < 2.0) {
- return 1.0;
- }
- return fibFP(n - 2.0) + fibFP(n - 1.0);
-}
-
-int tak(int x, int y, int z) {
- if (y < x) {
- return tak(tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y));
- }
- return z;
-}
-
-double takFP(double x, double y, double z) {
- if (y < x)
- return takFP( takFP(x-1.0, y, z), takFP(y-1.0, z, x), takFP(z-1.0, x, y) );
- return z;
-}
-
-int main(int argc, char ** argv) {
- int n = atoi(argv[1]) - 1;
-
- printf("Ack(3,%d): %d\n", n + 1, ack(3, n+1));
- printf("Fib(%.1f): %.1f\n", 28.0 + n, fibFP(28.0+n));
- printf("Tak(%d,%d,%d): %d\n", 3 * n, 2 * n, n, tak(3*n, 2*n, n));
- printf("Fib(3): %d\n", fib(3));
- printf("Tak(3.0,2.0,1.0): %.1f\n", takFP(3.0, 2.0, 1.0));
-
- return 0;
-}
diff --git a/example/shootout/TOP/startup/startup b/example/shootout/TOP/startup/startup
deleted file mode 100755
index 834038d..0000000
Binary files a/example/shootout/TOP/startup/startup and /dev/null differ
diff --git a/example/shootout/TOP/startup/startup.c b/example/shootout/TOP/startup/startup.c
deleted file mode 100755
index e3e3470..0000000
--- a/example/shootout/TOP/startup/startup.c
+++ /dev/null
@@ -1,73 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <sys/syscall.h>
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-
-void *table_type[0];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Source code
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- arg_count = argc;
- arg_vector = argv;
-#ifdef _PTHREAD_H
- pthread_key_create(¤t_thread, NULL);
- pthread_attr_init(&thread_attr);
- /*pthread_attr_setdetachstate(&thread_attr,PTHREAD_CREATE_DETACHED);*/
-#endif
- ;
- syscall(__NR_write, 1,("hello world\n"),( 12));
- return(0);
-}
-
diff --git a/example/shootout/TOP/startup/startup_c.c b/example/shootout/TOP/startup/startup_c.c
deleted file mode 100755
index 465f8ef..0000000
--- a/example/shootout/TOP/startup/startup_c.c
+++ /dev/null
@@ -1,12 +0,0 @@
-/* -*- mode: c -*-
- * $Id: hello-gcc.code,v 1.41 2007-05-19 00:42:42 igouy-guest Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-#include <stdio.h>
-
-int main() {
- fputs("hello world\n", stdout);
- return(0);
-}
-
diff --git a/example/shootout/TOP/thread-ring/threadring b/example/shootout/TOP/thread-ring/threadring
deleted file mode 100755
index ac426ba..0000000
Binary files a/example/shootout/TOP/thread-ring/threadring and /dev/null differ
diff --git a/example/shootout/TOP/thread-ring/threadring.c b/example/shootout/TOP/thread-ring/threadring.c
deleted file mode 100755
index 37ddfe3..0000000
--- a/example/shootout/TOP/thread-ring/threadring.c
+++ /dev/null
@@ -1,1254 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-#include <pthread.h>
-#include <limits.h>
-
-void print_char(char car);
-int die_with_code(int code);
-
-static pthread_key_t current_thread;
-static pthread_attr_t thread_attr;
-pthread_t c_thread;
-int thread_counter;
-
-static char thread_stack[512][PTHREAD_STACK_MIN];
-
-typedef struct lith_object_struct lith_object;
-typedef struct lith_node_struct lith_node;
-struct lith_node_struct {
- pthread_mutex_t mutex;
- lith_node *next;
- lith_object *object;
-};
-struct lith_object_struct {
- unsigned long __id; // Just for late binding.
- lith_node *first;
- lith_node *last;
- lith_object *(*procedure)(lith_object *obj,pthread_mutex_t *mutex);
- pthread_mutex_t mutex;
-};
-struct {
- lith_node *first;
- pthread_mutex_t mutex;
-} pool;
-
-void *thread_life(void *ptr)
-{ lith_node node,*n;
- lith_object *obj,*new_obj;
-
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&node.mutex);
- node.object = (lith_object *)ptr;
- do {
- // Append fifo object.
- obj = node.object;
- node.next = NULL;
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- pthread_mutex_unlock(&node.mutex);
- } else {
- n->next = &node;
- };
- obj->last = &node;
- pthread_setspecific(current_thread,(void *)obj);
- // Run procedure.
- new_obj = obj->procedure(obj,&node.mutex);
- // Remove fifo object.
- pthread_mutex_lock(&obj->mutex);
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- if (new_obj != NULL) {
- node.object = new_obj;
- } else {
- // Add in pool.
- pthread_mutex_lock(&pool.mutex);
- node.next = pool.first;
- pool.first = &node;
- pthread_mutex_unlock(&pool.mutex);
- // Sleep.
- pthread_mutex_lock(&node.mutex);
- };
- } while (1);
- return NULL;
-};
-
-void run_procedure(lith_object *obj)
-{ lith_node *node;
- char *msg="COP Error!\n";
- // Pool manager.
- pthread_mutex_lock(&pool.mutex);
- node = pool.first;
- if (node != NULL) {
- pool.first = node->next;
- };
- pthread_mutex_unlock(&pool.mutex);
- // Run thread.
- if (node == NULL) {
- pthread_attr_setstack(&thread_attr, thread_stack[thread_counter++],PTHREAD_STACK_MIN);
- if ((thread_counter>512) || pthread_create(&c_thread,&thread_attr, thread_life, (void *)obj)) {
- while (*msg != 0) print_char(*(msg++));
- die_with_code(1);
- };
- } else {
- node->object = obj;
- pthread_mutex_unlock(&node->mutex);
- };
-};
-
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM
-#include <time.h>
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <sys/syscall.h>
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER__DB
-typedef void * __POINTER__DB;
-
-// UINTEGER_32__1F
-typedef unsigned long __UINTEGER_32__1F;
-
-// INTEGER__L
-typedef int __INTEGER__L;
-
-// CHARACTER__4
-typedef char __CHARACTER__4;
-
-// MEMORY
-#define __MEMORY__YF__ 0
-typedef struct MEMORY__YF_struct __MEMORY__YF;
-struct MEMORY__YF_struct {
- volatile __POINTER__DB previous_linear__0F;
- volatile __UINTEGER_32__1F size_and_id__3F;
- __MEMORY__YF *next_free__4F;
- __MEMORY__YF *previous_free__5F;
-} __attribute__ ((packed));
-// THREAD
-#define __THREAD__RB__ 1
-typedef struct THREAD__RB_struct __THREAD__RB;
-struct THREAD__RB_struct {
- lith_object thread;
- int param_0;
- __THREAD__RB *next__1G;
- __INTEGER__L index__2G;
-};
-// OBJECT
-#define __OBJECT__E__ 2
-typedef struct OBJECT__E_struct __OBJECT__E;
-struct OBJECT__E_struct {
- void *Nothing;
-};
-// STRING
-#define __STRING__FC__ 3
-typedef struct STRING__FC_struct __STRING__FC;
-struct STRING__FC_struct {
- __INTEGER__L count__0FL;
- __INTEGER__L capacity__ELL;
- __CHARACTER__4 *storage__NLL;
-};
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__YC__ 4
-typedef struct ARRAYED_COLLECTIONoSTRINGo__YC_struct __ARRAYED_COLLECTIONoSTRINGo__YC;
-struct ARRAYED_COLLECTIONoSTRINGo__YC_struct {
- __INTEGER__L capacity__RZC;
- __INTEGER__L upper__3ZC;
- void **storage__DZC;
-};
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__XC__ 5
-typedef struct FAST_ARRAYoSTRINGo__XC_struct __FAST_ARRAYoSTRINGo__XC;
-struct FAST_ARRAYoSTRINGo__XC_struct {
- __ARRAYED_COLLECTIONoSTRINGo__YC parent_arrayed_collection__5C;
-};
-// TRUE__C
-#define TRUE__C__ 1
-
-// FALSE__J
-#define FALSE__J__ 0
-
-// INTEGER_8__OQ
-typedef signed char __INTEGER_8__OQ;
-
-// BOOLEAN__D
-typedef char __BOOLEAN__D;
-
-
-void *table_type[6];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-__POINTER__DB begin_memory__PZ;
-__UINTEGER_32__1F nb_page__DEB;
-__POINTER__DB capacity_max__ZLD;
-__MEMORY__YF *first_free__JDF;
-__MEMORY__YF MEMORY__YF_;
-#define MEMORY__YF__ (&MEMORY__YF_)
-
-__THREAD__RB THREAD__RB_;
-#define THREAD__RB__ (&THREAD__RB_)
-
-__POINTER__DB clone_allocation_size__OF;
-__OBJECT__E OBJECT__E_;
-#define OBJECT__E__ (&OBJECT__E_)
-
-__STRING__FC STRING__FC_;
-#define STRING__FC__ (&STRING__FC_)
-
-__ARRAYED_COLLECTIONoSTRINGo__YC ARRAYED_COLLECTIONoSTRINGo__YC_;
-#define ARRAYED_COLLECTIONoSTRINGo__YC__ (&ARRAYED_COLLECTIONoSTRINGo__YC_)
-
-__FAST_ARRAYoSTRINGo__XC FAST_ARRAYoSTRINGo__XC_;
-#define FAST_ARRAYoSTRINGo__XC__ (&FAST_ARRAYoSTRINGo__XC_)
-
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Source code
-static __POINTER__DB micro_alloc__table__lab__UX(__POINTER__DB new_size__WX,__POINTER__DB ptr_table__XX,__UINTEGER_32__1F lab_type__YX);
-static void** create__WRD(__INTEGER__L nb_elements__YRD);
-static __CHARACTER__4* create__ATM(__INTEGER__L nb_elements__CTM);
-static __POINTER__DB realloc_dynamic__old_size__new_size__XQG(__POINTER__DB p__ZQG,__UINTEGER_32__1F old_sz__0QG,__UINTEGER_32__1F new_sz__1QG);
-lith_object *COP_set_next__QH(lith_object *obj,pthread_mutex_t *mutex);
-lith_object *COP_set_data__TH(lith_object *obj,pthread_mutex_t *mutex);
-static __POINTER__DB new_lab__SDB(__UINTEGER_32__1F t__UDB);
-static __MEMORY__YF* search__GCF(__POINTER__DB new_size__ICF);
-static void copy__to__size__IOI(__POINTER__DB src__KOI,__POINTER__DB dst__LOI,__UINTEGER_32__1F sz__MOI);
-static void to_busy__index__ODG(__MEMORY__YF *Self__PDG,__POINTER__DB sz__QDG,__UINTEGER_32__1F idx__RDG);
-static void print_positif__SSD(__INTEGER__L Self__TSD);
-static __MEMORY__YF* new_page__RLD();
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __INTEGER__L __tmp__VD,typ_id__FOB,__tmp__YD,Self__HI,idx__TFC;
- __INTEGER__L typ_id__4RJ,i__3JL,__tmp__TSM,__tmp__VSM,__tmp__4BN;
- __INTEGER__L Self__SIO,__tmp__L3C,__tmp__N3C,__tmp__GAG,Self__W4J;
- __INTEGER__L typ_id__XHT,Self__DH,typ_id__AF,state__LFL,result__OFL;
- __INTEGER__L i__KFL,__tmp__TDT,__tmp__VDT,__tmp__ZHL;
- __POINTER__DB ptr__BOB,__tmp__HOB,__tmp__BGT,__tmp__CGT,__tmp__FGT;
- __POINTER__DB __tmp__PGT,__tmp__VGT,ptr__0RJ,__tmp__ASJ,__tmp__XDT;
- __POINTER__DB __tmp__5P,__tmp__US,__tmp__2DT,__tmp__1U,__tmp__2BN;
- __POINTER__DB __tmp__EAG,ptr__WHT,__tmp__YHT,__tmp__ZHT,__tmp__0HT;
- __POINTER__DB __tmp__1HT,__tmp__3HT,__tmp__5HT,ptr__2E,__tmp__CF;
- __POINTER__DB __tmp__5ET,__tmp__AFT,__tmp__DFT,__tmp__HGT,__tmp__NGT;
- __UINTEGER_32__1F t__SGT,t__RT,t__2HT,t__KGT;
- __STRING__FC *result__ZRJ,*__tmp__CMR,*__tmp__CD;
- __THREAD__RB *result__VHT,*__tmp__VB,*first__TB,*result__1E,*__tmp__BC;
- __CHARACTER__4 *arg__TD,*__tmp__5VS,*__tmp__MLL,*p__2JL,*__tmp__MSM;
- __CHARACTER__4 *__tmp__USM,*__tmp__3BN,*__tmp__UDT;
- __FAST_ARRAYoSTRINGo__XC *result__AOB,*result__SD;
- void **__tmp__ZZC,**__tmp__E3C,**__tmp__M3C,**__tmp__FAG;
- __CHARACTER__4 __tmp__QKL,__tmp__DGL;
- __BOOLEAN__D __tmp__Y2C,negative__NFL,__tmp__1GL,result__XFP;
- __BOOLEAN__D __tmp__OHL,__tmp__CIL,result__4WN,__tmp__JJL,result__RXN;
- __BOOLEAN__D result__CVF;
- arg_count = argc;
- arg_vector = argv;
-#ifdef _PTHREAD_H
- pthread_key_create(¤t_thread, NULL);
- pthread_attr_init(&thread_attr);
- /*pthread_attr_setdetachstate(&thread_attr,PTHREAD_CREATE_DETACHED);*/
-#endif
- ;
- // Pre thread.
- { lith_node node,*n;
- lith_object *obj;
- void *thread_save;
- obj = &((THREAD__RB__)->thread);
- node.next = NULL;
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&obj->mutex);
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- } else {
- n->next = &node;
- pthread_mutex_lock(&node.mutex);
- };
- obj->last = &node;
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock (&node.mutex);
- thread_save=pthread_getspecific(current_thread);
- pthread_setspecific(current_thread,THREAD__RB__);
- pthread_mutex_lock(&(obj->mutex));
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- pthread_setspecific(current_thread,thread_save);
- };
- clone_allocation_size__OF=((__POINTER__DB )(NULL));
- nb_page__DEB= 0;
- MEMORY__YF__->size_and_id__3F= 0;
- capacity_max__ZLD=((__POINTER__DB )(NULL));
- begin_memory__PZ=((__POINTER__DB )(NULL));
- MEMORY__YF__->previous_linear__0F=((__POINTER__DB )(NULL));
- FAST_ARRAYoSTRINGo__XC__->parent_arrayed_collection__5C=(*ARRAYED_COLLECTIONoSTRINGo__YC__);
- arg__TD=NULL;
- __tmp__VD=((__INTEGER__L )(arg_count));
- result__AOB=NULL;
- ptr__BOB=((__POINTER__DB )(NULL));
- typ_id__FOB= 0;
- __tmp__HOB=((__POINTER__DB )sizeof(__FAST_ARRAYoSTRINGo__XC));
- if ((__tmp__HOB == 0)) {
- result__AOB=FAST_ARRAYoSTRINGo__XC__;
- } else {
- typ_id__FOB=__FAST_ARRAYoSTRINGo__XC__;
- clone_allocation_size__OF=(void *)((unsigned long)clone_allocation_size__OF - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__HOB));
- if ((typ_id__FOB == (__INTEGER__L)(- 1))) {
- __tmp__BGT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__CGT=(void *)((unsigned long)(void *)((unsigned long)__tmp__HOB - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__BGT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__BGT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__FGT=micro_alloc__table__lab__UX(__tmp__CGT,((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)__tmp__CGT / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))),((__UINTEGER_32__1F )((__INTEGER__L )__tmp__CGT)));
- ptr__BOB=__tmp__FGT;
- } else {
- t__SGT=((__UINTEGER_32__1F )typ_id__FOB);
- __tmp__PGT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__VGT=micro_alloc__table__lab__UX((void *)((unsigned long)(void *)((unsigned long)__tmp__HOB - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__PGT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__PGT) - (unsigned long)((__POINTER__DB ) 1))),((__POINTER__DB )(&(table_type[(t__SGT)]))),(__UINTEGER_32__1F)(t__SGT | 1));
- ptr__BOB=__tmp__VGT;
- };
- result__AOB=((__FAST_ARRAYoSTRINGo__XC *)ptr__BOB);
- *(result__AOB) = *(FAST_ARRAYoSTRINGo__XC__);
- };
- if ((result__AOB->parent_arrayed_collection__5C.capacity__RZC < __tmp__VD)) {
- __tmp__ZZC=create__WRD(__tmp__VD);
- result__AOB->parent_arrayed_collection__5C.storage__DZC=__tmp__ZZC;
- result__AOB->parent_arrayed_collection__5C.capacity__RZC=__tmp__VD;
- };
- result__AOB->parent_arrayed_collection__5C.upper__3ZC=(__INTEGER__L)(- 1);
- result__SD=result__AOB;
- __tmp__YD=(__INTEGER__L)(((__INTEGER__L )(arg_count)) - 1);
- Self__HI= 0;
- while ((Self__HI <= __tmp__YD)) {
- arg__TD=((__CHARACTER__4 *)(arg_vector[(Self__HI)]));
- idx__TFC= 0;
- __tmp__5VS=arg__TD;
- while ((! ((idx__TFC > 1024) || ('\0' == __tmp__5VS[idx__TFC])))) {
- idx__TFC=(__INTEGER__L)(idx__TFC + 1);
- };
- result__ZRJ=NULL;
- ptr__0RJ=((__POINTER__DB )(NULL));
- typ_id__4RJ= 0;
- __tmp__ASJ=((__POINTER__DB )sizeof(__STRING__FC));
- if ((__tmp__ASJ == 0)) {
- result__ZRJ=STRING__FC__;
- } else {
- typ_id__4RJ=__STRING__FC__;
- clone_allocation_size__OF=(void *)((unsigned long)clone_allocation_size__OF - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__ASJ));
- if ((typ_id__4RJ == (__INTEGER__L)(- 1))) {
- __tmp__XDT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__5P=(void *)((unsigned long)(void *)((unsigned long)__tmp__ASJ - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__XDT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__XDT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__US=micro_alloc__table__lab__UX(__tmp__5P,((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)__tmp__5P / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))),((__UINTEGER_32__1F )((__INTEGER__L )__tmp__5P)));
- ptr__0RJ=__tmp__US;
- } else {
- t__RT=((__UINTEGER_32__1F )typ_id__4RJ);
- __tmp__2DT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__1U=micro_alloc__table__lab__UX((void *)((unsigned long)(void *)((unsigned long)__tmp__ASJ - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__2DT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__2DT) - (unsigned long)((__POINTER__DB ) 1))),((__POINTER__DB )(&(table_type[(t__RT)]))),(__UINTEGER_32__1F)(t__RT | 1));
- ptr__0RJ=__tmp__1U;
- };
- result__ZRJ=((__STRING__FC *)ptr__0RJ);
- *(result__ZRJ) = *(STRING__FC__);
- };
- if ((idx__TFC > 0)) {
- if ((result__ZRJ->capacity__ELL < idx__TFC)) {
- __tmp__MLL=create__ATM(idx__TFC);
- result__ZRJ->storage__NLL=__tmp__MLL;
- result__ZRJ->capacity__ELL=idx__TFC;
- };
- };
- result__ZRJ->count__0FL= 0;
- p__2JL=arg__TD;
- i__3JL= 0;
- result__ZRJ->count__0FL= 0;
- __tmp__CMR=result__ZRJ;
- while ((p__2JL[i__3JL] != '\0')) {
- __tmp__QKL=p__2JL[i__3JL];
- if ((__tmp__CMR->capacity__ELL <= __tmp__CMR->count__0FL)) {
- if ((__tmp__CMR->capacity__ELL == 0)) {
- __tmp__CMR->capacity__ELL= 32;
- __tmp__MSM=create__ATM( 32);
- __tmp__CMR->storage__NLL=__tmp__MSM;
- } else {
- __tmp__TSM=(__INTEGER__L)(__tmp__CMR->capacity__ELL << 1);
- __tmp__USM=__tmp__CMR->storage__NLL;
- __tmp__VSM=__tmp__CMR->capacity__ELL;
- __tmp__2BN=realloc_dynamic__old_size__new_size__XQG(((__POINTER__DB )__tmp__USM),((__UINTEGER_32__1F )__tmp__VSM),((__UINTEGER_32__1F )__tmp__TSM));
- __tmp__3BN=((__CHARACTER__4 *)__tmp__2BN);
- __tmp__4BN=(__INTEGER__L)(__tmp__TSM - 1);
- Self__SIO=__tmp__VSM;
- while ((Self__SIO <= __tmp__4BN)) {
- __tmp__3BN[Self__SIO]='\0';
- Self__SIO=(__INTEGER__L)(Self__SIO + 1);
- };
- __tmp__CMR->storage__NLL=__tmp__3BN;
- __tmp__CMR->capacity__ELL=__tmp__TSM;
- };
- };
- __tmp__CMR->storage__NLL[__tmp__CMR->count__0FL]=__tmp__QKL;
- __tmp__CMR->count__0FL=(__INTEGER__L)(__tmp__CMR->count__0FL + 1);
- i__3JL=(__INTEGER__L)(i__3JL + 1);
- };
- if (((__INTEGER__L)(result__SD->parent_arrayed_collection__5C.upper__3ZC + 1) <= (__INTEGER__L)(result__SD->parent_arrayed_collection__5C.capacity__RZC - 1))) {
- result__SD->parent_arrayed_collection__5C.upper__3ZC=(__INTEGER__L)(result__SD->parent_arrayed_collection__5C.upper__3ZC + 1);
- __tmp__Y2C=TRUE__C__;
- } else {
- __tmp__Y2C=FALSE__J__;
- };
- if ((! __tmp__Y2C)) {
- if ((result__SD->parent_arrayed_collection__5C.capacity__RZC == 0)) {
- __tmp__E3C=create__WRD( 2);
- result__SD->parent_arrayed_collection__5C.storage__DZC=__tmp__E3C;
- result__SD->parent_arrayed_collection__5C.capacity__RZC= 2;
- result__SD->parent_arrayed_collection__5C.upper__3ZC= 0;
- } else {
- __tmp__L3C=(__INTEGER__L)(result__SD->parent_arrayed_collection__5C.capacity__RZC << 1);
- __tmp__M3C=result__SD->parent_arrayed_collection__5C.storage__DZC;
- __tmp__N3C=result__SD->parent_arrayed_collection__5C.capacity__RZC;
- __tmp__EAG=realloc_dynamic__old_size__new_size__XQG(((__POINTER__DB )__tmp__M3C),((__UINTEGER_32__1F )(__INTEGER__L)(__tmp__N3C * ((__INTEGER__L )(sizeof(void *))))),((__UINTEGER_32__1F )(__INTEGER__L)(__tmp__L3C * ((__INTEGER__L )(sizeof(void *))))));
- __tmp__FAG=((void **)__tmp__EAG);
- __tmp__GAG=(__INTEGER__L)(__tmp__L3C - 1);
- Self__W4J=__tmp__N3C;
- while ((Self__W4J <= __tmp__GAG)) {
- __tmp__FAG[Self__W4J]=NULL;
- Self__W4J=(__INTEGER__L)(Self__W4J + 1);
- };
- result__SD->parent_arrayed_collection__5C.storage__DZC=__tmp__FAG;
- result__SD->parent_arrayed_collection__5C.capacity__RZC=__tmp__L3C;
- result__SD->parent_arrayed_collection__5C.upper__3ZC=(__INTEGER__L)(result__SD->parent_arrayed_collection__5C.upper__3ZC + 1);
- };
- };
- result__SD->parent_arrayed_collection__5C.storage__DZC[result__SD->parent_arrayed_collection__5C.upper__3ZC]=result__ZRJ;
- Self__HI=(__INTEGER__L)(Self__HI + 1);
- };
- // Pre thread.
- { lith_node node,*n;
- lith_object *obj;
- void *thread_save;
- obj = &((THREAD__RB__)->thread);
- node.next = NULL;
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&obj->mutex);
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- } else {
- n->next = &node;
- pthread_mutex_lock(&node.mutex);
- };
- obj->last = &node;
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock (&node.mutex);
- thread_save=pthread_getspecific(current_thread);
- pthread_setspecific(current_thread,THREAD__RB__);
- pthread_mutex_lock(&(obj->mutex));
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- pthread_setspecific(current_thread,thread_save);
- };
- // Pre thread.
- { lith_node node,*n;
- lith_object *obj;
- void *thread_save;
- obj = &((THREAD__RB__)->thread);
- node.next = NULL;
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&obj->mutex);
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- } else {
- n->next = &node;
- pthread_mutex_lock(&node.mutex);
- };
- obj->last = &node;
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock (&node.mutex);
- thread_save=pthread_getspecific(current_thread);
- pthread_setspecific(current_thread,THREAD__RB__);
- result__VHT=NULL;
- ptr__WHT=((__POINTER__DB )(NULL));
- typ_id__XHT= 0;
- __tmp__YHT=((__POINTER__DB )sizeof(__THREAD__RB));
- if ((__tmp__YHT == 0)) {
- result__VHT=THREAD__RB__;
- } else {
- typ_id__XHT=__THREAD__RB__;
- clone_allocation_size__OF=(void *)((unsigned long)clone_allocation_size__OF - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__YHT));
- if ((typ_id__XHT == (__INTEGER__L)(- 1))) {
- __tmp__ZHT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__0HT=(void *)((unsigned long)(void *)((unsigned long)__tmp__YHT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__ZHT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__ZHT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__1HT=micro_alloc__table__lab__UX(__tmp__0HT,((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)__tmp__0HT / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))),((__UINTEGER_32__1F )((__INTEGER__L )__tmp__0HT)));
- ptr__WHT=__tmp__1HT;
- } else {
- t__2HT=((__UINTEGER_32__1F )typ_id__XHT);
- __tmp__3HT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__5HT=micro_alloc__table__lab__UX((void *)((unsigned long)(void *)((unsigned long)__tmp__YHT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__3HT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__3HT) - (unsigned long)((__POINTER__DB ) 1))),((__POINTER__DB )(&(table_type[(t__2HT)]))),(__UINTEGER_32__1F)(t__2HT | 1));
- ptr__WHT=__tmp__5HT;
- };
- result__VHT=((__THREAD__RB *)ptr__WHT);
- *(result__VHT) = *(THREAD__RB__);
- ((lith_object *)(result__VHT))->first = NULL;
- ((lith_object *)(result__VHT))->last = NULL;
- };
- __tmp__VB=result__VHT;
- pthread_mutex_lock(&(obj->mutex));
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- pthread_setspecific(current_thread,thread_save);
- };
- // Pre thread.
- { lith_node node,*n;
- lith_object *obj;
- void *thread_save;
- obj = &((__tmp__VB)->thread);
- node.next = NULL;
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&obj->mutex);
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- } else {
- n->next = &node;
- pthread_mutex_lock(&node.mutex);
- };
- obj->last = &node;
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock (&node.mutex);
- thread_save=pthread_getspecific(current_thread);
- pthread_setspecific(current_thread,__tmp__VB);
- result__VHT->next__1G=NULL;
- result__VHT->index__2G= 503;
- pthread_mutex_lock(&(obj->mutex));
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- pthread_setspecific(current_thread,thread_save);
- };
- first__TB=result__VHT;
- Self__DH= 502;
- while ((Self__DH >= 1)) {
- // Pre thread.
- { lith_node node,*n;
- lith_object *obj;
- void *thread_save;
- obj = &((THREAD__RB__)->thread);
- node.next = NULL;
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&obj->mutex);
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- } else {
- n->next = &node;
- pthread_mutex_lock(&node.mutex);
- };
- obj->last = &node;
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock (&node.mutex);
- thread_save=pthread_getspecific(current_thread);
- pthread_setspecific(current_thread,THREAD__RB__);
- pthread_mutex_lock(&(obj->mutex));
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- pthread_setspecific(current_thread,thread_save);
- };
- // Pre thread.
- { lith_node node,*n;
- lith_object *obj;
- void *thread_save;
- obj = &((THREAD__RB__)->thread);
- node.next = NULL;
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&obj->mutex);
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- } else {
- n->next = &node;
- pthread_mutex_lock(&node.mutex);
- };
- obj->last = &node;
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock (&node.mutex);
- thread_save=pthread_getspecific(current_thread);
- pthread_setspecific(current_thread,THREAD__RB__);
- result__1E=NULL;
- ptr__2E=((__POINTER__DB )(NULL));
- typ_id__AF= 0;
- __tmp__CF=((__POINTER__DB )sizeof(__THREAD__RB));
- if ((__tmp__CF == 0)) {
- result__1E=THREAD__RB__;
- } else {
- typ_id__AF=__THREAD__RB__;
- clone_allocation_size__OF=(void *)((unsigned long)clone_allocation_size__OF - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__CF));
- if ((typ_id__AF == (__INTEGER__L)(- 1))) {
- __tmp__5ET=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__AFT=(void *)((unsigned long)(void *)((unsigned long)__tmp__CF - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__5ET)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__5ET) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__DFT=micro_alloc__table__lab__UX(__tmp__AFT,((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)__tmp__AFT / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))),((__UINTEGER_32__1F )((__INTEGER__L )__tmp__AFT)));
- ptr__2E=__tmp__DFT;
- } else {
- t__KGT=((__UINTEGER_32__1F )typ_id__AF);
- __tmp__HGT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__NGT=micro_alloc__table__lab__UX((void *)((unsigned long)(void *)((unsigned long)__tmp__CF - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__HGT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__HGT) - (unsigned long)((__POINTER__DB ) 1))),((__POINTER__DB )(&(table_type[(t__KGT)]))),(__UINTEGER_32__1F)(t__KGT | 1));
- ptr__2E=__tmp__NGT;
- };
- result__1E=((__THREAD__RB *)ptr__2E);
- *(result__1E) = *(THREAD__RB__);
- ((lith_object *)(result__1E))->first = NULL;
- ((lith_object *)(result__1E))->last = NULL;
- };
- __tmp__BC=result__1E;
- pthread_mutex_lock(&(obj->mutex));
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- pthread_setspecific(current_thread,thread_save);
- };
- // Pre thread.
- { lith_node node,*n;
- lith_object *obj;
- void *thread_save;
- obj = &((__tmp__BC)->thread);
- node.next = NULL;
- pthread_mutex_init(&node.mutex,NULL);
- pthread_mutex_lock(&obj->mutex);
- n = obj->last;
- if (n == NULL) {
- obj->first = &node;
- } else {
- n->next = &node;
- pthread_mutex_lock(&node.mutex);
- };
- obj->last = &node;
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock (&node.mutex);
- thread_save=pthread_getspecific(current_thread);
- pthread_setspecific(current_thread,__tmp__BC);
- result__1E->next__1G=first__TB;
- result__1E->index__2G=Self__DH;
- pthread_mutex_lock(&(obj->mutex));
- n = obj->first->next;
- if (n != NULL) {
- pthread_mutex_unlock(&n->mutex);
- } else {
- obj->last = NULL;
- };
- obj->first = n;
- pthread_mutex_unlock(&obj->mutex);
- pthread_setspecific(current_thread,thread_save);
- };
- first__TB=result__1E;
- Self__DH=(__INTEGER__L)(Self__DH - 1);
- };
- pthread_mutex_lock (&(result__VHT->thread.mutex));
- result__VHT->param_0=(int)first__TB;
- result__VHT->thread.procedure = COP_set_next__QH;
- run_procedure((lith_object *)result__VHT);
- __tmp__CD=result__AOB->parent_arrayed_collection__5C.storage__DZC[ 1];
- state__LFL= 0;
- negative__NFL=FALSE__J__;
- result__OFL= 0;
- i__KFL= 1;
- __tmp__TDT=__tmp__CD->count__0FL;
- __tmp__UDT=__tmp__CD->storage__NLL;
- __tmp__VDT=__tmp__CD->count__0FL;
- while ((i__KFL <= __tmp__TDT)) {
- __tmp__DGL=__tmp__UDT[(__INTEGER__L)(i__KFL - 1)];
- if ((state__LFL == 0)) {
- if ((((((((__tmp__DGL == ' ') || (__tmp__DGL == '\t')) || (__tmp__DGL == '\n')) || (__tmp__DGL == '\r')) || (__tmp__DGL == '\0')) || (__tmp__DGL == '\f')) || (__tmp__DGL == '\v'))) {
- __tmp__1GL=TRUE__C__;
- } else {
- result__XFP=(__tmp__DGL == '+');
- if (result__XFP) {
- state__LFL= 1;
- };
- __tmp__1GL=result__XFP;
- };
- if ((! __tmp__1GL)) {
- if ((__tmp__DGL == '-')) {
- negative__NFL=TRUE__C__;
- state__LFL= 1;
- } else {
- result__OFL=(__INTEGER__L)(((__INTEGER__L )((__INTEGER_8__OQ )__tmp__DGL)) - 48);
- state__LFL= 2;
- };
- };
- __tmp__OHL=TRUE__C__;
- } else {
- __tmp__OHL=FALSE__J__;
- };
- if (__tmp__OHL) {
- __tmp__CIL=TRUE__C__;
- } else {
- result__4WN=(state__LFL == 1);
- if (result__4WN) {
- __tmp__ZHL=(__INTEGER__L)(((__INTEGER__L )((__INTEGER_8__OQ )__tmp__DGL)) - 48);
- result__OFL=__tmp__ZHL;
- if (negative__NFL) {
- result__OFL=(__INTEGER__L)(- __tmp__ZHL);
- };
- state__LFL= 2;
- };
- __tmp__CIL=result__4WN;
- };
- if (__tmp__CIL) {
- __tmp__JJL=TRUE__C__;
- } else {
- result__RXN=(state__LFL == 2);
- if (result__RXN) {
- result__CVF=FALSE__J__;
- if ((((__INTEGER_8__OQ )__tmp__DGL) >= ((__INTEGER_8__OQ )'0'))) {
- result__CVF=(((__INTEGER_8__OQ )__tmp__DGL) <= ((__INTEGER_8__OQ )'9'));
- };
- if (result__CVF) {
- if (negative__NFL) {
- result__OFL=(__INTEGER__L)((__INTEGER__L)( 10 * result__OFL) - (__INTEGER__L)(((__INTEGER__L )((__INTEGER_8__OQ )__tmp__DGL)) - 48));
- } else {
- result__OFL=(__INTEGER__L)((__INTEGER__L)( 10 * result__OFL) + (__INTEGER__L)(((__INTEGER__L )((__INTEGER_8__OQ )__tmp__DGL)) - 48));
- };
- } else {
- state__LFL= 3;
- };
- };
- __tmp__JJL=result__RXN;
- };
- if ((! __tmp__JJL)) {
- if ((state__LFL == 3)) {
- i__KFL=__tmp__VDT;
- };
- };
- i__KFL=(__INTEGER__L)(i__KFL + 1);
- };
- pthread_mutex_lock (&(first__TB->thread.mutex));
- first__TB->param_0=(int)result__OFL;
- first__TB->thread.procedure = COP_set_data__TH;
- run_procedure((lith_object *)first__TB);
- pthread_join(c_thread, NULL);
- return(0);
-}
-
-
-static __POINTER__DB micro_alloc__table__lab__UX(__POINTER__DB new_size__WX,__POINTER__DB ptr_table__XX,__UINTEGER_32__1F lab_type__YX)
-// ({POINTER__DB},{POINTER__DB},{UINTEGER_32__1F}) With result No recursive, No inlinable.
-{
- __POINTER__DB next__2X,__tmp__5ES,result__0X,__tmp__BZ,__tmp__DZ;
- __POINTER__DB __tmp__MFS,__tmp__J0,Result__ZX;
- next__2X=((__POINTER__DB )(NULL));
- __tmp__5ES=((__POINTER__DB *)ptr_table__XX)[ 0];
- result__0X=__tmp__5ES;
- if ((__tmp__5ES == (void *)NULL)) {
- __tmp__BZ=new_lab__SDB(lab_type__YX);
- result__0X=__tmp__BZ;
- __tmp__DZ=(void *)((unsigned long)__tmp__BZ - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)new_size__WX));
- next__2X=__tmp__DZ;
- ((__POINTER__DB *)__tmp__DZ)[ 0]=NULL;
- ((__POINTER__DB *)ptr_table__XX)[ 0]=__tmp__DZ;
- } else {
- __tmp__MFS=((__POINTER__DB *)result__0X)[ 0];
- next__2X=__tmp__MFS;
- if ((__tmp__MFS == (void *)NULL)) {
- if (((void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)result__0X - (unsigned long)begin_memory__PZ) & (unsigned long)((__POINTER__DB ) 4095)) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)(void *)((unsigned long)new_size__WX << (unsigned long) 1))) <= ((__POINTER__DB ) 4096))) {
- next__2X=(void *)((unsigned long)result__0X - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)new_size__WX));
- } else {
- __tmp__J0=new_lab__SDB(lab_type__YX);
- next__2X=__tmp__J0;
- };
- ((__POINTER__DB *)next__2X)[ 0]=NULL;
- ((__POINTER__DB *)ptr_table__XX)[ 0]=next__2X;
- } else {
- ((__POINTER__DB *)result__0X)[ 0]=(void *)((unsigned long)((__POINTER__DB *)next__2X)[ 0] & (unsigned long)((__POINTER__DB )(__INTEGER__L)(~ 3)));
- result__0X=next__2X;
- };
- };
- Result__ZX=result__0X;
- return(Result__ZX);
-}
-
-static void** create__WRD(__INTEGER__L nb_elements__YRD)
-// ({INTEGER__L}) With result No recursive, No inlinable.
-{
- __POINTER__DB sz__ZGT,result__XGT,__tmp__YGT,__tmp__0GT,__tmp__1GT;
- __POINTER__DB __tmp__2GT,__tmp__3GT,__tmp__4GT;
- __MEMORY__YF *__tmp__BHT;
- __INTEGER__L Self__DNG;
- void **__tmp__S2D,**Result__ZRD;
- sz__ZGT=((__POINTER__DB )(__INTEGER__L)(nb_elements__YRD * ((__INTEGER__L )(sizeof(void *)))));
- result__XGT=((__POINTER__DB )(NULL));
- __tmp__YGT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__0GT=(void *)((unsigned long)(void *)((unsigned long)sz__ZGT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__YGT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__YGT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__1GT=(void *)((unsigned long)__tmp__0GT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))));
- if ((__tmp__1GT <= ((__POINTER__DB )(MINIMUM_SIZE)))) {
- __tmp__2GT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__3GT=(void *)((unsigned long)(void *)((unsigned long)__tmp__1GT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__2GT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__2GT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__4GT=micro_alloc__table__lab__UX(__tmp__3GT,((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)__tmp__3GT / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))),((__UINTEGER_32__1F )((__INTEGER__L )__tmp__3GT)));
- ((__POINTER__DB *)__tmp__4GT)[ 0]=((__POINTER__DB ) 3);
- result__XGT=(void *)((unsigned long)__tmp__4GT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))));
- } else {
- __tmp__BHT=search__GCF(__tmp__0GT);
- result__XGT=(void *)((unsigned long)((__POINTER__DB )__tmp__BHT) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8)));
- };
- __tmp__S2D=((void **)result__XGT);
- Self__DNG=(__INTEGER__L)(nb_elements__YRD - 1);
- while ((Self__DNG >= 0)) {
- __tmp__S2D[Self__DNG]=NULL;
- Self__DNG=(__INTEGER__L)(Self__DNG - 1);
- };
- Result__ZRD=__tmp__S2D;
- return(Result__ZRD);
-}
-
-static __CHARACTER__4* create__ATM(__INTEGER__L nb_elements__CTM)
-// ({INTEGER__L}) With result No recursive, No inlinable.
-{
- __POINTER__DB sz__FHT,result__DHT,__tmp__EHT,__tmp__GHT,__tmp__HHT;
- __POINTER__DB __tmp__IHT,__tmp__JHT,__tmp__KHT;
- __MEMORY__YF *__tmp__NHT;
- __INTEGER__L Self__EGN;
- __CHARACTER__4 *__tmp__QWM,*Result__DTM;
- sz__FHT=((__POINTER__DB )nb_elements__CTM);
- result__DHT=((__POINTER__DB )(NULL));
- __tmp__EHT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__GHT=(void *)((unsigned long)(void *)((unsigned long)sz__FHT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__EHT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__EHT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__HHT=(void *)((unsigned long)__tmp__GHT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))));
- if ((__tmp__HHT <= ((__POINTER__DB )(MINIMUM_SIZE)))) {
- __tmp__IHT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__JHT=(void *)((unsigned long)(void *)((unsigned long)__tmp__HHT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__IHT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__IHT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__KHT=micro_alloc__table__lab__UX(__tmp__JHT,((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)__tmp__JHT / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))),((__UINTEGER_32__1F )((__INTEGER__L )__tmp__JHT)));
- ((__POINTER__DB *)__tmp__KHT)[ 0]=((__POINTER__DB ) 3);
- result__DHT=(void *)((unsigned long)__tmp__KHT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))));
- } else {
- __tmp__NHT=search__GCF(__tmp__GHT);
- result__DHT=(void *)((unsigned long)((__POINTER__DB )__tmp__NHT) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8)));
- };
- __tmp__QWM=((__CHARACTER__4 *)result__DHT);
- Self__EGN=(__INTEGER__L)(nb_elements__CTM - 1);
- while ((Self__EGN >= 0)) {
- __tmp__QWM[Self__EGN]='\0';
- Self__EGN=(__INTEGER__L)(Self__EGN - 1);
- };
- Result__DTM=__tmp__QWM;
- return(Result__DTM);
-}
-
-static __POINTER__DB realloc_dynamic__old_size__new_size__XQG(__POINTER__DB p__ZQG,__UINTEGER_32__1F old_sz__0QG,__UINTEGER_32__1F new_sz__1QG)
-// ({POINTER__DB},{UINTEGER_32__1F},{UINTEGER_32__1F}) With result No recursive, No inlinable.
-{
- __POINTER__DB result__HRG,sz__BHE,result__HHE,__tmp__KBT,__tmp__THE;
- __POINTER__DB __tmp__XHE,__tmp__WFT,__tmp__XFT,__tmp__0FT,__tmp__LSG;
- __POINTER__DB __tmp__PSG,__tmp__4QB,__tmp__4UR,prev__PJJ,Result__2QG;
- __UINTEGER_32__1F __tmp__FET,__tmp__URG,__tmp__YRG,__tmp__5JH;
- __UINTEGER_32__1F __tmp__3RG,__tmp__2SG,__tmp__HSI,__tmp__ZSI;
- __UINTEGER_32__1F __tmp__OKJ,new_size__RJJ;
- __MEMORY__YF *__tmp__MIE,*__tmp__1SG,*result__GRI,*__tmp__VSI;
- __MEMORY__YF *__tmp__VUI,*__tmp__IKJ,*__tmp__MKJ,*new_free__NJJ;
- __MEMORY__YF *prev__QHT,*next__RHT;
- result__HRG=((__POINTER__DB )(NULL));
- __tmp__FET=(__UINTEGER_32__1F)(((__UINTEGER_32__1F )((__INTEGER__L )(sizeof(void *)))) - 1);
- __tmp__URG=(__UINTEGER_32__1F)((__UINTEGER_32__1F)(old_sz__0QG + __tmp__FET) & (__UINTEGER_32__1F)(~ __tmp__FET));
- __tmp__YRG=(__UINTEGER_32__1F)(__tmp__URG + ((__UINTEGER_32__1F )((__INTEGER__L )(sizeof(void *)))));
- __tmp__5JH=(__UINTEGER_32__1F)(((__UINTEGER_32__1F )((__INTEGER__L )(sizeof(void *)))) - 1);
- __tmp__3RG=(__UINTEGER_32__1F)((__UINTEGER_32__1F)(new_sz__1QG + __tmp__5JH) & (__UINTEGER_32__1F)(~ __tmp__5JH));
- if ((((__POINTER__DB )__tmp__YRG) <= ((__POINTER__DB )(MINIMUM_SIZE)))) {
- sz__BHE=((__POINTER__DB )__tmp__3RG);
- result__HHE=((__POINTER__DB )(NULL));
- __tmp__KBT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__THE=(void *)((unsigned long)(void *)((unsigned long)sz__BHE - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__KBT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__KBT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__XHE=(void *)((unsigned long)__tmp__THE - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))));
- if ((__tmp__XHE <= ((__POINTER__DB )(MINIMUM_SIZE)))) {
- __tmp__WFT=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__XFT=(void *)((unsigned long)(void *)((unsigned long)__tmp__XHE - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__WFT)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__WFT) - (unsigned long)((__POINTER__DB ) 1)));
- __tmp__0FT=micro_alloc__table__lab__UX(__tmp__XFT,((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)__tmp__XFT / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))),((__UINTEGER_32__1F )((__INTEGER__L )__tmp__XFT)));
- ((__POINTER__DB *)__tmp__0FT)[ 0]=((__POINTER__DB ) 3);
- result__HHE=(void *)((unsigned long)__tmp__0FT - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))));
- } else {
- __tmp__MIE=search__GCF(__tmp__THE);
- result__HHE=(void *)((unsigned long)((__POINTER__DB )__tmp__MIE) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8)));
- };
- result__HRG=result__HHE;
- copy__to__size__IOI(p__ZQG,result__HHE,__tmp__URG);
- __tmp__LSG=(void *)((unsigned long)p__ZQG - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))));
- __tmp__PSG=((__POINTER__DB )__tmp__YRG);
- __tmp__4QB=(void *)((unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *)))) - (unsigned long)((__POINTER__DB ) 1));
- __tmp__4UR=((__POINTER__DB *)((__POINTER__DB )(&(table_size[(((__UINTEGER_32__1F )((__INTEGER__L )(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)__tmp__PSG - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__4QB)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__4QB) - (unsigned long)((__POINTER__DB ) 1))) / (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))))))-1]))))[ 0];
- ((__POINTER__DB *)__tmp__LSG)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB *)__tmp__4UR)[ 0]) - (unsigned long)((__POINTER__DB ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 3)) - (unsigned long)((__POINTER__DB ) 1)))) - (unsigned long)((__POINTER__DB ) 1));
- ((__POINTER__DB *)__tmp__4UR)[ 0]=__tmp__LSG;
- } else {
- __tmp__1SG=((__MEMORY__YF *)(void *)((unsigned long)p__ZQG - (unsigned long)((__POINTER__DB ) 8)));
- __tmp__2SG=(__UINTEGER_32__1F)(((__UINTEGER_32__1F )((unsigned int)((void *)((unsigned long)p__ZQG - (unsigned long)begin_memory__PZ)))) >> 26);
- result__GRI=NULL;
- __tmp__HSI=(__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 4294967292LU);
- if ((__tmp__3RG > __tmp__HSI)) {
- if ((! ((__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 2) != 0))) {
- __tmp__VSI=((__MEMORY__YF *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )__tmp__1SG) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )(__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 4294967292LU)))));
- __tmp__ZSI=(__UINTEGER_32__1F)((__UINTEGER_32__1F)(__tmp__3RG - __tmp__HSI) - 8);
- if ((((__UINTEGER_32__1F)(__tmp__VSI->size_and_id__3F & 1) == 0) && ((__UINTEGER_32__1F)(__tmp__VSI->size_and_id__3F & 4294967292LU) >= __tmp__ZSI))) {
- to_busy__index__ODG(__tmp__VSI,((__POINTER__DB )__tmp__ZSI),__tmp__2SG);
- __tmp__1SG->size_and_id__3F=(__UINTEGER_32__1F)((__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F + (__UINTEGER_32__1F)(__tmp__VSI->size_and_id__3F & 4294967294LU)) + 8);
- if (((__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 2) != 0)) {
- last_block[(__tmp__2SG)] = (__tmp__1SG);
- } else {
- ((__MEMORY__YF *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )__tmp__1SG) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )(__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 4294967292LU)))))->previous_linear__0F=(void *)((unsigned long)((__POINTER__DB )__tmp__1SG) - (unsigned long)begin_memory__PZ);
- };
- result__GRI=__tmp__1SG;
- };
- };
- if (((void *)result__GRI == (void *)NULL)) {
- __tmp__VUI=search__GCF(((__POINTER__DB )__tmp__3RG));
- result__GRI=__tmp__VUI;
- copy__to__size__IOI((void *)((unsigned long)((__POINTER__DB )__tmp__1SG) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))),(void *)((unsigned long)((__POINTER__DB )__tmp__VUI) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))),__tmp__HSI);
- prev__PJJ=__tmp__1SG->previous_linear__0F;
- __tmp__IKJ=((__MEMORY__YF *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )__tmp__1SG) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )(__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 4294967292LU)))));
- __tmp__MKJ=((__MEMORY__YF *)(void *)((unsigned long)begin_memory__PZ - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)prev__PJJ)));
- new_free__NJJ=__tmp__MKJ;
- __tmp__OKJ=(__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 4294967294LU);
- new_size__RJJ=__tmp__OKJ;
- if (((prev__PJJ == (void *)NULL) || ((__UINTEGER_32__1F)(__tmp__MKJ->size_and_id__3F & 1) != 0))) {
- new_free__NJJ=__tmp__1SG;
- __tmp__1SG->next_free__4F=first_free__JDF;
- __tmp__1SG->previous_free__5F=NULL;
- if (((void *)first_free__JDF != (void *)NULL)) {
- first_free__JDF->previous_free__5F=__tmp__1SG;
- };
- first_free__JDF=__tmp__1SG;
- } else {
- new_size__RJJ=(__UINTEGER_32__1F)((__UINTEGER_32__1F)(__tmp__OKJ + new_free__NJJ->size_and_id__3F) + 8);
- };
- if (((! ((__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 2) != 0)) && ((__UINTEGER_32__1F)(__tmp__IKJ->size_and_id__3F & 1) == 0))) {
- new_size__RJJ=(__UINTEGER_32__1F)((__UINTEGER_32__1F)(new_size__RJJ + __tmp__IKJ->size_and_id__3F) + 8);
- prev__QHT=__tmp__IKJ->previous_free__5F;
- next__RHT=__tmp__IKJ->next_free__4F;
- if (((void *)prev__QHT == (void *)NULL)) {
- first_free__JDF=next__RHT;
- } else {
- prev__QHT->next_free__4F=next__RHT;
- };
- if (((void *)next__RHT != (void *)NULL)) {
- next__RHT->previous_free__5F=prev__QHT;
- };
- };
- new_free__NJJ->size_and_id__3F=new_size__RJJ;
- if (((__UINTEGER_32__1F)(new_free__NJJ->size_and_id__3F & 2) != 0)) {
- last_block[(__tmp__2SG)] = (new_free__NJJ);
- } else {
- ((__MEMORY__YF *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )__tmp__1SG) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )(__UINTEGER_32__1F)(__tmp__1SG->size_and_id__3F & 4294967292LU)))))->previous_linear__0F=(void *)((unsigned long)((__POINTER__DB )new_free__NJJ) - (unsigned long)begin_memory__PZ);
- };
- };
- } else {
- result__GRI=__tmp__1SG;
- };
- result__HRG=(void *)((unsigned long)((__POINTER__DB )result__GRI) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8)));
- };
- Result__2QG=result__HRG;
- return(Result__2QG);
-}
-
-lith_object *COP_set_next__QH(lith_object *obj,pthread_mutex_t *mutex)
-// ({THREAD__RB},{NULLxTHREAD__RB}) Void No recursive, Inlinable.
-{
- __THREAD__RB *Self__RH=(__THREAD__RB *)obj;
- __THREAD__RB *nxt__SH=(__THREAD__RB *)(((__THREAD__RB *)obj)->param_0);
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock(mutex);
- Self__RH->next__1G=nxt__SH;
- return NULL;
-}
-
-lith_object *COP_set_data__TH(lith_object *obj,pthread_mutex_t *mutex)
-// ({THREAD__RB},{INTEGER__L}) Void Recursive, No inlinable.
-{
- __THREAD__RB *Self__UH=(__THREAD__RB *)obj;
- __INTEGER__L n__VH=(__INTEGER__L )(((__THREAD__RB *)obj)->param_0);
- pthread_mutex_unlock(&obj->mutex);
- pthread_mutex_lock(mutex);
- __INTEGER__L Self__RM;
- __THREAD__RB *__tmp__BI;
- __BOOLEAN__D __tmp__YM;
- if ((n__VH == 0)) {
- Self__RM=Self__UH->index__2G;
- if ((Self__RM == 0)) {
- fputc((int)('0'),stdout);
- __tmp__YM=TRUE__C__;
- } else {
- __tmp__YM=FALSE__J__;
- };
- if ((! __tmp__YM)) {
- if ((Self__RM < 0)) {
- fputc((int)('-'),stdout);
- print_positif__SSD((__INTEGER__L)(- Self__RM));
- } else {
- print_positif__SSD(Self__RM);
- };
- };
- fputc((int)('\n'),stdout);
- exit(( 0));
- } else {
- __tmp__BI=Self__UH->next__1G;
- pthread_mutex_lock (&(__tmp__BI->thread.mutex));
- __tmp__BI->param_0=(int)(__INTEGER__L)(n__VH - 1);
- __tmp__BI->thread.procedure = COP_set_data__TH;
- return((lith_object *)__tmp__BI);
- };
- return NULL;
-}
-
-static __POINTER__DB new_lab__SDB(__UINTEGER_32__1F t__UDB)
-// ({UINTEGER_32__1F}) With result No recursive, No inlinable.
-{
- __UINTEGER_32__1F idx__WDB;
- __MEMORY__YF *blc__ZDB,*__tmp__OFB,*prev__THT,*next__UHT,*__tmp__LGB;
- __POINTER__DB pv__3DB,__tmp__XFB,Result__VDB;
- __BOOLEAN__D __tmp__2EB;
- idx__WDB= 0;
- blc__ZDB=NULL;
- pv__3DB=((__POINTER__DB )(NULL));
- while_do__BIB:
- {
- if ((idx__WDB < nb_page__DEB)) {
- blc__ZDB=((__MEMORY__YF *)(last_block[(idx__WDB)]));
- __tmp__2EB=(((__UINTEGER_32__1F)(blc__ZDB->size_and_id__3F & 4294967292LU) < 4096) || ((__UINTEGER_32__1F)(blc__ZDB->size_and_id__3F & 1) == 1));
- } else {
- __tmp__2EB=FALSE__J__;
- };
- if (__tmp__2EB) {
- idx__WDB=(__UINTEGER_32__1F)(idx__WDB + 1);
- goto while_do__BIB;
- };
- };
- if ((idx__WDB >= nb_page__DEB)) {
- __tmp__OFB=new_page__RLD();
- blc__ZDB=__tmp__OFB;
- };
- blc__ZDB->size_and_id__3F=(__UINTEGER_32__1F)(blc__ZDB->size_and_id__3F - 4096);
- __tmp__XFB=((__POINTER__DB )((__MEMORY__YF *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )blc__ZDB) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )(__UINTEGER_32__1F)(blc__ZDB->size_and_id__3F & 4294967292LU))))));
- if ((((__POINTER__DB )(__UINTEGER_32__1F)(blc__ZDB->size_and_id__3F & 4294967292LU)) < ((__POINTER__DB )(MINIMUM_SIZE)))) {
- prev__THT=blc__ZDB->previous_free__5F;
- next__UHT=blc__ZDB->next_free__4F;
- if (((void *)prev__THT == (void *)NULL)) {
- first_free__JDF=next__UHT;
- } else {
- prev__THT->next_free__4F=next__UHT;
- };
- if (((void *)next__UHT != (void *)NULL)) {
- next__UHT->previous_free__5F=prev__THT;
- };
- pv__3DB=blc__ZDB->previous_linear__0F;
- if ((pv__3DB != (void *)NULL)) {
- __tmp__LGB=((__MEMORY__YF *)(void *)((unsigned long)begin_memory__PZ - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)pv__3DB)));
- __tmp__LGB->size_and_id__3F=(__UINTEGER_32__1F)((__UINTEGER_32__1F)(__tmp__LGB->size_and_id__3F + blc__ZDB->size_and_id__3F) + 8);
- last_block[(idx__WDB)] = (__tmp__LGB);
- };
- };
- ((__POINTER__DB *)__tmp__XFB)[ 0]=((__POINTER__DB )t__UDB);
- Result__VDB=(void *)((unsigned long)__tmp__XFB - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )((__INTEGER__L )(sizeof(void *))))));
- return(Result__VDB);
-}
-
-static __MEMORY__YF* search__GCF(__POINTER__DB new_size__ICF)
-// ({POINTER__DB}) With result No recursive, No inlinable.
-{
- __MEMORY__YF *result__KCF,*__tmp__HEF,*Result__JCF;
- result__KCF=first_free__JDF;
- while ((((void *)result__KCF != (void *)NULL) && (((__POINTER__DB )(__UINTEGER_32__1F)(result__KCF->size_and_id__3F & 4294967292LU)) < new_size__ICF))) {
- result__KCF=result__KCF->next_free__4F;
- };
- if (((void *)result__KCF == (void *)NULL)) {
- __tmp__HEF=new_page__RLD();
- result__KCF=__tmp__HEF;
- };
- to_busy__index__ODG(result__KCF,new_size__ICF,(__UINTEGER_32__1F)(((__UINTEGER_32__1F )((unsigned int)((void *)((unsigned long)((__POINTER__DB )result__KCF) - (unsigned long)begin_memory__PZ)))) >> 26));
- Result__JCF=result__KCF;
- return(Result__JCF);
-}
-
-static void copy__to__size__IOI(__POINTER__DB src__KOI,__POINTER__DB dst__LOI,__UINTEGER_32__1F sz__MOI)
-// ({POINTER__DB},{POINTER__DB},{UINTEGER_32__1F}) Void No recursive, No inlinable.
-{
- __INTEGER__L __tmp__5OI,Self__2ZI;
- __POINTER__DB *na_src__NOI,*na_dst__OOI;
- __tmp__5OI=(__INTEGER__L)(((__INTEGER__L )sz__MOI) / ((__INTEGER__L )(sizeof(void *))));
- na_src__NOI=((__POINTER__DB *)src__KOI);
- na_dst__OOI=((__POINTER__DB *)dst__LOI);
- Self__2ZI=(__INTEGER__L)(__tmp__5OI - 1);
- while ((Self__2ZI >= 0)) {
- na_dst__OOI[Self__2ZI]=na_src__NOI[Self__2ZI];
- Self__2ZI=(__INTEGER__L)(Self__2ZI - 1);
- };
-}
-
-static void to_busy__index__ODG(__MEMORY__YF *Self__PDG,__POINTER__DB sz__QDG,__UINTEGER_32__1F idx__RDG)
-// ({MEMORY__YF},{POINTER__DB},{UINTEGER_32__1F}) Void No recursive, No inlinable.
-{
- __MEMORY__YF *prev__VXG,*next__WXG,*__tmp__DFG;
- __POINTER__DB __tmp__QEG,siz__SDG,__tmp__REG;
- prev__VXG=Self__PDG->previous_free__5F;
- next__WXG=Self__PDG->next_free__4F;
- if (((void *)prev__VXG == (void *)NULL)) {
- first_free__JDF=next__WXG;
- } else {
- prev__VXG->next_free__4F=next__WXG;
- };
- if (((void *)next__WXG != (void *)NULL)) {
- next__WXG->previous_free__5F=prev__VXG;
- };
- __tmp__QEG=((__POINTER__DB )Self__PDG->size_and_id__3F);
- siz__SDG=__tmp__QEG;
- __tmp__REG=(void *)((unsigned long)__tmp__QEG - (unsigned long)sz__QDG);
- if ((__tmp__REG > (void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )(MINIMUM_SIZE)) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 2))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))))) {
- siz__SDG=sz__QDG;
- __tmp__DFG=((__MEMORY__YF *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )Self__PDG) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)sz__QDG)));
- __tmp__DFG->previous_linear__0F=(void *)((unsigned long)((__POINTER__DB )Self__PDG) - (unsigned long)begin_memory__PZ);
- __tmp__DFG->size_and_id__3F=(__UINTEGER_32__1F)(((__UINTEGER_32__1F )((unsigned int)(__tmp__REG))) - 8);
- __tmp__DFG->next_free__4F=first_free__JDF;
- __tmp__DFG->previous_free__5F=NULL;
- if (((void *)first_free__JDF != (void *)NULL)) {
- first_free__JDF->previous_free__5F=__tmp__DFG;
- };
- first_free__JDF=__tmp__DFG;
- if (((__UINTEGER_32__1F)(__tmp__DFG->size_and_id__3F & 2) != 0)) {
- last_block[(idx__RDG)] = (__tmp__DFG);
- } else {
- ((__MEMORY__YF *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER__DB )__tmp__DFG) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB )(__UINTEGER_32__1F)(__tmp__DFG->size_and_id__3F & 4294967292LU)))))->previous_linear__0F=(void *)((unsigned long)((__POINTER__DB )__tmp__DFG) - (unsigned long)begin_memory__PZ);
- };
- };
- Self__PDG->size_and_id__3F=(__UINTEGER_32__1F)(((__UINTEGER_32__1F )((unsigned int)(siz__SDG))) | 1);
-}
-
-static void print_positif__SSD(__INTEGER__L Self__TSD)
-// ({INTEGER__L}) Void Recursive, No inlinable.
-{
- __INTEGER__L __tmp__ATD;
- __CHARACTER__4 Result__W4D;
- Result__W4D=((__CHARACTER__4 )(((__INTEGER_8__OQ)(((__INTEGER_8__OQ )(__INTEGER__L)(Self__TSD % 10)) + ((__INTEGER_8__OQ )'0')))));
- __tmp__ATD=(__INTEGER__L)(Self__TSD / 10);
- if ((__tmp__ATD != 0)) {
- print_positif__SSD(__tmp__ATD);
- };
- fputc((int)(Result__W4D),stdout);
-}
-
-static __MEMORY__YF* new_page__RLD()
-// () With result No recursive, No inlinable.
-{
- __POINTER__DB mem__CYE,new_mem__EYE,cap__AYE,__tmp__EMD;
- __MEMORY__YF *__tmp__END,*Result__TLD;
- if ((capacity_max__ZLD == 0)) {
- mem__CYE=((__POINTER__DB )(NULL));
- new_mem__EYE=((__POINTER__DB )(NULL));
- cap__AYE=((__POINTER__DB ) 33554432);
- do {
- cap__AYE=(void *)((unsigned long)cap__AYE * (unsigned long)((__POINTER__DB ) 2));
- mem__CYE=new_mem__EYE;
- new_mem__EYE=((__POINTER__DB )(realloc((new_mem__EYE),(unsigned int)(cap__AYE))));
- } while ((! ((new_mem__EYE == (void *)NULL) || (cap__AYE == ((__POINTER__DB )((void *)(2048LU << 20)))))));
- if ((new_mem__EYE == (void *)NULL)) {
- cap__AYE=(void *)((unsigned long)cap__AYE / (unsigned long)((__POINTER__DB ) 2));
- };
- capacity_max__ZLD=cap__AYE;
- begin_memory__PZ=mem__CYE;
- };
- __tmp__EMD=(void *)((unsigned long)((__POINTER__DB )nb_page__DEB) << (unsigned long) 26);
- nb_page__DEB=(__UINTEGER_32__1F)(nb_page__DEB + 1);
- if (((void *)((unsigned long)__tmp__EMD - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)((__POINTER__DB ) 67108864))) > capacity_max__ZLD)) {
- syscall(__NR_write, 1,("Not enough memory.\n"),( 19));
- exit(( 1));
- };
- __tmp__END=((__MEMORY__YF *)(void *)((unsigned long)begin_memory__PZ - (unsigned long)(void *)((unsigned long)((__POINTER__DB ) 0) - (unsigned long)__tmp__EMD)));
- __tmp__END->previous_linear__0F=NULL;
- __tmp__END->size_and_id__3F= 67108858;
- __tmp__END->next_free__4F=first_free__JDF;
- __tmp__END->previous_free__5F=NULL;
- if (((void *)first_free__JDF != (void *)NULL)) {
- first_free__JDF->previous_free__5F=__tmp__END;
- };
- first_free__JDF=__tmp__END;
- last_block[((__UINTEGER_32__1F)(nb_page__DEB - 1))] = (__tmp__END);
- Result__TLD=__tmp__END;
- return(Result__TLD);
-}
diff --git a/example/shootout/TOP/thread-ring/threadring_c.c b/example/shootout/TOP/thread-ring/threadring_c.c
deleted file mode 100755
index 625fdae..0000000
--- a/example/shootout/TOP/thread-ring/threadring_c.c
+++ /dev/null
@@ -1,73 +0,0 @@
-/*
-* The Computer Language Benchmarks Game
-* http://shootout.alioth.debian.org/
-
-* contributed by Premysl Hruby
-*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <pthread.h>
-#include <string.h>
-#include <limits.h>
-
-#define THREADS (503)
-
-
-struct stack {
- char x[PTHREAD_STACK_MIN];
-};
-
-
-/* staticaly initialize mutex[0] mutex */
-static pthread_mutex_t mutex[THREADS];
-static int data[THREADS];
-static struct stack stacks[THREADS];
-/* stacks must be defined staticaly, or my i386 box run of virtual memory for this
- * process while creating thread +- #400 */
-
-static void* thread(void *num)
-{
- int l = (int)num;
- int r = (l+1) % THREADS;
- int token;
-
- while(1) {
- pthread_mutex_lock(mutex + l);
- token = data[l];
- if (token) {
- data[r] = token - 1;
- pthread_mutex_unlock(mutex + r);
- }
- else {
- printf("%i\n", l+1);
- exit(0);
- }
- }
-}
-
-
-
-int main(int argc, char **argv)
-{
- int i;
- pthread_t cthread;
- pthread_attr_t stack_attr;
-
- if (argc != 2)
- exit(255);
- data[0] = atoi(argv[1]);
-
- pthread_attr_init(&stack_attr);
-
- for (i = 0; i < THREADS; i++) {
- pthread_mutex_init(mutex + i, NULL);
- pthread_mutex_lock(mutex + i);
-
- pthread_attr_setstack(&stack_attr, &stacks[i], sizeof(struct stack));
- pthread_create(&cthread, &stack_attr, thread, (void*)i);
- }
-
- pthread_mutex_unlock(mutex + 0);
- pthread_join(cthread, NULL);
-}
diff --git a/example/shootout/binary_trees/binary_trees_c.c b/example/shootout/binary_trees/binary_trees_c.c
deleted file mode 100644
index 91ca05e..0000000
--- a/example/shootout/binary_trees/binary_trees_c.c
+++ /dev/null
@@ -1,136 +0,0 @@
-/* The Computer Language Shootout Benchmarks
- http://shootout.alioth.debian.org/
-
- contributed by Kevin Carson
- compilation:
- gcc -O3 -fomit-frame-pointer -funroll-loops -static binary-trees.c -lm
- icc -O3 -ip -unroll -static binary-trees.c -lm
-*/
-
-#include <malloc.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-
-typedef struct tn {
- struct tn* left;
- struct tn* right;
- long item;
-} treeNode;
-
-
-treeNode* NewTreeNode(treeNode* left, treeNode* right, long item)
-{
- treeNode* new;
-
- new = (treeNode*)malloc(sizeof(treeNode));
-
- new->left = left;
- new->right = right;
- new->item = item;
-
- return new;
-} /* NewTreeNode() */
-
-
-long ItemCheck(treeNode* tree)
-{
- if (tree->left == NULL)
- return tree->item;
- else
- return tree->item + ItemCheck(tree->left) - ItemCheck(tree->right);
-} /* ItemCheck() */
-
-
-treeNode* BottomUpTree(long item, unsigned depth)
-{
- if (depth > 0)
- return NewTreeNode
- (
- BottomUpTree(2 * item - 1, depth - 1),
- BottomUpTree(2 * item, depth - 1),
- item
- );
- else
- return NewTreeNode(NULL, NULL, item);
-} /* BottomUpTree() */
-
-
-void DeleteTree(treeNode* tree)
-{
- if (tree->left != NULL)
- {
- DeleteTree(tree->left);
- DeleteTree(tree->right);
- }
-
- free(tree);
-} /* DeleteTree() */
-
-
-int main(int argc, char* argv[])
-{
- unsigned N, depth, minDepth, maxDepth, stretchDepth;
- treeNode *stretchTree, *longLivedTree, *tempTree;
-
- N = atol(argv[1]);
-
- minDepth = 4;
-
- if ((minDepth + 2) > N)
- maxDepth = minDepth + 2;
- else
- maxDepth = N;
-
- stretchDepth = maxDepth + 1;
-
- stretchTree = BottomUpTree(0, stretchDepth);
- printf
- (
- "stretch tree of depth %u\t check: %li\n",
- stretchDepth,
- ItemCheck(stretchTree)
- );
-
- DeleteTree(stretchTree);
-
- longLivedTree = BottomUpTree(0, maxDepth);
-
- for (depth = minDepth; depth <= maxDepth; depth += 2)
- {
- long i, iterations, check;
-
- iterations = pow(2, maxDepth - depth + minDepth);
-
- check = 0;
-
- for (i = 1; i <= iterations; i++)
- {
- tempTree = BottomUpTree(i, depth);
- check += ItemCheck(tempTree);
- DeleteTree(tempTree);
-
- tempTree = BottomUpTree(-i, depth);
- check += ItemCheck(tempTree);
- DeleteTree(tempTree);
- } /* for(i = 1...) */
-
- printf
- (
- "%li\t trees of depth %u\t check: %li\n",
- iterations * 2,
- depth,
- check
- );
- } /* for(depth = minDepth...) */
-
- printf
- (
- "long lived tree of depth %u\t check: %li\n",
- maxDepth,
- ItemCheck(longLivedTree)
- );
-
- return 0;
-} /* main() */
diff --git a/example/shootout/fannkuch/fannkuch_c.c b/example/shootout/fannkuch/fannkuch_c.c
deleted file mode 100644
index c1d7ae1..0000000
--- a/example/shootout/fannkuch/fannkuch_c.c
+++ /dev/null
@@ -1,105 +0,0 @@
-/*
- * The Computer Lannguage Shootout
- * http://shootout.alioth.debian.org/
- * Contributed by Heiner Marxen
- *
- * "fannkuch" for C gcc
- *
- * $Id: fannkuch-gcc.code,v 1.47 2007-11-28 00:30:54 igouy-guest Exp $
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-#define Int int
-#define Aint int
-
- static long
-fannkuch( int n )
-{
- Aint* perm;
- Aint* perm1;
- Aint* count;
- long flips;
- long flipsMax;
- Int r;
- Int i;
- Int k;
- Int didpr;
- const Int n1 = n - 1;
-
- if( n < 1 ) return 0;
-
- perm = calloc(n, sizeof(*perm ));
- perm1 = calloc(n, sizeof(*perm1));
- count = calloc(n, sizeof(*count));
-
- for( i=0 ; i<n ; ++i ) perm1[i] = i; /* initial (trivial) permu */
-
- r = n; didpr = 0; flipsMax = 0;
- for(;;) {
- if( didpr < 30 ) {
- for( i=0 ; i<n ; ++i ) printf("%d", (int)(1+perm1[i]));
- printf("\n");
- ++didpr;
- }
- for( ; r!=1 ; --r ) {
- count[r-1] = r;
- }
-
-#define XCH(x,y) { Aint t_mp; t_mp=(x); (x)=(y); (y)=t_mp; }
-
- if( ! (perm1[0]==0 || perm1[n1]==n1) ) {
- flips = 0;
- for( i=1 ; i<n ; ++i ) { /* perm = perm1 */
- perm[i] = perm1[i];
- }
- k = perm1[0]; /* cache perm[0] in k */
- do { /* k!=0 ==> k>0 */
- Int j;
- for( i=1, j=k-1 ; i<j ; ++i, --j ) {
- XCH(perm[i], perm[j])
- }
- ++flips;
- /*
- * Now exchange k (caching perm[0]) and perm[k]... with care!
- * XCH(k, perm[k]) does NOT work!
- */
- j=perm[k]; perm[k]=k ; k=j;
- }while( k );
- if( flipsMax < flips ) {
- flipsMax = flips;
- }
- }
-
- for(;;) {
- if( r == n ) {
- return flipsMax;
- }
- /* rotate down perm[0..r] by one */
- {
- Int perm0 = perm1[0];
- i = 0;
- while( i < r ) {
- k = i+1;
- perm1[i] = perm1[k];
- i = k;
- }
- perm1[r] = perm0;
- }
- if( (count[r] -= 1) > 0 ) {
- break;
- }
- ++r;
- }
- }
-}
-
- int
-main( int argc, char* argv[] )
-{
- int n = (argc>1) ? atoi(argv[1]) : 0;
-
- printf("Pfannkuchen(%d) = %ld\n", n, fannkuch(n));
- return 0;
-}
diff --git a/example/shootout/fasta/fasta.c b/example/shootout/fasta/fasta.c
deleted file mode 100755
index 8b7b882..0000000
--- a/example/shootout/fasta/fasta.c
+++ /dev/null
@@ -1,2837 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// FLOAT_REAL
-#include <math.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// REAL_64
-typedef double __REAL_64;
-
-// FREQUENCY
-#define __FREQUENCY__ 0
-typedef struct FREQUENCY_struct __FREQUENCY;
-struct FREQUENCY_struct {
- __REAL_64 p__TH;
- __CHARACTER c__DNC;
-};
-__FREQUENCY FREQUENCY_;
-#define FREQUENCY__ (&FREQUENCY_)
-
-// ARRAYED_COLLECTION[FREQUENCY]
-#define __ARRAYED_COLLECTIONoFREQUENCYo__ 1
-typedef struct ARRAYED_COLLECTIONoFREQUENCYo_struct __ARRAYED_COLLECTIONoFREQUENCYo;
-struct ARRAYED_COLLECTIONoFREQUENCYo_struct {
- __INTEGER upper__JH;
- __INTEGER capacity__FJC;
- void **storage__BKC;
-};
-__ARRAYED_COLLECTIONoFREQUENCYo ARRAYED_COLLECTIONoFREQUENCYo_;
-#define ARRAYED_COLLECTIONoFREQUENCYo__ (&ARRAYED_COLLECTIONoFREQUENCYo_)
-
-// FAST_ARRAY[FREQUENCY]
-#define __FAST_ARRAYoFREQUENCYo__ 2
-typedef struct FAST_ARRAYoFREQUENCYo_struct __FAST_ARRAYoFREQUENCYo;
-struct FAST_ARRAYoFREQUENCYo_struct {
- __ARRAYED_COLLECTIONoFREQUENCYo parent_arrayed_collection__FB;
-};
-__FAST_ARRAYoFREQUENCYo FAST_ARRAYoFREQUENCYo_;
-#define FAST_ARRAYoFREQUENCYo__ (&FAST_ARRAYoFREQUENCYo_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 3
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__MI;
- __CHARACTER *storage__JVD;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// MEMORY
-#define __MEMORY__ 4
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__3Q;
- volatile __UINTEGER_32 size_and_id__4Q;
- __MEMORY *next_free__5Q;
- __MEMORY *previous_free__AR;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// STRING
-#define __STRING__ 5
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__2HH;
- __INTEGER capacity__CKH;
- __CHARACTER *storage__LKH;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 6
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER capacity__GOC;
- __INTEGER upper__SOC;
- void **storage__3IC;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 7
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__GC;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// NUMERIC
-#define __NUMERIC__ 8
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 9
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// FASTA
-#define __FASTA__ 10
-typedef struct FASTA_struct __FASTA;
-struct FASTA_struct {
- void *Nothing;
-};
-__FASTA FASTA_;
-#define FASTA__ (&FASTA_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[11];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__TKB;
-__UINTEGER_32 nb_page__2XB;
-__UINTEGER_32 capacity_max__IKD;
-__MEMORY *first_free__5JG;
-__UINTEGER_32 clone_allocation_size__TQ;
-void *iub__GB;
-void *homo_sapiens__IB;
-__CHARACTER *pick__PJ;
-__INTEGER last__FCG;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={3,"ONE"};
-__STRING_CONSTANT __string_2={16,"Homo sapiens alu"};
-__STRING_CONSTANT __string_3={287,"GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTG\
-GGAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGACCAGCCTGGCCAACATGGTGAAACCCCGTCTCT\
-ACTAAAAATACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAATCCCAGCTACTCGGGAGGCTGAGGCAGGAG\
-AATCGCTTGAACCCGGGAGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTGCACTCCAGCCTGGGCGACAGAGC\
-GAGACTCCGTCTCAAAAA"};
-__STRING_CONSTANT __string_4={3,"TWO"};
-__STRING_CONSTANT __string_5={19,"IUB ambiguity codes"};
-__STRING_CONSTANT __string_6={5,"THREE"};
-__STRING_CONSTANT __string_7={22,"Homo sapiens frequency"};
-__STRING_CONSTANT __string_8={19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__KXB(__UINTEGER_32 t__MXB);
-static void** create__5EG(__INTEGER nb_elements__BFG);
-static __CHARACTER* create__T4D(__INTEGER nb_elements__V4D);
-static __POINTER realloc_dynamic__old_size__new_size__RGI(__POINTER p__TGI,__UINTEGER_32 old_sz__UGI,__UINTEGER_32 new_sz__VGI);
-static __FAST_ARRAYoFREQUENCYo* create_with_capacity__YL(__INTEGER new_count__0L);
-static void add_last__AJC(__FAST_ARRAYoFREQUENCYo *Self__BJC,void *element__CJC);
-static void print__3N(__STRING_CONSTANT *Self__4N);
-static void make_random_fasta__3J(void *id__5J,void *desc__AK,void *a__BK,__INTEGER n__CK);
-static __MEMORY* new_page__4JD();
-static __MEMORY* search__2IG(__UINTEGER_32 new_size__4IG);
-static void** create__VNE(__INTEGER nb_elements__XNE);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __INTEGER new_count__4O,typ_id__AV,Self__JP,limit_up__KP,idx__PQD;
- __INTEGER typ_id__XCE,i__UHH,new_capacity__GDL,__tmp__5DL,__tmp__B1L;
- __INTEGER Self__B1M,new_capacity__ISD,__tmp__MTD,__tmp__YRH,Self__CZM;
- __INTEGER state__PFM,result__SFM,i__OFM,__tmp__OQU,__tmp__QQU;
- __INTEGER typ_id__ATU,typ_id__LTU,typ_id__WTU,typ_id__BUU,typ_id__MUU;
- __INTEGER typ_id__XUU,typ_id__CVU,typ_id__NVU,typ_id__YVU,typ_id__DWU;
- __INTEGER typ_id__OWU,typ_id__ZWU,typ_id__EXU,typ_id__PXU,typ_id__0XU;
- __INTEGER typ_id__FYU,typ_id__QYU,typ_id__1YU,typ_id__3R,Self__5BV;
- __INTEGER limit_up__BCV,Self__GN,limit_up__HN,n__GI,j__JI,idx__LI;
- __INTEGER kn__II,k__HI,i__KI,result__LOD;
- __POINTER ptr__1U,ptr_table__J0U,next__I0U,result__K0U,ptr_table__P0U;
- __POINTER next__O0U,result__Q0U,ptr__SCE,ptr_table__V0U,next__U0U;
- __POINTER result__W0U,ptr_table__10U,next__00U,result__20U,ptr__5SU;
- __POINTER ptr_table__B1U,next__A1U,result__C1U,ptr_table__H1U;
- __POINTER next__G1U,result__I1U,ptr__KTU,ptr_table__N1U,next__M1U;
- __POINTER result__O1U,ptr_table__T1U,next__S1U,result__U1U,ptr__VTU;
- __POINTER ptr_table__Z1U,next__Y1U,result__01U,ptr_table__51U;
- __POINTER next__41U,result__A2U,ptr__AUU,ptr_table__F2U,next__E2U;
- __POINTER result__G2U,ptr_table__L2U,next__K2U,result__M2U,ptr__LUU;
- __POINTER ptr_table__R2U,next__Q2U,result__S2U,ptr_table__X2U;
- __POINTER next__W2U,result__Y2U,ptr__WUU,ptr_table__32U,next__22U;
- __POINTER result__42U,ptr_table__D3U,next__C3U,result__E3U,ptr__BVU;
- __POINTER ptr_table__J3U,next__I3U,result__K3U,ptr_table__P3U;
- __POINTER next__O3U,result__Q3U,ptr__MVU,ptr_table__V3U,next__U3U;
- __POINTER result__W3U,ptr_table__13U,next__03U,result__23U,ptr__XVU;
- __POINTER ptr_table__B4U,next__A4U,result__C4U,ptr_table__H4U;
- __POINTER next__G4U,result__I4U,ptr__CWU,ptr_table__N4U,next__M4U;
- __POINTER result__O4U,ptr_table__T4U,next__S4U,result__U4U,ptr__NWU;
- __POINTER ptr_table__Z4U,next__Y4U,result__04U,ptr_table__54U;
- __POINTER next__44U,result__A5U,ptr__YWU,ptr_table__F5U,next__E5U;
- __POINTER result__G5U,ptr_table__L5U,next__K5U,result__M5U,ptr__DXU;
- __POINTER ptr_table__R5U,next__Q5U,result__S5U,ptr_table__X5U;
- __POINTER next__W5U,result__Y5U,ptr__OXU,ptr_table__35U,next__25U;
- __POINTER result__45U,ptr_table__DAV,next__CAV,result__EAV,ptr__ZXU;
- __POINTER ptr_table__JAV,next__IAV,result__KAV,ptr_table__PAV;
- __POINTER next__OAV,result__QAV,ptr__EYU,ptr_table__VAV,next__UAV;
- __POINTER result__WAV,ptr_table__1AV,next__0AV,result__2AV,ptr__PYU;
- __POINTER ptr_table__BBV,next__ABV,result__CBV,ptr_table__HBV;
- __POINTER next__GBV,result__IBV,ptr__0YU,ptr_table__NBV,next__MBV;
- __POINTER result__OBV,ptr_table__TBV,next__SBV,result__UBV,ptr__YR;
- __POINTER ptr_table__ZBV,next__YBV,result__0BV,ptr_table__ZIB;
- __POINTER next__4IB,result__2IB;
- __UINTEGER_32 sz__3U,a__UPU,new_size__VPU,t__4PU,a__1PU,new_size__S0U;
- __UINTEGER_32 lab_type__R0U,sz__UCE,a__RMU,new_size__SCB,t__1DB;
- __UINTEGER_32 a__XMU,new_size__40U,lab_type__30U,sz__BTU,a__CTU;
- __UINTEGER_32 new_size__DTU,t__ETU,a__FTU,new_size__K1U,lab_type__J1U;
- __UINTEGER_32 sz__MTU,a__NTU,new_size__OTU,t__PTU,a__QTU;
- __UINTEGER_32 new_size__W1U,lab_type__V1U,sz__XTU,a__YTU;
- __UINTEGER_32 new_size__ZTU,t__0TU,a__1TU,new_size__C2U,lab_type__B2U;
- __UINTEGER_32 sz__CUU,a__DUU,new_size__EUU,t__FUU,a__GUU;
- __UINTEGER_32 new_size__O2U,lab_type__N2U,sz__NUU,a__OUU;
- __UINTEGER_32 new_size__PUU,t__QUU,a__RUU,new_size__02U,lab_type__Z2U;
- __UINTEGER_32 sz__YUU,a__ZUU,new_size__0UU,t__1UU,a__2UU;
- __UINTEGER_32 new_size__G3U,lab_type__F3U,sz__DVU,a__EVU;
- __UINTEGER_32 new_size__FVU,t__GVU,a__HVU,new_size__S3U,lab_type__R3U;
- __UINTEGER_32 sz__OVU,a__PVU,new_size__QVU,t__RVU,a__SVU;
- __UINTEGER_32 new_size__43U,lab_type__33U,sz__ZVU,a__0VU;
- __UINTEGER_32 new_size__1VU,t__2VU,a__3VU,new_size__K4U,lab_type__J4U;
- __UINTEGER_32 sz__EWU,a__FWU,new_size__GWU,t__HWU,a__IWU;
- __UINTEGER_32 new_size__W4U,lab_type__V4U,sz__PWU,a__QWU;
- __UINTEGER_32 new_size__RWU,t__SWU,a__TWU,new_size__C5U,lab_type__B5U;
- __UINTEGER_32 sz__0WU,a__1WU,new_size__2WU,t__3WU,a__4WU;
- __UINTEGER_32 new_size__O5U,lab_type__N5U,sz__FXU,a__GXU;
- __UINTEGER_32 new_size__HXU,t__IXU,a__JXU,new_size__05U,lab_type__Z5U;
- __UINTEGER_32 sz__QXU,a__RXU,new_size__SXU,t__TXU,a__UXU;
- __UINTEGER_32 new_size__GAV,lab_type__FAV,sz__1XU,a__2XU;
- __UINTEGER_32 new_size__3XU,t__4XU,a__5XU,new_size__SAV,lab_type__RAV;
- __UINTEGER_32 sz__GYU,a__HYU,new_size__IYU,t__JYU,a__KYU;
- __UINTEGER_32 new_size__4AV,lab_type__3AV,sz__RYU,a__SYU;
- __UINTEGER_32 new_size__TYU,t__UYU,a__VYU,new_size__KBV,lab_type__JBV;
- __UINTEGER_32 sz__2YU,a__3YU,new_size__4YU,t__5YU,a__AZU;
- __UINTEGER_32 new_size__WBV,lab_type__VBV,sz__0R,a__BOU,new_size__COU;
- __UINTEGER_32 t__LOU,a__IOU,new_size__YIB,lab_type__0IB;
- __STRING *result__RCE,*Self__TJH,*Self__SHH,*Self__MFM;
- __REAL_64 p_p__ITU,p_p__TTU,p_p__4TU,p_p__JUU,p_p__UUU,p_p__5UU;
- __REAL_64 p_p__KVU,p_p__VVU,p_p__AWU,p_p__LWU,p_p__WWU,p_p__BXU;
- __REAL_64 p_p__MXU,p_p__XXU,p_p__CYU,p_p__NYU,p_p__YYU,p_p__DZU;
- __REAL_64 p_p__HM,cp__4BV,cp__GH;
- __FREQUENCY *result__4SU,*Self__GTU,*result__JTU,*Self__RTU;
- __FREQUENCY *result__UTU,*Self__2TU,*result__5TU,*Self__HUU;
- __FREQUENCY *result__KUU,*Self__SUU,*result__VUU,*Self__3UU;
- __FREQUENCY *result__AVU,*Self__IVU,*result__LVU,*Self__TVU;
- __FREQUENCY *result__WVU,*Self__4VU,*result__BWU,*Self__JWU;
- __FREQUENCY *result__MWU,*Self__UWU,*result__XWU,*Self__5WU;
- __FREQUENCY *result__CXU,*Self__KXU,*result__NXU,*Self__VXU;
- __FREQUENCY *result__YXU,*Self__AYU,*result__DYU,*Self__LYU;
- __FREQUENCY *result__OYU,*Self__WYU,*result__ZYU,*Self__BZU;
- __FREQUENCY *result__XR,*Self__ANC;
- __CHARACTER *arg__GL,*Self__DQD,*p__THH,*__tmp__4DL,*new__O0L;
- __CHARACTER *__tmp__PQU,*__tmp__YQU;
- __FAST_ARRAYoSTRINGo *result__0U,*Self__3NC,*Self__GSD;
- void *result__FL;
- __CHARACTER __tmp__JIH,cc__QFM;
- __BOOLEAN __tmp__WSD,negative__RFM,__tmp__4GM,result__EUR,__tmp__RHM;
- __BOOLEAN __tmp__GIM,result__IAQ,__tmp__NJM,result__0AQ,result__D0Q;
- void **__tmp__LTD,**new__FRH;
- void **__tmp__CCV,**__tmp__DCV,**__tmp__XSU,**__tmp__YSU;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoSTRINGo__->storage__3IC=NULL;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__GOC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->upper__SOC= 0;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__GC=(*ARRAYED_COLLECTIONoSTRINGo__);
- parent_numeric__H=NUMERIC__;
- clone_allocation_size__TQ= 0;
- STRING_CONSTANT__->count__MI=((__INTEGER )((0)));
- STRING_CONSTANT__->storage__JVD=((__CHARACTER *)(NULL));
- nb_page__2XB= 0;
- MEMORY__->size_and_id__4Q= 0;
- capacity_max__IKD= 0;
- begin_memory__TKB=((__POINTER )(NULL));
- MEMORY__->previous_linear__3Q= 0;
- first_free__5JG=NULL;
- MEMORY__->next_free__5Q=NULL;
- MEMORY__->previous_free__AR=NULL;
- STRING__->capacity__CKH= 0;
- STRING__->storage__LKH=NULL;
- STRING__->count__2HH= 0;
- arg__GL=NULL;
- new_count__4O=((__INTEGER )(arg_count));
- result__0U=NULL;
- ptr__1U=((__POINTER )(NULL));
- typ_id__AV= 0;
- sz__3U=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__3U == 0)) {
- result__0U=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__AV=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__TQ=sz__3U;
- if ((typ_id__AV == (__INTEGER)(- 1))) {
- a__UPU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VPU=(__UINTEGER_32)((__UINTEGER_32)(sz__3U + a__UPU) & (__UINTEGER_32)(~ a__UPU));
- ptr_table__J0U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VPU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__I0U=((__POINTER )(NULL));
- result__K0U=((__POINTER *)ptr_table__J0U)[ 0];
- if ((result__K0U == (void *)NULL)) {
- result__K0U=new_lab__KXB(new_size__VPU);
- next__I0U=(void *)((unsigned long)result__K0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VPU)));
- ((__POINTER *)next__I0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__J0U)[ 0]=next__I0U;
- } else {
- next__I0U=((__POINTER *)result__K0U)[ 0];
- if ((next__I0U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K0U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__VPU << 1)) <= 4096)) {
- next__I0U=(void *)((unsigned long)result__K0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VPU)));
- } else {
- next__I0U=new_lab__KXB(new_size__VPU);
- };
- ((__POINTER *)next__I0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__J0U)[ 0]=next__I0U;
- } else {
- ((__POINTER *)result__K0U)[ 0]=(void *)((unsigned long)((__POINTER *)next__I0U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K0U=next__I0U;
- };
- };
- ptr__1U=result__K0U;
- } else {
- t__4PU=((__UINTEGER_32 )typ_id__AV);
- a__1PU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__S0U=(__UINTEGER_32)((__UINTEGER_32)(sz__3U + a__1PU) & (__UINTEGER_32)(~ a__1PU));
- ptr_table__P0U=((__POINTER )(&(table_type[(t__4PU)])));
- lab_type__R0U=(__UINTEGER_32)(t__4PU | 1);
- next__O0U=((__POINTER )(NULL));
- result__Q0U=((__POINTER *)ptr_table__P0U)[ 0];
- if ((result__Q0U == (void *)NULL)) {
- result__Q0U=new_lab__KXB(lab_type__R0U);
- next__O0U=(void *)((unsigned long)result__Q0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0U)));
- ((__POINTER *)next__O0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__P0U)[ 0]=next__O0U;
- } else {
- next__O0U=((__POINTER *)result__Q0U)[ 0];
- if ((next__O0U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q0U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__S0U << 1)) <= 4096)) {
- next__O0U=(void *)((unsigned long)result__Q0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0U)));
- } else {
- next__O0U=new_lab__KXB(lab_type__R0U);
- };
- ((__POINTER *)next__O0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__P0U)[ 0]=next__O0U;
- } else {
- ((__POINTER *)result__Q0U)[ 0]=(void *)((unsigned long)((__POINTER *)next__O0U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q0U=next__O0U;
- };
- };
- ptr__1U=result__Q0U;
- };
- result__0U=((__FAST_ARRAYoSTRINGo *)ptr__1U);
- *(result__0U) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__3NC=((__FAST_ARRAYoSTRINGo *)result__0U);
- if ((Self__3NC->parent_arrayed_collection__GC.capacity__GOC < new_count__4O)) {
- Self__3NC->parent_arrayed_collection__GC.storage__3IC=create__5EG(new_count__4O);
- Self__3NC->parent_arrayed_collection__GC.capacity__GOC=new_count__4O;
- };
- Self__3NC->parent_arrayed_collection__GC.upper__SOC=(__INTEGER)(- 1);
- result__FL=result__0U;
- Self__JP= 0;
- limit_up__KP=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__JP <= limit_up__KP)) {
- arg__GL=((__CHARACTER *)(arg_vector[(Self__JP)]));
- Self__DQD=((__CHARACTER *)arg__GL);
- idx__PQD= 0;
- while ((! ((idx__PQD > 1024) || ('\0' == Self__DQD[idx__PQD])))) {
- idx__PQD=(__INTEGER)(idx__PQD + 1);
- };
- result__RCE=NULL;
- ptr__SCE=((__POINTER )(NULL));
- typ_id__XCE= 0;
- sz__UCE=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__UCE == 0)) {
- result__RCE=STRING__;
- } else {
- typ_id__XCE=__STRING__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__UCE);
- if ((typ_id__XCE == (__INTEGER)(- 1))) {
- a__RMU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SCB=(__UINTEGER_32)((__UINTEGER_32)(sz__UCE + a__RMU) & (__UINTEGER_32)(~ a__RMU));
- ptr_table__V0U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SCB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__U0U=((__POINTER )(NULL));
- result__W0U=((__POINTER *)ptr_table__V0U)[ 0];
- if ((result__W0U == (void *)NULL)) {
- result__W0U=new_lab__KXB(new_size__SCB);
- next__U0U=(void *)((unsigned long)result__W0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SCB)));
- ((__POINTER *)next__U0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__V0U)[ 0]=next__U0U;
- } else {
- next__U0U=((__POINTER *)result__W0U)[ 0];
- if ((next__U0U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W0U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__SCB << 1)) <= 4096)) {
- next__U0U=(void *)((unsigned long)result__W0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SCB)));
- } else {
- next__U0U=new_lab__KXB(new_size__SCB);
- };
- ((__POINTER *)next__U0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__V0U)[ 0]=next__U0U;
- } else {
- ((__POINTER *)result__W0U)[ 0]=(void *)((unsigned long)((__POINTER *)next__U0U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__W0U=next__U0U;
- };
- };
- ptr__SCE=result__W0U;
- } else {
- t__1DB=((__UINTEGER_32 )typ_id__XCE);
- a__XMU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__40U=(__UINTEGER_32)((__UINTEGER_32)(sz__UCE + a__XMU) & (__UINTEGER_32)(~ a__XMU));
- ptr_table__10U=((__POINTER )(&(table_type[(t__1DB)])));
- lab_type__30U=(__UINTEGER_32)(t__1DB | 1);
- next__00U=((__POINTER )(NULL));
- result__20U=((__POINTER *)ptr_table__10U)[ 0];
- if ((result__20U == (void *)NULL)) {
- result__20U=new_lab__KXB(lab_type__30U);
- next__00U=(void *)((unsigned long)result__20U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__40U)));
- ((__POINTER *)next__00U)[ 0]=NULL;
- ((__POINTER *)ptr_table__10U)[ 0]=next__00U;
- } else {
- next__00U=((__POINTER *)result__20U)[ 0];
- if ((next__00U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__20U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__40U << 1)) <= 4096)) {
- next__00U=(void *)((unsigned long)result__20U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__40U)));
- } else {
- next__00U=new_lab__KXB(lab_type__30U);
- };
- ((__POINTER *)next__00U)[ 0]=NULL;
- ((__POINTER *)ptr_table__10U)[ 0]=next__00U;
- } else {
- ((__POINTER *)result__20U)[ 0]=(void *)((unsigned long)((__POINTER *)next__00U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__20U=next__00U;
- };
- };
- ptr__SCE=result__20U;
- };
- result__RCE=((__STRING *)ptr__SCE);
- *(result__RCE) = *(STRING__);
- };
- Self__TJH=((__STRING *)result__RCE);
- if ((idx__PQD > 0)) {
- if ((Self__TJH->capacity__CKH < idx__PQD)) {
- Self__TJH->storage__LKH=create__T4D(idx__PQD);
- Self__TJH->capacity__CKH=idx__PQD;
- };
- };
- Self__TJH->count__2HH= 0;
- Self__SHH=((__STRING *)result__RCE);
- p__THH=arg__GL;
- i__UHH= 0;
- Self__SHH->count__2HH= 0;
- while ((((__CHARACTER *)p__THH)[i__UHH] != '\0')) {
- __tmp__JIH=((__CHARACTER *)p__THH)[i__UHH];
- new_capacity__GDL= 0;
- if ((Self__SHH->capacity__CKH <= Self__SHH->count__2HH)) {
- if ((Self__SHH->capacity__CKH == 0)) {
- Self__SHH->capacity__CKH= 32;
- Self__SHH->storage__LKH=create__T4D( 32);
- } else {
- new_capacity__GDL=(__INTEGER)(Self__SHH->capacity__CKH << 1);
- __tmp__4DL=Self__SHH->storage__LKH;
- __tmp__5DL=Self__SHH->capacity__CKH;
- new__O0L=((__CHARACTER *)realloc_dynamic__old_size__new_size__RGI(((__POINTER )((__CHARACTER *)__tmp__4DL)),((__UINTEGER_32 )__tmp__5DL),((__UINTEGER_32 )new_capacity__GDL)));
- __tmp__B1L=(__INTEGER)(new_capacity__GDL - 1);
- Self__B1M=__tmp__5DL;
- while ((Self__B1M <= __tmp__B1L)) {
- new__O0L[Self__B1M]='\0';
- Self__B1M=(__INTEGER)(Self__B1M + 1);
- };
- Self__SHH->storage__LKH=new__O0L;
- Self__SHH->capacity__CKH=new_capacity__GDL;
- };
- };
- ((__CHARACTER *)Self__SHH->storage__LKH)[Self__SHH->count__2HH]=__tmp__JIH;
- Self__SHH->count__2HH=(__INTEGER)(Self__SHH->count__2HH + 1);
- i__UHH=(__INTEGER)(i__UHH + 1);
- };
- Self__GSD=((__FAST_ARRAYoSTRINGo *)result__FL);
- new_capacity__ISD= 0;
- if (((__INTEGER)(Self__GSD->parent_arrayed_collection__GC.upper__SOC + 1) <= (__INTEGER)(Self__GSD->parent_arrayed_collection__GC.capacity__GOC - 1))) {
- Self__GSD->parent_arrayed_collection__GC.upper__SOC=(__INTEGER)(Self__GSD->parent_arrayed_collection__GC.upper__SOC + 1);
- __tmp__WSD=TRUE__;
- } else {
- __tmp__WSD=FALSE__;
- };
- if ((! __tmp__WSD)) {
- if ((Self__GSD->parent_arrayed_collection__GC.capacity__GOC == 0)) {
- Self__GSD->parent_arrayed_collection__GC.storage__3IC=create__5EG( 2);
- Self__GSD->parent_arrayed_collection__GC.capacity__GOC= 2;
- Self__GSD->parent_arrayed_collection__GC.upper__SOC= 0;
- } else {
- new_capacity__ISD=(__INTEGER)(Self__GSD->parent_arrayed_collection__GC.capacity__GOC << 1);
- __tmp__LTD=Self__GSD->parent_arrayed_collection__GC.storage__3IC;
- __tmp__MTD=Self__GSD->parent_arrayed_collection__GC.capacity__GOC;
- new__FRH=((void **)realloc_dynamic__old_size__new_size__RGI(((__POINTER )((void **)__tmp__LTD)),((__UINTEGER_32 )(__INTEGER)(__tmp__MTD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__ISD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__YRH=(__INTEGER)(new_capacity__ISD - 1);
- Self__CZM=__tmp__MTD;
- while ((Self__CZM <= __tmp__YRH)) {
- new__FRH[Self__CZM]=NULL;
- Self__CZM=(__INTEGER)(Self__CZM + 1);
- };
- Self__GSD->parent_arrayed_collection__GC.storage__3IC=new__FRH;
- Self__GSD->parent_arrayed_collection__GC.capacity__GOC=new_capacity__ISD;
- Self__GSD->parent_arrayed_collection__GC.upper__SOC=(__INTEGER)(Self__GSD->parent_arrayed_collection__GC.upper__SOC + 1);
- };
- };
- ((void **)Self__GSD->parent_arrayed_collection__GC.storage__3IC)[Self__GSD->parent_arrayed_collection__GC.upper__SOC]=result__RCE;
- Self__JP=(__INTEGER)(Self__JP + 1);
- };
- ARRAYED_COLLECTIONoFREQUENCYo__->upper__JH= 0;
- ARRAYED_COLLECTIONoFREQUENCYo__->capacity__FJC= 0;
- ARRAYED_COLLECTIONoFREQUENCYo__->storage__BKC=NULL;
- FAST_ARRAYoFREQUENCYo__->parent_arrayed_collection__FB=(*ARRAYED_COLLECTIONoFREQUENCYo__);
- iub__GB=NULL;
- FREQUENCY__->c__DNC='\0';
- FREQUENCY__->p__TH=((__REAL_64 ) 0);
- homo_sapiens__IB=NULL;
- pick__PJ=create__T4D( 61);
- last__FCG= 42;
- Self__MFM=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__0U)->parent_arrayed_collection__GC.storage__3IC)[ 1]);
- state__PFM= 0;
- cc__QFM='\0';
- negative__RFM=FALSE__;
- result__SFM= 0;
- i__OFM= 1;
- __tmp__OQU=Self__MFM->count__2HH;
- __tmp__PQU=Self__MFM->storage__LKH;
- __tmp__QQU=Self__MFM->count__2HH;
- while ((i__OFM <= __tmp__OQU)) {
- cc__QFM=((__CHARACTER *)__tmp__PQU)[(__INTEGER)(i__OFM - 1)];
- if ((state__PFM == 0)) {
- if ((((((((cc__QFM == ' ') || (cc__QFM == '\t')) || (cc__QFM == '\n')) || (cc__QFM == '\r')) || (cc__QFM == '\0')) || (cc__QFM == '\f')) || (cc__QFM == '\v'))) {
- __tmp__4GM=TRUE__;
- } else {
- result__EUR=(cc__QFM == '+');
- if (result__EUR) {
- state__PFM= 1;
- };
- __tmp__4GM=result__EUR;
- };
- if ((! __tmp__4GM)) {
- if ((cc__QFM == '-')) {
- negative__RFM=TRUE__;
- state__PFM= 1;
- } else {
- result__SFM=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QFM)) - 48);
- state__PFM= 2;
- };
- };
- __tmp__RHM=TRUE__;
- } else {
- __tmp__RHM=FALSE__;
- };
- if (__tmp__RHM) {
- __tmp__GIM=TRUE__;
- } else {
- result__IAQ=(state__PFM == 1);
- if (result__IAQ) {
- result__SFM=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QFM)) - 48);
- if (negative__RFM) {
- result__SFM=(__INTEGER)(- result__SFM);
- };
- state__PFM= 2;
- };
- __tmp__GIM=result__IAQ;
- };
- if (__tmp__GIM) {
- __tmp__NJM=TRUE__;
- } else {
- result__0AQ=(state__PFM == 2);
- if (result__0AQ) {
- result__D0Q=FALSE__;
- if ((((__INTEGER_8 )cc__QFM) >= ((__INTEGER_8 )'0'))) {
- result__D0Q=(((__INTEGER_8 )cc__QFM) <= ((__INTEGER_8 )'9'));
- };
- if (result__D0Q) {
- if (negative__RFM) {
- result__SFM=(__INTEGER)((__INTEGER)( 10 * result__SFM) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QFM)) - 48));
- } else {
- result__SFM=(__INTEGER)((__INTEGER)( 10 * result__SFM) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QFM)) - 48));
- };
- } else {
- state__PFM= 3;
- };
- };
- __tmp__NJM=result__0AQ;
- };
- if ((! __tmp__NJM)) {
- if ((state__PFM == 3)) {
- i__OFM=__tmp__QQU;
- };
- };
- i__OFM=(__INTEGER)(i__OFM + 1);
- };
- iub__GB=create_with_capacity__YL( 15);
- p_p__ITU=((__REAL_64 )0.27);
- result__4SU=NULL;
- ptr__5SU=((__POINTER )(NULL));
- typ_id__ATU= 0;
- sz__BTU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__BTU == 0)) {
- result__4SU=FREQUENCY__;
- } else {
- typ_id__ATU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__BTU);
- if ((typ_id__ATU == (__INTEGER)(- 1))) {
- a__CTU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DTU=(__UINTEGER_32)((__UINTEGER_32)(sz__BTU + a__CTU) & (__UINTEGER_32)(~ a__CTU));
- ptr_table__B1U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DTU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__A1U=((__POINTER )(NULL));
- result__C1U=((__POINTER *)ptr_table__B1U)[ 0];
- if ((result__C1U == (void *)NULL)) {
- result__C1U=new_lab__KXB(new_size__DTU);
- next__A1U=(void *)((unsigned long)result__C1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DTU)));
- ((__POINTER *)next__A1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__B1U)[ 0]=next__A1U;
- } else {
- next__A1U=((__POINTER *)result__C1U)[ 0];
- if ((next__A1U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C1U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__DTU << 1)) <= 4096)) {
- next__A1U=(void *)((unsigned long)result__C1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DTU)));
- } else {
- next__A1U=new_lab__KXB(new_size__DTU);
- };
- ((__POINTER *)next__A1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__B1U)[ 0]=next__A1U;
- } else {
- ((__POINTER *)result__C1U)[ 0]=(void *)((unsigned long)((__POINTER *)next__A1U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C1U=next__A1U;
- };
- };
- ptr__5SU=result__C1U;
- } else {
- t__ETU=((__UINTEGER_32 )typ_id__ATU);
- a__FTU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__K1U=(__UINTEGER_32)((__UINTEGER_32)(sz__BTU + a__FTU) & (__UINTEGER_32)(~ a__FTU));
- ptr_table__H1U=((__POINTER )(&(table_type[(t__ETU)])));
- lab_type__J1U=(__UINTEGER_32)(t__ETU | 1);
- next__G1U=((__POINTER )(NULL));
- result__I1U=((__POINTER *)ptr_table__H1U)[ 0];
- if ((result__I1U == (void *)NULL)) {
- result__I1U=new_lab__KXB(lab_type__J1U);
- next__G1U=(void *)((unsigned long)result__I1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K1U)));
- ((__POINTER *)next__G1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__H1U)[ 0]=next__G1U;
- } else {
- next__G1U=((__POINTER *)result__I1U)[ 0];
- if ((next__G1U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I1U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__K1U << 1)) <= 4096)) {
- next__G1U=(void *)((unsigned long)result__I1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K1U)));
- } else {
- next__G1U=new_lab__KXB(lab_type__J1U);
- };
- ((__POINTER *)next__G1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__H1U)[ 0]=next__G1U;
- } else {
- ((__POINTER *)result__I1U)[ 0]=(void *)((unsigned long)((__POINTER *)next__G1U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__I1U=next__G1U;
- };
- };
- ptr__5SU=result__I1U;
- };
- result__4SU=((__FREQUENCY *)ptr__5SU);
- *(result__4SU) = *(FREQUENCY__);
- };
- Self__GTU=((__FREQUENCY *)result__4SU);
- Self__GTU->c__DNC='a';
- Self__GTU->p__TH=p_p__ITU;
- add_last__AJC(iub__GB,result__4SU);
- p_p__TTU=((__REAL_64 )0.12);
- result__JTU=NULL;
- ptr__KTU=((__POINTER )(NULL));
- typ_id__LTU= 0;
- sz__MTU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__MTU == 0)) {
- result__JTU=FREQUENCY__;
- } else {
- typ_id__LTU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__MTU);
- if ((typ_id__LTU == (__INTEGER)(- 1))) {
- a__NTU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OTU=(__UINTEGER_32)((__UINTEGER_32)(sz__MTU + a__NTU) & (__UINTEGER_32)(~ a__NTU));
- ptr_table__N1U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OTU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__M1U=((__POINTER )(NULL));
- result__O1U=((__POINTER *)ptr_table__N1U)[ 0];
- if ((result__O1U == (void *)NULL)) {
- result__O1U=new_lab__KXB(new_size__OTU);
- next__M1U=(void *)((unsigned long)result__O1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTU)));
- ((__POINTER *)next__M1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__N1U)[ 0]=next__M1U;
- } else {
- next__M1U=((__POINTER *)result__O1U)[ 0];
- if ((next__M1U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O1U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__OTU << 1)) <= 4096)) {
- next__M1U=(void *)((unsigned long)result__O1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTU)));
- } else {
- next__M1U=new_lab__KXB(new_size__OTU);
- };
- ((__POINTER *)next__M1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__N1U)[ 0]=next__M1U;
- } else {
- ((__POINTER *)result__O1U)[ 0]=(void *)((unsigned long)((__POINTER *)next__M1U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__O1U=next__M1U;
- };
- };
- ptr__KTU=result__O1U;
- } else {
- t__PTU=((__UINTEGER_32 )typ_id__LTU);
- a__QTU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__W1U=(__UINTEGER_32)((__UINTEGER_32)(sz__MTU + a__QTU) & (__UINTEGER_32)(~ a__QTU));
- ptr_table__T1U=((__POINTER )(&(table_type[(t__PTU)])));
- lab_type__V1U=(__UINTEGER_32)(t__PTU | 1);
- next__S1U=((__POINTER )(NULL));
- result__U1U=((__POINTER *)ptr_table__T1U)[ 0];
- if ((result__U1U == (void *)NULL)) {
- result__U1U=new_lab__KXB(lab_type__V1U);
- next__S1U=(void *)((unsigned long)result__U1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1U)));
- ((__POINTER *)next__S1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__T1U)[ 0]=next__S1U;
- } else {
- next__S1U=((__POINTER *)result__U1U)[ 0];
- if ((next__S1U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U1U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__W1U << 1)) <= 4096)) {
- next__S1U=(void *)((unsigned long)result__U1U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1U)));
- } else {
- next__S1U=new_lab__KXB(lab_type__V1U);
- };
- ((__POINTER *)next__S1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__T1U)[ 0]=next__S1U;
- } else {
- ((__POINTER *)result__U1U)[ 0]=(void *)((unsigned long)((__POINTER *)next__S1U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__U1U=next__S1U;
- };
- };
- ptr__KTU=result__U1U;
- };
- result__JTU=((__FREQUENCY *)ptr__KTU);
- *(result__JTU) = *(FREQUENCY__);
- };
- Self__RTU=((__FREQUENCY *)result__JTU);
- Self__RTU->c__DNC='c';
- Self__RTU->p__TH=p_p__TTU;
- add_last__AJC(iub__GB,result__JTU);
- p_p__4TU=((__REAL_64 )0.12);
- result__UTU=NULL;
- ptr__VTU=((__POINTER )(NULL));
- typ_id__WTU= 0;
- sz__XTU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__XTU == 0)) {
- result__UTU=FREQUENCY__;
- } else {
- typ_id__WTU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__XTU);
- if ((typ_id__WTU == (__INTEGER)(- 1))) {
- a__YTU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZTU=(__UINTEGER_32)((__UINTEGER_32)(sz__XTU + a__YTU) & (__UINTEGER_32)(~ a__YTU));
- ptr_table__Z1U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZTU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Y1U=((__POINTER )(NULL));
- result__01U=((__POINTER *)ptr_table__Z1U)[ 0];
- if ((result__01U == (void *)NULL)) {
- result__01U=new_lab__KXB(new_size__ZTU);
- next__Y1U=(void *)((unsigned long)result__01U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZTU)));
- ((__POINTER *)next__Y1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z1U)[ 0]=next__Y1U;
- } else {
- next__Y1U=((__POINTER *)result__01U)[ 0];
- if ((next__Y1U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__01U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__ZTU << 1)) <= 4096)) {
- next__Y1U=(void *)((unsigned long)result__01U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZTU)));
- } else {
- next__Y1U=new_lab__KXB(new_size__ZTU);
- };
- ((__POINTER *)next__Y1U)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z1U)[ 0]=next__Y1U;
- } else {
- ((__POINTER *)result__01U)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y1U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__01U=next__Y1U;
- };
- };
- ptr__VTU=result__01U;
- } else {
- t__0TU=((__UINTEGER_32 )typ_id__WTU);
- a__1TU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__C2U=(__UINTEGER_32)((__UINTEGER_32)(sz__XTU + a__1TU) & (__UINTEGER_32)(~ a__1TU));
- ptr_table__51U=((__POINTER )(&(table_type[(t__0TU)])));
- lab_type__B2U=(__UINTEGER_32)(t__0TU | 1);
- next__41U=((__POINTER )(NULL));
- result__A2U=((__POINTER *)ptr_table__51U)[ 0];
- if ((result__A2U == (void *)NULL)) {
- result__A2U=new_lab__KXB(lab_type__B2U);
- next__41U=(void *)((unsigned long)result__A2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C2U)));
- ((__POINTER *)next__41U)[ 0]=NULL;
- ((__POINTER *)ptr_table__51U)[ 0]=next__41U;
- } else {
- next__41U=((__POINTER *)result__A2U)[ 0];
- if ((next__41U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A2U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__C2U << 1)) <= 4096)) {
- next__41U=(void *)((unsigned long)result__A2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C2U)));
- } else {
- next__41U=new_lab__KXB(lab_type__B2U);
- };
- ((__POINTER *)next__41U)[ 0]=NULL;
- ((__POINTER *)ptr_table__51U)[ 0]=next__41U;
- } else {
- ((__POINTER *)result__A2U)[ 0]=(void *)((unsigned long)((__POINTER *)next__41U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__A2U=next__41U;
- };
- };
- ptr__VTU=result__A2U;
- };
- result__UTU=((__FREQUENCY *)ptr__VTU);
- *(result__UTU) = *(FREQUENCY__);
- };
- Self__2TU=((__FREQUENCY *)result__UTU);
- Self__2TU->c__DNC='g';
- Self__2TU->p__TH=p_p__4TU;
- add_last__AJC(iub__GB,result__UTU);
- p_p__JUU=((__REAL_64 )0.27);
- result__5TU=NULL;
- ptr__AUU=((__POINTER )(NULL));
- typ_id__BUU= 0;
- sz__CUU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__CUU == 0)) {
- result__5TU=FREQUENCY__;
- } else {
- typ_id__BUU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__CUU);
- if ((typ_id__BUU == (__INTEGER)(- 1))) {
- a__DUU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EUU=(__UINTEGER_32)((__UINTEGER_32)(sz__CUU + a__DUU) & (__UINTEGER_32)(~ a__DUU));
- ptr_table__F2U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EUU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__E2U=((__POINTER )(NULL));
- result__G2U=((__POINTER *)ptr_table__F2U)[ 0];
- if ((result__G2U == (void *)NULL)) {
- result__G2U=new_lab__KXB(new_size__EUU);
- next__E2U=(void *)((unsigned long)result__G2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EUU)));
- ((__POINTER *)next__E2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__F2U)[ 0]=next__E2U;
- } else {
- next__E2U=((__POINTER *)result__G2U)[ 0];
- if ((next__E2U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G2U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__EUU << 1)) <= 4096)) {
- next__E2U=(void *)((unsigned long)result__G2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EUU)));
- } else {
- next__E2U=new_lab__KXB(new_size__EUU);
- };
- ((__POINTER *)next__E2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__F2U)[ 0]=next__E2U;
- } else {
- ((__POINTER *)result__G2U)[ 0]=(void *)((unsigned long)((__POINTER *)next__E2U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__G2U=next__E2U;
- };
- };
- ptr__AUU=result__G2U;
- } else {
- t__FUU=((__UINTEGER_32 )typ_id__BUU);
- a__GUU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__O2U=(__UINTEGER_32)((__UINTEGER_32)(sz__CUU + a__GUU) & (__UINTEGER_32)(~ a__GUU));
- ptr_table__L2U=((__POINTER )(&(table_type[(t__FUU)])));
- lab_type__N2U=(__UINTEGER_32)(t__FUU | 1);
- next__K2U=((__POINTER )(NULL));
- result__M2U=((__POINTER *)ptr_table__L2U)[ 0];
- if ((result__M2U == (void *)NULL)) {
- result__M2U=new_lab__KXB(lab_type__N2U);
- next__K2U=(void *)((unsigned long)result__M2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O2U)));
- ((__POINTER *)next__K2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__L2U)[ 0]=next__K2U;
- } else {
- next__K2U=((__POINTER *)result__M2U)[ 0];
- if ((next__K2U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M2U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__O2U << 1)) <= 4096)) {
- next__K2U=(void *)((unsigned long)result__M2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O2U)));
- } else {
- next__K2U=new_lab__KXB(lab_type__N2U);
- };
- ((__POINTER *)next__K2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__L2U)[ 0]=next__K2U;
- } else {
- ((__POINTER *)result__M2U)[ 0]=(void *)((unsigned long)((__POINTER *)next__K2U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__M2U=next__K2U;
- };
- };
- ptr__AUU=result__M2U;
- };
- result__5TU=((__FREQUENCY *)ptr__AUU);
- *(result__5TU) = *(FREQUENCY__);
- };
- Self__HUU=((__FREQUENCY *)result__5TU);
- Self__HUU->c__DNC='t';
- Self__HUU->p__TH=p_p__JUU;
- add_last__AJC(iub__GB,result__5TU);
- p_p__UUU=((__REAL_64 )0.02);
- result__KUU=NULL;
- ptr__LUU=((__POINTER )(NULL));
- typ_id__MUU= 0;
- sz__NUU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__NUU == 0)) {
- result__KUU=FREQUENCY__;
- } else {
- typ_id__MUU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__NUU);
- if ((typ_id__MUU == (__INTEGER)(- 1))) {
- a__OUU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PUU=(__UINTEGER_32)((__UINTEGER_32)(sz__NUU + a__OUU) & (__UINTEGER_32)(~ a__OUU));
- ptr_table__R2U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PUU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Q2U=((__POINTER )(NULL));
- result__S2U=((__POINTER *)ptr_table__R2U)[ 0];
- if ((result__S2U == (void *)NULL)) {
- result__S2U=new_lab__KXB(new_size__PUU);
- next__Q2U=(void *)((unsigned long)result__S2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PUU)));
- ((__POINTER *)next__Q2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__R2U)[ 0]=next__Q2U;
- } else {
- next__Q2U=((__POINTER *)result__S2U)[ 0];
- if ((next__Q2U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S2U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__PUU << 1)) <= 4096)) {
- next__Q2U=(void *)((unsigned long)result__S2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PUU)));
- } else {
- next__Q2U=new_lab__KXB(new_size__PUU);
- };
- ((__POINTER *)next__Q2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__R2U)[ 0]=next__Q2U;
- } else {
- ((__POINTER *)result__S2U)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q2U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__S2U=next__Q2U;
- };
- };
- ptr__LUU=result__S2U;
- } else {
- t__QUU=((__UINTEGER_32 )typ_id__MUU);
- a__RUU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__02U=(__UINTEGER_32)((__UINTEGER_32)(sz__NUU + a__RUU) & (__UINTEGER_32)(~ a__RUU));
- ptr_table__X2U=((__POINTER )(&(table_type[(t__QUU)])));
- lab_type__Z2U=(__UINTEGER_32)(t__QUU | 1);
- next__W2U=((__POINTER )(NULL));
- result__Y2U=((__POINTER *)ptr_table__X2U)[ 0];
- if ((result__Y2U == (void *)NULL)) {
- result__Y2U=new_lab__KXB(lab_type__Z2U);
- next__W2U=(void *)((unsigned long)result__Y2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02U)));
- ((__POINTER *)next__W2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__X2U)[ 0]=next__W2U;
- } else {
- next__W2U=((__POINTER *)result__Y2U)[ 0];
- if ((next__W2U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y2U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__02U << 1)) <= 4096)) {
- next__W2U=(void *)((unsigned long)result__Y2U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02U)));
- } else {
- next__W2U=new_lab__KXB(lab_type__Z2U);
- };
- ((__POINTER *)next__W2U)[ 0]=NULL;
- ((__POINTER *)ptr_table__X2U)[ 0]=next__W2U;
- } else {
- ((__POINTER *)result__Y2U)[ 0]=(void *)((unsigned long)((__POINTER *)next__W2U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Y2U=next__W2U;
- };
- };
- ptr__LUU=result__Y2U;
- };
- result__KUU=((__FREQUENCY *)ptr__LUU);
- *(result__KUU) = *(FREQUENCY__);
- };
- Self__SUU=((__FREQUENCY *)result__KUU);
- Self__SUU->c__DNC='B';
- Self__SUU->p__TH=p_p__UUU;
- add_last__AJC(iub__GB,result__KUU);
- p_p__5UU=((__REAL_64 )0.02);
- result__VUU=NULL;
- ptr__WUU=((__POINTER )(NULL));
- typ_id__XUU= 0;
- sz__YUU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__YUU == 0)) {
- result__VUU=FREQUENCY__;
- } else {
- typ_id__XUU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__YUU);
- if ((typ_id__XUU == (__INTEGER)(- 1))) {
- a__ZUU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0UU=(__UINTEGER_32)((__UINTEGER_32)(sz__YUU + a__ZUU) & (__UINTEGER_32)(~ a__ZUU));
- ptr_table__32U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0UU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__22U=((__POINTER )(NULL));
- result__42U=((__POINTER *)ptr_table__32U)[ 0];
- if ((result__42U == (void *)NULL)) {
- result__42U=new_lab__KXB(new_size__0UU);
- next__22U=(void *)((unsigned long)result__42U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UU)));
- ((__POINTER *)next__22U)[ 0]=NULL;
- ((__POINTER *)ptr_table__32U)[ 0]=next__22U;
- } else {
- next__22U=((__POINTER *)result__42U)[ 0];
- if ((next__22U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__42U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__0UU << 1)) <= 4096)) {
- next__22U=(void *)((unsigned long)result__42U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UU)));
- } else {
- next__22U=new_lab__KXB(new_size__0UU);
- };
- ((__POINTER *)next__22U)[ 0]=NULL;
- ((__POINTER *)ptr_table__32U)[ 0]=next__22U;
- } else {
- ((__POINTER *)result__42U)[ 0]=(void *)((unsigned long)((__POINTER *)next__22U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__42U=next__22U;
- };
- };
- ptr__WUU=result__42U;
- } else {
- t__1UU=((__UINTEGER_32 )typ_id__XUU);
- a__2UU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__G3U=(__UINTEGER_32)((__UINTEGER_32)(sz__YUU + a__2UU) & (__UINTEGER_32)(~ a__2UU));
- ptr_table__D3U=((__POINTER )(&(table_type[(t__1UU)])));
- lab_type__F3U=(__UINTEGER_32)(t__1UU | 1);
- next__C3U=((__POINTER )(NULL));
- result__E3U=((__POINTER *)ptr_table__D3U)[ 0];
- if ((result__E3U == (void *)NULL)) {
- result__E3U=new_lab__KXB(lab_type__F3U);
- next__C3U=(void *)((unsigned long)result__E3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G3U)));
- ((__POINTER *)next__C3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__D3U)[ 0]=next__C3U;
- } else {
- next__C3U=((__POINTER *)result__E3U)[ 0];
- if ((next__C3U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E3U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__G3U << 1)) <= 4096)) {
- next__C3U=(void *)((unsigned long)result__E3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G3U)));
- } else {
- next__C3U=new_lab__KXB(lab_type__F3U);
- };
- ((__POINTER *)next__C3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__D3U)[ 0]=next__C3U;
- } else {
- ((__POINTER *)result__E3U)[ 0]=(void *)((unsigned long)((__POINTER *)next__C3U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__E3U=next__C3U;
- };
- };
- ptr__WUU=result__E3U;
- };
- result__VUU=((__FREQUENCY *)ptr__WUU);
- *(result__VUU) = *(FREQUENCY__);
- };
- Self__3UU=((__FREQUENCY *)result__VUU);
- Self__3UU->c__DNC='D';
- Self__3UU->p__TH=p_p__5UU;
- add_last__AJC(iub__GB,result__VUU);
- p_p__KVU=((__REAL_64 )0.02);
- result__AVU=NULL;
- ptr__BVU=((__POINTER )(NULL));
- typ_id__CVU= 0;
- sz__DVU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__DVU == 0)) {
- result__AVU=FREQUENCY__;
- } else {
- typ_id__CVU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__DVU);
- if ((typ_id__CVU == (__INTEGER)(- 1))) {
- a__EVU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FVU=(__UINTEGER_32)((__UINTEGER_32)(sz__DVU + a__EVU) & (__UINTEGER_32)(~ a__EVU));
- ptr_table__J3U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FVU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__I3U=((__POINTER )(NULL));
- result__K3U=((__POINTER *)ptr_table__J3U)[ 0];
- if ((result__K3U == (void *)NULL)) {
- result__K3U=new_lab__KXB(new_size__FVU);
- next__I3U=(void *)((unsigned long)result__K3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FVU)));
- ((__POINTER *)next__I3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__J3U)[ 0]=next__I3U;
- } else {
- next__I3U=((__POINTER *)result__K3U)[ 0];
- if ((next__I3U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K3U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__FVU << 1)) <= 4096)) {
- next__I3U=(void *)((unsigned long)result__K3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FVU)));
- } else {
- next__I3U=new_lab__KXB(new_size__FVU);
- };
- ((__POINTER *)next__I3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__J3U)[ 0]=next__I3U;
- } else {
- ((__POINTER *)result__K3U)[ 0]=(void *)((unsigned long)((__POINTER *)next__I3U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K3U=next__I3U;
- };
- };
- ptr__BVU=result__K3U;
- } else {
- t__GVU=((__UINTEGER_32 )typ_id__CVU);
- a__HVU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__S3U=(__UINTEGER_32)((__UINTEGER_32)(sz__DVU + a__HVU) & (__UINTEGER_32)(~ a__HVU));
- ptr_table__P3U=((__POINTER )(&(table_type[(t__GVU)])));
- lab_type__R3U=(__UINTEGER_32)(t__GVU | 1);
- next__O3U=((__POINTER )(NULL));
- result__Q3U=((__POINTER *)ptr_table__P3U)[ 0];
- if ((result__Q3U == (void *)NULL)) {
- result__Q3U=new_lab__KXB(lab_type__R3U);
- next__O3U=(void *)((unsigned long)result__Q3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S3U)));
- ((__POINTER *)next__O3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__P3U)[ 0]=next__O3U;
- } else {
- next__O3U=((__POINTER *)result__Q3U)[ 0];
- if ((next__O3U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q3U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__S3U << 1)) <= 4096)) {
- next__O3U=(void *)((unsigned long)result__Q3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S3U)));
- } else {
- next__O3U=new_lab__KXB(lab_type__R3U);
- };
- ((__POINTER *)next__O3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__P3U)[ 0]=next__O3U;
- } else {
- ((__POINTER *)result__Q3U)[ 0]=(void *)((unsigned long)((__POINTER *)next__O3U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q3U=next__O3U;
- };
- };
- ptr__BVU=result__Q3U;
- };
- result__AVU=((__FREQUENCY *)ptr__BVU);
- *(result__AVU) = *(FREQUENCY__);
- };
- Self__IVU=((__FREQUENCY *)result__AVU);
- Self__IVU->c__DNC='H';
- Self__IVU->p__TH=p_p__KVU;
- add_last__AJC(iub__GB,result__AVU);
- p_p__VVU=((__REAL_64 )0.02);
- result__LVU=NULL;
- ptr__MVU=((__POINTER )(NULL));
- typ_id__NVU= 0;
- sz__OVU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__OVU == 0)) {
- result__LVU=FREQUENCY__;
- } else {
- typ_id__NVU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__OVU);
- if ((typ_id__NVU == (__INTEGER)(- 1))) {
- a__PVU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QVU=(__UINTEGER_32)((__UINTEGER_32)(sz__OVU + a__PVU) & (__UINTEGER_32)(~ a__PVU));
- ptr_table__V3U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QVU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__U3U=((__POINTER )(NULL));
- result__W3U=((__POINTER *)ptr_table__V3U)[ 0];
- if ((result__W3U == (void *)NULL)) {
- result__W3U=new_lab__KXB(new_size__QVU);
- next__U3U=(void *)((unsigned long)result__W3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QVU)));
- ((__POINTER *)next__U3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__V3U)[ 0]=next__U3U;
- } else {
- next__U3U=((__POINTER *)result__W3U)[ 0];
- if ((next__U3U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W3U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__QVU << 1)) <= 4096)) {
- next__U3U=(void *)((unsigned long)result__W3U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QVU)));
- } else {
- next__U3U=new_lab__KXB(new_size__QVU);
- };
- ((__POINTER *)next__U3U)[ 0]=NULL;
- ((__POINTER *)ptr_table__V3U)[ 0]=next__U3U;
- } else {
- ((__POINTER *)result__W3U)[ 0]=(void *)((unsigned long)((__POINTER *)next__U3U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__W3U=next__U3U;
- };
- };
- ptr__MVU=result__W3U;
- } else {
- t__RVU=((__UINTEGER_32 )typ_id__NVU);
- a__SVU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__43U=(__UINTEGER_32)((__UINTEGER_32)(sz__OVU + a__SVU) & (__UINTEGER_32)(~ a__SVU));
- ptr_table__13U=((__POINTER )(&(table_type[(t__RVU)])));
- lab_type__33U=(__UINTEGER_32)(t__RVU | 1);
- next__03U=((__POINTER )(NULL));
- result__23U=((__POINTER *)ptr_table__13U)[ 0];
- if ((result__23U == (void *)NULL)) {
- result__23U=new_lab__KXB(lab_type__33U);
- next__03U=(void *)((unsigned long)result__23U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__43U)));
- ((__POINTER *)next__03U)[ 0]=NULL;
- ((__POINTER *)ptr_table__13U)[ 0]=next__03U;
- } else {
- next__03U=((__POINTER *)result__23U)[ 0];
- if ((next__03U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__23U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__43U << 1)) <= 4096)) {
- next__03U=(void *)((unsigned long)result__23U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__43U)));
- } else {
- next__03U=new_lab__KXB(lab_type__33U);
- };
- ((__POINTER *)next__03U)[ 0]=NULL;
- ((__POINTER *)ptr_table__13U)[ 0]=next__03U;
- } else {
- ((__POINTER *)result__23U)[ 0]=(void *)((unsigned long)((__POINTER *)next__03U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__23U=next__03U;
- };
- };
- ptr__MVU=result__23U;
- };
- result__LVU=((__FREQUENCY *)ptr__MVU);
- *(result__LVU) = *(FREQUENCY__);
- };
- Self__TVU=((__FREQUENCY *)result__LVU);
- Self__TVU->c__DNC='K';
- Self__TVU->p__TH=p_p__VVU;
- add_last__AJC(iub__GB,result__LVU);
- p_p__AWU=((__REAL_64 )0.02);
- result__WVU=NULL;
- ptr__XVU=((__POINTER )(NULL));
- typ_id__YVU= 0;
- sz__ZVU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__ZVU == 0)) {
- result__WVU=FREQUENCY__;
- } else {
- typ_id__YVU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__ZVU);
- if ((typ_id__YVU == (__INTEGER)(- 1))) {
- a__0VU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1VU=(__UINTEGER_32)((__UINTEGER_32)(sz__ZVU + a__0VU) & (__UINTEGER_32)(~ a__0VU));
- ptr_table__B4U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1VU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__A4U=((__POINTER )(NULL));
- result__C4U=((__POINTER *)ptr_table__B4U)[ 0];
- if ((result__C4U == (void *)NULL)) {
- result__C4U=new_lab__KXB(new_size__1VU);
- next__A4U=(void *)((unsigned long)result__C4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1VU)));
- ((__POINTER *)next__A4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__B4U)[ 0]=next__A4U;
- } else {
- next__A4U=((__POINTER *)result__C4U)[ 0];
- if ((next__A4U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C4U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__1VU << 1)) <= 4096)) {
- next__A4U=(void *)((unsigned long)result__C4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1VU)));
- } else {
- next__A4U=new_lab__KXB(new_size__1VU);
- };
- ((__POINTER *)next__A4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__B4U)[ 0]=next__A4U;
- } else {
- ((__POINTER *)result__C4U)[ 0]=(void *)((unsigned long)((__POINTER *)next__A4U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C4U=next__A4U;
- };
- };
- ptr__XVU=result__C4U;
- } else {
- t__2VU=((__UINTEGER_32 )typ_id__YVU);
- a__3VU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__K4U=(__UINTEGER_32)((__UINTEGER_32)(sz__ZVU + a__3VU) & (__UINTEGER_32)(~ a__3VU));
- ptr_table__H4U=((__POINTER )(&(table_type[(t__2VU)])));
- lab_type__J4U=(__UINTEGER_32)(t__2VU | 1);
- next__G4U=((__POINTER )(NULL));
- result__I4U=((__POINTER *)ptr_table__H4U)[ 0];
- if ((result__I4U == (void *)NULL)) {
- result__I4U=new_lab__KXB(lab_type__J4U);
- next__G4U=(void *)((unsigned long)result__I4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K4U)));
- ((__POINTER *)next__G4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__H4U)[ 0]=next__G4U;
- } else {
- next__G4U=((__POINTER *)result__I4U)[ 0];
- if ((next__G4U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I4U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__K4U << 1)) <= 4096)) {
- next__G4U=(void *)((unsigned long)result__I4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K4U)));
- } else {
- next__G4U=new_lab__KXB(lab_type__J4U);
- };
- ((__POINTER *)next__G4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__H4U)[ 0]=next__G4U;
- } else {
- ((__POINTER *)result__I4U)[ 0]=(void *)((unsigned long)((__POINTER *)next__G4U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__I4U=next__G4U;
- };
- };
- ptr__XVU=result__I4U;
- };
- result__WVU=((__FREQUENCY *)ptr__XVU);
- *(result__WVU) = *(FREQUENCY__);
- };
- Self__4VU=((__FREQUENCY *)result__WVU);
- Self__4VU->c__DNC='M';
- Self__4VU->p__TH=p_p__AWU;
- add_last__AJC(iub__GB,result__WVU);
- p_p__LWU=((__REAL_64 )0.02);
- result__BWU=NULL;
- ptr__CWU=((__POINTER )(NULL));
- typ_id__DWU= 0;
- sz__EWU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__EWU == 0)) {
- result__BWU=FREQUENCY__;
- } else {
- typ_id__DWU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__EWU);
- if ((typ_id__DWU == (__INTEGER)(- 1))) {
- a__FWU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GWU=(__UINTEGER_32)((__UINTEGER_32)(sz__EWU + a__FWU) & (__UINTEGER_32)(~ a__FWU));
- ptr_table__N4U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GWU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__M4U=((__POINTER )(NULL));
- result__O4U=((__POINTER *)ptr_table__N4U)[ 0];
- if ((result__O4U == (void *)NULL)) {
- result__O4U=new_lab__KXB(new_size__GWU);
- next__M4U=(void *)((unsigned long)result__O4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GWU)));
- ((__POINTER *)next__M4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__N4U)[ 0]=next__M4U;
- } else {
- next__M4U=((__POINTER *)result__O4U)[ 0];
- if ((next__M4U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O4U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__GWU << 1)) <= 4096)) {
- next__M4U=(void *)((unsigned long)result__O4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GWU)));
- } else {
- next__M4U=new_lab__KXB(new_size__GWU);
- };
- ((__POINTER *)next__M4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__N4U)[ 0]=next__M4U;
- } else {
- ((__POINTER *)result__O4U)[ 0]=(void *)((unsigned long)((__POINTER *)next__M4U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__O4U=next__M4U;
- };
- };
- ptr__CWU=result__O4U;
- } else {
- t__HWU=((__UINTEGER_32 )typ_id__DWU);
- a__IWU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__W4U=(__UINTEGER_32)((__UINTEGER_32)(sz__EWU + a__IWU) & (__UINTEGER_32)(~ a__IWU));
- ptr_table__T4U=((__POINTER )(&(table_type[(t__HWU)])));
- lab_type__V4U=(__UINTEGER_32)(t__HWU | 1);
- next__S4U=((__POINTER )(NULL));
- result__U4U=((__POINTER *)ptr_table__T4U)[ 0];
- if ((result__U4U == (void *)NULL)) {
- result__U4U=new_lab__KXB(lab_type__V4U);
- next__S4U=(void *)((unsigned long)result__U4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4U)));
- ((__POINTER *)next__S4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__T4U)[ 0]=next__S4U;
- } else {
- next__S4U=((__POINTER *)result__U4U)[ 0];
- if ((next__S4U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U4U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__W4U << 1)) <= 4096)) {
- next__S4U=(void *)((unsigned long)result__U4U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4U)));
- } else {
- next__S4U=new_lab__KXB(lab_type__V4U);
- };
- ((__POINTER *)next__S4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__T4U)[ 0]=next__S4U;
- } else {
- ((__POINTER *)result__U4U)[ 0]=(void *)((unsigned long)((__POINTER *)next__S4U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__U4U=next__S4U;
- };
- };
- ptr__CWU=result__U4U;
- };
- result__BWU=((__FREQUENCY *)ptr__CWU);
- *(result__BWU) = *(FREQUENCY__);
- };
- Self__JWU=((__FREQUENCY *)result__BWU);
- Self__JWU->c__DNC='N';
- Self__JWU->p__TH=p_p__LWU;
- add_last__AJC(iub__GB,result__BWU);
- p_p__WWU=((__REAL_64 )0.02);
- result__MWU=NULL;
- ptr__NWU=((__POINTER )(NULL));
- typ_id__OWU= 0;
- sz__PWU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__PWU == 0)) {
- result__MWU=FREQUENCY__;
- } else {
- typ_id__OWU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__PWU);
- if ((typ_id__OWU == (__INTEGER)(- 1))) {
- a__QWU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RWU=(__UINTEGER_32)((__UINTEGER_32)(sz__PWU + a__QWU) & (__UINTEGER_32)(~ a__QWU));
- ptr_table__Z4U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RWU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Y4U=((__POINTER )(NULL));
- result__04U=((__POINTER *)ptr_table__Z4U)[ 0];
- if ((result__04U == (void *)NULL)) {
- result__04U=new_lab__KXB(new_size__RWU);
- next__Y4U=(void *)((unsigned long)result__04U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RWU)));
- ((__POINTER *)next__Y4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z4U)[ 0]=next__Y4U;
- } else {
- next__Y4U=((__POINTER *)result__04U)[ 0];
- if ((next__Y4U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__04U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__RWU << 1)) <= 4096)) {
- next__Y4U=(void *)((unsigned long)result__04U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RWU)));
- } else {
- next__Y4U=new_lab__KXB(new_size__RWU);
- };
- ((__POINTER *)next__Y4U)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z4U)[ 0]=next__Y4U;
- } else {
- ((__POINTER *)result__04U)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y4U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__04U=next__Y4U;
- };
- };
- ptr__NWU=result__04U;
- } else {
- t__SWU=((__UINTEGER_32 )typ_id__OWU);
- a__TWU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__C5U=(__UINTEGER_32)((__UINTEGER_32)(sz__PWU + a__TWU) & (__UINTEGER_32)(~ a__TWU));
- ptr_table__54U=((__POINTER )(&(table_type[(t__SWU)])));
- lab_type__B5U=(__UINTEGER_32)(t__SWU | 1);
- next__44U=((__POINTER )(NULL));
- result__A5U=((__POINTER *)ptr_table__54U)[ 0];
- if ((result__A5U == (void *)NULL)) {
- result__A5U=new_lab__KXB(lab_type__B5U);
- next__44U=(void *)((unsigned long)result__A5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C5U)));
- ((__POINTER *)next__44U)[ 0]=NULL;
- ((__POINTER *)ptr_table__54U)[ 0]=next__44U;
- } else {
- next__44U=((__POINTER *)result__A5U)[ 0];
- if ((next__44U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A5U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__C5U << 1)) <= 4096)) {
- next__44U=(void *)((unsigned long)result__A5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C5U)));
- } else {
- next__44U=new_lab__KXB(lab_type__B5U);
- };
- ((__POINTER *)next__44U)[ 0]=NULL;
- ((__POINTER *)ptr_table__54U)[ 0]=next__44U;
- } else {
- ((__POINTER *)result__A5U)[ 0]=(void *)((unsigned long)((__POINTER *)next__44U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__A5U=next__44U;
- };
- };
- ptr__NWU=result__A5U;
- };
- result__MWU=((__FREQUENCY *)ptr__NWU);
- *(result__MWU) = *(FREQUENCY__);
- };
- Self__UWU=((__FREQUENCY *)result__MWU);
- Self__UWU->c__DNC='R';
- Self__UWU->p__TH=p_p__WWU;
- add_last__AJC(iub__GB,result__MWU);
- p_p__BXU=((__REAL_64 )0.02);
- result__XWU=NULL;
- ptr__YWU=((__POINTER )(NULL));
- typ_id__ZWU= 0;
- sz__0WU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__0WU == 0)) {
- result__XWU=FREQUENCY__;
- } else {
- typ_id__ZWU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__0WU);
- if ((typ_id__ZWU == (__INTEGER)(- 1))) {
- a__1WU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2WU=(__UINTEGER_32)((__UINTEGER_32)(sz__0WU + a__1WU) & (__UINTEGER_32)(~ a__1WU));
- ptr_table__F5U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2WU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__E5U=((__POINTER )(NULL));
- result__G5U=((__POINTER *)ptr_table__F5U)[ 0];
- if ((result__G5U == (void *)NULL)) {
- result__G5U=new_lab__KXB(new_size__2WU);
- next__E5U=(void *)((unsigned long)result__G5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2WU)));
- ((__POINTER *)next__E5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__F5U)[ 0]=next__E5U;
- } else {
- next__E5U=((__POINTER *)result__G5U)[ 0];
- if ((next__E5U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G5U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__2WU << 1)) <= 4096)) {
- next__E5U=(void *)((unsigned long)result__G5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2WU)));
- } else {
- next__E5U=new_lab__KXB(new_size__2WU);
- };
- ((__POINTER *)next__E5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__F5U)[ 0]=next__E5U;
- } else {
- ((__POINTER *)result__G5U)[ 0]=(void *)((unsigned long)((__POINTER *)next__E5U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__G5U=next__E5U;
- };
- };
- ptr__YWU=result__G5U;
- } else {
- t__3WU=((__UINTEGER_32 )typ_id__ZWU);
- a__4WU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__O5U=(__UINTEGER_32)((__UINTEGER_32)(sz__0WU + a__4WU) & (__UINTEGER_32)(~ a__4WU));
- ptr_table__L5U=((__POINTER )(&(table_type[(t__3WU)])));
- lab_type__N5U=(__UINTEGER_32)(t__3WU | 1);
- next__K5U=((__POINTER )(NULL));
- result__M5U=((__POINTER *)ptr_table__L5U)[ 0];
- if ((result__M5U == (void *)NULL)) {
- result__M5U=new_lab__KXB(lab_type__N5U);
- next__K5U=(void *)((unsigned long)result__M5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O5U)));
- ((__POINTER *)next__K5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__L5U)[ 0]=next__K5U;
- } else {
- next__K5U=((__POINTER *)result__M5U)[ 0];
- if ((next__K5U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M5U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__O5U << 1)) <= 4096)) {
- next__K5U=(void *)((unsigned long)result__M5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O5U)));
- } else {
- next__K5U=new_lab__KXB(lab_type__N5U);
- };
- ((__POINTER *)next__K5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__L5U)[ 0]=next__K5U;
- } else {
- ((__POINTER *)result__M5U)[ 0]=(void *)((unsigned long)((__POINTER *)next__K5U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__M5U=next__K5U;
- };
- };
- ptr__YWU=result__M5U;
- };
- result__XWU=((__FREQUENCY *)ptr__YWU);
- *(result__XWU) = *(FREQUENCY__);
- };
- Self__5WU=((__FREQUENCY *)result__XWU);
- Self__5WU->c__DNC='S';
- Self__5WU->p__TH=p_p__BXU;
- add_last__AJC(iub__GB,result__XWU);
- p_p__MXU=((__REAL_64 )0.02);
- result__CXU=NULL;
- ptr__DXU=((__POINTER )(NULL));
- typ_id__EXU= 0;
- sz__FXU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__FXU == 0)) {
- result__CXU=FREQUENCY__;
- } else {
- typ_id__EXU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__FXU);
- if ((typ_id__EXU == (__INTEGER)(- 1))) {
- a__GXU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HXU=(__UINTEGER_32)((__UINTEGER_32)(sz__FXU + a__GXU) & (__UINTEGER_32)(~ a__GXU));
- ptr_table__R5U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HXU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Q5U=((__POINTER )(NULL));
- result__S5U=((__POINTER *)ptr_table__R5U)[ 0];
- if ((result__S5U == (void *)NULL)) {
- result__S5U=new_lab__KXB(new_size__HXU);
- next__Q5U=(void *)((unsigned long)result__S5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HXU)));
- ((__POINTER *)next__Q5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__R5U)[ 0]=next__Q5U;
- } else {
- next__Q5U=((__POINTER *)result__S5U)[ 0];
- if ((next__Q5U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S5U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__HXU << 1)) <= 4096)) {
- next__Q5U=(void *)((unsigned long)result__S5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HXU)));
- } else {
- next__Q5U=new_lab__KXB(new_size__HXU);
- };
- ((__POINTER *)next__Q5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__R5U)[ 0]=next__Q5U;
- } else {
- ((__POINTER *)result__S5U)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q5U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__S5U=next__Q5U;
- };
- };
- ptr__DXU=result__S5U;
- } else {
- t__IXU=((__UINTEGER_32 )typ_id__EXU);
- a__JXU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__05U=(__UINTEGER_32)((__UINTEGER_32)(sz__FXU + a__JXU) & (__UINTEGER_32)(~ a__JXU));
- ptr_table__X5U=((__POINTER )(&(table_type[(t__IXU)])));
- lab_type__Z5U=(__UINTEGER_32)(t__IXU | 1);
- next__W5U=((__POINTER )(NULL));
- result__Y5U=((__POINTER *)ptr_table__X5U)[ 0];
- if ((result__Y5U == (void *)NULL)) {
- result__Y5U=new_lab__KXB(lab_type__Z5U);
- next__W5U=(void *)((unsigned long)result__Y5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__05U)));
- ((__POINTER *)next__W5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__X5U)[ 0]=next__W5U;
- } else {
- next__W5U=((__POINTER *)result__Y5U)[ 0];
- if ((next__W5U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y5U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__05U << 1)) <= 4096)) {
- next__W5U=(void *)((unsigned long)result__Y5U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__05U)));
- } else {
- next__W5U=new_lab__KXB(lab_type__Z5U);
- };
- ((__POINTER *)next__W5U)[ 0]=NULL;
- ((__POINTER *)ptr_table__X5U)[ 0]=next__W5U;
- } else {
- ((__POINTER *)result__Y5U)[ 0]=(void *)((unsigned long)((__POINTER *)next__W5U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Y5U=next__W5U;
- };
- };
- ptr__DXU=result__Y5U;
- };
- result__CXU=((__FREQUENCY *)ptr__DXU);
- *(result__CXU) = *(FREQUENCY__);
- };
- Self__KXU=((__FREQUENCY *)result__CXU);
- Self__KXU->c__DNC='V';
- Self__KXU->p__TH=p_p__MXU;
- add_last__AJC(iub__GB,result__CXU);
- p_p__XXU=((__REAL_64 )0.02);
- result__NXU=NULL;
- ptr__OXU=((__POINTER )(NULL));
- typ_id__PXU= 0;
- sz__QXU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__QXU == 0)) {
- result__NXU=FREQUENCY__;
- } else {
- typ_id__PXU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__QXU);
- if ((typ_id__PXU == (__INTEGER)(- 1))) {
- a__RXU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SXU=(__UINTEGER_32)((__UINTEGER_32)(sz__QXU + a__RXU) & (__UINTEGER_32)(~ a__RXU));
- ptr_table__35U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SXU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__25U=((__POINTER )(NULL));
- result__45U=((__POINTER *)ptr_table__35U)[ 0];
- if ((result__45U == (void *)NULL)) {
- result__45U=new_lab__KXB(new_size__SXU);
- next__25U=(void *)((unsigned long)result__45U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SXU)));
- ((__POINTER *)next__25U)[ 0]=NULL;
- ((__POINTER *)ptr_table__35U)[ 0]=next__25U;
- } else {
- next__25U=((__POINTER *)result__45U)[ 0];
- if ((next__25U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__45U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__SXU << 1)) <= 4096)) {
- next__25U=(void *)((unsigned long)result__45U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SXU)));
- } else {
- next__25U=new_lab__KXB(new_size__SXU);
- };
- ((__POINTER *)next__25U)[ 0]=NULL;
- ((__POINTER *)ptr_table__35U)[ 0]=next__25U;
- } else {
- ((__POINTER *)result__45U)[ 0]=(void *)((unsigned long)((__POINTER *)next__25U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__45U=next__25U;
- };
- };
- ptr__OXU=result__45U;
- } else {
- t__TXU=((__UINTEGER_32 )typ_id__PXU);
- a__UXU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GAV=(__UINTEGER_32)((__UINTEGER_32)(sz__QXU + a__UXU) & (__UINTEGER_32)(~ a__UXU));
- ptr_table__DAV=((__POINTER )(&(table_type[(t__TXU)])));
- lab_type__FAV=(__UINTEGER_32)(t__TXU | 1);
- next__CAV=((__POINTER )(NULL));
- result__EAV=((__POINTER *)ptr_table__DAV)[ 0];
- if ((result__EAV == (void *)NULL)) {
- result__EAV=new_lab__KXB(lab_type__FAV);
- next__CAV=(void *)((unsigned long)result__EAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GAV)));
- ((__POINTER *)next__CAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__DAV)[ 0]=next__CAV;
- } else {
- next__CAV=((__POINTER *)result__EAV)[ 0];
- if ((next__CAV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EAV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__GAV << 1)) <= 4096)) {
- next__CAV=(void *)((unsigned long)result__EAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GAV)));
- } else {
- next__CAV=new_lab__KXB(lab_type__FAV);
- };
- ((__POINTER *)next__CAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__DAV)[ 0]=next__CAV;
- } else {
- ((__POINTER *)result__EAV)[ 0]=(void *)((unsigned long)((__POINTER *)next__CAV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EAV=next__CAV;
- };
- };
- ptr__OXU=result__EAV;
- };
- result__NXU=((__FREQUENCY *)ptr__OXU);
- *(result__NXU) = *(FREQUENCY__);
- };
- Self__VXU=((__FREQUENCY *)result__NXU);
- Self__VXU->c__DNC='W';
- Self__VXU->p__TH=p_p__XXU;
- add_last__AJC(iub__GB,result__NXU);
- p_p__CYU=((__REAL_64 )0.02);
- result__YXU=NULL;
- ptr__ZXU=((__POINTER )(NULL));
- typ_id__0XU= 0;
- sz__1XU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__1XU == 0)) {
- result__YXU=FREQUENCY__;
- } else {
- typ_id__0XU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__1XU);
- if ((typ_id__0XU == (__INTEGER)(- 1))) {
- a__2XU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3XU=(__UINTEGER_32)((__UINTEGER_32)(sz__1XU + a__2XU) & (__UINTEGER_32)(~ a__2XU));
- ptr_table__JAV=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3XU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__IAV=((__POINTER )(NULL));
- result__KAV=((__POINTER *)ptr_table__JAV)[ 0];
- if ((result__KAV == (void *)NULL)) {
- result__KAV=new_lab__KXB(new_size__3XU);
- next__IAV=(void *)((unsigned long)result__KAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XU)));
- ((__POINTER *)next__IAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__JAV)[ 0]=next__IAV;
- } else {
- next__IAV=((__POINTER *)result__KAV)[ 0];
- if ((next__IAV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KAV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__3XU << 1)) <= 4096)) {
- next__IAV=(void *)((unsigned long)result__KAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XU)));
- } else {
- next__IAV=new_lab__KXB(new_size__3XU);
- };
- ((__POINTER *)next__IAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__JAV)[ 0]=next__IAV;
- } else {
- ((__POINTER *)result__KAV)[ 0]=(void *)((unsigned long)((__POINTER *)next__IAV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KAV=next__IAV;
- };
- };
- ptr__ZXU=result__KAV;
- } else {
- t__4XU=((__UINTEGER_32 )typ_id__0XU);
- a__5XU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SAV=(__UINTEGER_32)((__UINTEGER_32)(sz__1XU + a__5XU) & (__UINTEGER_32)(~ a__5XU));
- ptr_table__PAV=((__POINTER )(&(table_type[(t__4XU)])));
- lab_type__RAV=(__UINTEGER_32)(t__4XU | 1);
- next__OAV=((__POINTER )(NULL));
- result__QAV=((__POINTER *)ptr_table__PAV)[ 0];
- if ((result__QAV == (void *)NULL)) {
- result__QAV=new_lab__KXB(lab_type__RAV);
- next__OAV=(void *)((unsigned long)result__QAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SAV)));
- ((__POINTER *)next__OAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__PAV)[ 0]=next__OAV;
- } else {
- next__OAV=((__POINTER *)result__QAV)[ 0];
- if ((next__OAV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QAV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__SAV << 1)) <= 4096)) {
- next__OAV=(void *)((unsigned long)result__QAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SAV)));
- } else {
- next__OAV=new_lab__KXB(lab_type__RAV);
- };
- ((__POINTER *)next__OAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__PAV)[ 0]=next__OAV;
- } else {
- ((__POINTER *)result__QAV)[ 0]=(void *)((unsigned long)((__POINTER *)next__OAV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QAV=next__OAV;
- };
- };
- ptr__ZXU=result__QAV;
- };
- result__YXU=((__FREQUENCY *)ptr__ZXU);
- *(result__YXU) = *(FREQUENCY__);
- };
- Self__AYU=((__FREQUENCY *)result__YXU);
- Self__AYU->c__DNC='Y';
- Self__AYU->p__TH=p_p__CYU;
- add_last__AJC(iub__GB,result__YXU);
- homo_sapiens__IB=create_with_capacity__YL( 4);
- p_p__NYU=((__REAL_64 )0.3029549426680);
- result__DYU=NULL;
- ptr__EYU=((__POINTER )(NULL));
- typ_id__FYU= 0;
- sz__GYU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__GYU == 0)) {
- result__DYU=FREQUENCY__;
- } else {
- typ_id__FYU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__GYU);
- if ((typ_id__FYU == (__INTEGER)(- 1))) {
- a__HYU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IYU=(__UINTEGER_32)((__UINTEGER_32)(sz__GYU + a__HYU) & (__UINTEGER_32)(~ a__HYU));
- ptr_table__VAV=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IYU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__UAV=((__POINTER )(NULL));
- result__WAV=((__POINTER *)ptr_table__VAV)[ 0];
- if ((result__WAV == (void *)NULL)) {
- result__WAV=new_lab__KXB(new_size__IYU);
- next__UAV=(void *)((unsigned long)result__WAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IYU)));
- ((__POINTER *)next__UAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__VAV)[ 0]=next__UAV;
- } else {
- next__UAV=((__POINTER *)result__WAV)[ 0];
- if ((next__UAV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WAV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__IYU << 1)) <= 4096)) {
- next__UAV=(void *)((unsigned long)result__WAV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IYU)));
- } else {
- next__UAV=new_lab__KXB(new_size__IYU);
- };
- ((__POINTER *)next__UAV)[ 0]=NULL;
- ((__POINTER *)ptr_table__VAV)[ 0]=next__UAV;
- } else {
- ((__POINTER *)result__WAV)[ 0]=(void *)((unsigned long)((__POINTER *)next__UAV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WAV=next__UAV;
- };
- };
- ptr__EYU=result__WAV;
- } else {
- t__JYU=((__UINTEGER_32 )typ_id__FYU);
- a__KYU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4AV=(__UINTEGER_32)((__UINTEGER_32)(sz__GYU + a__KYU) & (__UINTEGER_32)(~ a__KYU));
- ptr_table__1AV=((__POINTER )(&(table_type[(t__JYU)])));
- lab_type__3AV=(__UINTEGER_32)(t__JYU | 1);
- next__0AV=((__POINTER )(NULL));
- result__2AV=((__POINTER *)ptr_table__1AV)[ 0];
- if ((result__2AV == (void *)NULL)) {
- result__2AV=new_lab__KXB(lab_type__3AV);
- next__0AV=(void *)((unsigned long)result__2AV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4AV)));
- ((__POINTER *)next__0AV)[ 0]=NULL;
- ((__POINTER *)ptr_table__1AV)[ 0]=next__0AV;
- } else {
- next__0AV=((__POINTER *)result__2AV)[ 0];
- if ((next__0AV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2AV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__4AV << 1)) <= 4096)) {
- next__0AV=(void *)((unsigned long)result__2AV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4AV)));
- } else {
- next__0AV=new_lab__KXB(lab_type__3AV);
- };
- ((__POINTER *)next__0AV)[ 0]=NULL;
- ((__POINTER *)ptr_table__1AV)[ 0]=next__0AV;
- } else {
- ((__POINTER *)result__2AV)[ 0]=(void *)((unsigned long)((__POINTER *)next__0AV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2AV=next__0AV;
- };
- };
- ptr__EYU=result__2AV;
- };
- result__DYU=((__FREQUENCY *)ptr__EYU);
- *(result__DYU) = *(FREQUENCY__);
- };
- Self__LYU=((__FREQUENCY *)result__DYU);
- Self__LYU->c__DNC='a';
- Self__LYU->p__TH=p_p__NYU;
- add_last__AJC(homo_sapiens__IB,result__DYU);
- p_p__YYU=((__REAL_64 )0.1979883004921);
- result__OYU=NULL;
- ptr__PYU=((__POINTER )(NULL));
- typ_id__QYU= 0;
- sz__RYU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__RYU == 0)) {
- result__OYU=FREQUENCY__;
- } else {
- typ_id__QYU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__RYU);
- if ((typ_id__QYU == (__INTEGER)(- 1))) {
- a__SYU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TYU=(__UINTEGER_32)((__UINTEGER_32)(sz__RYU + a__SYU) & (__UINTEGER_32)(~ a__SYU));
- ptr_table__BBV=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TYU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ABV=((__POINTER )(NULL));
- result__CBV=((__POINTER *)ptr_table__BBV)[ 0];
- if ((result__CBV == (void *)NULL)) {
- result__CBV=new_lab__KXB(new_size__TYU);
- next__ABV=(void *)((unsigned long)result__CBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TYU)));
- ((__POINTER *)next__ABV)[ 0]=NULL;
- ((__POINTER *)ptr_table__BBV)[ 0]=next__ABV;
- } else {
- next__ABV=((__POINTER *)result__CBV)[ 0];
- if ((next__ABV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CBV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__TYU << 1)) <= 4096)) {
- next__ABV=(void *)((unsigned long)result__CBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TYU)));
- } else {
- next__ABV=new_lab__KXB(new_size__TYU);
- };
- ((__POINTER *)next__ABV)[ 0]=NULL;
- ((__POINTER *)ptr_table__BBV)[ 0]=next__ABV;
- } else {
- ((__POINTER *)result__CBV)[ 0]=(void *)((unsigned long)((__POINTER *)next__ABV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CBV=next__ABV;
- };
- };
- ptr__PYU=result__CBV;
- } else {
- t__UYU=((__UINTEGER_32 )typ_id__QYU);
- a__VYU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KBV=(__UINTEGER_32)((__UINTEGER_32)(sz__RYU + a__VYU) & (__UINTEGER_32)(~ a__VYU));
- ptr_table__HBV=((__POINTER )(&(table_type[(t__UYU)])));
- lab_type__JBV=(__UINTEGER_32)(t__UYU | 1);
- next__GBV=((__POINTER )(NULL));
- result__IBV=((__POINTER *)ptr_table__HBV)[ 0];
- if ((result__IBV == (void *)NULL)) {
- result__IBV=new_lab__KXB(lab_type__JBV);
- next__GBV=(void *)((unsigned long)result__IBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KBV)));
- ((__POINTER *)next__GBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__HBV)[ 0]=next__GBV;
- } else {
- next__GBV=((__POINTER *)result__IBV)[ 0];
- if ((next__GBV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IBV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__KBV << 1)) <= 4096)) {
- next__GBV=(void *)((unsigned long)result__IBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KBV)));
- } else {
- next__GBV=new_lab__KXB(lab_type__JBV);
- };
- ((__POINTER *)next__GBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__HBV)[ 0]=next__GBV;
- } else {
- ((__POINTER *)result__IBV)[ 0]=(void *)((unsigned long)((__POINTER *)next__GBV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IBV=next__GBV;
- };
- };
- ptr__PYU=result__IBV;
- };
- result__OYU=((__FREQUENCY *)ptr__PYU);
- *(result__OYU) = *(FREQUENCY__);
- };
- Self__WYU=((__FREQUENCY *)result__OYU);
- Self__WYU->c__DNC='c';
- Self__WYU->p__TH=p_p__YYU;
- add_last__AJC(homo_sapiens__IB,result__OYU);
- p_p__DZU=((__REAL_64 )0.1975473066391);
- result__ZYU=NULL;
- ptr__0YU=((__POINTER )(NULL));
- typ_id__1YU= 0;
- sz__2YU=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__2YU == 0)) {
- result__ZYU=FREQUENCY__;
- } else {
- typ_id__1YU=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__2YU);
- if ((typ_id__1YU == (__INTEGER)(- 1))) {
- a__3YU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4YU=(__UINTEGER_32)((__UINTEGER_32)(sz__2YU + a__3YU) & (__UINTEGER_32)(~ a__3YU));
- ptr_table__NBV=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4YU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__MBV=((__POINTER )(NULL));
- result__OBV=((__POINTER *)ptr_table__NBV)[ 0];
- if ((result__OBV == (void *)NULL)) {
- result__OBV=new_lab__KXB(new_size__4YU);
- next__MBV=(void *)((unsigned long)result__OBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4YU)));
- ((__POINTER *)next__MBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__NBV)[ 0]=next__MBV;
- } else {
- next__MBV=((__POINTER *)result__OBV)[ 0];
- if ((next__MBV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OBV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__4YU << 1)) <= 4096)) {
- next__MBV=(void *)((unsigned long)result__OBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4YU)));
- } else {
- next__MBV=new_lab__KXB(new_size__4YU);
- };
- ((__POINTER *)next__MBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__NBV)[ 0]=next__MBV;
- } else {
- ((__POINTER *)result__OBV)[ 0]=(void *)((unsigned long)((__POINTER *)next__MBV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OBV=next__MBV;
- };
- };
- ptr__0YU=result__OBV;
- } else {
- t__5YU=((__UINTEGER_32 )typ_id__1YU);
- a__AZU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WBV=(__UINTEGER_32)((__UINTEGER_32)(sz__2YU + a__AZU) & (__UINTEGER_32)(~ a__AZU));
- ptr_table__TBV=((__POINTER )(&(table_type[(t__5YU)])));
- lab_type__VBV=(__UINTEGER_32)(t__5YU | 1);
- next__SBV=((__POINTER )(NULL));
- result__UBV=((__POINTER *)ptr_table__TBV)[ 0];
- if ((result__UBV == (void *)NULL)) {
- result__UBV=new_lab__KXB(lab_type__VBV);
- next__SBV=(void *)((unsigned long)result__UBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBV)));
- ((__POINTER *)next__SBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__TBV)[ 0]=next__SBV;
- } else {
- next__SBV=((__POINTER *)result__UBV)[ 0];
- if ((next__SBV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UBV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__WBV << 1)) <= 4096)) {
- next__SBV=(void *)((unsigned long)result__UBV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBV)));
- } else {
- next__SBV=new_lab__KXB(lab_type__VBV);
- };
- ((__POINTER *)next__SBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__TBV)[ 0]=next__SBV;
- } else {
- ((__POINTER *)result__UBV)[ 0]=(void *)((unsigned long)((__POINTER *)next__SBV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UBV=next__SBV;
- };
- };
- ptr__0YU=result__UBV;
- };
- result__ZYU=((__FREQUENCY *)ptr__0YU);
- *(result__ZYU) = *(FREQUENCY__);
- };
- Self__BZU=((__FREQUENCY *)result__ZYU);
- Self__BZU->c__DNC='g';
- Self__BZU->p__TH=p_p__DZU;
- add_last__AJC(homo_sapiens__IB,result__ZYU);
- p_p__HM=((__REAL_64 )0.3015094502008);
- result__XR=NULL;
- ptr__YR=((__POINTER )(NULL));
- typ_id__3R= 0;
- sz__0R=((__UINTEGER_32 )sizeof(__FREQUENCY));
- if ((sz__0R == 0)) {
- result__XR=FREQUENCY__;
- } else {
- typ_id__3R=__FREQUENCY__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__0R);
- if ((typ_id__3R == (__INTEGER)(- 1))) {
- a__BOU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__COU=(__UINTEGER_32)((__UINTEGER_32)(sz__0R + a__BOU) & (__UINTEGER_32)(~ a__BOU));
- ptr_table__ZBV=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__COU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__YBV=((__POINTER )(NULL));
- result__0BV=((__POINTER *)ptr_table__ZBV)[ 0];
- if ((result__0BV == (void *)NULL)) {
- result__0BV=new_lab__KXB(new_size__COU);
- next__YBV=(void *)((unsigned long)result__0BV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__COU)));
- ((__POINTER *)next__YBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZBV)[ 0]=next__YBV;
- } else {
- next__YBV=((__POINTER *)result__0BV)[ 0];
- if ((next__YBV == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0BV - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__COU << 1)) <= 4096)) {
- next__YBV=(void *)((unsigned long)result__0BV - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__COU)));
- } else {
- next__YBV=new_lab__KXB(new_size__COU);
- };
- ((__POINTER *)next__YBV)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZBV)[ 0]=next__YBV;
- } else {
- ((__POINTER *)result__0BV)[ 0]=(void *)((unsigned long)((__POINTER *)next__YBV)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0BV=next__YBV;
- };
- };
- ptr__YR=result__0BV;
- } else {
- t__LOU=((__UINTEGER_32 )typ_id__3R);
- a__IOU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YIB=(__UINTEGER_32)((__UINTEGER_32)(sz__0R + a__IOU) & (__UINTEGER_32)(~ a__IOU));
- ptr_table__ZIB=((__POINTER )(&(table_type[(t__LOU)])));
- lab_type__0IB=(__UINTEGER_32)(t__LOU | 1);
- next__4IB=((__POINTER )(NULL));
- result__2IB=((__POINTER *)ptr_table__ZIB)[ 0];
- if ((result__2IB == (void *)NULL)) {
- result__2IB=new_lab__KXB(lab_type__0IB);
- next__4IB=(void *)((unsigned long)result__2IB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIB)));
- ((__POINTER *)next__4IB)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZIB)[ 0]=next__4IB;
- } else {
- next__4IB=((__POINTER *)result__2IB)[ 0];
- if ((next__4IB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2IB - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__YIB << 1)) <= 4096)) {
- next__4IB=(void *)((unsigned long)result__2IB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIB)));
- } else {
- next__4IB=new_lab__KXB(lab_type__0IB);
- };
- ((__POINTER *)next__4IB)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZIB)[ 0]=next__4IB;
- } else {
- ((__POINTER *)result__2IB)[ 0]=(void *)((unsigned long)((__POINTER *)next__4IB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2IB=next__4IB;
- };
- };
- ptr__YR=result__2IB;
- };
- result__XR=((__FREQUENCY *)ptr__YR);
- *(result__XR) = *(FREQUENCY__);
- };
- Self__ANC=((__FREQUENCY *)result__XR);
- Self__ANC->c__DNC='t';
- Self__ANC->p__TH=p_p__HM;
- add_last__AJC(homo_sapiens__IB,result__XR);
- cp__4BV=((__REAL_64 ) 0);
- Self__5BV= 0;
- limit_up__BCV=((__FAST_ARRAYoFREQUENCYo *)iub__GB)->parent_arrayed_collection__FB.upper__JH;
- __tmp__CCV=((__FAST_ARRAYoFREQUENCYo *)iub__GB)->parent_arrayed_collection__FB.storage__BKC;
- __tmp__DCV=((__FAST_ARRAYoFREQUENCYo *)iub__GB)->parent_arrayed_collection__FB.storage__BKC;
- while ((Self__5BV <= limit_up__BCV)) {
- cp__4BV=((__REAL_64 )((cp__4BV) + (((__FREQUENCY *)((void **)__tmp__CCV)[Self__5BV])->p__TH)));
- ((__FREQUENCY *)((void **)__tmp__DCV)[Self__5BV])->p__TH=cp__4BV;
- Self__5BV=(__INTEGER)(Self__5BV + 1);
- };
- cp__GH=((__REAL_64 ) 0);
- Self__GN= 0;
- limit_up__HN=((__FAST_ARRAYoFREQUENCYo *)homo_sapiens__IB)->parent_arrayed_collection__FB.upper__JH;
- __tmp__XSU=((__FAST_ARRAYoFREQUENCYo *)homo_sapiens__IB)->parent_arrayed_collection__FB.storage__BKC;
- __tmp__YSU=((__FAST_ARRAYoFREQUENCYo *)homo_sapiens__IB)->parent_arrayed_collection__FB.storage__BKC;
- while ((Self__GN <= limit_up__HN)) {
- cp__GH=((__REAL_64 )((cp__GH) + (((__FREQUENCY *)((void **)__tmp__XSU)[Self__GN])->p__TH)));
- ((__FREQUENCY *)((void **)__tmp__YSU)[Self__GN])->p__TH=cp__GH;
- Self__GN=(__INTEGER)(Self__GN + 1);
- };
- n__GI=(__INTEGER)(result__SFM << 1);
- j__JI= 0;
- idx__LI= 0;
- fputc((int)('>'),stdout);
- print__3N((&__string_1));
- fputc((int)(' '),stdout);
- print__3N((&__string_2));
- fputc((int)('\n'),stdout);
- kn__II=((__STRING_CONSTANT *)(&__string_3))->count__MI;
- k__HI= 1;
- i__KI=n__GI;
- __tmp__YQU=((__STRING_CONSTANT *)(&__string_3))->storage__JVD;
- while ((i__KI >= 1)) {
- result__LOD= 0;
- if ((i__KI > 60)) {
- result__LOD= 60;
- } else {
- result__LOD=i__KI;
- };
- j__JI=result__LOD;
- idx__LI= 0;
- while ((j__JI >= 1)) {
- if ((k__HI > kn__II)) {
- k__HI= 1;
- };
- pick__PJ[idx__LI]=((__CHARACTER *)__tmp__YQU)[(__INTEGER)(k__HI - 1)];
- k__HI=(__INTEGER)(k__HI + 1);
- j__JI=(__INTEGER)(j__JI - 1);
- idx__LI=(__INTEGER)(idx__LI + 1);
- };
- pick__PJ[idx__LI]='\0';
- puts((pick__PJ));
- i__KI=(__INTEGER)(i__KI - 60);
- };
- make_random_fasta__3J((&__string_4),(&__string_5),iub__GB,(__INTEGER)(result__SFM * 3));
- make_random_fasta__3J((&__string_6),(&__string_7),homo_sapiens__IB,(__INTEGER)(result__SFM * 5));
- return( 0);
-}
-
-static __POINTER new_lab__KXB(__UINTEGER_32 t__MXB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__OXB,pv__VXB;
- __MEMORY *blc__RXB,*prev__SXB,*Self__FAU,*Self__2LU,*prev__3LU;
- __MEMORY *next__4LU;
- __POINTER result__TXB;
- __BOOLEAN __tmp__VYB;
- idx__OXB= 0;
- blc__RXB=NULL;
- prev__SXB=NULL;
- pv__VXB= 0;
- while_do__N2B:
- {
- if ((idx__OXB < nb_page__2XB)) {
- blc__RXB=((__MEMORY *)(last_block[(idx__OXB)]));
- __tmp__VYB=(((__UINTEGER_32)(((__MEMORY *)blc__RXB)->size_and_id__4Q & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__RXB)->size_and_id__4Q & 1) == 1));
- } else {
- __tmp__VYB=FALSE__;
- };
- if (__tmp__VYB) {
- idx__OXB=(__UINTEGER_32)(idx__OXB + 1);
- goto while_do__N2B;
- };
- };
- if ((idx__OXB >= nb_page__2XB)) {
- blc__RXB=new_page__4JD();
- };
- ((__MEMORY *)blc__RXB)->size_and_id__4Q=(__UINTEGER_32)(blc__RXB->size_and_id__4Q - 4096);
- Self__FAU=((__MEMORY *)blc__RXB);
- result__TXB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__FAU) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__FAU->size_and_id__4Q & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__RXB)->size_and_id__4Q & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__2LU=((__MEMORY *)blc__RXB);
- prev__3LU=Self__2LU->previous_free__AR;
- next__4LU=Self__2LU->next_free__5Q;
- if (((void *)prev__3LU == (void *)NULL)) {
- first_free__5JG=next__4LU;
- } else {
- ((__MEMORY *)prev__3LU)->next_free__5Q=next__4LU;
- };
- if (((void *)next__4LU != (void *)NULL)) {
- ((__MEMORY *)next__4LU)->previous_free__AR=prev__3LU;
- };
- pv__VXB=blc__RXB->previous_linear__3Q;
- if ((pv__VXB != 4294967295LU)) {
- prev__SXB=((__MEMORY *)(void *)((unsigned long)begin_memory__TKB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__VXB))));
- ((__MEMORY *)prev__SXB)->size_and_id__4Q=(__UINTEGER_32)((__UINTEGER_32)(prev__SXB->size_and_id__4Q + blc__RXB->size_and_id__4Q) + 8);
- last_block[(idx__OXB)] = (prev__SXB);
- };
- };
- ((__POINTER *)result__TXB)[ 0]=((__POINTER )t__MXB);
- return((void *)((unsigned long)result__TXB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__5EG(__INTEGER nb_elements__BFG)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__KRU,a__JRU,new_size__LRU,new_size2__MRU,a__ORU;
- __UINTEGER_32 new_size__PRU;
- __POINTER result__IRU,ptr_table__FZU,next__EZU,result__GZU;
- __INTEGER Self__BSI;
- void **Result__YNG;
- sz__KRU=((__UINTEGER_32 )(__INTEGER)(nb_elements__BFG * ((__INTEGER )(sizeof(void *)))));
- result__IRU=((__POINTER )(NULL));
- a__JRU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LRU=(__UINTEGER_32)((__UINTEGER_32)(sz__KRU + a__JRU) & (__UINTEGER_32)(~ a__JRU));
- new_size2__MRU=(__UINTEGER_32)(new_size__LRU + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__MRU <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__ORU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PRU=(__UINTEGER_32)((__UINTEGER_32)(new_size2__MRU + a__ORU) & (__UINTEGER_32)(~ a__ORU));
- ptr_table__FZU=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PRU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EZU=((__POINTER )(NULL));
- result__GZU=((__POINTER *)ptr_table__FZU)[ 0];
- if ((result__GZU == (void *)NULL)) {
- result__GZU=new_lab__KXB(new_size__PRU);
- next__EZU=(void *)((unsigned long)result__GZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRU)));
- ((__POINTER *)next__EZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__FZU)[ 0]=next__EZU;
- } else {
- next__EZU=((__POINTER *)result__GZU)[ 0];
- if ((next__EZU == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GZU - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__PRU << 1)) <= 4096)) {
- next__EZU=(void *)((unsigned long)result__GZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRU)));
- } else {
- next__EZU=new_lab__KXB(new_size__PRU);
- };
- ((__POINTER *)next__EZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__FZU)[ 0]=next__EZU;
- } else {
- ((__POINTER *)result__GZU)[ 0]=(void *)((unsigned long)((__POINTER *)next__EZU)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GZU=next__EZU;
- };
- };
- ((__POINTER *)result__GZU)[ 0]=((__POINTER ) 3);
- result__IRU=(void *)((unsigned long)result__GZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__IRU=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__2IG(new_size__LRU))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__YNG=((void **)result__IRU);
- Self__BSI=(__INTEGER)(nb_elements__BFG - 1);
- while ((Self__BSI >= 0)) {
- Result__YNG[Self__BSI]=NULL;
- Self__BSI=(__INTEGER)(Self__BSI - 1);
- };
- return(Result__YNG);
-}
-
-static __CHARACTER* create__T4D(__INTEGER nb_elements__V4D)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__VRU,a__URU,new_size__WRU,new_size2__XRU,a__ZRU;
- __UINTEGER_32 new_size__0RU;
- __POINTER result__TRU,ptr_table__LZU,next__KZU,result__MZU;
- __INTEGER Self__JKI;
- __CHARACTER *Result__URE;
- sz__VRU=((__UINTEGER_32 )nb_elements__V4D);
- result__TRU=((__POINTER )(NULL));
- a__URU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WRU=(__UINTEGER_32)((__UINTEGER_32)(sz__VRU + a__URU) & (__UINTEGER_32)(~ a__URU));
- new_size2__XRU=(__UINTEGER_32)(new_size__WRU + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__XRU <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__ZRU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0RU=(__UINTEGER_32)((__UINTEGER_32)(new_size2__XRU + a__ZRU) & (__UINTEGER_32)(~ a__ZRU));
- ptr_table__LZU=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0RU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KZU=((__POINTER )(NULL));
- result__MZU=((__POINTER *)ptr_table__LZU)[ 0];
- if ((result__MZU == (void *)NULL)) {
- result__MZU=new_lab__KXB(new_size__0RU);
- next__KZU=(void *)((unsigned long)result__MZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RU)));
- ((__POINTER *)next__KZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__LZU)[ 0]=next__KZU;
- } else {
- next__KZU=((__POINTER *)result__MZU)[ 0];
- if ((next__KZU == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MZU - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__0RU << 1)) <= 4096)) {
- next__KZU=(void *)((unsigned long)result__MZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RU)));
- } else {
- next__KZU=new_lab__KXB(new_size__0RU);
- };
- ((__POINTER *)next__KZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__LZU)[ 0]=next__KZU;
- } else {
- ((__POINTER *)result__MZU)[ 0]=(void *)((unsigned long)((__POINTER *)next__KZU)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MZU=next__KZU;
- };
- };
- ((__POINTER *)result__MZU)[ 0]=((__POINTER ) 3);
- result__TRU=(void *)((unsigned long)result__MZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__TRU=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__2IG(new_size__WRU))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__URE=((__CHARACTER *)result__TRU);
- Self__JKI=(__INTEGER)(nb_elements__V4D - 1);
- while ((Self__JKI >= 0)) {
- Result__URE[Self__JKI]='\0';
- Self__JKI=(__INTEGER)(Self__JKI - 1);
- };
- return(Result__URE);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__RGI(__POINTER p__TGI,__UINTEGER_32 old_sz__UGI,__UINTEGER_32 new_sz__VGI)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__AHI,*Self__5YK,*nxt__DZK,*result__EZK,*Self__OCV;
- __MEMORY *new__NCV,*prev__PCV,*next__QCV,*Self__UCV,*Self__WCV;
- __MEMORY *next__JWL,*new_free__IWL,*prev__LNU,*next__MNU;
- __POINTER result__BHI,result__WEF,ptr_table__RZU,next__QZU;
- __POINTER result__SZU,p__VXK,last__1HL,src__PWK,dst__QWK;
- __UINTEGER_32 a__1MU,old_size__XGI,old_size2__0GI,a__5MU;
- __UINTEGER_32 new_size__3GI,a__WLU,new_size__QEF,new_size2__TEF;
- __UINTEGER_32 a__5OU,new_size__APU,a__WGB,__tmp__SII,sz__IZK;
- __UINTEGER_32 old_size__FZK,siz__RCV,new_size__TCV,prev__KWL;
- __UINTEGER_32 new_size__NWL;
- __INTEGER siz__GCV,Self__LCV,siz__UWK,Self__OFL;
- __POINTER *na_src__ICV,*na_dst__KCV,*na_src__SWK,*na_dst__TWK;
- mem__AHI=NULL;
- result__BHI=((__POINTER )(NULL));
- a__1MU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__XGI=(__UINTEGER_32)((__UINTEGER_32)(old_sz__UGI + a__1MU) & (__UINTEGER_32)(~ a__1MU));
- old_size2__0GI=(__UINTEGER_32)(old_size__XGI + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__5MU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3GI=(__UINTEGER_32)((__UINTEGER_32)(new_sz__VGI + a__5MU) & (__UINTEGER_32)(~ a__5MU));
- if ((old_size2__0GI <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__WEF=((__POINTER )(NULL));
- a__WLU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QEF=(__UINTEGER_32)((__UINTEGER_32)(new_size__3GI + a__WLU) & (__UINTEGER_32)(~ a__WLU));
- new_size2__TEF=(__UINTEGER_32)(new_size__QEF + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__TEF <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__5OU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__APU=(__UINTEGER_32)((__UINTEGER_32)(new_size2__TEF + a__5OU) & (__UINTEGER_32)(~ a__5OU));
- ptr_table__RZU=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__APU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QZU=((__POINTER )(NULL));
- result__SZU=((__POINTER *)ptr_table__RZU)[ 0];
- if ((result__SZU == (void *)NULL)) {
- result__SZU=new_lab__KXB(new_size__APU);
- next__QZU=(void *)((unsigned long)result__SZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__APU)));
- ((__POINTER *)next__QZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZU)[ 0]=next__QZU;
- } else {
- next__QZU=((__POINTER *)result__SZU)[ 0];
- if ((next__QZU == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SZU - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__APU << 1)) <= 4096)) {
- next__QZU=(void *)((unsigned long)result__SZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__APU)));
- } else {
- next__QZU=new_lab__KXB(new_size__APU);
- };
- ((__POINTER *)next__QZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZU)[ 0]=next__QZU;
- } else {
- ((__POINTER *)result__SZU)[ 0]=(void *)((unsigned long)((__POINTER *)next__QZU)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SZU=next__QZU;
- };
- };
- ((__POINTER *)result__SZU)[ 0]=((__POINTER ) 3);
- result__WEF=(void *)((unsigned long)result__SZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__WEF=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__2IG(new_size__QEF))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__BHI=result__WEF;
- siz__GCV=((__INTEGER )old_size__XGI);
- siz__GCV=(__INTEGER)(siz__GCV / ((__INTEGER )(sizeof(void *))));
- na_src__ICV=((__POINTER *)p__TGI);
- na_dst__KCV=((__POINTER *)result__WEF);
- Self__LCV=(__INTEGER)(siz__GCV - 1);
- while ((Self__LCV >= 0)) {
- na_dst__KCV[Self__LCV]=na_src__ICV[Self__LCV];
- Self__LCV=(__INTEGER)(Self__LCV - 1);
- };
- p__VXK=(void *)((unsigned long)p__TGI - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__WGB=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__1HL=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__0GI + a__WGB) & (__UINTEGER_32)(~ a__WGB)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__VXK)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__1HL)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__1HL)[ 0]=p__VXK;
- } else {
- mem__AHI=((__MEMORY *)(void *)((unsigned long)p__TGI - (unsigned long)((__POINTER ) 8)));
- __tmp__SII=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__TGI - (unsigned long)begin_memory__TKB)))) >> 26);
- Self__5YK=((__MEMORY *)mem__AHI);
- nxt__DZK=NULL;
- result__EZK=NULL;
- sz__IZK= 0;
- old_size__FZK=(__UINTEGER_32)(Self__5YK->size_and_id__4Q & 4294967292LU);
- if ((new_size__3GI > old_size__FZK)) {
- if ((! ((__UINTEGER_32)(Self__5YK->size_and_id__4Q & 2) != 0))) {
- nxt__DZK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YK->size_and_id__4Q & 4294967292LU)))));
- sz__IZK=(__UINTEGER_32)((__UINTEGER_32)(new_size__3GI - old_size__FZK) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__DZK)->size_and_id__4Q & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__DZK)->size_and_id__4Q & 4294967292LU) >= sz__IZK))) {
- Self__OCV=((__MEMORY *)nxt__DZK);
- new__NCV=NULL;
- prev__PCV=Self__OCV->previous_free__AR;
- next__QCV=Self__OCV->next_free__5Q;
- if (((void *)prev__PCV == (void *)NULL)) {
- first_free__5JG=next__QCV;
- } else {
- ((__MEMORY *)prev__PCV)->next_free__5Q=next__QCV;
- };
- if (((void *)next__QCV != (void *)NULL)) {
- ((__MEMORY *)next__QCV)->previous_free__AR=prev__PCV;
- };
- siz__RCV=Self__OCV->size_and_id__4Q;
- new_size__TCV=(__UINTEGER_32)(siz__RCV - sz__IZK);
- if ((new_size__TCV > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__RCV=sz__IZK;
- new__NCV=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OCV) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__IZK))));
- ((__MEMORY *)new__NCV)->previous_linear__3Q=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__OCV) - (unsigned long)begin_memory__TKB))));
- ((__MEMORY *)new__NCV)->size_and_id__4Q=(__UINTEGER_32)(new_size__TCV - 8);
- Self__UCV=((__MEMORY *)new__NCV);
- Self__UCV->next_free__5Q=first_free__5JG;
- Self__UCV->previous_free__AR=NULL;
- if (((void *)first_free__5JG != (void *)NULL)) {
- ((__MEMORY *)first_free__5JG)->previous_free__AR=Self__UCV;
- };
- first_free__5JG=Self__UCV;
- if (((__UINTEGER_32)(((__MEMORY *)new__NCV)->size_and_id__4Q & 2) != 0)) {
- last_block[(__tmp__SII)] = (new__NCV);
- } else {
- Self__WCV=((__MEMORY *)new__NCV);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__WCV) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__WCV->size_and_id__4Q & 4294967292LU)))))->previous_linear__3Q=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__NCV)) - (unsigned long)begin_memory__TKB))));
- };
- };
- Self__OCV->size_and_id__4Q=(__UINTEGER_32)(siz__RCV | 1);
- Self__5YK->size_and_id__4Q=(__UINTEGER_32)((__UINTEGER_32)(Self__5YK->size_and_id__4Q + (__UINTEGER_32)(nxt__DZK->size_and_id__4Q & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__5YK->size_and_id__4Q & 2) != 0)) {
- last_block[(__tmp__SII)] = (Self__5YK);
- } else {
- nxt__DZK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YK->size_and_id__4Q & 4294967292LU)))));
- ((__MEMORY *)nxt__DZK)->previous_linear__3Q=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__5YK) - (unsigned long)begin_memory__TKB))));
- };
- result__EZK=Self__5YK;
- };
- };
- if (((void *)result__EZK == (void *)NULL)) {
- result__EZK=search__2IG(new_size__3GI);
- src__PWK=(void *)((unsigned long)((__POINTER )Self__5YK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__QWK=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__EZK)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__UWK=((__INTEGER )old_size__FZK);
- siz__UWK=(__INTEGER)(siz__UWK / ((__INTEGER )(sizeof(void *))));
- na_src__SWK=((__POINTER *)src__PWK);
- na_dst__TWK=((__POINTER *)dst__QWK);
- Self__OFL=(__INTEGER)(siz__UWK - 1);
- while ((Self__OFL >= 0)) {
- na_dst__TWK[Self__OFL]=na_src__SWK[Self__OFL];
- Self__OFL=(__INTEGER)(Self__OFL - 1);
- };
- prev__KWL=Self__5YK->previous_linear__3Q;
- next__JWL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YK->size_and_id__4Q & 4294967292LU)))));
- new_free__IWL=((__MEMORY *)(void *)((unsigned long)begin_memory__TKB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__KWL))));
- new_size__NWL=(__UINTEGER_32)(Self__5YK->size_and_id__4Q & 4294967294LU);
- if (((prev__KWL == 4294967295LU) || ((__UINTEGER_32)(new_free__IWL->size_and_id__4Q & 1) != 0))) {
- new_free__IWL=Self__5YK;
- Self__5YK->next_free__5Q=first_free__5JG;
- Self__5YK->previous_free__AR=NULL;
- if (((void *)first_free__5JG != (void *)NULL)) {
- ((__MEMORY *)first_free__5JG)->previous_free__AR=Self__5YK;
- };
- first_free__5JG=Self__5YK;
- } else {
- new_size__NWL=(__UINTEGER_32)((__UINTEGER_32)(new_size__NWL + new_free__IWL->size_and_id__4Q) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__5YK->size_and_id__4Q & 2) != 0)) && ((__UINTEGER_32)(next__JWL->size_and_id__4Q & 1) == 0))) {
- new_size__NWL=(__UINTEGER_32)((__UINTEGER_32)(new_size__NWL + next__JWL->size_and_id__4Q) + 8);
- prev__LNU=next__JWL->previous_free__AR;
- next__MNU=next__JWL->next_free__5Q;
- if (((void *)prev__LNU == (void *)NULL)) {
- first_free__5JG=next__MNU;
- } else {
- ((__MEMORY *)prev__LNU)->next_free__5Q=next__MNU;
- };
- if (((void *)next__MNU != (void *)NULL)) {
- ((__MEMORY *)next__MNU)->previous_free__AR=prev__LNU;
- };
- };
- new_free__IWL->size_and_id__4Q=new_size__NWL;
- if (((__UINTEGER_32)(new_free__IWL->size_and_id__4Q & 2) != 0)) {
- last_block[(__tmp__SII)] = (new_free__IWL);
- } else {
- next__JWL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5YK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5YK->size_and_id__4Q & 4294967292LU)))));
- next__JWL->previous_linear__3Q=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__IWL) - (unsigned long)begin_memory__TKB))));
- };
- };
- } else {
- result__EZK=Self__5YK;
- };
- result__BHI=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__EZK)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__BHI);
-}
-
-static __FAST_ARRAYoFREQUENCYo* create_with_capacity__YL(__INTEGER new_count__0L)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__AQ,ptr_table__XZU,next__WZU,result__YZU,ptr_table__3ZU;
- __POINTER next__2ZU,result__4ZU;
- __INTEGER typ_id__FQ;
- __UINTEGER_32 sz__CQ,a__TNU,new_size__UNU,t__3NU,a__0NU,new_size__A0U;
- __UINTEGER_32 lab_type__5ZU;
- __FAST_ARRAYoFREQUENCYo *result__5P,*Self__2LC;
- result__5P=NULL;
- ptr__AQ=((__POINTER )(NULL));
- typ_id__FQ= 0;
- sz__CQ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFREQUENCYo));
- if ((sz__CQ == 0)) {
- result__5P=FAST_ARRAYoFREQUENCYo__;
- } else {
- typ_id__FQ=__FAST_ARRAYoFREQUENCYo__;
- clone_allocation_size__TQ=(__UINTEGER_32)(clone_allocation_size__TQ + sz__CQ);
- if ((typ_id__FQ == (__INTEGER)(- 1))) {
- a__TNU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UNU=(__UINTEGER_32)((__UINTEGER_32)(sz__CQ + a__TNU) & (__UINTEGER_32)(~ a__TNU));
- ptr_table__XZU=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UNU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WZU=((__POINTER )(NULL));
- result__YZU=((__POINTER *)ptr_table__XZU)[ 0];
- if ((result__YZU == (void *)NULL)) {
- result__YZU=new_lab__KXB(new_size__UNU);
- next__WZU=(void *)((unsigned long)result__YZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UNU)));
- ((__POINTER *)next__WZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__XZU)[ 0]=next__WZU;
- } else {
- next__WZU=((__POINTER *)result__YZU)[ 0];
- if ((next__WZU == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YZU - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__UNU << 1)) <= 4096)) {
- next__WZU=(void *)((unsigned long)result__YZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UNU)));
- } else {
- next__WZU=new_lab__KXB(new_size__UNU);
- };
- ((__POINTER *)next__WZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__XZU)[ 0]=next__WZU;
- } else {
- ((__POINTER *)result__YZU)[ 0]=(void *)((unsigned long)((__POINTER *)next__WZU)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YZU=next__WZU;
- };
- };
- ptr__AQ=result__YZU;
- } else {
- t__3NU=((__UINTEGER_32 )typ_id__FQ);
- a__0NU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__A0U=(__UINTEGER_32)((__UINTEGER_32)(sz__CQ + a__0NU) & (__UINTEGER_32)(~ a__0NU));
- ptr_table__3ZU=((__POINTER )(&(table_type[(t__3NU)])));
- lab_type__5ZU=(__UINTEGER_32)(t__3NU | 1);
- next__2ZU=((__POINTER )(NULL));
- result__4ZU=((__POINTER *)ptr_table__3ZU)[ 0];
- if ((result__4ZU == (void *)NULL)) {
- result__4ZU=new_lab__KXB(lab_type__5ZU);
- next__2ZU=(void *)((unsigned long)result__4ZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0U)));
- ((__POINTER *)next__2ZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__3ZU)[ 0]=next__2ZU;
- } else {
- next__2ZU=((__POINTER *)result__4ZU)[ 0];
- if ((next__2ZU == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4ZU - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__A0U << 1)) <= 4096)) {
- next__2ZU=(void *)((unsigned long)result__4ZU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0U)));
- } else {
- next__2ZU=new_lab__KXB(lab_type__5ZU);
- };
- ((__POINTER *)next__2ZU)[ 0]=NULL;
- ((__POINTER *)ptr_table__3ZU)[ 0]=next__2ZU;
- } else {
- ((__POINTER *)result__4ZU)[ 0]=(void *)((unsigned long)((__POINTER *)next__2ZU)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4ZU=next__2ZU;
- };
- };
- ptr__AQ=result__4ZU;
- };
- result__5P=((__FAST_ARRAYoFREQUENCYo *)ptr__AQ);
- *(result__5P) = *(FAST_ARRAYoFREQUENCYo__);
- };
- Self__2LC=((__FAST_ARRAYoFREQUENCYo *)result__5P);
- if ((Self__2LC->parent_arrayed_collection__FB.capacity__FJC < new_count__0L)) {
- Self__2LC->parent_arrayed_collection__FB.storage__BKC=create__VNE(new_count__0L);
- Self__2LC->parent_arrayed_collection__FB.capacity__FJC=new_count__0L;
- };
- Self__2LC->parent_arrayed_collection__FB.upper__JH=(__INTEGER)(- 1);
- return(result__5P);
-}
-
-static void add_last__AJC(__FAST_ARRAYoFREQUENCYo *Self__BJC,void *element__CJC)
-// ({FAST_ARRAYoFREQUENCYo},{NULLxFREQUENCY}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__DJC,__tmp__LKC,__tmp__OMH,Self__DXM;
- __BOOLEAN __tmp__SJC;
- void **__tmp__KKC,**new__1LH;
- new_capacity__DJC= 0;
- if (((__INTEGER)(Self__BJC->parent_arrayed_collection__FB.upper__JH + 1) <= (__INTEGER)(Self__BJC->parent_arrayed_collection__FB.capacity__FJC - 1))) {
- Self__BJC->parent_arrayed_collection__FB.upper__JH=(__INTEGER)(Self__BJC->parent_arrayed_collection__FB.upper__JH + 1);
- __tmp__SJC=TRUE__;
- } else {
- __tmp__SJC=FALSE__;
- };
- if ((! __tmp__SJC)) {
- if ((Self__BJC->parent_arrayed_collection__FB.capacity__FJC == 0)) {
- Self__BJC->parent_arrayed_collection__FB.storage__BKC=create__VNE( 2);
- Self__BJC->parent_arrayed_collection__FB.capacity__FJC= 2;
- Self__BJC->parent_arrayed_collection__FB.upper__JH= 0;
- } else {
- new_capacity__DJC=(__INTEGER)(Self__BJC->parent_arrayed_collection__FB.capacity__FJC << 1);
- __tmp__KKC=Self__BJC->parent_arrayed_collection__FB.storage__BKC;
- __tmp__LKC=Self__BJC->parent_arrayed_collection__FB.capacity__FJC;
- new__1LH=((void **)realloc_dynamic__old_size__new_size__RGI(((__POINTER )((void **)__tmp__KKC)),((__UINTEGER_32 )(__INTEGER)(__tmp__LKC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__DJC * ((__INTEGER )(sizeof(void *)))))));
- __tmp__OMH=(__INTEGER)(new_capacity__DJC - 1);
- Self__DXM=__tmp__LKC;
- while ((Self__DXM <= __tmp__OMH)) {
- new__1LH[Self__DXM]=NULL;
- Self__DXM=(__INTEGER)(Self__DXM + 1);
- };
- Self__BJC->parent_arrayed_collection__FB.storage__BKC=new__1LH;
- Self__BJC->parent_arrayed_collection__FB.capacity__FJC=new_capacity__DJC;
- Self__BJC->parent_arrayed_collection__FB.upper__JH=(__INTEGER)(Self__BJC->parent_arrayed_collection__FB.upper__JH + 1);
- };
- };
- ((void **)Self__BJC->parent_arrayed_collection__FB.storage__BKC)[Self__BJC->parent_arrayed_collection__FB.upper__JH]=element__CJC;
-}
-
-static void print__3N(__STRING_CONSTANT *Self__4N)
-// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
-{
- __INTEGER Self__E0,limit_up__F0;
- __CHARACTER *__tmp__MOU;
- Self__E0= 1;
- limit_up__F0=Self__4N->count__MI;
- __tmp__MOU=Self__4N->storage__JVD;
- while ((Self__E0 <= limit_up__F0)) {
- fputc((int)(((__CHARACTER *)__tmp__MOU)[(__INTEGER)(Self__E0 - 1)]),stdout);
- Self__E0=(__INTEGER)(Self__E0 + 1);
- };
-}
-
-static void make_random_fasta__3J(void *id__5J,void *desc__AK,void *a__BK,__INTEGER n__CK)
-// ({STRING_CONSTANT},{STRING_CONSTANT},{NULLxFAST_ARRAYoFREQUENCYo},{INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER n_temp__EK,__tmp__WSU,result__VUT,__tmp__UK,Self__PPD;
- __INTEGER i__YWF;
- __REAL_64 max__DCG,random__VWF;
- void **__tmp__2SU,**__tmp__3SU;
- __CHARACTER return_char__UWF;
- __FAST_ARRAYoFREQUENCYo *Self__1OE;
- n_temp__EK=n__CK;
- fputc((int)('>'),stdout);
- print__3N(id__5J);
- fputc((int)(' '),stdout);
- print__3N(desc__AK);
- fputc((int)('\n'),stdout);
- __tmp__WSU=((__FAST_ARRAYoFREQUENCYo *)a__BK)->parent_arrayed_collection__FB.upper__JH;
- __tmp__2SU=((__FAST_ARRAYoFREQUENCYo *)a__BK)->parent_arrayed_collection__FB.storage__BKC;
- __tmp__3SU=((__FAST_ARRAYoFREQUENCYo *)a__BK)->parent_arrayed_collection__FB.storage__BKC;
- while ((n_temp__EK > 0)) {
- result__VUT= 0;
- if ((n_temp__EK > 60)) {
- result__VUT= 60;
- } else {
- result__VUT=n_temp__EK;
- };
- __tmp__UK=(__INTEGER)(result__VUT - 1);
- Self__PPD= 0;
- while ((Self__PPD <= __tmp__UK)) {
- return_char__UWF='\0';
- max__DCG=((__REAL_64 )1.0);
- last__FCG=(__INTEGER)((__INTEGER)((__INTEGER)(last__FCG * 3877) + 29573) % 139968);
- random__VWF=(__REAL_64)((__REAL_64)(max__DCG * ((__REAL_64 )last__FCG)) / ((__REAL_64 ) 139968));
- i__YWF= 0;
- while (((i__YWF <= __tmp__WSU) && (random__VWF >= ((__FREQUENCY *)((void **)__tmp__2SU)[i__YWF])->p__TH))) {
- i__YWF=(__INTEGER)(i__YWF + 1);
- };
- if ((i__YWF <= __tmp__WSU)) {
- return_char__UWF=((__FREQUENCY *)((void **)__tmp__3SU)[i__YWF])->c__DNC;
- } else {
- Self__1OE=((__FAST_ARRAYoFREQUENCYo *)a__BK);
- return_char__UWF=((__FREQUENCY *)((void **)Self__1OE->parent_arrayed_collection__FB.storage__BKC)[Self__1OE->parent_arrayed_collection__FB.upper__JH])->c__DNC;
- };
- pick__PJ[Self__PPD]=return_char__UWF;
- Self__PPD=(__INTEGER)(Self__PPD + 1);
- };
- pick__PJ[result__VUT]='\0';
- puts((pick__PJ));
- n_temp__EK=(__INTEGER)(n_temp__EK - 60);
- };
-}
-
-static __MEMORY* new_page__4JD()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__H1E;
- __UINTEGER_32 cap__E1E,old_size__BKD;
- __MEMORY *block__HKD;
- if ((capacity_max__IKD == 0)) {
- mem__H1E=((__POINTER )(NULL));
- cap__E1E= 33554432;
- do {
- cap__E1E=(__UINTEGER_32)(cap__E1E << 1);
- mem__H1E=((__POINTER )(malloc((cap__E1E))));
- if ((mem__H1E != (void *)NULL)) {
- free((mem__H1E));
- };
- } while ((! ((mem__H1E == (void *)NULL) || (cap__E1E == 2147483648LU))));
- if ((mem__H1E == (void *)NULL)) {
- cap__E1E=(__UINTEGER_32)(cap__E1E >> 1);
- };
- capacity_max__IKD=cap__E1E;
- begin_memory__TKB=((__POINTER )(malloc((cap__E1E))));
- };
- old_size__BKD=(__UINTEGER_32)(nb_page__2XB << 26);
- nb_page__2XB=(__UINTEGER_32)(nb_page__2XB + 1);
- if (((__UINTEGER_32)(old_size__BKD + 67108864) > capacity_max__IKD)) {
- print__3N((&__string_8));
- exit(( 1));
- };
- block__HKD=((__MEMORY *)(void *)((unsigned long)begin_memory__TKB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__BKD))));
- block__HKD->previous_linear__3Q= 4294967295LU;
- block__HKD->size_and_id__4Q= 67108858;
- block__HKD->next_free__5Q=first_free__5JG;
- block__HKD->previous_free__AR=NULL;
- if (((void *)first_free__5JG != (void *)NULL)) {
- ((__MEMORY *)first_free__5JG)->previous_free__AR=block__HKD;
- };
- first_free__5JG=block__HKD;
- last_block[((__UINTEGER_32)(nb_page__2XB - 1))] = (block__HKD);
- return(block__HKD);
-}
-
-static __MEMORY* search__2IG(__UINTEGER_32 new_size__4IG)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__AJG,*Self__OVH,*new__XVH,*prev__HWI,*next__IWI;
- __MEMORY *Self__QIH,*Self__5ZT;
- __UINTEGER_32 idx__QVH,siz__RVH,new_size__UVH;
- result__AJG=first_free__5JG;
- while ((((void *)result__AJG != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__AJG)->size_and_id__4Q & 4294967292LU) < new_size__4IG))) {
- result__AJG=result__AJG->next_free__5Q;
- };
- if (((void *)result__AJG == (void *)NULL)) {
- result__AJG=new_page__4JD();
- };
- Self__OVH=((__MEMORY *)result__AJG);
- idx__QVH=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__AJG)) - (unsigned long)begin_memory__TKB)))) >> 26);
- new__XVH=NULL;
- prev__HWI=Self__OVH->previous_free__AR;
- next__IWI=Self__OVH->next_free__5Q;
- if (((void *)prev__HWI == (void *)NULL)) {
- first_free__5JG=next__IWI;
- } else {
- ((__MEMORY *)prev__HWI)->next_free__5Q=next__IWI;
- };
- if (((void *)next__IWI != (void *)NULL)) {
- ((__MEMORY *)next__IWI)->previous_free__AR=prev__HWI;
- };
- siz__RVH=Self__OVH->size_and_id__4Q;
- new_size__UVH=(__UINTEGER_32)(siz__RVH - new_size__4IG);
- if ((new_size__UVH > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__RVH=new_size__4IG;
- new__XVH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OVH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4IG))));
- ((__MEMORY *)new__XVH)->previous_linear__3Q=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__OVH) - (unsigned long)begin_memory__TKB))));
- ((__MEMORY *)new__XVH)->size_and_id__4Q=(__UINTEGER_32)(new_size__UVH - 8);
- Self__QIH=((__MEMORY *)new__XVH);
- Self__QIH->next_free__5Q=first_free__5JG;
- Self__QIH->previous_free__AR=NULL;
- if (((void *)first_free__5JG != (void *)NULL)) {
- ((__MEMORY *)first_free__5JG)->previous_free__AR=Self__QIH;
- };
- first_free__5JG=Self__QIH;
- if (((__UINTEGER_32)(((__MEMORY *)new__XVH)->size_and_id__4Q & 2) != 0)) {
- last_block[(idx__QVH)] = (new__XVH);
- } else {
- Self__5ZT=((__MEMORY *)new__XVH);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5ZT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5ZT->size_and_id__4Q & 4294967292LU)))))->previous_linear__3Q=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__XVH)) - (unsigned long)begin_memory__TKB))));
- };
- };
- Self__OVH->size_and_id__4Q=(__UINTEGER_32)(siz__RVH | 1);
- return(result__AJG);
-}
-
-static void** create__VNE(__INTEGER nb_elements__XNE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__FPU,a__EPU,new_size__GPU,new_size2__HPU,a__JPU;
- __UINTEGER_32 new_size__KPU;
- __POINTER result__DPU,ptr_table__D0U,next__C0U,result__E0U;
- __INTEGER Self__QLI;
- void **Result__W5E;
- sz__FPU=((__UINTEGER_32 )(__INTEGER)(nb_elements__XNE * ((__INTEGER )(sizeof(void *)))));
- result__DPU=((__POINTER )(NULL));
- a__EPU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GPU=(__UINTEGER_32)((__UINTEGER_32)(sz__FPU + a__EPU) & (__UINTEGER_32)(~ a__EPU));
- new_size2__HPU=(__UINTEGER_32)(new_size__GPU + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__HPU <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__JPU=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KPU=(__UINTEGER_32)((__UINTEGER_32)(new_size2__HPU + a__JPU) & (__UINTEGER_32)(~ a__JPU));
- ptr_table__D0U=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KPU / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__C0U=((__POINTER )(NULL));
- result__E0U=((__POINTER *)ptr_table__D0U)[ 0];
- if ((result__E0U == (void *)NULL)) {
- result__E0U=new_lab__KXB(new_size__KPU);
- next__C0U=(void *)((unsigned long)result__E0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPU)));
- ((__POINTER *)next__C0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__D0U)[ 0]=next__C0U;
- } else {
- next__C0U=((__POINTER *)result__E0U)[ 0];
- if ((next__C0U == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E0U - (unsigned long)begin_memory__TKB)))) & 4095) + (__UINTEGER_32)(new_size__KPU << 1)) <= 4096)) {
- next__C0U=(void *)((unsigned long)result__E0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPU)));
- } else {
- next__C0U=new_lab__KXB(new_size__KPU);
- };
- ((__POINTER *)next__C0U)[ 0]=NULL;
- ((__POINTER *)ptr_table__D0U)[ 0]=next__C0U;
- } else {
- ((__POINTER *)result__E0U)[ 0]=(void *)((unsigned long)((__POINTER *)next__C0U)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__E0U=next__C0U;
- };
- };
- ((__POINTER *)result__E0U)[ 0]=((__POINTER ) 3);
- result__DPU=(void *)((unsigned long)result__E0U - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__DPU=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__2IG(new_size__GPU))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__W5E=((void **)result__DPU);
- Self__QLI=(__INTEGER)(nb_elements__XNE - 1);
- while ((Self__QLI >= 0)) {
- Result__W5E[Self__QLI]=NULL;
- Self__QLI=(__INTEGER)(Self__QLI - 1);
- };
- return(Result__W5E);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/fasta/fasta_c.c b/example/shootout/fasta/fasta_c.c
deleted file mode 100644
index 2ca61f5..0000000
--- a/example/shootout/fasta/fasta_c.c
+++ /dev/null
@@ -1,158 +0,0 @@
-/* -*- mode: c -*-
- * $Id: fasta-gcc.code,v 1.43 2007-05-19 00:42:42 igouy-guest Exp $
- * http://shootout.alioth.debian.org/
- *
- * by Paul Hsieh
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-#define IM 139968
-#define IA 3877
-#define IC 29573
-
-double gen_random (double max) {
- static long last = 42;
- return max * (last = (last * IA + IC) % IM) / IM;
-}
-
-struct aminoacids {
- char c;
- double p;
-};
-
-/* Weighted selection from alphabet */
-
-void makeCumulative (struct aminoacids * genelist, int count) {
- double cp = 0.0;
- int i;
-
- for (i=0; i < count; i++) {
- cp += genelist[i].p;
- genelist[i].p = cp;
- }
-}
-
-char selectRandom (const struct aminoacids * genelist, int count) {
- double r = gen_random (1);
- int i, lo, hi;
-
- if (r < genelist[0].p) return genelist[0].c;
-
- lo = 0;
- hi = count-1;
-
- while (hi > lo+1) {
- i = (hi + lo) / 2;
- if (r < genelist[i].p) hi = i; else lo = i;
- }
- return genelist[hi].c;
-}
-
-/* Generate and write FASTA format */
-
-#define LINE_LENGTH (60)
-
-void makeRandomFasta (const char * id, const char * desc, const struct
-aminoacids * genelist, int count, int n) {
- int todo = n;
- int i, m;
-
- printf (">%s %s\n", id, desc);
-
- for (; todo > 0; todo -= LINE_LENGTH) {
- char pick[LINE_LENGTH+1];
- if (todo < LINE_LENGTH) m = todo; else m = LINE_LENGTH;
- for (i=0; i < m; i++) pick[i] = selectRandom (genelist, count);
- pick[m] = '\0';
- puts (pick);
- }
-}
-
-void makeRepeatFasta (const char * id, const char * desc, const char *
-s, int n) {
- char * ss;
- int todo = n, k = 0, kn = strlen (s);
- int m;
-
- ss = (char *) malloc (kn + 1);
- memcpy (ss, s, kn+1);
-
- printf (">%s %s\n", id, desc);
-
- for (; todo > 0; todo -= LINE_LENGTH) {
- if (todo < LINE_LENGTH) m = todo; else m = LINE_LENGTH;
-
- while (m >= kn - k) {
- printf ("%s", s+k);
- m -= kn - k;
- k = 0;
- }
-
- ss[k + m] = '\0';
- puts (ss+k);
- ss[k + m] = s[m+k];
- k += m;
- }
-
- free (ss);
-}
-
-/* Main -- define alphabets, make 3 fragments */
-
-struct aminoacids iub[] = {
- { 'a', 0.27 },
- { 'c', 0.12 },
- { 'g', 0.12 },
- { 't', 0.27 },
-
- { 'B', 0.02 },
- { 'D', 0.02 },
- { 'H', 0.02 },
- { 'K', 0.02 },
- { 'M', 0.02 },
- { 'N', 0.02 },
- { 'R', 0.02 },
- { 'S', 0.02 },
- { 'V', 0.02 },
- { 'W', 0.02 },
- { 'Y', 0.02 }
-};
-
-#define IUB_LEN (sizeof (iub) / sizeof (struct aminoacids))
-
-struct aminoacids homosapiens[] = {
- { 'a', 0.3029549426680 },
- { 'c', 0.1979883004921 },
- { 'g', 0.1975473066391 },
- { 't', 0.3015094502008 },
-};
-
-#define HOMOSAPIENS_LEN (sizeof (homosapiens) / sizeof (struct aminoacids))
-
-char * alu =
- "GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTGG" \
- "GAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGA" \
- "CCAGCCTGGCCAACATGGTGAAACCCCGTCTCTACTAAAAAT" \
- "ACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAATCCCA" \
- "GCTACTCGGGAGGCTGAGGCAGGAGAATCGCTTGAACCCGGG" \
- "AGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTGCACTCC" \
- "AGCCTGGGCGACAGAGCGAGACTCCGTCTCAAAAA";
-
-int main (int argc, char * argv[]) {
- int n = 1000;
-
- if (argc > 1) sscanf (argv[1], "%d", &n);
-
- makeCumulative (iub, IUB_LEN);
- makeCumulative (homosapiens, HOMOSAPIENS_LEN);
-
- makeRepeatFasta ("ONE", "Homo sapiens alu", alu, n*2);
- makeRandomFasta ("TWO", "IUB ambiguity codes", iub, IUB_LEN, n*3);
- makeRandomFasta ("THREE", "Homo sapiens frequency", homosapiens,
- HOMOSAPIENS_LEN, n*5);
-
- return 0;
-}
-
diff --git a/example/shootout/k_nucleotide/knucleotide_c.c b/example/shootout/k_nucleotide/knucleotide_c.c
deleted file mode 100644
index 1b47966..0000000
--- a/example/shootout/k_nucleotide/knucleotide_c.c
+++ /dev/null
@@ -1,173 +0,0 @@
-/* The Computer Language Shootout
- http://shootout.alioth.debian.org/
-
- Contributed by Josh Goldfoot
- to compile, use gcc -O3
-
- This revision uses "simple_hash.h," available from
- http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/shootout/bench/Include/?cvsroot=shootout
-
-*/
-#include <stdio.h>
-#include <string.h>
-#include <ctype.h>
-#include <stdlib.h>
-#include "simple_hash.h"
-
-long
-hash_table_size (int fl, long buflen)
-{
- long maxsize1, maxsize2;
-
- maxsize1 = buflen - fl;
- maxsize2 = 4;
- while (--fl > 0 && maxsize2 < maxsize1)
- maxsize2 = maxsize2 * 4;
- if (maxsize1 < maxsize2)
- return maxsize1;
- return maxsize2;
-}
-
-struct ht_ht *
-generate_frequencies (int fl, char *buffer, long buflen)
-{
- struct ht_ht *ht;
- char *reader;
- long i;
- char nulled;
-
- if (fl > buflen)
- return NULL;
-
- ht = ht_create (hash_table_size (fl, buflen));
- for (i = 0; i < buflen - fl + 1; i++)
- {
- reader = &(buffer[i]);
- nulled = reader[fl];
- reader[fl] = 0x00;
- ht_find_new (ht, reader)->val++;
- reader[fl] = nulled;
- }
- return ht;
-}
-
-typedef struct ssorter
-{
- char *string;
- int num;
-} sorter;
-
-void
-write_frequencies (int fl, char *buffer, long buflen)
-{
- struct ht_ht *ht;
- long total, i, j, size;
- struct ht_node *nd;
- sorter *s;
- sorter tmp;
-
- ht = generate_frequencies (fl, buffer, buflen);
- total = 0;
- size = 0;
- for (nd = ht_first (ht); nd != NULL; nd = ht_next (ht))
- {
- total = total + nd->val;
- size++;
- }
- s = calloc (size, sizeof (sorter));
- i = 0;
- for (nd = ht_first (ht); nd != NULL; nd = ht_next (ht))
- {
- s[i].string = nd->key;
- s[i++].num = nd->val;
- }
- for (i = 0; i < size - 1; i++)
- for (j = i + 1; j < size; j++)
- if (s[i].num < s[j].num)
- {
- memcpy (&tmp, &(s[i]), sizeof (sorter));
- memcpy (&(s[i]), &(s[j]), sizeof (sorter));
- memcpy (&(s[j]), &tmp, sizeof (sorter));
- }
- for (i = 0; i < size; i++)
- printf ("%s %.3f\n", s[i].string, 100 * (float) s[i].num / total);
- printf ("\n");
- ht_destroy (ht);
- free (s);
-}
-
-void
-write_count (char *searchFor, char *buffer, long buflen)
-{
- struct ht_ht *ht;
-
- ht = generate_frequencies (strlen (searchFor), buffer, buflen);
- printf ("%d\t%s\n", ht_find_new (ht, searchFor)->val, searchFor);
- ht_destroy (ht);
-}
-
-int
-main ()
-{
- char c;
- char *line, *buffer, *tmp, *x;
- int i, linelen, nothree;
- long buflen, seqlen;
-
- line = malloc (256);
- if (!line)
- return -1;
- seqlen = 0;
- nothree = 1;
-
- while (nothree && fgets (line, 255, stdin))
- if (line[0] == '>' && line[1] == 'T' && line[2] == 'H')
- nothree = 0;
- free (line);
-
- buflen = 10240;
- buffer = malloc (buflen + 1);
- if (!buffer)
- return -1;
- x = buffer;
-
- while (fgets (x, 255, stdin))
- {
- linelen = strlen (x);
- if (linelen)
- {
- if (x[linelen - 1] == '\n')
- linelen--;
- c = x[0];
- if (c == '>')
- break;
- else if (c != ';')
- {
- seqlen = seqlen + linelen;
- if (seqlen + 512 >= buflen)
- {
- buflen = buflen + 10240;
- tmp = realloc (buffer, buflen + 1);
- if (tmp == NULL)
- return -1;
- buffer = tmp;
- x = &(buffer[seqlen]);
- }
- else
- x = &(x[linelen]);
- x[0] = 0;
- }
- }
- }
- for (i = 0; i < seqlen; i++)
- buffer[i] = toupper (buffer[i]);
- write_frequencies (1, buffer, seqlen);
- write_frequencies (2, buffer, seqlen);
- write_count ("GGT", buffer, seqlen);
- write_count ("GGTA", buffer, seqlen);
- write_count ("GGTATT", buffer, seqlen);
- write_count ("GGTATTTTAATT", buffer, seqlen);
- write_count ("GGTATTTTAATTTATAGT", buffer, seqlen);
- free (buffer);
- return 0;
-}
diff --git a/example/shootout/mandelbrot/mandelbrot2.c b/example/shootout/mandelbrot/mandelbrot2.c
deleted file mode 100755
index f2ca94b..0000000
--- a/example/shootout/mandelbrot/mandelbrot2.c
+++ /dev/null
@@ -1,1069 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 4
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- unsigned long __id;
- __INTEGER count__AP;
- __CHARACTER *storage__NZC;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__BS;
- volatile __UINTEGER_32 size_and_id__CS;
- __MEMORY *next_free__DS;
- __MEMORY *previous_free__ES;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// NUMERIC
-#define __NUMERIC__ 1
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// STRING
-#define __STRING__ 5
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- unsigned long __id;
- __INTEGER count__RPF;
- __INTEGER capacity__ARF;
- __CHARACTER *storage__JRF;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 2
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER capacity__AAC;
- __INTEGER upper__MAC;
- void **storage__44B;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 3
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__KH;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// REAL_64
-typedef double __REAL_64;
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// UINTEGER_8
-typedef unsigned char __UINTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[5];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__ABB;
-__UINTEGER_32 nb_page__3NB;
-__UINTEGER_32 capacity_max__WPC;
-__MEMORY *first_free__JEF;
-__UINTEGER_32 clone_allocation_size__XR;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,3,"P4\n"};
-__STRING_CONSTANT __string_2={__STRING_CONSTANT__,1,"\n"};
-__STRING_CONSTANT __string_3={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__LNB(__UINTEGER_32 t__NNB);
-static void** create__TKE(__INTEGER nb_elements__VKE);
-static __CHARACTER* create__14H(__INTEGER nb_elements__34H);
-static __POINTER realloc_dynamic__old_size__new_size__PDG(__POINTER p__RDG,__UINTEGER_32 old_sz__SDG,__UINTEGER_32 new_sz__TDG);
-static void print__QH(__STRING_CONSTANT *Self__RH);
-static void put_string__LK(void *s__NK);
-static __MEMORY* new_page__MPC();
-static __MEMORY* search__GDF(__UINTEGER_32 new_size__IDF);
-static void to_busy__index__JYF(__MEMORY *Self__KYF,__UINTEGER_32 sz__LYF,__UINTEGER_32 idx__MYF);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __INTEGER new_count__0M,typ_id__JR,Self__BN,limit_up__CN,idx__TUC;
- __INTEGER typ_id__NED,i__JPF,new_capacity__X3H,__tmp__Q4H,__tmp__QNJ;
- __INTEGER Self__34L,new_capacity__MWC,__tmp__QXC,__tmp__IVF,Self__MSJ;
- __INTEGER i__0,state__NAJ,result__QAJ,i__MAJ,__tmp__EZQ,__tmp__GZQ;
- __INTEGER size__Z,Self__4I,limit_up__5I,Self__3SC,limit_up__4SC;
- __POINTER ptr__ER,ptr_table__I1Q,next__H1Q,result__J1Q,ptr_table__O1Q;
- __POINTER next__N1Q,result__P1Q,ptr__IED,ptr_table__U1Q,next__T1Q;
- __POINTER result__V1Q,ptr_table__G5,next__L5,result__J5;
- __UINTEGER_32 sz__GR,a__KYQ,new_size__LYQ,t__UYQ,a__RYQ,new_size__R1Q;
- __UINTEGER_32 lab_type__Q1Q,sz__KED,a__TWQ,new_size__BZ,t__K0,a__ZWQ;
- __UINTEGER_32 new_size__F5,lab_type__H5;
- __STRING *result__HED,*Self__RQF,*Self__HPF,*Self__KAJ;
- __REAL_64 zr__EB,zi__HB,cr__KB,ci__NB,pr__QB,pi__TB,limit__WB;
- void *cmd__FC;
- __CHARACTER *arg__VJ,*Self__HUC,*p__IPF,*__tmp__P4H,*new__3MJ;
- __CHARACTER *__tmp__FZQ;
- __FAST_ARRAYoSTRINGo *result__DR,*Self__X5B,*Self__KWC;
- void *result__UJ;
- __CHARACTER __tmp__4PF,cc__OAJ;
- __BOOLEAN __tmp__0WC,stop__ZB,gone__0B,negative__PAJ,__tmp__2BJ;
- __BOOLEAN result__PJO,__tmp__PCJ,__tmp__EDJ,result__ASM,__tmp__LEJ;
- __BOOLEAN result__SSM,result__JMN;
- void **__tmp__PXC,**new__VUF;
- __UINTEGER_8 bit_accu__5B,bit__2B;
- arg_count = argc;
- arg_vector = argv;
- parent_numeric__H=NUMERIC__;
- ARRAYED_COLLECTIONoSTRINGo__->storage__44B=NULL;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__AAC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->upper__MAC= 0;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__KH=(*ARRAYED_COLLECTIONoSTRINGo__);
- clone_allocation_size__XR= 0;
- STRING_CONSTANT__->count__AP=((__INTEGER )((0)));
- STRING__->count__RPF= 0;
- STRING_CONSTANT__->storage__NZC=((__CHARACTER *)(NULL));
- STRING__->storage__JRF=NULL;
- nb_page__3NB= 0;
- MEMORY__->size_and_id__CS= 0;
- capacity_max__WPC= 0;
- begin_memory__ABB=((__POINTER )(NULL));
- MEMORY__->previous_linear__BS= 0;
- first_free__JEF=NULL;
- MEMORY__->next_free__DS=NULL;
- MEMORY__->previous_free__ES=NULL;
- STRING__->capacity__ARF= 0;
- arg__VJ=NULL;
- new_count__0M=((__INTEGER )(arg_count));
- result__DR=NULL;
- ptr__ER=((__POINTER )(NULL));
- typ_id__JR= 0;
- sz__GR=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__GR == 0)) {
- result__DR=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__JR=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__XR=sz__GR;
- if ((typ_id__JR == (__INTEGER)(- 1))) {
- a__KYQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LYQ=(__UINTEGER_32)((__UINTEGER_32)(sz__GR + a__KYQ) & (__UINTEGER_32)(~ a__KYQ));
- ptr_table__I1Q=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LYQ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__H1Q=((__POINTER )(NULL));
- result__J1Q=((__POINTER *)ptr_table__I1Q)[ 0];
- if ((result__J1Q == (void *)NULL)) {
- result__J1Q=new_lab__LNB(new_size__LYQ);
- next__H1Q=(void *)((unsigned long)result__J1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYQ)));
- ((__POINTER *)next__H1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__I1Q)[ 0]=next__H1Q;
- } else {
- next__H1Q=((__POINTER *)result__J1Q)[ 0];
- if ((next__H1Q == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J1Q - (unsigned long)begin_memory__ABB)))) & 4095) + (__UINTEGER_32)(new_size__LYQ << 1)) <= 4096)) {
- next__H1Q=(void *)((unsigned long)result__J1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYQ)));
- } else {
- next__H1Q=new_lab__LNB(new_size__LYQ);
- };
- ((__POINTER *)next__H1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__I1Q)[ 0]=next__H1Q;
- } else {
- ((__POINTER *)result__J1Q)[ 0]=(void *)((unsigned long)((__POINTER *)next__H1Q)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__J1Q=next__H1Q;
- };
- };
- ptr__ER=result__J1Q;
- } else {
- t__UYQ=((__UINTEGER_32 )typ_id__JR);
- a__RYQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__R1Q=(__UINTEGER_32)((__UINTEGER_32)(sz__GR + a__RYQ) & (__UINTEGER_32)(~ a__RYQ));
- ptr_table__O1Q=((__POINTER )(&(table_type[(t__UYQ)])));
- lab_type__Q1Q=(__UINTEGER_32)(t__UYQ | 1);
- next__N1Q=((__POINTER )(NULL));
- result__P1Q=((__POINTER *)ptr_table__O1Q)[ 0];
- if ((result__P1Q == (void *)NULL)) {
- result__P1Q=new_lab__LNB(lab_type__Q1Q);
- next__N1Q=(void *)((unsigned long)result__P1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R1Q)));
- ((__POINTER *)next__N1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__O1Q)[ 0]=next__N1Q;
- } else {
- next__N1Q=((__POINTER *)result__P1Q)[ 0];
- if ((next__N1Q == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P1Q - (unsigned long)begin_memory__ABB)))) & 4095) + (__UINTEGER_32)(new_size__R1Q << 1)) <= 4096)) {
- next__N1Q=(void *)((unsigned long)result__P1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R1Q)));
- } else {
- next__N1Q=new_lab__LNB(lab_type__Q1Q);
- };
- ((__POINTER *)next__N1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__O1Q)[ 0]=next__N1Q;
- } else {
- ((__POINTER *)result__P1Q)[ 0]=(void *)((unsigned long)((__POINTER *)next__N1Q)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__P1Q=next__N1Q;
- };
- };
- ptr__ER=result__P1Q;
- };
- result__DR=((__FAST_ARRAYoSTRINGo *)ptr__ER);
- *(result__DR) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__X5B=((__FAST_ARRAYoSTRINGo *)result__DR);
- if ((Self__X5B->parent_arrayed_collection__KH.capacity__AAC < new_count__0M)) {
- Self__X5B->parent_arrayed_collection__KH.storage__44B=create__TKE(new_count__0M);
- Self__X5B->parent_arrayed_collection__KH.capacity__AAC=new_count__0M;
- };
- Self__X5B->parent_arrayed_collection__KH.upper__MAC=(__INTEGER)(- 1);
- result__UJ=result__DR;
- Self__BN= 0;
- limit_up__CN=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__BN <= limit_up__CN)) {
- arg__VJ=((__CHARACTER *)(arg_vector[(Self__BN)]));
- Self__HUC=((__CHARACTER *)arg__VJ);
- idx__TUC= 0;
- while ((! ((idx__TUC > 1024) || ('\0' == Self__HUC[idx__TUC])))) {
- idx__TUC=(__INTEGER)(idx__TUC + 1);
- };
- result__HED=NULL;
- ptr__IED=((__POINTER )(NULL));
- typ_id__NED= 0;
- sz__KED=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__KED == 0)) {
- result__HED=STRING__;
- } else {
- typ_id__NED=-1;
- clone_allocation_size__XR=(__UINTEGER_32)(clone_allocation_size__XR + sz__KED);
- if ((typ_id__NED == (__INTEGER)(- 1))) {
- a__TWQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BZ=(__UINTEGER_32)((__UINTEGER_32)(sz__KED + a__TWQ) & (__UINTEGER_32)(~ a__TWQ));
- ptr_table__U1Q=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BZ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__T1Q=((__POINTER )(NULL));
- result__V1Q=((__POINTER *)ptr_table__U1Q)[ 0];
- if ((result__V1Q == (void *)NULL)) {
- result__V1Q=new_lab__LNB(new_size__BZ);
- next__T1Q=(void *)((unsigned long)result__V1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BZ)));
- ((__POINTER *)next__T1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__U1Q)[ 0]=next__T1Q;
- } else {
- next__T1Q=((__POINTER *)result__V1Q)[ 0];
- if ((next__T1Q == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V1Q - (unsigned long)begin_memory__ABB)))) & 4095) + (__UINTEGER_32)(new_size__BZ << 1)) <= 4096)) {
- next__T1Q=(void *)((unsigned long)result__V1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BZ)));
- } else {
- next__T1Q=new_lab__LNB(new_size__BZ);
- };
- ((__POINTER *)next__T1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__U1Q)[ 0]=next__T1Q;
- } else {
- ((__POINTER *)result__V1Q)[ 0]=(void *)((unsigned long)((__POINTER *)next__T1Q)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__V1Q=next__T1Q;
- };
- };
- ptr__IED=result__V1Q;
- } else {
- t__K0=((__UINTEGER_32 )typ_id__NED);
- a__ZWQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__F5=(__UINTEGER_32)((__UINTEGER_32)(sz__KED + a__ZWQ) & (__UINTEGER_32)(~ a__ZWQ));
- ptr_table__G5=((__POINTER )(&(table_type[(t__K0)])));
- lab_type__H5=(__UINTEGER_32)(t__K0 | 1);
- next__L5=((__POINTER )(NULL));
- result__J5=((__POINTER *)ptr_table__G5)[ 0];
- if ((result__J5 == (void *)NULL)) {
- result__J5=new_lab__LNB(lab_type__H5);
- next__L5=(void *)((unsigned long)result__J5 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F5)));
- ((__POINTER *)next__L5)[ 0]=NULL;
- ((__POINTER *)ptr_table__G5)[ 0]=next__L5;
- } else {
- next__L5=((__POINTER *)result__J5)[ 0];
- if ((next__L5 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J5 - (unsigned long)begin_memory__ABB)))) & 4095) + (__UINTEGER_32)(new_size__F5 << 1)) <= 4096)) {
- next__L5=(void *)((unsigned long)result__J5 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F5)));
- } else {
- next__L5=new_lab__LNB(lab_type__H5);
- };
- ((__POINTER *)next__L5)[ 0]=NULL;
- ((__POINTER *)ptr_table__G5)[ 0]=next__L5;
- } else {
- ((__POINTER *)result__J5)[ 0]=(void *)((unsigned long)((__POINTER *)next__L5)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__J5=next__L5;
- };
- };
- ptr__IED=result__J5;
- };
- result__HED=((__STRING *)ptr__IED);
- *(result__HED) = *(STRING__);
- };
- Self__RQF=((__STRING *)result__HED);
- if ((idx__TUC > 0)) {
- if ((Self__RQF->capacity__ARF < idx__TUC)) {
- Self__RQF->storage__JRF=create__14H(idx__TUC);
- Self__RQF->capacity__ARF=idx__TUC;
- };
- };
- Self__RQF->count__RPF= 0;
- Self__HPF=((__STRING *)result__HED);
- p__IPF=arg__VJ;
- i__JPF= 0;
- Self__HPF->count__RPF= 0;
- while ((((__CHARACTER *)p__IPF)[i__JPF] != '\0')) {
- __tmp__4PF=((__CHARACTER *)p__IPF)[i__JPF];
- new_capacity__X3H= 0;
- if ((Self__HPF->capacity__ARF <= Self__HPF->count__RPF)) {
- if ((Self__HPF->capacity__ARF == 0)) {
- Self__HPF->capacity__ARF= 32;
- Self__HPF->storage__JRF=create__14H( 32);
- } else {
- new_capacity__X3H=(__INTEGER)(Self__HPF->capacity__ARF << 1);
- __tmp__P4H=Self__HPF->storage__JRF;
- __tmp__Q4H=Self__HPF->capacity__ARF;
- new__3MJ=((__CHARACTER *)realloc_dynamic__old_size__new_size__PDG(((__POINTER )((__CHARACTER *)__tmp__P4H)),((__UINTEGER_32 )__tmp__Q4H),((__UINTEGER_32 )new_capacity__X3H)));
- __tmp__QNJ=(__INTEGER)(new_capacity__X3H - 1);
- Self__34L=__tmp__Q4H;
- while ((Self__34L <= __tmp__QNJ)) {
- new__3MJ[Self__34L]='\0';
- Self__34L=(__INTEGER)(Self__34L + 1);
- };
- Self__HPF->storage__JRF=new__3MJ;
- Self__HPF->capacity__ARF=new_capacity__X3H;
- };
- };
- ((__CHARACTER *)Self__HPF->storage__JRF)[Self__HPF->count__RPF]=__tmp__4PF;
- Self__HPF->count__RPF=(__INTEGER)(Self__HPF->count__RPF + 1);
- i__JPF=(__INTEGER)(i__JPF + 1);
- };
- Self__KWC=((__FAST_ARRAYoSTRINGo *)result__UJ);
- new_capacity__MWC= 0;
- if (((__INTEGER)(Self__KWC->parent_arrayed_collection__KH.upper__MAC + 1) <= (__INTEGER)(Self__KWC->parent_arrayed_collection__KH.capacity__AAC - 1))) {
- Self__KWC->parent_arrayed_collection__KH.upper__MAC=(__INTEGER)(Self__KWC->parent_arrayed_collection__KH.upper__MAC + 1);
- __tmp__0WC=TRUE__;
- } else {
- __tmp__0WC=FALSE__;
- };
- if ((! __tmp__0WC)) {
- if ((Self__KWC->parent_arrayed_collection__KH.capacity__AAC == 0)) {
- Self__KWC->parent_arrayed_collection__KH.storage__44B=create__TKE( 2);
- Self__KWC->parent_arrayed_collection__KH.capacity__AAC= 2;
- Self__KWC->parent_arrayed_collection__KH.upper__MAC= 0;
- } else {
- new_capacity__MWC=(__INTEGER)(Self__KWC->parent_arrayed_collection__KH.capacity__AAC << 1);
- __tmp__PXC=Self__KWC->parent_arrayed_collection__KH.storage__44B;
- __tmp__QXC=Self__KWC->parent_arrayed_collection__KH.capacity__AAC;
- new__VUF=((void **)realloc_dynamic__old_size__new_size__PDG(((__POINTER )((void **)__tmp__PXC)),((__UINTEGER_32 )(__INTEGER)(__tmp__QXC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__MWC * ((__INTEGER )(sizeof(void *)))))));
- __tmp__IVF=(__INTEGER)(new_capacity__MWC - 1);
- Self__MSJ=__tmp__QXC;
- while ((Self__MSJ <= __tmp__IVF)) {
- new__VUF[Self__MSJ]=NULL;
- Self__MSJ=(__INTEGER)(Self__MSJ + 1);
- };
- Self__KWC->parent_arrayed_collection__KH.storage__44B=new__VUF;
- Self__KWC->parent_arrayed_collection__KH.capacity__AAC=new_capacity__MWC;
- Self__KWC->parent_arrayed_collection__KH.upper__MAC=(__INTEGER)(Self__KWC->parent_arrayed_collection__KH.upper__MAC + 1);
- };
- };
- ((void **)Self__KWC->parent_arrayed_collection__KH.storage__44B)[Self__KWC->parent_arrayed_collection__KH.upper__MAC]=result__HED;
- Self__BN=(__INTEGER)(Self__BN + 1);
- };
- i__0= 0;
- zr__EB=((__REAL_64 ) 0);
- zi__HB=((__REAL_64 ) 0);
- cr__KB=((__REAL_64 ) 0);
- ci__NB=((__REAL_64 ) 0);
- pr__QB=((__REAL_64 ) 0);
- pi__TB=((__REAL_64 ) 0);
- stop__ZB=FALSE__;
- gone__0B=FALSE__;
- bit_accu__5B= 0;
- cmd__FC=((void **)((__FAST_ARRAYoSTRINGo *)result__DR)->parent_arrayed_collection__KH.storage__44B)[ 1];
- Self__KAJ=((__STRING *)cmd__FC);
- state__NAJ= 0;
- cc__OAJ='\0';
- negative__PAJ=FALSE__;
- result__QAJ= 0;
- i__MAJ= 1;
- __tmp__EZQ=Self__KAJ->count__RPF;
- __tmp__FZQ=Self__KAJ->storage__JRF;
- __tmp__GZQ=Self__KAJ->count__RPF;
- while ((i__MAJ <= __tmp__EZQ)) {
- cc__OAJ=((__CHARACTER *)__tmp__FZQ)[(__INTEGER)(i__MAJ - 1)];
- if ((state__NAJ == 0)) {
- if ((((((((cc__OAJ == ' ') || (cc__OAJ == '\t')) || (cc__OAJ == '\n')) || (cc__OAJ == '\r')) || (cc__OAJ == '\0')) || (cc__OAJ == '\f')) || (cc__OAJ == '\v'))) {
- __tmp__2BJ=TRUE__;
- } else {
- result__PJO=(cc__OAJ == '+');
- if (result__PJO) {
- state__NAJ= 1;
- };
- __tmp__2BJ=result__PJO;
- };
- if ((! __tmp__2BJ)) {
- if ((cc__OAJ == '-')) {
- negative__PAJ=TRUE__;
- state__NAJ= 1;
- } else {
- result__QAJ=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OAJ)) - 48);
- state__NAJ= 2;
- };
- };
- __tmp__PCJ=TRUE__;
- } else {
- __tmp__PCJ=FALSE__;
- };
- if (__tmp__PCJ) {
- __tmp__EDJ=TRUE__;
- } else {
- result__ASM=(state__NAJ == 1);
- if (result__ASM) {
- result__QAJ=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OAJ)) - 48);
- if (negative__PAJ) {
- result__QAJ=(__INTEGER)(- result__QAJ);
- };
- state__NAJ= 2;
- };
- __tmp__EDJ=result__ASM;
- };
- if (__tmp__EDJ) {
- __tmp__LEJ=TRUE__;
- } else {
- result__SSM=(state__NAJ == 2);
- if (result__SSM) {
- result__JMN=FALSE__;
- if ((((__INTEGER_8 )cc__OAJ) >= ((__INTEGER_8 )'0'))) {
- result__JMN=(((__INTEGER_8 )cc__OAJ) <= ((__INTEGER_8 )'9'));
- };
- if (result__JMN) {
- if (negative__PAJ) {
- result__QAJ=(__INTEGER)((__INTEGER)( 10 * result__QAJ) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OAJ)) - 48));
- } else {
- result__QAJ=(__INTEGER)((__INTEGER)( 10 * result__QAJ) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OAJ)) - 48));
- };
- } else {
- state__NAJ= 3;
- };
- };
- __tmp__LEJ=result__SSM;
- };
- if ((! __tmp__LEJ)) {
- if ((state__NAJ == 3)) {
- i__MAJ=__tmp__GZQ;
- };
- };
- i__MAJ=(__INTEGER)(i__MAJ + 1);
- };
- size__Z=result__QAJ;
- print__QH((&__string_1));
- put_string__LK(((__STRING *)cmd__FC));
- fputc((int)(' '),stdout);
- put_string__LK(((__STRING *)cmd__FC));
- print__QH((&__string_2));
- limit__WB=((__REAL_64 )4.0);
- bit__2B= 128;
- Self__4I= 0;
- limit_up__5I=(__INTEGER)(result__QAJ - 1);
- while ((Self__4I <= limit_up__5I)) {
- ci__NB=(__REAL_64)((__REAL_64)(((__REAL_64 )(__INTEGER)(Self__4I << 1)) / ((__REAL_64 )size__Z)) - ((__REAL_64 )1.0));
- Self__3SC= 0;
- limit_up__4SC=(__INTEGER)(size__Z - 1);
- while ((Self__3SC <= limit_up__4SC)) {
- cr__KB=(__REAL_64)((__REAL_64)(((__REAL_64 )(__INTEGER)(Self__3SC << 1)) / ((__REAL_64 )size__Z)) - ((__REAL_64 )1.5));
- pi__TB=((__REAL_64 ) 0);
- pr__QB=pi__TB;
- zi__HB=pi__TB;
- zr__EB=pi__TB;
- i__0= 0;
- stop__ZB=FALSE__;
- while ((! stop__ZB)) {
- zi__HB=((__REAL_64 )(((__REAL_64)((__REAL_64)(zr__EB * zi__HB) * ((__REAL_64 ) 2))) + (ci__NB)));
- zr__EB=((__REAL_64 )(((__REAL_64)(pr__QB - pi__TB)) + (cr__KB)));
- pi__TB=(__REAL_64)(zi__HB * zi__HB);
- pr__QB=(__REAL_64)(zr__EB * zr__EB);
- if ((((__REAL_64 )((pi__TB) + (pr__QB))) > limit__WB)) {
- stop__ZB=TRUE__;
- gone__0B=TRUE__;
- } else {
- i__0=(__INTEGER)(i__0 + 1);
- stop__ZB=(i__0 == 50);
- };
- };
- if (gone__0B) {
- gone__0B=FALSE__;
- } else {
- bit_accu__5B=(__UINTEGER_8)(bit_accu__5B | bit__2B);
- };
- if ((bit__2B == 1)) {
- fputc((int)(((__CHARACTER )bit_accu__5B)),stdout);
- bit_accu__5B= 0;
- bit__2B= 128;
- } else {
- bit__2B=(__UINTEGER_8)(bit__2B >> 1);
- };
- Self__3SC=(__INTEGER)(Self__3SC + 1);
- };
- if ((bit__2B != 128)) {
- fputc((int)(((__CHARACTER )bit_accu__5B)),stdout);
- bit_accu__5B= 0;
- bit__2B= 128;
- };
- Self__4I=(__INTEGER)(Self__4I + 1);
- };
- return( 0);
-}
-
-static __POINTER new_lab__LNB(__UINTEGER_32 t__NNB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__PNB,pv__WNB;
- __MEMORY *blc__SNB,*prev__TNB,*Self__JJQ,*Self__AWQ,*prev__BWQ;
- __MEMORY *next__CWQ;
- __POINTER result__UNB;
- __BOOLEAN __tmp__WOB;
- idx__PNB= 0;
- blc__SNB=NULL;
- prev__TNB=NULL;
- pv__WNB= 0;
- while_do__OSB:
- {
- if ((idx__PNB < nb_page__3NB)) {
- blc__SNB=((__MEMORY *)(last_block[(idx__PNB)]));
- __tmp__WOB=(((__UINTEGER_32)(((__MEMORY *)blc__SNB)->size_and_id__CS & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__SNB)->size_and_id__CS & 1) == 1));
- } else {
- __tmp__WOB=FALSE__;
- };
- if (__tmp__WOB) {
- idx__PNB=(__UINTEGER_32)(idx__PNB + 1);
- goto while_do__OSB;
- };
- };
- if ((idx__PNB >= nb_page__3NB)) {
- blc__SNB=new_page__MPC();
- };
- ((__MEMORY *)blc__SNB)->size_and_id__CS=(__UINTEGER_32)(blc__SNB->size_and_id__CS - 4096);
- Self__JJQ=((__MEMORY *)blc__SNB);
- result__UNB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__JJQ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__JJQ->size_and_id__CS & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__SNB)->size_and_id__CS & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__AWQ=((__MEMORY *)blc__SNB);
- prev__BWQ=Self__AWQ->previous_free__ES;
- next__CWQ=Self__AWQ->next_free__DS;
- if (((void *)prev__BWQ == (void *)NULL)) {
- first_free__JEF=next__CWQ;
- } else {
- ((__MEMORY *)prev__BWQ)->next_free__DS=next__CWQ;
- };
- if (((void *)next__CWQ != (void *)NULL)) {
- ((__MEMORY *)next__CWQ)->previous_free__ES=prev__BWQ;
- };
- pv__WNB=blc__SNB->previous_linear__BS;
- if ((pv__WNB != 4294967295LU)) {
- prev__TNB=((__MEMORY *)(void *)((unsigned long)begin_memory__ABB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__WNB))));
- ((__MEMORY *)prev__TNB)->size_and_id__CS=(__UINTEGER_32)((__UINTEGER_32)(prev__TNB->size_and_id__CS + blc__SNB->size_and_id__CS) + 8);
- last_block[(idx__PNB)] = (prev__TNB);
- };
- };
- ((__POINTER *)result__UNB)[ 0]=((__POINTER )t__NNB);
- return((void *)((unsigned long)result__UNB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__TKE(__INTEGER nb_elements__VKE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__YZQ,a__XZQ,new_size__ZZQ,new_size2__0ZQ,a__2ZQ;
- __UINTEGER_32 new_size__3ZQ;
- __POINTER result__WZQ,ptr_table__W0Q,next__V0Q,result__X0Q;
- __INTEGER Self__HHG;
- void **Result__YPE;
- sz__YZQ=((__UINTEGER_32 )(__INTEGER)(nb_elements__VKE * ((__INTEGER )(sizeof(void *)))));
- result__WZQ=((__POINTER )(NULL));
- a__XZQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZZQ=(__UINTEGER_32)((__UINTEGER_32)(sz__YZQ + a__XZQ) & (__UINTEGER_32)(~ a__XZQ));
- new_size2__0ZQ=(__UINTEGER_32)(new_size__ZZQ + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__0ZQ <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__2ZQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3ZQ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0ZQ + a__2ZQ) & (__UINTEGER_32)(~ a__2ZQ));
- ptr_table__W0Q=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3ZQ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__V0Q=((__POINTER )(NULL));
- result__X0Q=((__POINTER *)ptr_table__W0Q)[ 0];
- if ((result__X0Q == (void *)NULL)) {
- result__X0Q=new_lab__LNB(new_size__3ZQ);
- next__V0Q=(void *)((unsigned long)result__X0Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZQ)));
- ((__POINTER *)next__V0Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__W0Q)[ 0]=next__V0Q;
- } else {
- next__V0Q=((__POINTER *)result__X0Q)[ 0];
- if ((next__V0Q == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X0Q - (unsigned long)begin_memory__ABB)))) & 4095) + (__UINTEGER_32)(new_size__3ZQ << 1)) <= 4096)) {
- next__V0Q=(void *)((unsigned long)result__X0Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZQ)));
- } else {
- next__V0Q=new_lab__LNB(new_size__3ZQ);
- };
- ((__POINTER *)next__V0Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__W0Q)[ 0]=next__V0Q;
- } else {
- ((__POINTER *)result__X0Q)[ 0]=(void *)((unsigned long)((__POINTER *)next__V0Q)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__X0Q=next__V0Q;
- };
- };
- ((__POINTER *)result__X0Q)[ 0]=((__POINTER ) 3);
- result__WZQ=(void *)((unsigned long)result__X0Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__WZQ=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__GDF(new_size__ZZQ))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__YPE=((void **)result__WZQ);
- Self__HHG=(__INTEGER)(nb_elements__VKE - 1);
- while ((Self__HHG >= 0)) {
- Result__YPE[Self__HHG]=NULL;
- Self__HHG=(__INTEGER)(Self__HHG - 1);
- };
- return(Result__YPE);
-}
-
-static __CHARACTER* create__14H(__INTEGER nb_elements__34H)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__D0Q,a__C0Q,new_size__E0Q,new_size2__F0Q,a__H0Q;
- __UINTEGER_32 new_size__I0Q;
- __POINTER result__B0Q,ptr_table__20Q,next__10Q,result__30Q;
- __INTEGER Self__OVJ;
- __CHARACTER *Result__EII;
- sz__D0Q=((__UINTEGER_32 )nb_elements__34H);
- result__B0Q=((__POINTER )(NULL));
- a__C0Q=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__E0Q=(__UINTEGER_32)((__UINTEGER_32)(sz__D0Q + a__C0Q) & (__UINTEGER_32)(~ a__C0Q));
- new_size2__F0Q=(__UINTEGER_32)(new_size__E0Q + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__F0Q <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__H0Q=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__I0Q=(__UINTEGER_32)((__UINTEGER_32)(new_size2__F0Q + a__H0Q) & (__UINTEGER_32)(~ a__H0Q));
- ptr_table__20Q=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__I0Q / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__10Q=((__POINTER )(NULL));
- result__30Q=((__POINTER *)ptr_table__20Q)[ 0];
- if ((result__30Q == (void *)NULL)) {
- result__30Q=new_lab__LNB(new_size__I0Q);
- next__10Q=(void *)((unsigned long)result__30Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I0Q)));
- ((__POINTER *)next__10Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__20Q)[ 0]=next__10Q;
- } else {
- next__10Q=((__POINTER *)result__30Q)[ 0];
- if ((next__10Q == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__30Q - (unsigned long)begin_memory__ABB)))) & 4095) + (__UINTEGER_32)(new_size__I0Q << 1)) <= 4096)) {
- next__10Q=(void *)((unsigned long)result__30Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I0Q)));
- } else {
- next__10Q=new_lab__LNB(new_size__I0Q);
- };
- ((__POINTER *)next__10Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__20Q)[ 0]=next__10Q;
- } else {
- ((__POINTER *)result__30Q)[ 0]=(void *)((unsigned long)((__POINTER *)next__10Q)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__30Q=next__10Q;
- };
- };
- ((__POINTER *)result__30Q)[ 0]=((__POINTER ) 3);
- result__B0Q=(void *)((unsigned long)result__30Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__B0Q=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__GDF(new_size__E0Q))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__EII=((__CHARACTER *)result__B0Q);
- Self__OVJ=(__INTEGER)(nb_elements__34H - 1);
- while ((Self__OVJ >= 0)) {
- Result__EII[Self__OVJ]='\0';
- Self__OVJ=(__INTEGER)(Self__OVJ - 1);
- };
- return(Result__EII);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__PDG(__POINTER p__RDG,__UINTEGER_32 old_sz__SDG,__UINTEGER_32 new_sz__TDG)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__4DG,*Self__YXH,*nxt__2XH,*result__3XH,*next__VYI;
- __MEMORY *new_free__UYI,*prev__NXQ,*next__OXQ;
- __POINTER result__5DG,result__IWE,ptr_table__C1Q,next__B1Q;
- __POINTER result__D1Q,p__OWH,last__HDI,src__IVH,dst__JVH;
- __UINTEGER_32 a__3WQ,old_size__VDG,old_size2__YDG,a__BXQ;
- __UINTEGER_32 new_size__1DG,a__0VQ,new_size__CWE,new_size2__FWE;
- __UINTEGER_32 a__AYQ,new_size__BYQ,a__D3,__tmp__QFG,sz__BYH;
- __UINTEGER_32 old_size__4XH,prev__WYI,new_size__ZYI;
- __INTEGER siz__01Q,Self__51Q,siz__NVH,Self__0AI;
- __POINTER *na_src__21Q,*na_dst__41Q,*na_src__LVH,*na_dst__MVH;
- mem__4DG=NULL;
- result__5DG=((__POINTER )(NULL));
- a__3WQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__VDG=(__UINTEGER_32)((__UINTEGER_32)(old_sz__SDG + a__3WQ) & (__UINTEGER_32)(~ a__3WQ));
- old_size2__YDG=(__UINTEGER_32)(old_size__VDG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__BXQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1DG=(__UINTEGER_32)((__UINTEGER_32)(new_sz__TDG + a__BXQ) & (__UINTEGER_32)(~ a__BXQ));
- if ((old_size2__YDG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__IWE=((__POINTER )(NULL));
- a__0VQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CWE=(__UINTEGER_32)((__UINTEGER_32)(new_size__1DG + a__0VQ) & (__UINTEGER_32)(~ a__0VQ));
- new_size2__FWE=(__UINTEGER_32)(new_size__CWE + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FWE <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__AYQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BYQ=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FWE + a__AYQ) & (__UINTEGER_32)(~ a__AYQ));
- ptr_table__C1Q=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BYQ / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__B1Q=((__POINTER )(NULL));
- result__D1Q=((__POINTER *)ptr_table__C1Q)[ 0];
- if ((result__D1Q == (void *)NULL)) {
- result__D1Q=new_lab__LNB(new_size__BYQ);
- next__B1Q=(void *)((unsigned long)result__D1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BYQ)));
- ((__POINTER *)next__B1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__C1Q)[ 0]=next__B1Q;
- } else {
- next__B1Q=((__POINTER *)result__D1Q)[ 0];
- if ((next__B1Q == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D1Q - (unsigned long)begin_memory__ABB)))) & 4095) + (__UINTEGER_32)(new_size__BYQ << 1)) <= 4096)) {
- next__B1Q=(void *)((unsigned long)result__D1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BYQ)));
- } else {
- next__B1Q=new_lab__LNB(new_size__BYQ);
- };
- ((__POINTER *)next__B1Q)[ 0]=NULL;
- ((__POINTER *)ptr_table__C1Q)[ 0]=next__B1Q;
- } else {
- ((__POINTER *)result__D1Q)[ 0]=(void *)((unsigned long)((__POINTER *)next__B1Q)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__D1Q=next__B1Q;
- };
- };
- ((__POINTER *)result__D1Q)[ 0]=((__POINTER ) 3);
- result__IWE=(void *)((unsigned long)result__D1Q - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__IWE=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__GDF(new_size__CWE))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__5DG=result__IWE;
- siz__01Q=((__INTEGER )old_size__VDG);
- siz__01Q=(__INTEGER)(siz__01Q / ((__INTEGER )(sizeof(void *))));
- na_src__21Q=((__POINTER *)p__RDG);
- na_dst__41Q=((__POINTER *)result__IWE);
- Self__51Q=(__INTEGER)(siz__01Q - 1);
- while ((Self__51Q >= 0)) {
- na_dst__41Q[Self__51Q]=na_src__21Q[Self__51Q];
- Self__51Q=(__INTEGER)(Self__51Q - 1);
- };
- p__OWH=(void *)((unsigned long)p__RDG - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__D3=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__HDI=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__YDG + a__D3) & (__UINTEGER_32)(~ a__D3)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__OWH)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__HDI)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__HDI)[ 0]=p__OWH;
- } else {
- mem__4DG=((__MEMORY *)(void *)((unsigned long)p__RDG - (unsigned long)((__POINTER ) 8)));
- __tmp__QFG=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__RDG - (unsigned long)begin_memory__ABB)))) >> 26);
- Self__YXH=((__MEMORY *)mem__4DG);
- nxt__2XH=NULL;
- result__3XH=NULL;
- sz__BYH= 0;
- old_size__4XH=(__UINTEGER_32)(Self__YXH->size_and_id__CS & 4294967292LU);
- if ((new_size__1DG > old_size__4XH)) {
- if ((! ((__UINTEGER_32)(Self__YXH->size_and_id__CS & 2) != 0))) {
- nxt__2XH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YXH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__YXH->size_and_id__CS & 4294967292LU)))));
- sz__BYH=(__UINTEGER_32)((__UINTEGER_32)(new_size__1DG - old_size__4XH) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__2XH)->size_and_id__CS & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__2XH)->size_and_id__CS & 4294967292LU) >= sz__BYH))) {
- to_busy__index__JYF(nxt__2XH,sz__BYH,__tmp__QFG);
- Self__YXH->size_and_id__CS=(__UINTEGER_32)((__UINTEGER_32)(Self__YXH->size_and_id__CS + (__UINTEGER_32)(nxt__2XH->size_and_id__CS & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__YXH->size_and_id__CS & 2) != 0)) {
- last_block[(__tmp__QFG)] = (Self__YXH);
- } else {
- nxt__2XH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YXH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__YXH->size_and_id__CS & 4294967292LU)))));
- ((__MEMORY *)nxt__2XH)->previous_linear__BS=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__YXH) - (unsigned long)begin_memory__ABB))));
- };
- result__3XH=Self__YXH;
- };
- };
- if (((void *)result__3XH == (void *)NULL)) {
- result__3XH=search__GDF(new_size__1DG);
- src__IVH=(void *)((unsigned long)((__POINTER )Self__YXH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__JVH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__3XH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__NVH=((__INTEGER )old_size__4XH);
- siz__NVH=(__INTEGER)(siz__NVH / ((__INTEGER )(sizeof(void *))));
- na_src__LVH=((__POINTER *)src__IVH);
- na_dst__MVH=((__POINTER *)dst__JVH);
- Self__0AI=(__INTEGER)(siz__NVH - 1);
- while ((Self__0AI >= 0)) {
- na_dst__MVH[Self__0AI]=na_src__LVH[Self__0AI];
- Self__0AI=(__INTEGER)(Self__0AI - 1);
- };
- prev__WYI=Self__YXH->previous_linear__BS;
- next__VYI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YXH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__YXH->size_and_id__CS & 4294967292LU)))));
- new_free__UYI=((__MEMORY *)(void *)((unsigned long)begin_memory__ABB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__WYI))));
- new_size__ZYI=(__UINTEGER_32)(Self__YXH->size_and_id__CS & 4294967294LU);
- if (((prev__WYI == 4294967295LU) || ((__UINTEGER_32)(new_free__UYI->size_and_id__CS & 1) != 0))) {
- new_free__UYI=Self__YXH;
- Self__YXH->next_free__DS=first_free__JEF;
- Self__YXH->previous_free__ES=NULL;
- if (((void *)first_free__JEF != (void *)NULL)) {
- ((__MEMORY *)first_free__JEF)->previous_free__ES=Self__YXH;
- };
- first_free__JEF=Self__YXH;
- } else {
- new_size__ZYI=(__UINTEGER_32)((__UINTEGER_32)(new_size__ZYI + new_free__UYI->size_and_id__CS) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__YXH->size_and_id__CS & 2) != 0)) && ((__UINTEGER_32)(next__VYI->size_and_id__CS & 1) == 0))) {
- new_size__ZYI=(__UINTEGER_32)((__UINTEGER_32)(new_size__ZYI + next__VYI->size_and_id__CS) + 8);
- prev__NXQ=next__VYI->previous_free__ES;
- next__OXQ=next__VYI->next_free__DS;
- if (((void *)prev__NXQ == (void *)NULL)) {
- first_free__JEF=next__OXQ;
- } else {
- ((__MEMORY *)prev__NXQ)->next_free__DS=next__OXQ;
- };
- if (((void *)next__OXQ != (void *)NULL)) {
- ((__MEMORY *)next__OXQ)->previous_free__ES=prev__NXQ;
- };
- };
- new_free__UYI->size_and_id__CS=new_size__ZYI;
- if (((__UINTEGER_32)(new_free__UYI->size_and_id__CS & 2) != 0)) {
- last_block[(__tmp__QFG)] = (new_free__UYI);
- } else {
- next__VYI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YXH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__YXH->size_and_id__CS & 4294967292LU)))));
- next__VYI->previous_linear__BS=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__UYI) - (unsigned long)begin_memory__ABB))));
- };
- };
- } else {
- result__3XH=Self__YXH;
- };
- result__5DG=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__3XH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__5DG);
-}
-
-static void print__QH(__STRING_CONSTANT *Self__RH)
-// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
-{
- put_string__LK(Self__RH);
-}
-
-static void put_string__LK(void *s__NK)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__AL,Self__FP,limit_up__GP;
- __CHARACTER *__tmp__SXQ,*__tmp__TXQ;
- __CHARACTER __tmp__HL;
- if (((struct ___OBJ *)s__NK)->__id==__STRING_CONSTANT__) {
- };
- if (((struct ___OBJ *)s__NK)->__id==__STRING_CONSTANT__) {
- __tmp__AL=((__STRING_CONSTANT *)s__NK)->count__AP;
- } else {
- __tmp__AL=((__STRING *)s__NK)->count__RPF;
- };
- Self__FP= 1;
- limit_up__GP=__tmp__AL;
- __tmp__SXQ=((__STRING_CONSTANT *)s__NK)->storage__NZC;
- __tmp__TXQ=((__STRING *)s__NK)->storage__JRF;
- while ((Self__FP <= limit_up__GP)) {
- if (((struct ___OBJ *)s__NK)->__id==__STRING_CONSTANT__) {
- __tmp__HL=((__CHARACTER *)__tmp__SXQ)[(__INTEGER)(Self__FP - 1)];
- } else {
- __tmp__HL=((__CHARACTER *)__tmp__TXQ)[(__INTEGER)(Self__FP - 1)];
- };
- fputc((int)(__tmp__HL),stdout);
- Self__FP=(__INTEGER)(Self__FP + 1);
- };
-}
-
-static __MEMORY* new_page__MPC()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__3XD;
- __UINTEGER_32 cap__0XD,old_size__PPC;
- __MEMORY *block__VPC;
- if ((capacity_max__WPC == 0)) {
- mem__3XD=((__POINTER )(NULL));
- cap__0XD= 33554432;
- do {
- cap__0XD=(__UINTEGER_32)(cap__0XD << 1);
- mem__3XD=((__POINTER )(malloc((cap__0XD))));
- if ((mem__3XD != (void *)NULL)) {
- free((mem__3XD));
- };
- } while ((! ((mem__3XD == (void *)NULL) || (cap__0XD == 2147483648LU))));
- if ((mem__3XD == (void *)NULL)) {
- cap__0XD=(__UINTEGER_32)(cap__0XD >> 1);
- };
- capacity_max__WPC=cap__0XD;
- begin_memory__ABB=((__POINTER )(malloc((cap__0XD))));
- };
- old_size__PPC=(__UINTEGER_32)(nb_page__3NB << 26);
- nb_page__3NB=(__UINTEGER_32)(nb_page__3NB + 1);
- if (((__UINTEGER_32)(old_size__PPC + 67108864) > capacity_max__WPC)) {
- print__QH((&__string_3));
- exit(( 1));
- };
- block__VPC=((__MEMORY *)(void *)((unsigned long)begin_memory__ABB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__PPC))));
- block__VPC->previous_linear__BS= 4294967295LU;
- block__VPC->size_and_id__CS= 67108858;
- block__VPC->next_free__DS=first_free__JEF;
- block__VPC->previous_free__ES=NULL;
- if (((void *)first_free__JEF != (void *)NULL)) {
- ((__MEMORY *)first_free__JEF)->previous_free__ES=block__VPC;
- };
- first_free__JEF=block__VPC;
- last_block[((__UINTEGER_32)(nb_page__3NB - 1))] = (block__VPC);
- return(block__VPC);
-}
-
-static __MEMORY* search__GDF(__UINTEGER_32 new_size__IDF)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__KDF;
- result__KDF=first_free__JEF;
- while ((((void *)result__KDF != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__KDF)->size_and_id__CS & 4294967292LU) < new_size__IDF))) {
- result__KDF=result__KDF->next_free__DS;
- };
- if (((void *)result__KDF == (void *)NULL)) {
- result__KDF=new_page__MPC();
- };
- to_busy__index__JYF(result__KDF,new_size__IDF,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__KDF)) - (unsigned long)begin_memory__ABB)))) >> 26));
- return(result__KDF);
-}
-
-static void to_busy__index__JYF(__MEMORY *Self__KYF,__UINTEGER_32 sz__LYF,__UINTEGER_32 idx__MYF)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __MEMORY *new__TYF,*prev__PLG,*next__QLG,*Self__FQF,*Self__PFQ;
- __UINTEGER_32 siz__NYF,new_size__QYF;
- new__TYF=NULL;
- prev__PLG=Self__KYF->previous_free__ES;
- next__QLG=Self__KYF->next_free__DS;
- if (((void *)prev__PLG == (void *)NULL)) {
- first_free__JEF=next__QLG;
- } else {
- ((__MEMORY *)prev__PLG)->next_free__DS=next__QLG;
- };
- if (((void *)next__QLG != (void *)NULL)) {
- ((__MEMORY *)next__QLG)->previous_free__ES=prev__PLG;
- };
- siz__NYF=Self__KYF->size_and_id__CS;
- new_size__QYF=(__UINTEGER_32)(siz__NYF - sz__LYF);
- if ((new_size__QYF > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__NYF=sz__LYF;
- new__TYF=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__KYF) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__LYF))));
- ((__MEMORY *)new__TYF)->previous_linear__BS=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__KYF) - (unsigned long)begin_memory__ABB))));
- ((__MEMORY *)new__TYF)->size_and_id__CS=(__UINTEGER_32)(new_size__QYF - 8);
- Self__FQF=((__MEMORY *)new__TYF);
- Self__FQF->next_free__DS=first_free__JEF;
- Self__FQF->previous_free__ES=NULL;
- if (((void *)first_free__JEF != (void *)NULL)) {
- ((__MEMORY *)first_free__JEF)->previous_free__ES=Self__FQF;
- };
- first_free__JEF=Self__FQF;
- if (((__UINTEGER_32)(((__MEMORY *)new__TYF)->size_and_id__CS & 2) != 0)) {
- last_block[(idx__MYF)] = (new__TYF);
- } else {
- Self__PFQ=((__MEMORY *)new__TYF);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PFQ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__PFQ->size_and_id__CS & 4294967292LU)))))->previous_linear__BS=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__TYF)) - (unsigned long)begin_memory__ABB))));
- };
- };
- Self__KYF->size_and_id__CS=(__UINTEGER_32)(siz__NYF | 1);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/mandelbrot/mandelbrot_c.c b/example/shootout/mandelbrot/mandelbrot_c.c
deleted file mode 100644
index ddce5ce..0000000
--- a/example/shootout/mandelbrot/mandelbrot_c.c
+++ /dev/null
@@ -1,92 +0,0 @@
-/*The Computer Language Shootout
- http://shootout.alioth.debian.org/
-
- contributed by Greg Buchholz
-
- Uses SSE packed doubles to run the inner loop computations in parallel.
- I don't have a machine with SSE to test with, but the assembly looks
- pretty nice. With gcc-3.4.2 there's no difference in the assembly
- between -msse2 and -msse3, YMMV. It uses gcc's vector extentions
- ( http://gcc.gnu.org/onlinedocs/gcc-4.0.0/gcc/Vector-Extensions.html ),
- so it will run (slowly) on hardware without SSE.
-
- compile (AMD):
- gcc -D_ISOC9X_SOURCE -O3 -mfpmath=sse -msse2 -march=athlon-xp
- -ffast-math -funroll-loops -o mandelbrot.gcc-3.gcc_run mandelbrot.c -lm
-
- compile (INTEL):
- gcc -D_ISOC9X_SOURCE -O3 -mfpmath=sse -msse2 -march=pentium4
- -ffast-math -funroll-loops -o mandelbrot.gcc-3.gcc_run mandelbrot.c -lm
-*/
-
-#include<stdio.h>
-#include<math.h>
-#include<fenv.h>
-typedef double v2df __attribute__ ((mode(V2DF))); // vector of two double floats
-
-int main (int argc, char **argv)
-{
- int w, h, bit_num = 0;
- char byte_acc = 0;
- int i, iter = 50;
- double x, y, limit_sqr = 4.0;
- v2df Zrv, Ziv, Crv, Civ, Trv, Tiv;
- v2df zero, one, _1p5, two;
- double *Zr = (double*)&Zrv, *Zi = (double*)&Ziv,
- *Cr = (double*)&Crv, *Ci = (double*)&Civ,
- *Tr = (double*)&Trv, *Ti = (double*)&Tiv;
-
-#define initv(name, val) *((double*)&name) = (double) val; \
- *((double*)&name+1) = (double) val
- initv(zero,0.0); initv(one,1.0); initv(_1p5,1.5); initv(two,2.0);
-
- w = h = atoi(argv[1]);
-
- printf("P4\n%d %d\n",w,h);
-
- for(y=0;y<h;++y)
- {
- for(x=0;x<w;x+=2)
- {
- Zrv = Ziv = Trv = Tiv = zero;
- *Cr = x/w; *(Cr+1) = (x+1.0)/w;
- *Ci = y/h; *(Ci+1) = *Ci;
- Crv = two * Crv - _1p5;
- Civ = two * Civ - one;
-
- for (i=0;i<iter && (islessequal( *Tr + *Ti, limit_sqr) ||
- islessequal(*(Tr+1) + *(Ti+1),limit_sqr) ); ++i)
- {
- Ziv = two*Zrv*Ziv + Civ;
- Zrv = Trv - Tiv + Crv;
- Trv = Zrv * Zrv;
- Tiv = Ziv * Ziv;
- }
- byte_acc <<= 2;
- if(islessequal(*Tr + *Ti, limit_sqr)) {
- byte_acc |= 0x02;
- };
-
- if(islessequal(*(Tr+1) + *(Ti+1), limit_sqr)) {
- byte_acc |= 0x01;
- };
-
- bit_num+=2;
-
- if(bit_num == 8)
- {
- putc(byte_acc,stdout);
- byte_acc = 0;
- bit_num = 0;
- }
- else if(x == w-1)
- {
- byte_acc <<= (8-w%8);
- putc(byte_acc,stdout);
- byte_acc = 0;
- bit_num = 0;
- }
- }
- }
-
-}
diff --git a/example/shootout/mandelbrot/mandelbrot_c2.c b/example/shootout/mandelbrot/mandelbrot_c2.c
deleted file mode 100644
index 81b693d..0000000
--- a/example/shootout/mandelbrot/mandelbrot_c2.c
+++ /dev/null
@@ -1,83 +0,0 @@
-/*The Computer Language Benchmarks Game
- http://shootout.alioth.debian.org/
-
- contributed by Paolo Bonzini
-*/
-
-
-#include <stdio.h>
-#include <stdlib.h>
-
-typedef double v2df __attribute__ ((vector_size(16))); // vector of two double floats
-typedef int v4si __attribute__ ((vector_size(16))); // vector of four 32-bit ints
-
-int main (int argc, char **argv)
-{
- int w, h, bit_num = 0;
- char byte_acc = 0;
- int i, iter = 50;
- double x, y;
- v2df zero = { 0.0, 0.0 };
- v2df four = { 4.0, 4.0 };
- v2df nzero = -zero;
-
- /* Detect endianness. */
- v4si mask = (v4si)nzero;
- int *pmask = (int *) &mask;
- if (pmask[1]) pmask++;
-
- w = h = atoi(argv[1]);
-
- printf("P4\n%d %d\n",w,h);
-
- for(y=0;y<h;++y)
- {
- for(x=0;x<w;x+=2)
- {
- v2df Crv = { 2*x/w-1.5, 2*(x+1.0)/w-1.5 };
- v2df Civ = { 2*y/h-1.0, 2*y/h-1.0 };
- v2df Zrv = { 0.0, 0.0 };
- v2df Ziv = { 0.0, 0.0 };
- v2df Trv = { 0.0, 0.0 };
- v2df Tiv = { 0.0, 0.0 };
-
- i = 0;
- do {
- Ziv = (Zrv*Ziv) + (Zrv*Ziv) + Civ;
- Zrv = Trv - Tiv + Crv;
- Trv = Zrv * Zrv;
- Tiv = Ziv * Ziv;
-
- /* sign bit zeroed if 4.0 - Trv - Tiv >= 0.0 (i.e. |Z| <= 4.0). */
- v2df delta = four - Trv - Tiv;
-
- mask = (v4si)delta & (v4si)nzero;
- } while (++i < iter && !(pmask[0] && pmask[2]));
-
- byte_acc <<= 2;
- if(!pmask[0])
- byte_acc |= 0x02;
- if(!pmask[2])
- byte_acc |= 0x01;
- bit_num+=2;
-
- if(bit_num == 8) {
- fputc(byte_acc,stdout);
- // printf("%d ",byte_acc);
- byte_acc = 0;
- bit_num = 0;
- }
- }
-
- if(bit_num != 0) {
- byte_acc <<= (8-w%8);
- fputc(byte_acc,stdout);
- // printf("%d ",byte_acc);
- byte_acc = 0;
- bit_num = 0;
- }
- // printf("\n");
- }
-
-}
-
diff --git a/example/shootout/mandelbrot/mandelbrot_c3.c b/example/shootout/mandelbrot/mandelbrot_c3.c
deleted file mode 100755
index 66ba71e..0000000
--- a/example/shootout/mandelbrot/mandelbrot_c3.c
+++ /dev/null
@@ -1,90 +0,0 @@
-/*The Computer Language Shootout
- http://shootout.alioth.debian.org/
-
- contributed by Greg Buchholz
-
- Uses SSE packed doubles to run the inner loop computations in parallel.
- I don't have a machine with SSE to test with, but the assembly looks
- pretty nice. With gcc-3.4.2 there's no difference in the assembly
- between -msse2 and -msse3, YMMV. It uses gcc's vector extentions
- ( http://gcc.gnu.org/onlinedocs/gcc-4.0.0/gcc/Vector-Extensions.html ),
- so it will run (slowly) on hardware without SSE.
-
- compile (AMD):
- gcc -D_ISOC9X_SOURCE -O3 -mfpmath=sse -msse2 -march=athlon-xp
- -ffast-math -funroll-loops -o mandelbrot.gcc-3.gcc_run mandelbrot.c -lm
-
- compile (INTEL):
- gcc -D_ISOC9X_SOURCE -O3 -mfpmath=sse -msse2 -march=pentium4
- -ffast-math -funroll-loops -o mandelbrot.gcc-3.gcc_run mandelbrot.c -lm
-*/
-
-#include<stdio.h>
-#include<math.h>
-#include<fenv.h>
-typedef double v2df __attribute__ ((mode(V2DF))); // vector of two double floats
-
-int main (int argc, char **argv)
-{
- int w, h, bit_num = 0;
- char byte_acc = 0;
- int i, iter = 50;
- double x, y, limit_sqr = 4.0;
- v2df Zrv, Ziv, Crv, Civ, Trv, Tiv;
- v2df zero, one, _1p5, two;
- double *Zr = (double*)&Zrv, *Zi = (double*)&Ziv,
- *Cr = (double*)&Crv, *Ci = (double*)&Civ,
- *Tr = (double*)&Trv, *Ti = (double*)&Tiv;
-
-#define initv(name, val) *((double*)&name) = (double) val; \
- *((double*)&name+1) = (double) val
- initv(zero,0.0); initv(one,1.0); initv(_1p5,1.5); initv(two,2.0);
-
- w = h = atoi(argv[1]);
-
- printf("P4\n%d %d\n",w,h);
-
- for(y=0;y<h;++y)
- {
- for(x=0;x<w;x+=2)
- {
- Zrv = Ziv = Trv = Tiv = zero;
- *Cr = x/w; *(Cr+1) = (x+1.0)/w;
- *Ci = y/h; *(Ci+1) = *Ci;
- Crv = two * Crv - _1p5;
- Civ = two * Civ - one;
-
- for (i=0;i<iter && (islessequal( *Tr + *Ti, limit_sqr) ||
- islessequal(*(Tr+1) + *(Ti+1),limit_sqr) ); ++i)
- {
- Ziv = two*Zrv*Ziv + Civ;
- Zrv = Trv - Tiv + Crv;
- Trv = Zrv * Zrv;
- Tiv = Ziv * Ziv;
- }
-
- byte_acc <<= 2;
- if(islessequal(*Tr + *Ti, limit_sqr))
- byte_acc |= 0x02;
-
- if(islessequal(*(Tr+1) + *(Ti+1), limit_sqr))
- byte_acc |= 0x01;
-
- bit_num+=2;
-
- if(bit_num == 8)
- {
- putc(byte_acc,stdout);
- byte_acc = 0;
- bit_num = 0;
- }
- else if(x == w-1)
- {
- byte_acc <<= (8-w%8);
- putc(byte_acc,stdout);
- byte_acc = 0;
- bit_num = 0;
- }
- }
- }
-}
diff --git a/example/shootout/meteor_contest/meteor_contest.c b/example/shootout/meteor_contest/meteor_contest.c
deleted file mode 100755
index 015e8ac..0000000
--- a/example/shootout/meteor_contest/meteor_contest.c
+++ /dev/null
@@ -1,1989 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// METEOR_CONTEST
-
-const unsigned int s_first_one[32] = {
- 0, 0, 1, 0, 2, 0, 1, 0,
- 3, 0, 1, 0, 2, 0, 1, 0,
-
- 4, 0, 1, 0, 2, 0, 1, 0,
- 3, 0, 1, 0, 2, 0, 1, 0,
-};
-
-unsigned int g_first_region[] = {
- 0x00, 0x01, 0x02, 0x03, 0x04, 0x01, 0x06, 0x07,
- 0x08, 0x01, 0x02, 0x03, 0x0c, 0x01, 0x0e, 0x0f,
-
- 0x10, 0x01, 0x02, 0x03, 0x04, 0x01, 0x06, 0x07,
- 0x18, 0x01, 0x02, 0x03, 0x1c, 0x01, 0x1e, 0x1f
-};
-
-unsigned int g_flip[] = {
- 0x00, 0x10, 0x08, 0x18, 0x04, 0x14, 0x0c, 0x1c,
- 0x02, 0x12, 0x0a, 0x1a, 0x06, 0x16, 0x0e, 0x1e,
-
- 0x01, 0x11, 0x09, 0x19, 0x05, 0x15, 0x0d, 0x1d,
- 0x03, 0x13, 0x0b, 0x1b, 0x07, 0x17, 0x0f, 0x1f,
-};
-
-// SYSTEM
-#include <time.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__2M;
- volatile __UINTEGER_32 size_and_id__3M;
- __MEMORY *next_free__4M;
- __MEMORY *previous_free__5M;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// INTEGER
-typedef int __INTEGER;
-
-// ARRAYED_COLLECTION[Expanded UINTEGER_32]
-#define __ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__ 1
-typedef struct ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_struct __ARRAYED_COLLECTIONoExpanded_UINTEGER_32o;
-struct ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_struct {
- __INTEGER upper__50G;
- __INTEGER capacity__B1G;
- __UINTEGER_32 *storage__OZG;
-};
-__ARRAYED_COLLECTIONoExpanded_UINTEGER_32o ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_;
-#define ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__ (&ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_)
-
-// FAST_ARRAY[Expanded UINTEGER_32]
-#define __FAST_ARRAYoExpanded_UINTEGER_32o__ 2
-typedef struct FAST_ARRAYoExpanded_UINTEGER_32o_struct __FAST_ARRAYoExpanded_UINTEGER_32o;
-struct FAST_ARRAYoExpanded_UINTEGER_32o_struct {
- __ARRAYED_COLLECTIONoExpanded_UINTEGER_32o parent_arrayed_collection__3C;
-};
-__FAST_ARRAYoExpanded_UINTEGER_32o FAST_ARRAYoExpanded_UINTEGER_32o_;
-#define FAST_ARRAYoExpanded_UINTEGER_32o__ (&FAST_ARRAYoExpanded_UINTEGER_32o_)
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 3
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__2ZG;
- __INTEGER capacity__C4G;
- __CHARACTER *storage__L4G;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 4
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER upper__2ZB;
- __INTEGER capacity__F1B;
- void **storage__Q1B;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 5
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__PB;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// NUMERIC
-#define __NUMERIC__ 6
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 7
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 8
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__XDE;
- __CHARACTER *storage__MUF;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// PIECE
-#define __PIECE__ 9
-typedef struct PIECE_struct __PIECE;
-struct PIECE_struct {
- void *Nothing;
-};
-__PIECE PIECE_;
-#define PIECE__ (&PIECE_)
-
-// FAST_ARRAY2[PIECE]
-#define __FAST_ARRAY2oPIECEo__ 10
-typedef struct FAST_ARRAY2oPIECEo_struct __FAST_ARRAY2oPIECEo;
-struct FAST_ARRAY2oPIECEo_struct {
- __INTEGER capacity__CGH;
- void **storage__NBH;
-};
-__FAST_ARRAY2oPIECEo FAST_ARRAY2oPIECEo_;
-#define FAST_ARRAY2oPIECEo__ (&FAST_ARRAY2oPIECEo_)
-
-// FAST_ARRAY2[Expanded INTEGER]
-#define __FAST_ARRAY2oExpanded_INTEGERo__ 11
-typedef struct FAST_ARRAY2oExpanded_INTEGERo_struct __FAST_ARRAY2oExpanded_INTEGERo;
-struct FAST_ARRAY2oExpanded_INTEGERo_struct {
- __INTEGER count2__GDH;
- __INTEGER capacity__IIH;
- __INTEGER *storage__EDH;
-};
-__FAST_ARRAY2oExpanded_INTEGERo FAST_ARRAY2oExpanded_INTEGERo_;
-#define FAST_ARRAY2oExpanded_INTEGERo__ (&FAST_ARRAY2oExpanded_INTEGERo_)
-
-// OK_PIECES
-#define __OK_PIECES__ 12
-typedef struct OK_PIECES_struct __OK_PIECES;
-struct OK_PIECES_struct {
- void *Nothing;
-};
-__OK_PIECES OK_PIECES_;
-#define OK_PIECES__ (&OK_PIECES_)
-
-// FAST_ARRAY2[OK_PIECES]
-#define __FAST_ARRAY2oOK_PIECESo__ 13
-typedef struct FAST_ARRAY2oOK_PIECESo_struct __FAST_ARRAY2oOK_PIECESo;
-struct FAST_ARRAY2oOK_PIECESo_struct {
- __INTEGER capacity__DTH;
- void **storage__QRH;
-};
-__FAST_ARRAY2oOK_PIECESo FAST_ARRAY2oOK_PIECESo_;
-#define FAST_ARRAY2oOK_PIECESo__ (&FAST_ARRAY2oOK_PIECESo_)
-
-// UINTEGER_64
-typedef unsigned long long __UINTEGER_64;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[14];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-__POINTER begin_memory__T1;
-__UINTEGER_32 nb_page__FJB;
-__UINTEGER_32 capacity_max__MJC;
-__MEMORY *first_free__52F;
-void *parent_numeric__H;
-__UINTEGER_32 clone_allocation_size__SM;
-void *base_vecs__4C;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__TIB(__UINTEGER_32 t__VIB);
-static __MEMORY* new_page__CJC();
-static void to_busy__index__5NH(__MEMORY *Self__AOH,__UINTEGER_32 sz__BOH,__UINTEGER_32 idx__COH);
-static __POINTER realloc_dynamic__old_size__new_size__PFI(__POINTER p__RFI,__UINTEGER_32 old_sz__SFI,__UINTEGER_32 new_sz__TFI);
-static void add_last__10G(__FAST_ARRAYoExpanded_UINTEGER_32o *Self__20G,__UINTEGER_32 element__30G);
-static __INTEGER shift_to_x0__FKE(void *pts__HKE,__INTEGER offset_row__JKE);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __UINTEGER_64 mask__PF;
- __INTEGER new_count__LK,typ_id__EM,Self__5Z0,Self__SK,limit_up__TK;
- __INTEGER idx__ZOC,typ_id__T4C,Self__L00,i__UZG,new_capacity__NTL;
- __INTEGER Self__MCQ,__tmp__GUL,__tmp__YMP,Self__SHU,new_capacity__SQC;
- __INTEGER Self__VRI,__tmp__WRC,__tmp__2EH,Self__RUP,typ_id__IHD;
- __INTEGER Self__B2P,typ_id__5VE,Self__W10,Self__LYP,typ_id__TMG;
- __INTEGER Self__C20,Self__Z0P,Self__IJ,i_piece__XC,Self__KNC,y__XXD;
- __INTEGER x__YXD,typ_id__QXE,Self__O20,Self__SZP,ipt__HGE,Self__XYE;
- __INTEGER y__TGE,Self__F0F,rot__ZXD,Self__0NJ,Self__5WF,top__FW0;
- __INTEGER to_zero__HW0,top__XIG,to_zero__0IG,y_min__2XD,y_max__3XD;
- __INTEGER Self__SIE,shift__N30,rx__H30,ry__I30,Self__J30,shift__DJE;
- __INTEGER rx__EJE,ry__FJE,Self__B0E,Self__YJ,Self__0NC,Self__R4D;
- __INTEGER Self__2OF;
- __POINTER ptr__5L,ptr_table__F40,next__E40,result__G40,ptr_table__K40;
- __POINTER next__J40,result__L40,result__B00,ptr_table__P40,next__O40;
- __POINTER result__Q40,ptr__O4C,ptr_table__X40,next__W40,result__Y40;
- __POINTER ptr_table__240,next__140,result__340,result__N00;
- __POINTER ptr_table__B50,next__A50,result__C50,result__V00;
- __POINTER ptr_table__J50,next__I50,result__K50,result__300;
- __POINTER ptr_table__R50,next__Q50,result__S50,ptr__DHD;
- __POINTER ptr_table__Z50,next__Y50,result__050,ptr_table__450;
- __POINTER next__350,result__550,result__F10,ptr_table__DA1,next__CA1;
- __POINTER result__EA1,ptr__0VE,ptr_table__LA1,next__KA1,result__MA1;
- __POINTER ptr_table__QA1,next__PA1,result__RA1,result__N10;
- __POINTER ptr_table__VA1,next__UA1,result__WA1,ptr__OMG;
- __POINTER ptr_table__3A1,next__2A1,result__4A1,ptr_table__CB1;
- __POINTER next__BB1,result__DB1,result__Z10,ptr_table__HB1,next__GB1;
- __POINTER result__IB1,ptr__LXE,ptr_table__PB1,next__OB1,result__QB1;
- __POINTER ptr_table__UB1,next__TB1,result__VB1,result__F20;
- __POINTER ptr_table__ZZ,next__4Z,result__2Z;
- __UINTEGER_32 sz__BM,a__TY0,new_size__UY0,t__YY0,a__XY0,new_size__N40;
- __UINTEGER_32 lab_type__M40,sz__D00,a__C00,new_size__E00;
- __UINTEGER_32 new_size2__F00,a__G00,new_size__H00,sz__Q4C,a__1Y0;
- __UINTEGER_32 new_size__2Y0,t__AZ0,a__5Y0,new_size__540,lab_type__440;
- __UINTEGER_32 sz__P00,a__O00,new_size__Q00,new_size2__R00,a__S00;
- __UINTEGER_32 new_size__T00,a__W00,new_size__Y00,new_size2__Z00;
- __UINTEGER_32 a__000,new_size__100,sz__500,a__400,new_size__A10;
- __UINTEGER_32 new_size2__B10,a__C10,new_size__D10,sz__FHD,a__DZ0;
- __UINTEGER_32 new_size__EZ0,t__IZ0,a__HZ0,new_size__BA1,lab_type__AA1;
- __UINTEGER_32 a__G10,new_size__I10,new_size2__J10,a__K10;
- __UINTEGER_32 new_size__L10,sz__2VE,a__LZ0,new_size__MZ0,t__QZ0;
- __UINTEGER_32 a__PZ0,new_size__TA1,lab_type__SA1,sz__P10,a__O10;
- __UINTEGER_32 new_size__Q10,new_size2__R10,a__S10,new_size__T10;
- __UINTEGER_32 sz__QMG,a__TZ0,new_size__UZ0,t__YZ0,a__XZ0;
- __UINTEGER_32 new_size__FB1,lab_type__EB1,sz__110,a__010;
- __UINTEGER_32 new_size__210,new_size2__310,a__410,new_size__510;
- __UINTEGER_32 ref_piece__FC,__tmp__YD,sz__NXE,a__TW0,new_size__UT;
- __UINTEGER_32 t__3U,a__XW0,new_size__XB1,lab_type__WB1,sz__H20,a__G20;
- __UINTEGER_32 new_size__I20,new_size2__J20,a__K20,new_size__L20;
- __UINTEGER_32 vec__FGE,mask__IGE;
- __MEMORY *result__T40,*result__F50,*result__N50,*result__V50;
- __MEMORY *result__HA1,*result__ZA1,*result__LB1,*result__A2F;
- __STRING *result__N4C,*Self__T3G,*Self__SZG;
- __CHARACTER *arg__EI,*Self__NOC,*Result__K00,*p__TZG,*Result__UVM;
- __CHARACTER *__tmp__FUL,*new__FMP;
- __FAST_ARRAYoSTRINGo *result__4L,*Self__20B,*Self__QQC;
- void **Result__4Z0,**Result__S5E,**__tmp__VRC,**new__JEH;
- void *result__DI;
- __CHARACTER __tmp__J0G;
- __BOOLEAN __tmp__ARC;
- __FAST_ARRAYoExpanded_UINTEGER_32o *result__CHD,*Self__D5G;
- __UINTEGER_32 *Result__U4K;
- __FAST_ARRAY2oPIECEo *result__ZVE,*Self__IFH;
- void **Result__XJL,**Self__D5O;
- __FAST_ARRAY2oOK_PIECESo *result__NMG,*Self__JSH;
- void **Result__CQL,**Self__LAP;
- __FAST_ARRAY2oExpanded_INTEGERo *result__KXE,*Self__OHH,*Self__QV0;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__XV0,*Self__JR0,*Self__4V0;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__QR0,*Self__XR0,*Self__IW0;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__ILH,*Self__WCH,*Self__L30;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__M30,*Self__O30,*Self__P30;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__UN0,*Self__YN0,*Self__PT0;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__TT0;
- __INTEGER *Result__DML,*Self__V5O,*Self__NR0;
- void *pts__DYD,*pts__GGE,*pts__K30,*pts__CJE;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoSTRINGo__->upper__2ZB= 0;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__F1B= 0;
- ARRAYED_COLLECTIONoSTRINGo__->storage__Q1B=NULL;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__PB=(*ARRAYED_COLLECTIONoSTRINGo__);
- parent_numeric__H=NUMERIC__;
- clone_allocation_size__SM= 0;
- STRING_CONSTANT__->count__XDE=((__INTEGER )((0)));
- STRING_CONSTANT__->storage__MUF=((__CHARACTER *)(NULL));
- nb_page__FJB= 0;
- MEMORY__->size_and_id__3M= 0;
- capacity_max__MJC= 0;
- begin_memory__T1=((__POINTER )(NULL));
- MEMORY__->previous_linear__2M= 0;
- first_free__52F=NULL;
- MEMORY__->next_free__4M=NULL;
- MEMORY__->previous_free__5M=NULL;
- STRING__->capacity__C4G= 0;
- STRING__->storage__L4G=NULL;
- STRING__->count__2ZG= 0;
- arg__EI=NULL;
- new_count__LK=((__INTEGER )(arg_count));
- result__4L=NULL;
- ptr__5L=((__POINTER )(NULL));
- typ_id__EM= 0;
- sz__BM=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__BM == 0)) {
- result__4L=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__EM=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__SM=sz__BM;
- if ((typ_id__EM == (__INTEGER)(- 1))) {
- a__TY0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UY0=(__UINTEGER_32)((__UINTEGER_32)(sz__BM + a__TY0) & (__UINTEGER_32)(~ a__TY0));
- ptr_table__F40=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UY0 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__E40=((__POINTER )(NULL));
- result__G40=((__POINTER *)ptr_table__F40)[ 0];
- if ((result__G40 == (void *)NULL)) {
- result__G40=new_lab__TIB(new_size__UY0);
- next__E40=(void *)((unsigned long)result__G40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UY0)));
- ((__POINTER *)next__E40)[ 0]=NULL;
- ((__POINTER *)ptr_table__F40)[ 0]=next__E40;
- } else {
- next__E40=((__POINTER *)result__G40)[ 0];
- if ((next__E40 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G40 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__UY0 << 1)) <= 4096)) {
- next__E40=(void *)((unsigned long)result__G40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UY0)));
- } else {
- next__E40=new_lab__TIB(new_size__UY0);
- };
- ((__POINTER *)next__E40)[ 0]=NULL;
- ((__POINTER *)ptr_table__F40)[ 0]=next__E40;
- } else {
- ((__POINTER *)result__G40)[ 0]=(void *)((unsigned long)((__POINTER *)next__E40)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__G40=next__E40;
- };
- };
- ptr__5L=result__G40;
- } else {
- t__YY0=((__UINTEGER_32 )typ_id__EM);
- a__XY0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__N40=(__UINTEGER_32)((__UINTEGER_32)(sz__BM + a__XY0) & (__UINTEGER_32)(~ a__XY0));
- ptr_table__K40=((__POINTER )(&(table_type[(t__YY0)])));
- lab_type__M40=(__UINTEGER_32)(t__YY0 | 1);
- next__J40=((__POINTER )(NULL));
- result__L40=((__POINTER *)ptr_table__K40)[ 0];
- if ((result__L40 == (void *)NULL)) {
- result__L40=new_lab__TIB(lab_type__M40);
- next__J40=(void *)((unsigned long)result__L40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N40)));
- ((__POINTER *)next__J40)[ 0]=NULL;
- ((__POINTER *)ptr_table__K40)[ 0]=next__J40;
- } else {
- next__J40=((__POINTER *)result__L40)[ 0];
- if ((next__J40 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L40 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__N40 << 1)) <= 4096)) {
- next__J40=(void *)((unsigned long)result__L40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N40)));
- } else {
- next__J40=new_lab__TIB(lab_type__M40);
- };
- ((__POINTER *)next__J40)[ 0]=NULL;
- ((__POINTER *)ptr_table__K40)[ 0]=next__J40;
- } else {
- ((__POINTER *)result__L40)[ 0]=(void *)((unsigned long)((__POINTER *)next__J40)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__L40=next__J40;
- };
- };
- ptr__5L=result__L40;
- };
- result__4L=((__FAST_ARRAYoSTRINGo *)ptr__5L);
- *(result__4L) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__20B=((__FAST_ARRAYoSTRINGo *)result__4L);
- if ((Self__20B->parent_arrayed_collection__PB.capacity__F1B < new_count__LK)) {
- sz__D00=((__UINTEGER_32 )(__INTEGER)(new_count__LK * ((__INTEGER )(sizeof(void *)))));
- result__B00=((__POINTER )(NULL));
- a__C00=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__E00=(__UINTEGER_32)((__UINTEGER_32)(sz__D00 + a__C00) & (__UINTEGER_32)(~ a__C00));
- new_size2__F00=(__UINTEGER_32)(new_size__E00 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__F00 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__G00=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__H00=(__UINTEGER_32)((__UINTEGER_32)(new_size2__F00 + a__G00) & (__UINTEGER_32)(~ a__G00));
- ptr_table__P40=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__H00 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__O40=((__POINTER )(NULL));
- result__Q40=((__POINTER *)ptr_table__P40)[ 0];
- if ((result__Q40 == (void *)NULL)) {
- result__Q40=new_lab__TIB(new_size__H00);
- next__O40=(void *)((unsigned long)result__Q40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H00)));
- ((__POINTER *)next__O40)[ 0]=NULL;
- ((__POINTER *)ptr_table__P40)[ 0]=next__O40;
- } else {
- next__O40=((__POINTER *)result__Q40)[ 0];
- if ((next__O40 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q40 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__H00 << 1)) <= 4096)) {
- next__O40=(void *)((unsigned long)result__Q40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H00)));
- } else {
- next__O40=new_lab__TIB(new_size__H00);
- };
- ((__POINTER *)next__O40)[ 0]=NULL;
- ((__POINTER *)ptr_table__P40)[ 0]=next__O40;
- } else {
- ((__POINTER *)result__Q40)[ 0]=(void *)((unsigned long)((__POINTER *)next__O40)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q40=next__O40;
- };
- };
- ((__POINTER *)result__Q40)[ 0]=((__POINTER ) 3);
- result__B00=(void *)((unsigned long)result__Q40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__T40=first_free__52F;
- while ((((void *)result__T40 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__T40)->size_and_id__3M & 4294967292LU) < new_size__E00))) {
- result__T40=result__T40->next_free__4M;
- };
- if (((void *)result__T40 == (void *)NULL)) {
- result__T40=new_page__CJC();
- };
- to_busy__index__5NH(result__T40,new_size__E00,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__T40)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__B00=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__T40)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__4Z0=((void **)result__B00);
- Self__5Z0=(__INTEGER)(new_count__LK - 1);
- while ((Self__5Z0 >= 0)) {
- Result__4Z0[Self__5Z0]=NULL;
- Self__5Z0=(__INTEGER)(Self__5Z0 - 1);
- };
- Self__20B->parent_arrayed_collection__PB.storage__Q1B=Result__4Z0;
- Self__20B->parent_arrayed_collection__PB.capacity__F1B=new_count__LK;
- };
- Self__20B->parent_arrayed_collection__PB.upper__2ZB=(__INTEGER)(- 1);
- result__DI=result__4L;
- Self__SK= 0;
- limit_up__TK=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__SK <= limit_up__TK)) {
- arg__EI=((__CHARACTER *)(arg_vector[(Self__SK)]));
- Self__NOC=((__CHARACTER *)arg__EI);
- idx__ZOC= 0;
- while ((! ((idx__ZOC > 1024) || ('\0' == Self__NOC[idx__ZOC])))) {
- idx__ZOC=(__INTEGER)(idx__ZOC + 1);
- };
- result__N4C=NULL;
- ptr__O4C=((__POINTER )(NULL));
- typ_id__T4C= 0;
- sz__Q4C=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__Q4C == 0)) {
- result__N4C=STRING__;
- } else {
- typ_id__T4C=__STRING__;
- clone_allocation_size__SM=(__UINTEGER_32)(clone_allocation_size__SM + sz__Q4C);
- if ((typ_id__T4C == (__INTEGER)(- 1))) {
- a__1Y0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2Y0=(__UINTEGER_32)((__UINTEGER_32)(sz__Q4C + a__1Y0) & (__UINTEGER_32)(~ a__1Y0));
- ptr_table__X40=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2Y0 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__W40=((__POINTER )(NULL));
- result__Y40=((__POINTER *)ptr_table__X40)[ 0];
- if ((result__Y40 == (void *)NULL)) {
- result__Y40=new_lab__TIB(new_size__2Y0);
- next__W40=(void *)((unsigned long)result__Y40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2Y0)));
- ((__POINTER *)next__W40)[ 0]=NULL;
- ((__POINTER *)ptr_table__X40)[ 0]=next__W40;
- } else {
- next__W40=((__POINTER *)result__Y40)[ 0];
- if ((next__W40 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y40 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__2Y0 << 1)) <= 4096)) {
- next__W40=(void *)((unsigned long)result__Y40 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2Y0)));
- } else {
- next__W40=new_lab__TIB(new_size__2Y0);
- };
- ((__POINTER *)next__W40)[ 0]=NULL;
- ((__POINTER *)ptr_table__X40)[ 0]=next__W40;
- } else {
- ((__POINTER *)result__Y40)[ 0]=(void *)((unsigned long)((__POINTER *)next__W40)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Y40=next__W40;
- };
- };
- ptr__O4C=result__Y40;
- } else {
- t__AZ0=((__UINTEGER_32 )typ_id__T4C);
- a__5Y0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__540=(__UINTEGER_32)((__UINTEGER_32)(sz__Q4C + a__5Y0) & (__UINTEGER_32)(~ a__5Y0));
- ptr_table__240=((__POINTER )(&(table_type[(t__AZ0)])));
- lab_type__440=(__UINTEGER_32)(t__AZ0 | 1);
- next__140=((__POINTER )(NULL));
- result__340=((__POINTER *)ptr_table__240)[ 0];
- if ((result__340 == (void *)NULL)) {
- result__340=new_lab__TIB(lab_type__440);
- next__140=(void *)((unsigned long)result__340 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__540)));
- ((__POINTER *)next__140)[ 0]=NULL;
- ((__POINTER *)ptr_table__240)[ 0]=next__140;
- } else {
- next__140=((__POINTER *)result__340)[ 0];
- if ((next__140 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__340 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__540 << 1)) <= 4096)) {
- next__140=(void *)((unsigned long)result__340 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__540)));
- } else {
- next__140=new_lab__TIB(lab_type__440);
- };
- ((__POINTER *)next__140)[ 0]=NULL;
- ((__POINTER *)ptr_table__240)[ 0]=next__140;
- } else {
- ((__POINTER *)result__340)[ 0]=(void *)((unsigned long)((__POINTER *)next__140)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__340=next__140;
- };
- };
- ptr__O4C=result__340;
- };
- result__N4C=((__STRING *)ptr__O4C);
- *(result__N4C) = *(STRING__);
- };
- Self__T3G=((__STRING *)result__N4C);
- if ((idx__ZOC > 0)) {
- if ((Self__T3G->capacity__C4G < idx__ZOC)) {
- sz__P00=((__UINTEGER_32 )idx__ZOC);
- result__N00=((__POINTER )(NULL));
- a__O00=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Q00=(__UINTEGER_32)((__UINTEGER_32)(sz__P00 + a__O00) & (__UINTEGER_32)(~ a__O00));
- new_size2__R00=(__UINTEGER_32)(new_size__Q00 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__R00 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__S00=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__T00=(__UINTEGER_32)((__UINTEGER_32)(new_size2__R00 + a__S00) & (__UINTEGER_32)(~ a__S00));
- ptr_table__B50=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__T00 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__A50=((__POINTER )(NULL));
- result__C50=((__POINTER *)ptr_table__B50)[ 0];
- if ((result__C50 == (void *)NULL)) {
- result__C50=new_lab__TIB(new_size__T00);
- next__A50=(void *)((unsigned long)result__C50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T00)));
- ((__POINTER *)next__A50)[ 0]=NULL;
- ((__POINTER *)ptr_table__B50)[ 0]=next__A50;
- } else {
- next__A50=((__POINTER *)result__C50)[ 0];
- if ((next__A50 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C50 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__T00 << 1)) <= 4096)) {
- next__A50=(void *)((unsigned long)result__C50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T00)));
- } else {
- next__A50=new_lab__TIB(new_size__T00);
- };
- ((__POINTER *)next__A50)[ 0]=NULL;
- ((__POINTER *)ptr_table__B50)[ 0]=next__A50;
- } else {
- ((__POINTER *)result__C50)[ 0]=(void *)((unsigned long)((__POINTER *)next__A50)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C50=next__A50;
- };
- };
- ((__POINTER *)result__C50)[ 0]=((__POINTER ) 3);
- result__N00=(void *)((unsigned long)result__C50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__F50=first_free__52F;
- while ((((void *)result__F50 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__F50)->size_and_id__3M & 4294967292LU) < new_size__Q00))) {
- result__F50=result__F50->next_free__4M;
- };
- if (((void *)result__F50 == (void *)NULL)) {
- result__F50=new_page__CJC();
- };
- to_busy__index__5NH(result__F50,new_size__Q00,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__F50)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__N00=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__F50)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__K00=((__CHARACTER *)result__N00);
- Self__L00=(__INTEGER)(idx__ZOC - 1);
- while ((Self__L00 >= 0)) {
- Result__K00[Self__L00]='\0';
- Self__L00=(__INTEGER)(Self__L00 - 1);
- };
- Self__T3G->storage__L4G=Result__K00;
- Self__T3G->capacity__C4G=idx__ZOC;
- };
- };
- Self__T3G->count__2ZG= 0;
- Self__SZG=((__STRING *)result__N4C);
- p__TZG=arg__EI;
- i__UZG= 0;
- Self__SZG->count__2ZG= 0;
- while ((((__CHARACTER *)p__TZG)[i__UZG] != '\0')) {
- __tmp__J0G=((__CHARACTER *)p__TZG)[i__UZG];
- new_capacity__NTL= 0;
- if ((Self__SZG->capacity__C4G <= Self__SZG->count__2ZG)) {
- if ((Self__SZG->capacity__C4G == 0)) {
- Self__SZG->capacity__C4G= 32;
- result__V00=((__POINTER )(NULL));
- a__W00=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Y00=(__UINTEGER_32)((__UINTEGER_32)( 32 + a__W00) & (__UINTEGER_32)(~ a__W00));
- new_size2__Z00=(__UINTEGER_32)(new_size__Y00 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__Z00 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__000=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__100=(__UINTEGER_32)((__UINTEGER_32)(new_size2__Z00 + a__000) & (__UINTEGER_32)(~ a__000));
- ptr_table__J50=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__100 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__I50=((__POINTER )(NULL));
- result__K50=((__POINTER *)ptr_table__J50)[ 0];
- if ((result__K50 == (void *)NULL)) {
- result__K50=new_lab__TIB(new_size__100);
- next__I50=(void *)((unsigned long)result__K50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__100)));
- ((__POINTER *)next__I50)[ 0]=NULL;
- ((__POINTER *)ptr_table__J50)[ 0]=next__I50;
- } else {
- next__I50=((__POINTER *)result__K50)[ 0];
- if ((next__I50 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K50 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__100 << 1)) <= 4096)) {
- next__I50=(void *)((unsigned long)result__K50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__100)));
- } else {
- next__I50=new_lab__TIB(new_size__100);
- };
- ((__POINTER *)next__I50)[ 0]=NULL;
- ((__POINTER *)ptr_table__J50)[ 0]=next__I50;
- } else {
- ((__POINTER *)result__K50)[ 0]=(void *)((unsigned long)((__POINTER *)next__I50)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K50=next__I50;
- };
- };
- ((__POINTER *)result__K50)[ 0]=((__POINTER ) 3);
- result__V00=(void *)((unsigned long)result__K50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__N50=first_free__52F;
- while ((((void *)result__N50 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__N50)->size_and_id__3M & 4294967292LU) < new_size__Y00))) {
- result__N50=result__N50->next_free__4M;
- };
- if (((void *)result__N50 == (void *)NULL)) {
- result__N50=new_page__CJC();
- };
- to_busy__index__5NH(result__N50,new_size__Y00,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__N50)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__V00=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__N50)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__UVM=((__CHARACTER *)result__V00);
- Self__MCQ= 31;
- while ((Self__MCQ >= 0)) {
- Result__UVM[Self__MCQ]='\0';
- Self__MCQ=(__INTEGER)(Self__MCQ - 1);
- };
- Self__SZG->storage__L4G=Result__UVM;
- } else {
- new_capacity__NTL=(__INTEGER)(Self__SZG->capacity__C4G << 1);
- __tmp__FUL=Self__SZG->storage__L4G;
- __tmp__GUL=Self__SZG->capacity__C4G;
- new__FMP=((__CHARACTER *)realloc_dynamic__old_size__new_size__PFI(((__POINTER )((__CHARACTER *)__tmp__FUL)),((__UINTEGER_32 )__tmp__GUL),((__UINTEGER_32 )new_capacity__NTL)));
- __tmp__YMP=(__INTEGER)(new_capacity__NTL - 1);
- Self__SHU=__tmp__GUL;
- while ((Self__SHU <= __tmp__YMP)) {
- new__FMP[Self__SHU]='\0';
- Self__SHU=(__INTEGER)(Self__SHU + 1);
- };
- Self__SZG->storage__L4G=new__FMP;
- Self__SZG->capacity__C4G=new_capacity__NTL;
- };
- };
- ((__CHARACTER *)Self__SZG->storage__L4G)[Self__SZG->count__2ZG]=__tmp__J0G;
- Self__SZG->count__2ZG=(__INTEGER)(Self__SZG->count__2ZG + 1);
- i__UZG=(__INTEGER)(i__UZG + 1);
- };
- Self__QQC=((__FAST_ARRAYoSTRINGo *)result__DI);
- new_capacity__SQC= 0;
- if (((__INTEGER)(Self__QQC->parent_arrayed_collection__PB.upper__2ZB + 1) <= (__INTEGER)(Self__QQC->parent_arrayed_collection__PB.capacity__F1B - 1))) {
- Self__QQC->parent_arrayed_collection__PB.upper__2ZB=(__INTEGER)(Self__QQC->parent_arrayed_collection__PB.upper__2ZB + 1);
- __tmp__ARC=TRUE__;
- } else {
- __tmp__ARC=FALSE__;
- };
- if ((! __tmp__ARC)) {
- if ((Self__QQC->parent_arrayed_collection__PB.capacity__F1B == 0)) {
- sz__500=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) << 1));
- result__300=((__POINTER )(NULL));
- a__400=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__A10=(__UINTEGER_32)((__UINTEGER_32)(sz__500 + a__400) & (__UINTEGER_32)(~ a__400));
- new_size2__B10=(__UINTEGER_32)(new_size__A10 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__B10 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__C10=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__D10=(__UINTEGER_32)((__UINTEGER_32)(new_size2__B10 + a__C10) & (__UINTEGER_32)(~ a__C10));
- ptr_table__R50=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__D10 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Q50=((__POINTER )(NULL));
- result__S50=((__POINTER *)ptr_table__R50)[ 0];
- if ((result__S50 == (void *)NULL)) {
- result__S50=new_lab__TIB(new_size__D10);
- next__Q50=(void *)((unsigned long)result__S50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D10)));
- ((__POINTER *)next__Q50)[ 0]=NULL;
- ((__POINTER *)ptr_table__R50)[ 0]=next__Q50;
- } else {
- next__Q50=((__POINTER *)result__S50)[ 0];
- if ((next__Q50 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S50 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__D10 << 1)) <= 4096)) {
- next__Q50=(void *)((unsigned long)result__S50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D10)));
- } else {
- next__Q50=new_lab__TIB(new_size__D10);
- };
- ((__POINTER *)next__Q50)[ 0]=NULL;
- ((__POINTER *)ptr_table__R50)[ 0]=next__Q50;
- } else {
- ((__POINTER *)result__S50)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q50)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__S50=next__Q50;
- };
- };
- ((__POINTER *)result__S50)[ 0]=((__POINTER ) 3);
- result__300=(void *)((unsigned long)result__S50 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__V50=first_free__52F;
- while ((((void *)result__V50 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__V50)->size_and_id__3M & 4294967292LU) < new_size__A10))) {
- result__V50=result__V50->next_free__4M;
- };
- if (((void *)result__V50 == (void *)NULL)) {
- result__V50=new_page__CJC();
- };
- to_busy__index__5NH(result__V50,new_size__A10,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__V50)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__300=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__V50)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__S5E=((void **)result__300);
- Self__VRI= 1;
- while ((Self__VRI >= 0)) {
- Result__S5E[Self__VRI]=NULL;
- Self__VRI=(__INTEGER)(Self__VRI - 1);
- };
- Self__QQC->parent_arrayed_collection__PB.storage__Q1B=Result__S5E;
- Self__QQC->parent_arrayed_collection__PB.capacity__F1B= 2;
- Self__QQC->parent_arrayed_collection__PB.upper__2ZB= 0;
- } else {
- new_capacity__SQC=(__INTEGER)(Self__QQC->parent_arrayed_collection__PB.capacity__F1B << 1);
- __tmp__VRC=Self__QQC->parent_arrayed_collection__PB.storage__Q1B;
- __tmp__WRC=Self__QQC->parent_arrayed_collection__PB.capacity__F1B;
- new__JEH=((void **)realloc_dynamic__old_size__new_size__PFI(((__POINTER )((void **)__tmp__VRC)),((__UINTEGER_32 )(__INTEGER)(__tmp__WRC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__SQC * ((__INTEGER )(sizeof(void *)))))));
- __tmp__2EH=(__INTEGER)(new_capacity__SQC - 1);
- Self__RUP=__tmp__WRC;
- while ((Self__RUP <= __tmp__2EH)) {
- new__JEH[Self__RUP]=NULL;
- Self__RUP=(__INTEGER)(Self__RUP + 1);
- };
- Self__QQC->parent_arrayed_collection__PB.storage__Q1B=new__JEH;
- Self__QQC->parent_arrayed_collection__PB.capacity__F1B=new_capacity__SQC;
- Self__QQC->parent_arrayed_collection__PB.upper__2ZB=(__INTEGER)(Self__QQC->parent_arrayed_collection__PB.upper__2ZB + 1);
- };
- };
- ((void **)Self__QQC->parent_arrayed_collection__PB.storage__Q1B)[Self__QQC->parent_arrayed_collection__PB.upper__2ZB]=result__N4C;
- Self__SK=(__INTEGER)(Self__SK + 1);
- };
- ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__->storage__OZG=NULL;
- ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__->upper__50G= 0;
- ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__->capacity__B1G= 0;
- FAST_ARRAYoExpanded_UINTEGER_32o__->parent_arrayed_collection__3C=(*ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__);
- result__CHD=NULL;
- ptr__DHD=((__POINTER )(NULL));
- typ_id__IHD= 0;
- sz__FHD=((__UINTEGER_32 )sizeof(__FAST_ARRAYoExpanded_UINTEGER_32o));
- if ((sz__FHD == 0)) {
- result__CHD=FAST_ARRAYoExpanded_UINTEGER_32o__;
- } else {
- typ_id__IHD=__FAST_ARRAYoExpanded_UINTEGER_32o__;
- clone_allocation_size__SM=(__UINTEGER_32)(clone_allocation_size__SM + sz__FHD);
- if ((typ_id__IHD == (__INTEGER)(- 1))) {
- a__DZ0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EZ0=(__UINTEGER_32)((__UINTEGER_32)(sz__FHD + a__DZ0) & (__UINTEGER_32)(~ a__DZ0));
- ptr_table__Z50=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EZ0 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Y50=((__POINTER )(NULL));
- result__050=((__POINTER *)ptr_table__Z50)[ 0];
- if ((result__050 == (void *)NULL)) {
- result__050=new_lab__TIB(new_size__EZ0);
- next__Y50=(void *)((unsigned long)result__050 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EZ0)));
- ((__POINTER *)next__Y50)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z50)[ 0]=next__Y50;
- } else {
- next__Y50=((__POINTER *)result__050)[ 0];
- if ((next__Y50 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__050 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__EZ0 << 1)) <= 4096)) {
- next__Y50=(void *)((unsigned long)result__050 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EZ0)));
- } else {
- next__Y50=new_lab__TIB(new_size__EZ0);
- };
- ((__POINTER *)next__Y50)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z50)[ 0]=next__Y50;
- } else {
- ((__POINTER *)result__050)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y50)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__050=next__Y50;
- };
- };
- ptr__DHD=result__050;
- } else {
- t__IZ0=((__UINTEGER_32 )typ_id__IHD);
- a__HZ0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BA1=(__UINTEGER_32)((__UINTEGER_32)(sz__FHD + a__HZ0) & (__UINTEGER_32)(~ a__HZ0));
- ptr_table__450=((__POINTER )(&(table_type[(t__IZ0)])));
- lab_type__AA1=(__UINTEGER_32)(t__IZ0 | 1);
- next__350=((__POINTER )(NULL));
- result__550=((__POINTER *)ptr_table__450)[ 0];
- if ((result__550 == (void *)NULL)) {
- result__550=new_lab__TIB(lab_type__AA1);
- next__350=(void *)((unsigned long)result__550 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BA1)));
- ((__POINTER *)next__350)[ 0]=NULL;
- ((__POINTER *)ptr_table__450)[ 0]=next__350;
- } else {
- next__350=((__POINTER *)result__550)[ 0];
- if ((next__350 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__550 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__BA1 << 1)) <= 4096)) {
- next__350=(void *)((unsigned long)result__550 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BA1)));
- } else {
- next__350=new_lab__TIB(lab_type__AA1);
- };
- ((__POINTER *)next__350)[ 0]=NULL;
- ((__POINTER *)ptr_table__450)[ 0]=next__350;
- } else {
- ((__POINTER *)result__550)[ 0]=(void *)((unsigned long)((__POINTER *)next__350)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__550=next__350;
- };
- };
- ptr__DHD=result__550;
- };
- result__CHD=((__FAST_ARRAYoExpanded_UINTEGER_32o *)ptr__DHD);
- *(result__CHD) = *(FAST_ARRAYoExpanded_UINTEGER_32o__);
- };
- Self__D5G=((__FAST_ARRAYoExpanded_UINTEGER_32o *)result__CHD);
- if ((Self__D5G->parent_arrayed_collection__3C.capacity__B1G < 10)) {
- result__F10=((__POINTER )(NULL));
- a__G10=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__I10=(__UINTEGER_32)((__UINTEGER_32)( 40 + a__G10) & (__UINTEGER_32)(~ a__G10));
- new_size2__J10=(__UINTEGER_32)(new_size__I10 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__J10 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__K10=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__L10=(__UINTEGER_32)((__UINTEGER_32)(new_size2__J10 + a__K10) & (__UINTEGER_32)(~ a__K10));
- ptr_table__DA1=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__L10 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CA1=((__POINTER )(NULL));
- result__EA1=((__POINTER *)ptr_table__DA1)[ 0];
- if ((result__EA1 == (void *)NULL)) {
- result__EA1=new_lab__TIB(new_size__L10);
- next__CA1=(void *)((unsigned long)result__EA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L10)));
- ((__POINTER *)next__CA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__DA1)[ 0]=next__CA1;
- } else {
- next__CA1=((__POINTER *)result__EA1)[ 0];
- if ((next__CA1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EA1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__L10 << 1)) <= 4096)) {
- next__CA1=(void *)((unsigned long)result__EA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L10)));
- } else {
- next__CA1=new_lab__TIB(new_size__L10);
- };
- ((__POINTER *)next__CA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__DA1)[ 0]=next__CA1;
- } else {
- ((__POINTER *)result__EA1)[ 0]=(void *)((unsigned long)((__POINTER *)next__CA1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EA1=next__CA1;
- };
- };
- ((__POINTER *)result__EA1)[ 0]=((__POINTER ) 3);
- result__F10=(void *)((unsigned long)result__EA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__HA1=first_free__52F;
- while ((((void *)result__HA1 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__HA1)->size_and_id__3M & 4294967292LU) < new_size__I10))) {
- result__HA1=result__HA1->next_free__4M;
- };
- if (((void *)result__HA1 == (void *)NULL)) {
- result__HA1=new_page__CJC();
- };
- to_busy__index__5NH(result__HA1,new_size__I10,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__HA1)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__F10=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HA1)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__U4K=((__UINTEGER_32 *)result__F10);
- Self__B2P= 9;
- while ((Self__B2P >= 0)) {
- Result__U4K[Self__B2P]= 0;
- Self__B2P=(__INTEGER)(Self__B2P - 1);
- };
- Self__D5G->parent_arrayed_collection__3C.storage__OZG=Result__U4K;
- Self__D5G->parent_arrayed_collection__3C.capacity__B1G= 10;
- };
- Self__D5G->parent_arrayed_collection__3C.upper__50G=(__INTEGER)(- 1);
- add_last__10G(result__CHD, 271);
- add_last__10G(result__CHD, 203);
- add_last__10G(result__CHD, 4231);
- add_last__10G(result__CHD, 1063);
- add_last__10G(result__CHD, 1125);
- add_last__10G(result__CHD, 199);
- add_last__10G(result__CHD, 33827);
- add_last__10G(result__CHD, 167);
- add_last__10G(result__CHD, 391);
- add_last__10G(result__CHD, 143);
- base_vecs__4C=result__CHD;
- FAST_ARRAY2oPIECEo__->capacity__CGH= 0;
- FAST_ARRAY2oPIECEo__->storage__NBH=NULL;
- result__ZVE=NULL;
- ptr__0VE=((__POINTER )(NULL));
- typ_id__5VE= 0;
- sz__2VE=((__UINTEGER_32 )sizeof(__FAST_ARRAY2oPIECEo));
- if ((sz__2VE == 0)) {
- result__ZVE=FAST_ARRAY2oPIECEo__;
- } else {
- typ_id__5VE=__FAST_ARRAY2oPIECEo__;
- clone_allocation_size__SM=(__UINTEGER_32)(clone_allocation_size__SM + sz__2VE);
- if ((typ_id__5VE == (__INTEGER)(- 1))) {
- a__LZ0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MZ0=(__UINTEGER_32)((__UINTEGER_32)(sz__2VE + a__LZ0) & (__UINTEGER_32)(~ a__LZ0));
- ptr_table__LA1=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MZ0 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KA1=((__POINTER )(NULL));
- result__MA1=((__POINTER *)ptr_table__LA1)[ 0];
- if ((result__MA1 == (void *)NULL)) {
- result__MA1=new_lab__TIB(new_size__MZ0);
- next__KA1=(void *)((unsigned long)result__MA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MZ0)));
- ((__POINTER *)next__KA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__LA1)[ 0]=next__KA1;
- } else {
- next__KA1=((__POINTER *)result__MA1)[ 0];
- if ((next__KA1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MA1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__MZ0 << 1)) <= 4096)) {
- next__KA1=(void *)((unsigned long)result__MA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MZ0)));
- } else {
- next__KA1=new_lab__TIB(new_size__MZ0);
- };
- ((__POINTER *)next__KA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__LA1)[ 0]=next__KA1;
- } else {
- ((__POINTER *)result__MA1)[ 0]=(void *)((unsigned long)((__POINTER *)next__KA1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MA1=next__KA1;
- };
- };
- ptr__0VE=result__MA1;
- } else {
- t__QZ0=((__UINTEGER_32 )typ_id__5VE);
- a__PZ0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TA1=(__UINTEGER_32)((__UINTEGER_32)(sz__2VE + a__PZ0) & (__UINTEGER_32)(~ a__PZ0));
- ptr_table__QA1=((__POINTER )(&(table_type[(t__QZ0)])));
- lab_type__SA1=(__UINTEGER_32)(t__QZ0 | 1);
- next__PA1=((__POINTER )(NULL));
- result__RA1=((__POINTER *)ptr_table__QA1)[ 0];
- if ((result__RA1 == (void *)NULL)) {
- result__RA1=new_lab__TIB(lab_type__SA1);
- next__PA1=(void *)((unsigned long)result__RA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TA1)));
- ((__POINTER *)next__PA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__QA1)[ 0]=next__PA1;
- } else {
- next__PA1=((__POINTER *)result__RA1)[ 0];
- if ((next__PA1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RA1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__TA1 << 1)) <= 4096)) {
- next__PA1=(void *)((unsigned long)result__RA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TA1)));
- } else {
- next__PA1=new_lab__TIB(lab_type__SA1);
- };
- ((__POINTER *)next__PA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__QA1)[ 0]=next__PA1;
- } else {
- ((__POINTER *)result__RA1)[ 0]=(void *)((unsigned long)((__POINTER *)next__PA1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RA1=next__PA1;
- };
- };
- ptr__0VE=result__RA1;
- };
- result__ZVE=((__FAST_ARRAY2oPIECEo *)ptr__0VE);
- *(result__ZVE) = *(FAST_ARRAY2oPIECEo__);
- };
- Self__IFH=((__FAST_ARRAY2oPIECEo *)result__ZVE);
- if ((Self__IFH->capacity__CGH < 120)) {
- Self__IFH->capacity__CGH= 120;
- sz__P10=((__UINTEGER_32 )(__INTEGER)( 120 * ((__INTEGER )(sizeof(void *)))));
- result__N10=((__POINTER )(NULL));
- a__O10=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Q10=(__UINTEGER_32)((__UINTEGER_32)(sz__P10 + a__O10) & (__UINTEGER_32)(~ a__O10));
- new_size2__R10=(__UINTEGER_32)(new_size__Q10 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__R10 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__S10=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__T10=(__UINTEGER_32)((__UINTEGER_32)(new_size2__R10 + a__S10) & (__UINTEGER_32)(~ a__S10));
- ptr_table__VA1=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__T10 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__UA1=((__POINTER )(NULL));
- result__WA1=((__POINTER *)ptr_table__VA1)[ 0];
- if ((result__WA1 == (void *)NULL)) {
- result__WA1=new_lab__TIB(new_size__T10);
- next__UA1=(void *)((unsigned long)result__WA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T10)));
- ((__POINTER *)next__UA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__VA1)[ 0]=next__UA1;
- } else {
- next__UA1=((__POINTER *)result__WA1)[ 0];
- if ((next__UA1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WA1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__T10 << 1)) <= 4096)) {
- next__UA1=(void *)((unsigned long)result__WA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T10)));
- } else {
- next__UA1=new_lab__TIB(new_size__T10);
- };
- ((__POINTER *)next__UA1)[ 0]=NULL;
- ((__POINTER *)ptr_table__VA1)[ 0]=next__UA1;
- } else {
- ((__POINTER *)result__WA1)[ 0]=(void *)((unsigned long)((__POINTER *)next__UA1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WA1=next__UA1;
- };
- };
- ((__POINTER *)result__WA1)[ 0]=((__POINTER ) 3);
- result__N10=(void *)((unsigned long)result__WA1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__ZA1=first_free__52F;
- while ((((void *)result__ZA1 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__ZA1)->size_and_id__3M & 4294967292LU) < new_size__Q10))) {
- result__ZA1=result__ZA1->next_free__4M;
- };
- if (((void *)result__ZA1 == (void *)NULL)) {
- result__ZA1=new_page__CJC();
- };
- to_busy__index__5NH(result__ZA1,new_size__Q10,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__ZA1)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__N10=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__ZA1)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__XJL=((void **)result__N10);
- Self__W10= 119;
- while ((Self__W10 >= 0)) {
- Result__XJL[Self__W10]=NULL;
- Self__W10=(__INTEGER)(Self__W10 - 1);
- };
- Self__IFH->storage__NBH=Result__XJL;
- } else {
- Self__D5O=((void **)Self__IFH->storage__NBH);
- Self__LYP=(__INTEGER)(Self__IFH->capacity__CGH - 1);
- while ((Self__LYP >= 0)) {
- Self__D5O[Self__LYP]=NULL;
- Self__LYP=(__INTEGER)(Self__LYP - 1);
- };
- };
- FAST_ARRAY2oExpanded_INTEGERo__->count2__GDH= 0;
- FAST_ARRAY2oExpanded_INTEGERo__->capacity__IIH= 0;
- FAST_ARRAY2oExpanded_INTEGERo__->storage__EDH=NULL;
- FAST_ARRAY2oOK_PIECESo__->capacity__DTH= 0;
- FAST_ARRAY2oOK_PIECESo__->storage__QRH=NULL;
- result__NMG=NULL;
- ptr__OMG=((__POINTER )(NULL));
- typ_id__TMG= 0;
- sz__QMG=((__UINTEGER_32 )sizeof(__FAST_ARRAY2oOK_PIECESo));
- if ((sz__QMG == 0)) {
- result__NMG=FAST_ARRAY2oOK_PIECESo__;
- } else {
- typ_id__TMG=__FAST_ARRAY2oOK_PIECESo__;
- clone_allocation_size__SM=(__UINTEGER_32)(clone_allocation_size__SM + sz__QMG);
- if ((typ_id__TMG == (__INTEGER)(- 1))) {
- a__TZ0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UZ0=(__UINTEGER_32)((__UINTEGER_32)(sz__QMG + a__TZ0) & (__UINTEGER_32)(~ a__TZ0));
- ptr_table__3A1=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UZ0 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__2A1=((__POINTER )(NULL));
- result__4A1=((__POINTER *)ptr_table__3A1)[ 0];
- if ((result__4A1 == (void *)NULL)) {
- result__4A1=new_lab__TIB(new_size__UZ0);
- next__2A1=(void *)((unsigned long)result__4A1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UZ0)));
- ((__POINTER *)next__2A1)[ 0]=NULL;
- ((__POINTER *)ptr_table__3A1)[ 0]=next__2A1;
- } else {
- next__2A1=((__POINTER *)result__4A1)[ 0];
- if ((next__2A1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4A1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__UZ0 << 1)) <= 4096)) {
- next__2A1=(void *)((unsigned long)result__4A1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UZ0)));
- } else {
- next__2A1=new_lab__TIB(new_size__UZ0);
- };
- ((__POINTER *)next__2A1)[ 0]=NULL;
- ((__POINTER *)ptr_table__3A1)[ 0]=next__2A1;
- } else {
- ((__POINTER *)result__4A1)[ 0]=(void *)((unsigned long)((__POINTER *)next__2A1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4A1=next__2A1;
- };
- };
- ptr__OMG=result__4A1;
- } else {
- t__YZ0=((__UINTEGER_32 )typ_id__TMG);
- a__XZ0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FB1=(__UINTEGER_32)((__UINTEGER_32)(sz__QMG + a__XZ0) & (__UINTEGER_32)(~ a__XZ0));
- ptr_table__CB1=((__POINTER )(&(table_type[(t__YZ0)])));
- lab_type__EB1=(__UINTEGER_32)(t__YZ0 | 1);
- next__BB1=((__POINTER )(NULL));
- result__DB1=((__POINTER *)ptr_table__CB1)[ 0];
- if ((result__DB1 == (void *)NULL)) {
- result__DB1=new_lab__TIB(lab_type__EB1);
- next__BB1=(void *)((unsigned long)result__DB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FB1)));
- ((__POINTER *)next__BB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__CB1)[ 0]=next__BB1;
- } else {
- next__BB1=((__POINTER *)result__DB1)[ 0];
- if ((next__BB1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DB1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__FB1 << 1)) <= 4096)) {
- next__BB1=(void *)((unsigned long)result__DB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FB1)));
- } else {
- next__BB1=new_lab__TIB(lab_type__EB1);
- };
- ((__POINTER *)next__BB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__CB1)[ 0]=next__BB1;
- } else {
- ((__POINTER *)result__DB1)[ 0]=(void *)((unsigned long)((__POINTER *)next__BB1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__DB1=next__BB1;
- };
- };
- ptr__OMG=result__DB1;
- };
- result__NMG=((__FAST_ARRAY2oOK_PIECESo *)ptr__OMG);
- *(result__NMG) = *(FAST_ARRAY2oOK_PIECESo__);
- };
- Self__JSH=((__FAST_ARRAY2oOK_PIECESo *)result__NMG);
- if ((Self__JSH->capacity__DTH < 50)) {
- Self__JSH->capacity__DTH= 50;
- sz__110=((__UINTEGER_32 )(__INTEGER)( 50 * ((__INTEGER )(sizeof(void *)))));
- result__Z10=((__POINTER )(NULL));
- a__010=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__210=(__UINTEGER_32)((__UINTEGER_32)(sz__110 + a__010) & (__UINTEGER_32)(~ a__010));
- new_size2__310=(__UINTEGER_32)(new_size__210 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__310 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__410=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__510=(__UINTEGER_32)((__UINTEGER_32)(new_size2__310 + a__410) & (__UINTEGER_32)(~ a__410));
- ptr_table__HB1=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__510 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__GB1=((__POINTER )(NULL));
- result__IB1=((__POINTER *)ptr_table__HB1)[ 0];
- if ((result__IB1 == (void *)NULL)) {
- result__IB1=new_lab__TIB(new_size__510);
- next__GB1=(void *)((unsigned long)result__IB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__510)));
- ((__POINTER *)next__GB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__HB1)[ 0]=next__GB1;
- } else {
- next__GB1=((__POINTER *)result__IB1)[ 0];
- if ((next__GB1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IB1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__510 << 1)) <= 4096)) {
- next__GB1=(void *)((unsigned long)result__IB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__510)));
- } else {
- next__GB1=new_lab__TIB(new_size__510);
- };
- ((__POINTER *)next__GB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__HB1)[ 0]=next__GB1;
- } else {
- ((__POINTER *)result__IB1)[ 0]=(void *)((unsigned long)((__POINTER *)next__GB1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IB1=next__GB1;
- };
- };
- ((__POINTER *)result__IB1)[ 0]=((__POINTER ) 3);
- result__Z10=(void *)((unsigned long)result__IB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__LB1=first_free__52F;
- while ((((void *)result__LB1 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__LB1)->size_and_id__3M & 4294967292LU) < new_size__210))) {
- result__LB1=result__LB1->next_free__4M;
- };
- if (((void *)result__LB1 == (void *)NULL)) {
- result__LB1=new_page__CJC();
- };
- to_busy__index__5NH(result__LB1,new_size__210,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__LB1)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__Z10=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__LB1)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__CQL=((void **)result__Z10);
- Self__C20= 49;
- while ((Self__C20 >= 0)) {
- Result__CQL[Self__C20]=NULL;
- Self__C20=(__INTEGER)(Self__C20 - 1);
- };
- Self__JSH->storage__QRH=Result__CQL;
- } else {
- Self__LAP=((void **)Self__JSH->storage__QRH);
- Self__Z0P=(__INTEGER)(Self__JSH->capacity__DTH - 1);
- while ((Self__Z0P >= 0)) {
- Self__LAP[Self__Z0P]=NULL;
- Self__Z0P=(__INTEGER)(Self__Z0P - 1);
- };
- };
- if (((__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__4L)->parent_arrayed_collection__PB.upper__2ZB + 1) > 2)) {
- exit(( 1));
- };
- ref_piece__FC= 0;
- Self__IJ= 0;
- while ((Self__IJ <= 9)) {
- i_piece__XC=Self__IJ;
- ref_piece__FC=((__UINTEGER_32 *)((__FAST_ARRAYoExpanded_UINTEGER_32o *)base_vecs__4C)->parent_arrayed_collection__3C.storage__OZG)[Self__IJ];
- Self__KNC= 0;
- while ((Self__KNC <= 11)) {
- __tmp__YD=((__UINTEGER_32 )Self__KNC);
- y__XXD= 0;
- x__YXD= 0;
- result__KXE=NULL;
- ptr__LXE=((__POINTER )(NULL));
- typ_id__QXE= 0;
- sz__NXE=((__UINTEGER_32 )sizeof(__FAST_ARRAY2oExpanded_INTEGERo));
- if ((sz__NXE == 0)) {
- result__KXE=FAST_ARRAY2oExpanded_INTEGERo__;
- } else {
- typ_id__QXE=__FAST_ARRAY2oExpanded_INTEGERo__;
- clone_allocation_size__SM=(__UINTEGER_32)(clone_allocation_size__SM + sz__NXE);
- if ((typ_id__QXE == (__INTEGER)(- 1))) {
- a__TW0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UT=(__UINTEGER_32)((__UINTEGER_32)(sz__NXE + a__TW0) & (__UINTEGER_32)(~ a__TW0));
- ptr_table__PB1=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UT / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__OB1=((__POINTER )(NULL));
- result__QB1=((__POINTER *)ptr_table__PB1)[ 0];
- if ((result__QB1 == (void *)NULL)) {
- result__QB1=new_lab__TIB(new_size__UT);
- next__OB1=(void *)((unsigned long)result__QB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UT)));
- ((__POINTER *)next__OB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__PB1)[ 0]=next__OB1;
- } else {
- next__OB1=((__POINTER *)result__QB1)[ 0];
- if ((next__OB1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QB1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__UT << 1)) <= 4096)) {
- next__OB1=(void *)((unsigned long)result__QB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UT)));
- } else {
- next__OB1=new_lab__TIB(new_size__UT);
- };
- ((__POINTER *)next__OB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__PB1)[ 0]=next__OB1;
- } else {
- ((__POINTER *)result__QB1)[ 0]=(void *)((unsigned long)((__POINTER *)next__OB1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QB1=next__OB1;
- };
- };
- ptr__LXE=result__QB1;
- } else {
- t__3U=((__UINTEGER_32 )typ_id__QXE);
- a__XW0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XB1=(__UINTEGER_32)((__UINTEGER_32)(sz__NXE + a__XW0) & (__UINTEGER_32)(~ a__XW0));
- ptr_table__UB1=((__POINTER )(&(table_type[(t__3U)])));
- lab_type__WB1=(__UINTEGER_32)(t__3U | 1);
- next__TB1=((__POINTER )(NULL));
- result__VB1=((__POINTER *)ptr_table__UB1)[ 0];
- if ((result__VB1 == (void *)NULL)) {
- result__VB1=new_lab__TIB(lab_type__WB1);
- next__TB1=(void *)((unsigned long)result__VB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XB1)));
- ((__POINTER *)next__TB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__UB1)[ 0]=next__TB1;
- } else {
- next__TB1=((__POINTER *)result__VB1)[ 0];
- if ((next__TB1 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VB1 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__XB1 << 1)) <= 4096)) {
- next__TB1=(void *)((unsigned long)result__VB1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XB1)));
- } else {
- next__TB1=new_lab__TIB(lab_type__WB1);
- };
- ((__POINTER *)next__TB1)[ 0]=NULL;
- ((__POINTER *)ptr_table__UB1)[ 0]=next__TB1;
- } else {
- ((__POINTER *)result__VB1)[ 0]=(void *)((unsigned long)((__POINTER *)next__TB1)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VB1=next__TB1;
- };
- };
- ptr__LXE=result__VB1;
- };
- result__KXE=((__FAST_ARRAY2oExpanded_INTEGERo *)ptr__LXE);
- *(result__KXE) = *(FAST_ARRAY2oExpanded_INTEGERo__);
- };
- Self__OHH=((__FAST_ARRAY2oExpanded_INTEGERo *)result__KXE);
- Self__OHH->count2__GDH= 2;
- if ((Self__OHH->capacity__IIH < 10)) {
- Self__OHH->capacity__IIH= 10;
- sz__H20=((__UINTEGER_32 )(__INTEGER)( 10 * sizeof(__INTEGER)));
- result__F20=((__POINTER )(NULL));
- a__G20=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__I20=(__UINTEGER_32)((__UINTEGER_32)(sz__H20 + a__G20) & (__UINTEGER_32)(~ a__G20));
- new_size2__J20=(__UINTEGER_32)(new_size__I20 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__J20 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__K20=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__L20=(__UINTEGER_32)((__UINTEGER_32)(new_size2__J20 + a__K20) & (__UINTEGER_32)(~ a__K20));
- ptr_table__ZZ=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__L20 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__4Z=((__POINTER )(NULL));
- result__2Z=((__POINTER *)ptr_table__ZZ)[ 0];
- if ((result__2Z == (void *)NULL)) {
- result__2Z=new_lab__TIB(new_size__L20);
- next__4Z=(void *)((unsigned long)result__2Z - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L20)));
- ((__POINTER *)next__4Z)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZZ)[ 0]=next__4Z;
- } else {
- next__4Z=((__POINTER *)result__2Z)[ 0];
- if ((next__4Z == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2Z - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__L20 << 1)) <= 4096)) {
- next__4Z=(void *)((unsigned long)result__2Z - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L20)));
- } else {
- next__4Z=new_lab__TIB(new_size__L20);
- };
- ((__POINTER *)next__4Z)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZZ)[ 0]=next__4Z;
- } else {
- ((__POINTER *)result__2Z)[ 0]=(void *)((unsigned long)((__POINTER *)next__4Z)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2Z=next__4Z;
- };
- };
- ((__POINTER *)result__2Z)[ 0]=((__POINTER ) 3);
- result__F20=(void *)((unsigned long)result__2Z - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__A2F=first_free__52F;
- while ((((void *)result__A2F != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__A2F)->size_and_id__3M & 4294967292LU) < new_size__I20))) {
- result__A2F=result__A2F->next_free__4M;
- };
- if (((void *)result__A2F == (void *)NULL)) {
- result__A2F=new_page__CJC();
- };
- to_busy__index__5NH(result__A2F,new_size__I20,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__A2F)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__F20=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__A2F)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__DML=((__INTEGER *)result__F20);
- Self__O20= 9;
- while ((Self__O20 >= 0)) {
- Result__DML[Self__O20]= 0;
- Self__O20=(__INTEGER)(Self__O20 - 1);
- };
- Self__OHH->storage__EDH=Result__DML;
- } else {
- Self__V5O=((__INTEGER *)Self__OHH->storage__EDH);
- Self__SZP=(__INTEGER)(Self__OHH->capacity__IIH - 1);
- while ((Self__SZP >= 0)) {
- Self__V5O[Self__SZP]= 0;
- Self__SZP=(__INTEGER)(Self__SZP - 1);
- };
- };
- pts__DYD=result__KXE;
- vec__FGE=ref_piece__FC;
- pts__GGE=result__KXE;
- ipt__HGE= 0;
- mask__IGE= 1;
- Self__XYE= 0;
- while ((Self__XYE <= 9)) {
- y__TGE=Self__XYE;
- Self__F0F= 0;
- while ((Self__F0F <= 4)) {
- if (((__UINTEGER_32)(mask__IGE & vec__FGE) != 0)) {
- Self__QV0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__GGE);
- ((__INTEGER *)Self__QV0->storage__EDH)[(__INTEGER)((__INTEGER)(ipt__HGE * Self__QV0->count2__GDH) + Self__F0F)]=Self__F0F;
- Self__XV0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__GGE);
- ((__INTEGER *)Self__XV0->storage__EDH)[(__INTEGER)((__INTEGER)(ipt__HGE * Self__XV0->count2__GDH) + y__TGE)]=y__TGE;
- ipt__HGE=(__INTEGER)(ipt__HGE + 1);
- };
- mask__IGE=(__UINTEGER_32)(mask__IGE << 1);
- Self__F0F=(__INTEGER)(Self__F0F + 1);
- };
- Self__XYE=(__INTEGER)(Self__XYE + 1);
- };
- rot__ZXD=((__INTEGER )(__UINTEGER_32)(__tmp__YD % 6));
- if ((__tmp__YD >= 6)) {
- Self__0NJ= 0;
- while ((Self__0NJ <= 4)) {
- Self__JR0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__DYD);
- Self__NR0=((__INTEGER *)Self__JR0->storage__EDH);
- Self__4V0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__DYD);
- ((__INTEGER *)Self__4V0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__0NJ * Self__4V0->count2__GDH) + y__XXD)]=(__INTEGER)(- Self__NR0[(__INTEGER)((__INTEGER)(Self__0NJ * Self__JR0->count2__GDH) + y__XXD)]);
- Self__0NJ=(__INTEGER)(Self__0NJ + 1);
- };
- };
- while ((rot__ZXD != 0)) {
- rot__ZXD=(__INTEGER)(rot__ZXD - 1);
- Self__5WF= 0;
- while ((Self__5WF <= 4)) {
- Self__QR0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__DYD);
- x__YXD=((__INTEGER *)Self__QR0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__5WF * Self__QR0->count2__GDH) + x__YXD)];
- Self__XR0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__DYD);
- y__XXD=((__INTEGER *)Self__XR0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__5WF * Self__XR0->count2__GDH) + y__XXD)];
- top__FW0=(__INTEGER)((__INTEGER)((__INTEGER)(x__YXD << 1) - (__INTEGER)( 3 * y__XXD)) + 1);
- to_zero__HW0=(__INTEGER)(top__FW0 >> 2);
- if ((((__INTEGER)(to_zero__HW0 << 2) != top__FW0) && ((top__FW0 < 0) != FALSE__))) {
- to_zero__HW0=(__INTEGER)(to_zero__HW0 - 1);
- };
- top__XIG=(__INTEGER)((__INTEGER)((__INTEGER)(x__YXD << 1) + y__XXD) + 1);
- to_zero__0IG=(__INTEGER)(top__XIG >> 1);
- if ((((__INTEGER)(to_zero__0IG << 1) != top__XIG) && ((top__XIG < 0) != FALSE__))) {
- to_zero__0IG=(__INTEGER)(to_zero__0IG - 1);
- };
- Self__IW0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__DYD);
- ((__INTEGER *)Self__IW0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__5WF * Self__IW0->count2__GDH) + x__YXD)]=to_zero__HW0;
- Self__ILH=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__DYD);
- ((__INTEGER *)Self__ILH->storage__EDH)[(__INTEGER)((__INTEGER)(Self__5WF * Self__ILH->count2__GDH) + y__XXD)]=to_zero__0IG;
- Self__5WF=(__INTEGER)(Self__5WF + 1);
- };
- };
- y_min__2XD=((__INTEGER *)((__FAST_ARRAY2oExpanded_INTEGERo *)result__KXE)->storage__EDH)[y__XXD];
- y_max__3XD=y_min__2XD;
- Self__SIE= 1;
- while ((Self__SIE <= 4)) {
- Self__WCH=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__DYD);
- y__XXD=((__INTEGER *)Self__WCH->storage__EDH)[(__INTEGER)((__INTEGER)(Self__SIE * Self__WCH->count2__GDH) + y__XXD)];
- if ((y__XXD < y_min__2XD)) {
- y_min__2XD=y__XXD;
- } else {
- if ((y__XXD > y_max__3XD)) {
- y_max__3XD=y__XXD;
- };
- };
- Self__SIE=(__INTEGER)(Self__SIE + 1);
- };
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- pts__K30=result__KXE;
- shift__N30=y_min__2XD;
- rx__H30= 0;
- ry__I30= 0;
- Self__J30= 0;
- while ((Self__J30 <= 4)) {
- Self__L30=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__K30);
- rx__H30=((__INTEGER *)Self__L30->storage__EDH)[(__INTEGER)(Self__J30 * Self__L30->count2__GDH)];
- Self__M30=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__K30);
- ry__I30=((__INTEGER *)Self__M30->storage__EDH)[(__INTEGER)((__INTEGER)(Self__J30 * Self__M30->count2__GDH) + 1)];
- if (((__INTEGER)((__INTEGER)(ry__I30 & shift__N30) & 1) != 0)) {
- rx__H30=(__INTEGER)(rx__H30 + 1);
- };
- ry__I30=(__INTEGER)(ry__I30 - shift__N30);
- Self__O30=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__K30);
- ((__INTEGER *)Self__O30->storage__EDH)[(__INTEGER)(Self__J30 * Self__O30->count2__GDH)]=rx__H30;
- Self__P30=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__K30);
- ((__INTEGER *)Self__P30->storage__EDH)[(__INTEGER)((__INTEGER)(Self__J30 * Self__P30->count2__GDH) + 1)]=ry__I30;
- Self__J30=(__INTEGER)(Self__J30 + 1);
- };
- shift_to_x0__FKE(result__KXE, 0);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- pts__CJE=result__KXE;
- shift__DJE=(__INTEGER)(- 1);
- rx__EJE= 0;
- ry__FJE= 0;
- Self__B0E= 0;
- while ((Self__B0E <= 4)) {
- Self__UN0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__CJE);
- rx__EJE=((__INTEGER *)Self__UN0->storage__EDH)[(__INTEGER)(Self__B0E * Self__UN0->count2__GDH)];
- Self__YN0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__CJE);
- ry__FJE=((__INTEGER *)Self__YN0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__B0E * Self__YN0->count2__GDH) + 1)];
- if (((__INTEGER)((__INTEGER)(ry__FJE & shift__DJE) & 1) != 0)) {
- rx__EJE=(__INTEGER)(rx__EJE + 1);
- };
- ry__FJE=(__INTEGER)(ry__FJE - shift__DJE);
- Self__PT0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__CJE);
- ((__INTEGER *)Self__PT0->storage__EDH)[(__INTEGER)(Self__B0E * Self__PT0->count2__GDH)]=rx__EJE;
- Self__TT0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__CJE);
- ((__INTEGER *)Self__TT0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__B0E * Self__TT0->count2__GDH) + 1)]=ry__FJE;
- Self__B0E=(__INTEGER)(Self__B0E + 1);
- };
- shift_to_x0__FKE(result__KXE, 1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- if (((i_piece__XC == 5) && ((__INTEGER)((__INTEGER)(Self__KNC / 3) & 1) != 0))) {
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- };
- Self__KNC=(__INTEGER)(Self__KNC + 1);
- };
- Self__IJ=(__INTEGER)(Self__IJ + 1);
- };
- Self__YJ= 0;
- while ((Self__YJ <= 9)) {
- Self__0NC= 0;
- while ((Self__0NC <= 11)) {
- mask__PF= 1;
- Self__R4D= 0;
- while ((Self__R4D <= 9)) {
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- Self__2OF= 0;
- while ((Self__2OF <= 4)) {
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- mask__PF=(__UINTEGER_64)(mask__PF << 1);
- Self__2OF=(__INTEGER)(Self__2OF + 1);
- };
- Self__R4D=(__INTEGER)(Self__R4D + 1);
- };
- Self__0NC=(__INTEGER)(Self__0NC + 1);
- };
- Self__YJ=(__INTEGER)(Self__YJ + 1);
- };
- return( 0);
-}
-
-static __POINTER new_lab__TIB(__UINTEGER_32 t__VIB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__XIB,pv__4IB;
- __MEMORY *blc__0IB,*prev__1IB,*Self__2XZ,*Self__E30,*prev__F30;
- __MEMORY *next__G30;
- __POINTER result__2IB;
- __BOOLEAN __tmp__4JB;
- idx__XIB= 0;
- blc__0IB=NULL;
- prev__1IB=NULL;
- pv__4IB= 0;
- while_do__WNB:
- {
- if ((idx__XIB < nb_page__FJB)) {
- blc__0IB=((__MEMORY *)(last_block[(idx__XIB)]));
- __tmp__4JB=(((__UINTEGER_32)(((__MEMORY *)blc__0IB)->size_and_id__3M & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__0IB)->size_and_id__3M & 1) == 1));
- } else {
- __tmp__4JB=FALSE__;
- };
- if (__tmp__4JB) {
- idx__XIB=(__UINTEGER_32)(idx__XIB + 1);
- goto while_do__WNB;
- };
- };
- if ((idx__XIB >= nb_page__FJB)) {
- blc__0IB=new_page__CJC();
- };
- ((__MEMORY *)blc__0IB)->size_and_id__3M=(__UINTEGER_32)(blc__0IB->size_and_id__3M - 4096);
- Self__2XZ=((__MEMORY *)blc__0IB);
- result__2IB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__2XZ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__2XZ->size_and_id__3M & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__0IB)->size_and_id__3M & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__E30=((__MEMORY *)blc__0IB);
- prev__F30=Self__E30->previous_free__5M;
- next__G30=Self__E30->next_free__4M;
- if (((void *)prev__F30 == (void *)NULL)) {
- first_free__52F=next__G30;
- } else {
- ((__MEMORY *)prev__F30)->next_free__4M=next__G30;
- };
- if (((void *)next__G30 != (void *)NULL)) {
- ((__MEMORY *)next__G30)->previous_free__5M=prev__F30;
- };
- pv__4IB=blc__0IB->previous_linear__2M;
- if ((pv__4IB != 4294967295LU)) {
- prev__1IB=((__MEMORY *)(void *)((unsigned long)begin_memory__T1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__4IB))));
- ((__MEMORY *)prev__1IB)->size_and_id__3M=(__UINTEGER_32)((__UINTEGER_32)(prev__1IB->size_and_id__3M + blc__0IB->size_and_id__3M) + 8);
- last_block[(idx__XIB)] = (prev__1IB);
- };
- };
- ((__POINTER *)result__2IB)[ 0]=((__POINTER )t__VIB);
- return((void *)((unsigned long)result__2IB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static __MEMORY* new_page__CJC()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__ZOD;
- __UINTEGER_32 cap__WOD,old_size__FJC;
- __INTEGER Self__2DE,limit_up__3DE;
- __MEMORY *block__LJC;
- if ((capacity_max__MJC == 0)) {
- mem__ZOD=((__POINTER )(NULL));
- cap__WOD= 33554432;
- do {
- cap__WOD=(__UINTEGER_32)(cap__WOD << 1);
- mem__ZOD=((__POINTER )(malloc((cap__WOD))));
- if ((mem__ZOD != (void *)NULL)) {
- free((mem__ZOD));
- };
- } while ((! ((mem__ZOD == (void *)NULL) || (cap__WOD == 2147483648LU))));
- if ((mem__ZOD == (void *)NULL)) {
- cap__WOD=(__UINTEGER_32)(cap__WOD >> 1);
- };
- capacity_max__MJC=cap__WOD;
- begin_memory__T1=((__POINTER )(malloc((cap__WOD))));
- };
- old_size__FJC=(__UINTEGER_32)(nb_page__FJB << 26);
- nb_page__FJB=(__UINTEGER_32)(nb_page__FJB + 1);
- if (((__UINTEGER_32)(old_size__FJC + 67108864) > capacity_max__MJC)) {
- Self__2DE= 1;
- limit_up__3DE=((__STRING_CONSTANT *)(&__string_1))->count__XDE;
- while ((Self__2DE <= limit_up__3DE)) {
- fputc((int)(((__CHARACTER *)((__STRING_CONSTANT *)(&__string_1))->storage__MUF)[(__INTEGER)(Self__2DE - 1)]),stdout);
- Self__2DE=(__INTEGER)(Self__2DE + 1);
- };
- exit(( 1));
- };
- block__LJC=((__MEMORY *)(void *)((unsigned long)begin_memory__T1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__FJC))));
- block__LJC->previous_linear__2M= 4294967295LU;
- block__LJC->size_and_id__3M= 67108858;
- block__LJC->next_free__4M=first_free__52F;
- block__LJC->previous_free__5M=NULL;
- if (((void *)first_free__52F != (void *)NULL)) {
- ((__MEMORY *)first_free__52F)->previous_free__5M=block__LJC;
- };
- first_free__52F=block__LJC;
- last_block[((__UINTEGER_32)(nb_page__FJB - 1))] = (block__LJC);
- return(block__LJC);
-}
-
-static void to_busy__index__5NH(__MEMORY *Self__AOH,__UINTEGER_32 sz__BOH,__UINTEGER_32 idx__COH)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __MEMORY *new__JOH,*prev__HYI,*next__IYI,*Self__Q0G,*Self__LTZ;
- __UINTEGER_32 siz__DOH,new_size__GOH;
- new__JOH=NULL;
- prev__HYI=Self__AOH->previous_free__5M;
- next__IYI=Self__AOH->next_free__4M;
- if (((void *)prev__HYI == (void *)NULL)) {
- first_free__52F=next__IYI;
- } else {
- ((__MEMORY *)prev__HYI)->next_free__4M=next__IYI;
- };
- if (((void *)next__IYI != (void *)NULL)) {
- ((__MEMORY *)next__IYI)->previous_free__5M=prev__HYI;
- };
- siz__DOH=Self__AOH->size_and_id__3M;
- new_size__GOH=(__UINTEGER_32)(siz__DOH - sz__BOH);
- if ((new_size__GOH > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__DOH=sz__BOH;
- new__JOH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__AOH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__BOH))));
- ((__MEMORY *)new__JOH)->previous_linear__2M=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__AOH) - (unsigned long)begin_memory__T1))));
- ((__MEMORY *)new__JOH)->size_and_id__3M=(__UINTEGER_32)(new_size__GOH - 8);
- Self__Q0G=((__MEMORY *)new__JOH);
- Self__Q0G->next_free__4M=first_free__52F;
- Self__Q0G->previous_free__5M=NULL;
- if (((void *)first_free__52F != (void *)NULL)) {
- ((__MEMORY *)first_free__52F)->previous_free__5M=Self__Q0G;
- };
- first_free__52F=Self__Q0G;
- if (((__UINTEGER_32)(((__MEMORY *)new__JOH)->size_and_id__3M & 2) != 0)) {
- last_block[(idx__COH)] = (new__JOH);
- } else {
- Self__LTZ=((__MEMORY *)new__JOH);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LTZ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LTZ->size_and_id__3M & 4294967292LU)))))->previous_linear__2M=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__JOH)) - (unsigned long)begin_memory__T1))));
- };
- };
- Self__AOH->size_and_id__3M=(__UINTEGER_32)(siz__DOH | 1);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__PFI(__POINTER p__RFI,__UINTEGER_32 old_sz__SFI,__UINTEGER_32 new_sz__TFI)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__4FI,*result__W30,*Self__WEL,*nxt__0EL,*result__1EL;
- __MEMORY *result__Z30,*next__C0N,*new_free__B0N,*prev__C30,*next__D30;
- __POINTER result__5FI,result__R20,ptr_table__S30,next__R30;
- __POINTER result__T30,p__MDL,last__YBM,src__GCL,dst__HCL;
- __UINTEGER_32 a__1W0,old_size__VFI,old_size2__YFI,a__5W0;
- __UINTEGER_32 new_size__1FI,a__S20,new_size__U20,new_size2__V20;
- __UINTEGER_32 a__W20,new_size__X20,a__DX0,__tmp__QHI,sz__5EL;
- __UINTEGER_32 old_size__2EL,prev__D0N,new_size__G0N;
- __INTEGER siz__020,Self__520,siz__LCL,Self__L5L;
- __POINTER *na_src__220,*na_dst__420,*na_src__JCL,*na_dst__KCL;
- mem__4FI=NULL;
- result__5FI=((__POINTER )(NULL));
- a__1W0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__VFI=(__UINTEGER_32)((__UINTEGER_32)(old_sz__SFI + a__1W0) & (__UINTEGER_32)(~ a__1W0));
- old_size2__YFI=(__UINTEGER_32)(old_size__VFI + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__5W0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1FI=(__UINTEGER_32)((__UINTEGER_32)(new_sz__TFI + a__5W0) & (__UINTEGER_32)(~ a__5W0));
- if ((old_size2__YFI <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__R20=((__POINTER )(NULL));
- a__S20=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__U20=(__UINTEGER_32)((__UINTEGER_32)(new_size__1FI + a__S20) & (__UINTEGER_32)(~ a__S20));
- new_size2__V20=(__UINTEGER_32)(new_size__U20 + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__V20 <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__W20=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X20=(__UINTEGER_32)((__UINTEGER_32)(new_size2__V20 + a__W20) & (__UINTEGER_32)(~ a__W20));
- ptr_table__S30=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X20 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__R30=((__POINTER )(NULL));
- result__T30=((__POINTER *)ptr_table__S30)[ 0];
- if ((result__T30 == (void *)NULL)) {
- result__T30=new_lab__TIB(new_size__X20);
- next__R30=(void *)((unsigned long)result__T30 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X20)));
- ((__POINTER *)next__R30)[ 0]=NULL;
- ((__POINTER *)ptr_table__S30)[ 0]=next__R30;
- } else {
- next__R30=((__POINTER *)result__T30)[ 0];
- if ((next__R30 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T30 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__X20 << 1)) <= 4096)) {
- next__R30=(void *)((unsigned long)result__T30 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X20)));
- } else {
- next__R30=new_lab__TIB(new_size__X20);
- };
- ((__POINTER *)next__R30)[ 0]=NULL;
- ((__POINTER *)ptr_table__S30)[ 0]=next__R30;
- } else {
- ((__POINTER *)result__T30)[ 0]=(void *)((unsigned long)((__POINTER *)next__R30)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__T30=next__R30;
- };
- };
- ((__POINTER *)result__T30)[ 0]=((__POINTER ) 3);
- result__R20=(void *)((unsigned long)result__T30 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__W30=first_free__52F;
- while ((((void *)result__W30 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__W30)->size_and_id__3M & 4294967292LU) < new_size__U20))) {
- result__W30=result__W30->next_free__4M;
- };
- if (((void *)result__W30 == (void *)NULL)) {
- result__W30=new_page__CJC();
- };
- to_busy__index__5NH(result__W30,new_size__U20,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__W30)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__R20=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__W30)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__5FI=result__R20;
- siz__020=((__INTEGER )old_size__VFI);
- siz__020=(__INTEGER)(siz__020 / ((__INTEGER )(sizeof(void *))));
- na_src__220=((__POINTER *)p__RFI);
- na_dst__420=((__POINTER *)result__R20);
- Self__520=(__INTEGER)(siz__020 - 1);
- while ((Self__520 >= 0)) {
- na_dst__420[Self__520]=na_src__220[Self__520];
- Self__520=(__INTEGER)(Self__520 - 1);
- };
- p__MDL=(void *)((unsigned long)p__RFI - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__DX0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__YBM=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__YFI + a__DX0) & (__UINTEGER_32)(~ a__DX0)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__MDL)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__YBM)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__YBM)[ 0]=p__MDL;
- } else {
- mem__4FI=((__MEMORY *)(void *)((unsigned long)p__RFI - (unsigned long)((__POINTER ) 8)));
- __tmp__QHI=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__RFI - (unsigned long)begin_memory__T1)))) >> 26);
- Self__WEL=((__MEMORY *)mem__4FI);
- nxt__0EL=NULL;
- result__1EL=NULL;
- sz__5EL= 0;
- old_size__2EL=(__UINTEGER_32)(Self__WEL->size_and_id__3M & 4294967292LU);
- if ((new_size__1FI > old_size__2EL)) {
- if ((! ((__UINTEGER_32)(Self__WEL->size_and_id__3M & 2) != 0))) {
- nxt__0EL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__WEL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__WEL->size_and_id__3M & 4294967292LU)))));
- sz__5EL=(__UINTEGER_32)((__UINTEGER_32)(new_size__1FI - old_size__2EL) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__0EL)->size_and_id__3M & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__0EL)->size_and_id__3M & 4294967292LU) >= sz__5EL))) {
- to_busy__index__5NH(nxt__0EL,sz__5EL,__tmp__QHI);
- Self__WEL->size_and_id__3M=(__UINTEGER_32)((__UINTEGER_32)(Self__WEL->size_and_id__3M + (__UINTEGER_32)(nxt__0EL->size_and_id__3M & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__WEL->size_and_id__3M & 2) != 0)) {
- last_block[(__tmp__QHI)] = (Self__WEL);
- } else {
- nxt__0EL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__WEL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__WEL->size_and_id__3M & 4294967292LU)))));
- ((__MEMORY *)nxt__0EL)->previous_linear__2M=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__WEL) - (unsigned long)begin_memory__T1))));
- };
- result__1EL=Self__WEL;
- };
- };
- if (((void *)result__1EL == (void *)NULL)) {
- result__Z30=first_free__52F;
- while ((((void *)result__Z30 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__Z30)->size_and_id__3M & 4294967292LU) < new_size__1FI))) {
- result__Z30=result__Z30->next_free__4M;
- };
- if (((void *)result__Z30 == (void *)NULL)) {
- result__Z30=new_page__CJC();
- };
- to_busy__index__5NH(result__Z30,new_size__1FI,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z30)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__1EL=result__Z30;
- src__GCL=(void *)((unsigned long)((__POINTER )Self__WEL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__HCL=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z30)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__LCL=((__INTEGER )old_size__2EL);
- siz__LCL=(__INTEGER)(siz__LCL / ((__INTEGER )(sizeof(void *))));
- na_src__JCL=((__POINTER *)src__GCL);
- na_dst__KCL=((__POINTER *)dst__HCL);
- Self__L5L=(__INTEGER)(siz__LCL - 1);
- while ((Self__L5L >= 0)) {
- na_dst__KCL[Self__L5L]=na_src__JCL[Self__L5L];
- Self__L5L=(__INTEGER)(Self__L5L - 1);
- };
- prev__D0N=Self__WEL->previous_linear__2M;
- next__C0N=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__WEL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__WEL->size_and_id__3M & 4294967292LU)))));
- new_free__B0N=((__MEMORY *)(void *)((unsigned long)begin_memory__T1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__D0N))));
- new_size__G0N=(__UINTEGER_32)(Self__WEL->size_and_id__3M & 4294967294LU);
- if (((prev__D0N == 4294967295LU) || ((__UINTEGER_32)(new_free__B0N->size_and_id__3M & 1) != 0))) {
- new_free__B0N=Self__WEL;
- Self__WEL->next_free__4M=first_free__52F;
- Self__WEL->previous_free__5M=NULL;
- if (((void *)first_free__52F != (void *)NULL)) {
- ((__MEMORY *)first_free__52F)->previous_free__5M=Self__WEL;
- };
- first_free__52F=Self__WEL;
- } else {
- new_size__G0N=(__UINTEGER_32)((__UINTEGER_32)(new_size__G0N + new_free__B0N->size_and_id__3M) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__WEL->size_and_id__3M & 2) != 0)) && ((__UINTEGER_32)(next__C0N->size_and_id__3M & 1) == 0))) {
- new_size__G0N=(__UINTEGER_32)((__UINTEGER_32)(new_size__G0N + next__C0N->size_and_id__3M) + 8);
- prev__C30=next__C0N->previous_free__5M;
- next__D30=next__C0N->next_free__4M;
- if (((void *)prev__C30 == (void *)NULL)) {
- first_free__52F=next__D30;
- } else {
- ((__MEMORY *)prev__C30)->next_free__4M=next__D30;
- };
- if (((void *)next__D30 != (void *)NULL)) {
- ((__MEMORY *)next__D30)->previous_free__5M=prev__C30;
- };
- };
- new_free__B0N->size_and_id__3M=new_size__G0N;
- if (((__UINTEGER_32)(new_free__B0N->size_and_id__3M & 2) != 0)) {
- last_block[(__tmp__QHI)] = (new_free__B0N);
- } else {
- next__C0N=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__WEL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__WEL->size_and_id__3M & 4294967292LU)))));
- next__C0N->previous_linear__2M=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__B0N) - (unsigned long)begin_memory__T1))));
- };
- };
- } else {
- result__1EL=Self__WEL;
- };
- result__5FI=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__1EL)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__5FI);
-}
-
-static void add_last__10G(__FAST_ARRAYoExpanded_UINTEGER_32o *Self__20G,__UINTEGER_32 element__30G)
-// ({FAST_ARRAYoExpanded_UINTEGER_32o},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__40G,Self__1Z0,__tmp__E2G,__tmp__ADP,Self__TFU;
- __POINTER result__QIF,ptr_table__330,next__230,result__430;
- __UINTEGER_32 a__WX,new_size__KIF,new_size2__NIF,a__UX0,new_size__VX0;
- __MEMORY *result__B40;
- __BOOLEAN __tmp__O1G;
- __UINTEGER_32 *Result__0Z0,*__tmp__D2G,*new__NCP;
- new_capacity__40G= 0;
- if (((__INTEGER)(Self__20G->parent_arrayed_collection__3C.upper__50G + 1) <= (__INTEGER)(Self__20G->parent_arrayed_collection__3C.capacity__B1G - 1))) {
- Self__20G->parent_arrayed_collection__3C.upper__50G=(__INTEGER)(Self__20G->parent_arrayed_collection__3C.upper__50G + 1);
- __tmp__O1G=TRUE__;
- } else {
- __tmp__O1G=FALSE__;
- };
- if ((! __tmp__O1G)) {
- if ((Self__20G->parent_arrayed_collection__3C.capacity__B1G == 0)) {
- result__QIF=((__POINTER )(NULL));
- a__WX=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KIF=(__UINTEGER_32)((__UINTEGER_32)( 8 + a__WX) & (__UINTEGER_32)(~ a__WX));
- new_size2__NIF=(__UINTEGER_32)(new_size__KIF + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__NIF <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__UX0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VX0=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NIF + a__UX0) & (__UINTEGER_32)(~ a__UX0));
- ptr_table__330=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VX0 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__230=((__POINTER )(NULL));
- result__430=((__POINTER *)ptr_table__330)[ 0];
- if ((result__430 == (void *)NULL)) {
- result__430=new_lab__TIB(new_size__VX0);
- next__230=(void *)((unsigned long)result__430 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VX0)));
- ((__POINTER *)next__230)[ 0]=NULL;
- ((__POINTER *)ptr_table__330)[ 0]=next__230;
- } else {
- next__230=((__POINTER *)result__430)[ 0];
- if ((next__230 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__430 - (unsigned long)begin_memory__T1)))) & 4095) + (__UINTEGER_32)(new_size__VX0 << 1)) <= 4096)) {
- next__230=(void *)((unsigned long)result__430 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VX0)));
- } else {
- next__230=new_lab__TIB(new_size__VX0);
- };
- ((__POINTER *)next__230)[ 0]=NULL;
- ((__POINTER *)ptr_table__330)[ 0]=next__230;
- } else {
- ((__POINTER *)result__430)[ 0]=(void *)((unsigned long)((__POINTER *)next__230)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__430=next__230;
- };
- };
- ((__POINTER *)result__430)[ 0]=((__POINTER ) 3);
- result__QIF=(void *)((unsigned long)result__430 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__B40=first_free__52F;
- while ((((void *)result__B40 != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__B40)->size_and_id__3M & 4294967292LU) < new_size__KIF))) {
- result__B40=result__B40->next_free__4M;
- };
- if (((void *)result__B40 == (void *)NULL)) {
- result__B40=new_page__CJC();
- };
- to_busy__index__5NH(result__B40,new_size__KIF,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__B40)) - (unsigned long)begin_memory__T1)))) >> 26));
- result__QIF=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__B40)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__0Z0=((__UINTEGER_32 *)result__QIF);
- Self__1Z0= 1;
- while ((Self__1Z0 >= 0)) {
- Result__0Z0[Self__1Z0]= 0;
- Self__1Z0=(__INTEGER)(Self__1Z0 - 1);
- };
- Self__20G->parent_arrayed_collection__3C.storage__OZG=Result__0Z0;
- Self__20G->parent_arrayed_collection__3C.capacity__B1G= 2;
- Self__20G->parent_arrayed_collection__3C.upper__50G= 0;
- } else {
- new_capacity__40G=(__INTEGER)(Self__20G->parent_arrayed_collection__3C.capacity__B1G << 1);
- __tmp__D2G=Self__20G->parent_arrayed_collection__3C.storage__OZG;
- __tmp__E2G=Self__20G->parent_arrayed_collection__3C.capacity__B1G;
- new__NCP=((__UINTEGER_32 *)realloc_dynamic__old_size__new_size__PFI(((__POINTER )((__UINTEGER_32 *)__tmp__D2G)),((__UINTEGER_32 )(__INTEGER)(__tmp__E2G << 2)),((__UINTEGER_32 )(__INTEGER)(new_capacity__40G << 2))));
- __tmp__ADP=(__INTEGER)(new_capacity__40G - 1);
- Self__TFU=__tmp__E2G;
- while ((Self__TFU <= __tmp__ADP)) {
- new__NCP[Self__TFU]= 0;
- Self__TFU=(__INTEGER)(Self__TFU + 1);
- };
- Self__20G->parent_arrayed_collection__3C.storage__OZG=new__NCP;
- Self__20G->parent_arrayed_collection__3C.capacity__B1G=new_capacity__40G;
- Self__20G->parent_arrayed_collection__3C.upper__50G=(__INTEGER)(Self__20G->parent_arrayed_collection__3C.upper__50G + 1);
- };
- };
- ((__UINTEGER_32 *)Self__20G->parent_arrayed_collection__3C.storage__OZG)[Self__20G->parent_arrayed_collection__3C.upper__50G]=element__30G;
-}
-
-static __INTEGER shift_to_x0__FKE(void *pts__HKE,__INTEGER offset_row__JKE)
-// ({NULLxFAST_ARRAY2oExpanded_INTEGERo},{INTEGER}) With resultNo recursive, No inlinable.
-{
- __INTEGER x__LKE,rx__OKE,ry__PKE,x_min__QKE,x_max__RKE,Self__R0E;
- __INTEGER offset__NKE,Self__B1E,y__S1E,x__T1E,Self__4EF;
- __UINTEGER_32 result__U1E;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__AO0,*Self__IO0,*Self__MO0;
- __FAST_ARRAY2oExpanded_INTEGERo *Self__GU0,*Self__QO0,*Self__UO0;
- x__LKE= 0;
- rx__OKE= 0;
- ry__PKE= 0;
- x_min__QKE=((__INTEGER *)((__FAST_ARRAY2oExpanded_INTEGERo *)pts__HKE)->storage__EDH)[ 0];
- x_max__RKE=x_min__QKE;
- Self__R0E= 1;
- while ((Self__R0E <= 4)) {
- Self__AO0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__HKE);
- x__LKE=((__INTEGER *)Self__AO0->storage__EDH)[(__INTEGER)(Self__R0E * Self__AO0->count2__GDH)];
- if ((x__LKE < x_min__QKE)) {
- x_min__QKE=x__LKE;
- } else {
- if ((x__LKE > x_max__RKE)) {
- x_max__RKE=x__LKE;
- };
- };
- Self__R0E=(__INTEGER)(Self__R0E + 1);
- };
- offset__NKE= 5;
- Self__B1E= 1;
- while ((Self__B1E <= 4)) {
- Self__IO0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__HKE);
- rx__OKE=((__INTEGER *)Self__IO0->storage__EDH)[(__INTEGER)(Self__B1E * Self__IO0->count2__GDH)];
- Self__MO0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__HKE);
- ry__PKE=((__INTEGER *)Self__MO0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__B1E * Self__MO0->count2__GDH) + 1)];
- rx__OKE=(__INTEGER)(rx__OKE - x_min__QKE);
- Self__GU0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__HKE);
- ((__INTEGER *)Self__GU0->storage__EDH)[(__INTEGER)(Self__B1E * Self__GU0->count2__GDH)]=rx__OKE;
- if (((ry__PKE == offset_row__JKE) && (rx__OKE < offset__NKE))) {
- offset__NKE=rx__OKE;
- };
- Self__B1E=(__INTEGER)(Self__B1E + 1);
- };
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- y__S1E= 0;
- x__T1E= 0;
- result__U1E= 0;
- Self__4EF= 0;
- while ((Self__4EF <= 4)) {
- Self__QO0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__HKE);
- x__T1E=((__INTEGER *)Self__QO0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__4EF * Self__QO0->count2__GDH) + x__T1E)];
- Self__UO0=((__FAST_ARRAY2oExpanded_INTEGERo *)pts__HKE);
- y__S1E=((__INTEGER *)Self__UO0->storage__EDH)[(__INTEGER)((__INTEGER)(Self__4EF * Self__UO0->count2__GDH) + y__S1E)];
- result__U1E=(__UINTEGER_32)(result__U1E | ((__UINTEGER_32 )(__INTEGER)( 1 << ((__INTEGER )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )y__S1E) * 5) + ((__UINTEGER_32 )x__T1E))))));
- Self__4EF=(__INTEGER)(Self__4EF + 1);
- };
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- return((__INTEGER)(x_max__RKE - x_min__QKE));
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/nbody/nbody.c b/example/shootout/nbody/nbody.c
deleted file mode 100755
index a87962b..0000000
--- a/example/shootout/nbody/nbody.c
+++ /dev/null
@@ -1,4442 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// FLOAT_REAL
-#include <math.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM
-#include <time.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 0
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__DW;
- __INTEGER capacity__FW;
- __CHARACTER *storage__2QC;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// REAL_64
-typedef double __REAL_64;
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 1
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER capacity__ISC;
- __INTEGER upper__USC;
- void **storage__FNC;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 2
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__QC;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// NUMERIC
-#define __NUMERIC__ 3
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__XHB;
- __CHARACTER *storage__YLE;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// MEMORY
-#define __MEMORY__ 6
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__ID;
- volatile __UINTEGER_32 size_and_id__JD;
- __MEMORY *next_free__KD;
- __MEMORY *previous_free__LD;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// FALSE
-#define FALSE__ 0
-
-// TRUE
-#define TRUE__ 1
-
-// NBODY
-#define __NBODY__ 7
-typedef struct NBODY_struct __NBODY;
-struct NBODY_struct {
- void *Nothing;
-};
-__NBODY NBODY_;
-#define NBODY__ (&NBODY_)
-
-// PLANET
-#define __PLANET__ 8
-typedef struct PLANET_struct __PLANET;
-struct PLANET_struct {
- __REAL_64 mass__1D;
- __REAL_64 x__5D;
- __REAL_64 y__BE;
- __REAL_64 z__DE;
- __REAL_64 vx__IE;
- __REAL_64 vy__ME;
- __REAL_64 vz__QE;
-};
-__PLANET PLANET_;
-#define PLANET__ (&PLANET_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[9];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-void *string_tmp__TK;
-__UINTEGER_32 clone_allocation_size__E5;
-__POINTER begin_memory__2RB;
-__UINTEGER_32 nb_page__L2B;
-__MEMORY *first_free__LMD;
-__UINTEGER_32 capacity_max__NTD;
-__INTEGER nbodies__AB;
-__PLANET *bodies__GB;
-__PLANET *b__VXD;
-__PLANET *b2__AYD;
-__REAL_64 dx__GYD;
-__REAL_64 dy__MYD;
-__REAL_64 dz__SYD;
-__REAL_64 distance__AZD;
-__REAL_64 mag__IZD;
-__REAL_64 solar_mass__ZD;
-__REAL_64 days_per_year__FE;
-__REAL_64 pi__GR;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={19,"Not enough memory.\n"};
-__STRING_CONSTANT __string_2={5,"%.9f\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __STRING* create__Q3(__INTEGER needed_capacity__S3);
-static __POINTER realloc_dynamic__old_size__new_size__CGI(__POINTER p__EGI,__UINTEGER_32 old_sz__FGI,__UINTEGER_32 new_sz__GGI);
-void offset_momentum(__INTEGER n__IG);
-__REAL_64 energy(__INTEGER n__XH);
-static void print_format_c__QK(__REAL_64 Self__RK);
-void advance(__REAL_64 dt__LXD,__INTEGER n__MXD);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__ML;
- __INTEGER new_count__2W,typ_id__W4,__tmp__ZMT,Self__0MT,__tmp__CNT;
- __INTEGER Self__DNT,__tmp__LNT,Self__MNT,__tmp__UNT,Self__VNT;
- __INTEGER __tmp__3NT,Self__4NT,__tmp__GOT,Self__HOT,__tmp__POT;
- __INTEGER Self__QOT,Self__ZZS,Self__HX,limit_up__IX,idx__OFE,i__BHE;
- __INTEGER new_capacity__0DE,__tmp__YOT,Self__ZOT,__tmp__BPT,Self__CPT;
- __INTEGER __tmp__KPT,Self__LPT,Self__H0S,__tmp__TEE,__tmp__VSH;
- __INTEGER Self__SYL,new_capacity__1HE,__tmp__TPT,Self__UPT,__tmp__2PT;
- __INTEGER Self__3PT,__tmp__FQT,Self__GQT,Self__KOI,__tmp__5IE;
- __INTEGER __tmp__MUH,Self__R0L,state__MIL,result__PIL,i__LIL;
- __INTEGER __tmp__JTS,__tmp__LTS,__tmp__OQT,Self__PQT,__tmp__XQT;
- __INTEGER Self__YQT,__tmp__U5C,Self__RKD,Self__0K,limit_up__1K;
- __POINTER ptr__R4,ptr_table__MWS,next__LWS,result__NWS,mem__VMT;
- __POINTER result__EDT,mem__4MT,result__QDT,ptr_table__SWS,next__RWS;
- __POINTER result__TWS,mem__HNT,result__2DT,mem__QNT,result__IET;
- __POINTER result__PZS,ptr_table__VZS,next__WZS,result__XZS,mem__ZNT;
- __POINTER result__UET,mem__COT,result__AFT,mem__LOT,result__3ZS;
- __POINTER ptr_table__D0S,next__E0S,result__F0S,mem__UOT,result__MFT;
- __POINTER mem__3OT,result__YFT,mem__GPT,result__BVS,ptr_table__OVS;
- __POINTER next__NVS,result__PVS,mem__PPT,result__EGT,mem__YPT;
- __POINTER result__QGT,mem__BQT,result__XUS,ptr_table__CQB,next__HQB;
- __POINTER result__FQB,mem__KQT,result__2GT,mem__TQT,result__C2B;
- __POINTER mem__5MF;
- __UINTEGER_32 sz__T4,a__XQS,new_size__XKB,idx__3CT,pv__ADT,cap__WMT;
- __UINTEGER_32 idx__JDT,pv__MDT,cap__5MT,old_size__BNT,t__AMB,a__3QS;
- __UINTEGER_32 new_size__VWS,lab_type__UWS,idx__VDT,pv__YDT,cap__INT;
- __UINTEGER_32 old_size__KNT,idx__BET,pv__EET,cap__RNT,old_size__TNT;
- __UINTEGER_32 sz__OZS,a__QZS,new_size__RZS,new_size2__SZS,a__TZS;
- __UINTEGER_32 new_size__UZS,idx__NET,pv__QET,cap__0NT,old_size__2NT;
- __UINTEGER_32 idx__ZET,pv__2ET,cap__DOT,old_size__FOT,cap__MOT;
- __UINTEGER_32 old_size__OOT,idx__V2S,siz__Z2S,new_size__02S,a__4ZS;
- __UINTEGER_32 new_size__5ZS,new_size2__A0S,a__B0S,new_size__C0S;
- __UINTEGER_32 idx__FFT,pv__IFT,cap__VOT,old_size__XOT,idx__RFT;
- __UINTEGER_32 pv__UFT,cap__4OT,old_size__APT,cap__HPT,old_size__JPT;
- __UINTEGER_32 idx__B3S,siz__F3S,new_size__G3S,sz__DVS,a__CVS;
- __UINTEGER_32 new_size__EVS,new_size2__FVS,a__GVS,new_size__HVS;
- __UINTEGER_32 idx__3FT,pv__AGT,cap__QPT,old_size__SPT,idx__JGT;
- __UINTEGER_32 pv__MGT,cap__ZPT,old_size__1PT,cap__CQT,old_size__EQT;
- __UINTEGER_32 idx__N3S,siz__R3S,new_size__S3S,sz__ZUS,a__YUS;
- __UINTEGER_32 new_size__0US,new_size2__1US,a__2US,new_size__3US;
- __UINTEGER_32 idx__VGT,pv__YGT,cap__LQT,old_size__NQT,idx__31B;
- __UINTEGER_32 pv__E2B,cap__UQT,old_size__WQT,cap__2MF,old_size__GTD;
- __UINTEGER_32 idx__YIH,siz__ZIH,new_size__2IH;
- __MEMORY *blc__4CT,*prev__5CT,*block__3MT,*prev__GDT,*next__HDT;
- __MEMORY *blc__KDT,*prev__LDT,*block__GNT,*Self__PDT,*Self__RDT;
- __MEMORY *prev__SDT,*next__TDT,*blc__WDT,*prev__XDT,*block__PNT;
- __MEMORY *Self__1DT,*Self__3DT,*prev__4DT,*next__5DT,*blc__CET;
- __MEMORY *prev__DET,*block__YNT,*Self__HET,*Self__JET,*prev__KET;
- __MEMORY *next__LET,*blc__OET,*prev__PET,*block__BOT,*Self__TET;
- __MEMORY *Self__VET,*prev__WET,*next__XET,*blc__0ET,*prev__1ET;
- __MEMORY *block__KOT,*Self__5ET,*Self__BFT,*prev__CFT,*next__DFT;
- __MEMORY *result__R2S,*block__TOT,*Self__U2S,*new__W2S,*prev__X2S;
- __MEMORY *next__Y2S,*Self__12S,*Self__22S,*blc__GFT,*prev__HFT;
- __MEMORY *block__2OT,*Self__LFT,*Self__NFT,*prev__OFT,*next__PFT;
- __MEMORY *blc__SFT,*prev__TFT,*block__FPT,*Self__XFT,*Self__ZFT;
- __MEMORY *prev__0FT,*next__1FT,*result__32S,*block__OPT,*Self__A3S;
- __MEMORY *new__C3S,*prev__D3S,*next__E3S,*Self__H3S,*Self__I3S;
- __MEMORY *blc__4FT,*prev__5FT,*block__XPT,*Self__DGT,*Self__FGT;
- __MEMORY *prev__GGT,*next__HGT,*blc__KGT,*prev__LGT,*block__AQT;
- __MEMORY *Self__PGT,*Self__RGT,*prev__SGT,*next__TGT,*result__J3S;
- __MEMORY *block__JQT,*Self__M3S,*new__O3S,*prev__P3S,*next__Q3S;
- __MEMORY *Self__T3S,*Self__U3S,*blc__WGT,*prev__XGT,*block__SQT;
- __MEMORY *Self__1GT,*Self__3GT,*prev__4GT,*next__5GT,*blc__A2B;
- __MEMORY *prev__B2B,*block__1QT,*Self__TES,*Self__0PS,*prev__1PS;
- __MEMORY *next__2PS,*result__MLD,*block__MTD,*Self__WIH,*new__5IH;
- __MEMORY *prev__M1H,*next__N1H,*Self__5MH,*Self__HAS;
- __STRING *Self__5GE,*Self__JIL;
- __PLANET *Self__3D,*Self__VE,*Self__GF,*Self__XF;
- __CHARACTER *arg__LL,*__tmp__1MT,*__tmp__ENT,*__tmp__NNT,*__tmp__WNT;
- __CHARACTER *__tmp__5NT,*__tmp__IOT,*__tmp__ROT,*Self__CFE,*p__AHE;
- __CHARACTER *__tmp__0OT,*__tmp__DPT,*__tmp__MPT,*Result__G0S;
- __CHARACTER *__tmp__SEE,*new__CSH,*__tmp__VPT,*__tmp__4PT,*__tmp__HQT;
- __CHARACTER *__tmp__KTS,*__tmp__QQT,*__tmp__ZQT,*__tmp__1SS;
- __FAST_ARRAYoSTRINGo *result__Q4,*Self__5RC,*Self__ZHE;
- __BOOLEAN __tmp__BDT,__tmp__NDT,__tmp__ZDT,__tmp__FET,__tmp__RET;
- __BOOLEAN __tmp__3ET,__tmp__JFT,__tmp__VFT,__tmp__JIE,__tmp__BGT;
- __BOOLEAN __tmp__NGT,negative__OIL,__tmp__1JL,result__T3P,__tmp__OKL;
- __BOOLEAN __tmp__DLL,result__QRO,__tmp__KML,result__CSO,result__JFP;
- __BOOLEAN __tmp__ZGT,__tmp__E3B;
- void **Result__YZS,**Result__DOG,**__tmp__4IE,**new__ZTH;
- void *result__KL;
- __CHARACTER ch__ZDE,cc__NIL;
- __PLANET *Result__YC;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoSTRINGo__->storage__FNC=NULL;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__ISC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->upper__USC= 0;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__QC=(*ARRAYED_COLLECTIONoSTRINGo__);
- parent_numeric__H=NUMERIC__;
- clone_allocation_size__E5= 0;
- STRING_CONSTANT__->count__XHB=((__INTEGER )((0)));
- STRING__->count__DW= 0;
- STRING_CONSTANT__->storage__YLE=((__CHARACTER *)(NULL));
- STRING__->storage__2QC=NULL;
- nb_page__L2B= 0;
- MEMORY__->size_and_id__JD= 0;
- capacity_max__NTD= 0;
- begin_memory__2RB=((__POINTER )(NULL));
- MEMORY__->previous_linear__ID= 0;
- first_free__LMD=NULL;
- MEMORY__->next_free__KD=NULL;
- MEMORY__->previous_free__LD=NULL;
- STRING__->capacity__FW= 0;
- arg__LL=NULL;
- str__ML=NULL;
- new_count__2W=((__INTEGER )(arg_count));
- result__Q4=NULL;
- ptr__R4=((__POINTER )(NULL));
- typ_id__W4= 0;
- sz__T4=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__T4 == 0)) {
- result__Q4=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__W4=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__E5=sz__T4;
- if ((typ_id__W4 == (__INTEGER)(- 1))) {
- a__XQS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XKB=(__UINTEGER_32)((__UINTEGER_32)(sz__T4 + a__XQS) & (__UINTEGER_32)(~ a__XQS));
- ptr_table__MWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XKB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__LWS=((__POINTER )(NULL));
- result__NWS=((__POINTER *)ptr_table__MWS)[ 0];
- if ((result__NWS == (void *)NULL)) {
- idx__3CT= 0;
- blc__4CT=NULL;
- prev__5CT=NULL;
- pv__ADT= 0;
- while_do__2AC__CDT:
- {
- if ((idx__3CT < nb_page__L2B)) {
- blc__4CT=((__MEMORY *)(last_block[(idx__3CT)]));
- __tmp__BDT=(((__UINTEGER_32)(((__MEMORY *)blc__4CT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__4CT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__BDT=FALSE__;
- };
- if (__tmp__BDT) {
- idx__3CT=(__UINTEGER_32)(idx__3CT + 1);
- goto while_do__2AC__CDT;
- };
- };
- mem__VMT=((__POINTER )(NULL));
- cap__WMT= 33554432;
- do {
- cap__WMT=(__UINTEGER_32)(cap__WMT << 1);
- mem__VMT=((__POINTER )(malloc((cap__WMT))));
- if ((mem__VMT != (void *)NULL)) {
- free((mem__VMT));
- };
- } while ((! ((mem__VMT == (void *)NULL) || (cap__WMT == 2147483648LU))));
- if ((mem__VMT == (void *)NULL)) {
- cap__WMT=(__UINTEGER_32)(cap__WMT >> 1);
- };
- capacity_max__NTD=cap__WMT;
- begin_memory__2RB=((__POINTER )(malloc((cap__WMT))));
- nb_page__L2B= 1;
- if (( 67108864 > cap__WMT)) {
- __tmp__ZMT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__0MT= 1;
- __tmp__1MT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__0MT <= __tmp__ZMT)) {
- fputc((int)(((__CHARACTER *)__tmp__1MT)[(__INTEGER)(Self__0MT - 1)]),stdout);
- Self__0MT=(__INTEGER)(Self__0MT + 1);
- };
- exit(( 1));
- };
- block__3MT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 0))));
- block__3MT->previous_linear__ID= 4294967295LU;
- block__3MT->size_and_id__JD= 67108858;
- block__3MT->next_free__KD=NULL;
- block__3MT->previous_free__LD=NULL;
- first_free__LMD=block__3MT;
- last_block[( 0)] = (block__3MT);
- blc__4CT=block__3MT;
- block__3MT->size_and_id__JD=(__UINTEGER_32)(block__3MT->size_and_id__JD - 4096);
- result__EDT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )block__3MT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(block__3MT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(block__3MT->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- prev__GDT=block__3MT->previous_free__LD;
- next__HDT=block__3MT->next_free__KD;
- if (((void *)prev__GDT == (void *)NULL)) {
- first_free__LMD=next__HDT;
- } else {
- ((__MEMORY *)prev__GDT)->next_free__KD=next__HDT;
- };
- if (((void *)next__HDT != (void *)NULL)) {
- ((__MEMORY *)next__HDT)->previous_free__LD=prev__GDT;
- };
- pv__ADT=block__3MT->previous_linear__ID;
- if ((pv__ADT != 4294967295LU)) {
- prev__5CT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__ADT))));
- ((__MEMORY *)prev__5CT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__5CT->size_and_id__JD + block__3MT->size_and_id__JD) + 8);
- last_block[(idx__3CT)] = (prev__5CT);
- };
- };
- ((__POINTER *)result__EDT)[ 0]=((__POINTER )new_size__XKB);
- result__NWS=(void *)((unsigned long)result__EDT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__LWS=(void *)((unsigned long)result__NWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKB)));
- ((__POINTER *)next__LWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__MWS)[ 0]=next__LWS;
- } else {
- next__LWS=((__POINTER *)result__NWS)[ 0];
- if ((next__LWS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NWS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__XKB << 1)) <= 4096)) {
- next__LWS=(void *)((unsigned long)result__NWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKB)));
- } else {
- idx__JDT= 0;
- blc__KDT=NULL;
- prev__LDT=NULL;
- pv__MDT= 0;
- while_do__2AC__ODT:
- {
- if ((idx__JDT < nb_page__L2B)) {
- blc__KDT=((__MEMORY *)(last_block[(idx__JDT)]));
- __tmp__NDT=(((__UINTEGER_32)(((__MEMORY *)blc__KDT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__KDT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__NDT=FALSE__;
- };
- if (__tmp__NDT) {
- idx__JDT=(__UINTEGER_32)(idx__JDT + 1);
- goto while_do__2AC__ODT;
- };
- };
- if ((idx__JDT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__4MT=((__POINTER )(NULL));
- cap__5MT= 33554432;
- do {
- cap__5MT=(__UINTEGER_32)(cap__5MT << 1);
- mem__4MT=((__POINTER )(malloc((cap__5MT))));
- if ((mem__4MT != (void *)NULL)) {
- free((mem__4MT));
- };
- } while ((! ((mem__4MT == (void *)NULL) || (cap__5MT == 2147483648LU))));
- if ((mem__4MT == (void *)NULL)) {
- cap__5MT=(__UINTEGER_32)(cap__5MT >> 1);
- };
- capacity_max__NTD=cap__5MT;
- begin_memory__2RB=((__POINTER )(malloc((cap__5MT))));
- };
- old_size__BNT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__BNT + 67108864) > capacity_max__NTD)) {
- __tmp__CNT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__DNT= 1;
- __tmp__ENT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__DNT <= __tmp__CNT)) {
- fputc((int)(((__CHARACTER *)__tmp__ENT)[(__INTEGER)(Self__DNT - 1)]),stdout);
- Self__DNT=(__INTEGER)(Self__DNT + 1);
- };
- exit(( 1));
- };
- block__GNT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__BNT))));
- block__GNT->previous_linear__ID= 4294967295LU;
- block__GNT->size_and_id__JD= 67108858;
- block__GNT->next_free__KD=first_free__LMD;
- block__GNT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__GNT;
- };
- first_free__LMD=block__GNT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__GNT);
- blc__KDT=block__GNT;
- };
- ((__MEMORY *)blc__KDT)->size_and_id__JD=(__UINTEGER_32)(blc__KDT->size_and_id__JD - 4096);
- Self__PDT=((__MEMORY *)blc__KDT);
- result__QDT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PDT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__PDT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__KDT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__RDT=((__MEMORY *)blc__KDT);
- prev__SDT=Self__RDT->previous_free__LD;
- next__TDT=Self__RDT->next_free__KD;
- if (((void *)prev__SDT == (void *)NULL)) {
- first_free__LMD=next__TDT;
- } else {
- ((__MEMORY *)prev__SDT)->next_free__KD=next__TDT;
- };
- if (((void *)next__TDT != (void *)NULL)) {
- ((__MEMORY *)next__TDT)->previous_free__LD=prev__SDT;
- };
- pv__MDT=blc__KDT->previous_linear__ID;
- if ((pv__MDT != 4294967295LU)) {
- prev__LDT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__MDT))));
- ((__MEMORY *)prev__LDT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__LDT->size_and_id__JD + blc__KDT->size_and_id__JD) + 8);
- last_block[(idx__JDT)] = (prev__LDT);
- };
- };
- ((__POINTER *)result__QDT)[ 0]=((__POINTER )new_size__XKB);
- next__LWS=(void *)((unsigned long)result__QDT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__LWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__MWS)[ 0]=next__LWS;
- } else {
- ((__POINTER *)result__NWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__LWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NWS=next__LWS;
- };
- };
- ptr__R4=result__NWS;
- } else {
- t__AMB=((__UINTEGER_32 )typ_id__W4);
- a__3QS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VWS=(__UINTEGER_32)((__UINTEGER_32)(sz__T4 + a__3QS) & (__UINTEGER_32)(~ a__3QS));
- ptr_table__SWS=((__POINTER )(&(table_type[(t__AMB)])));
- lab_type__UWS=(__UINTEGER_32)(t__AMB | 1);
- next__RWS=((__POINTER )(NULL));
- result__TWS=((__POINTER *)ptr_table__SWS)[ 0];
- if ((result__TWS == (void *)NULL)) {
- idx__VDT= 0;
- blc__WDT=NULL;
- prev__XDT=NULL;
- pv__YDT= 0;
- while_do__2AC__0DT:
- {
- if ((idx__VDT < nb_page__L2B)) {
- blc__WDT=((__MEMORY *)(last_block[(idx__VDT)]));
- __tmp__ZDT=(((__UINTEGER_32)(((__MEMORY *)blc__WDT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__WDT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__ZDT=FALSE__;
- };
- if (__tmp__ZDT) {
- idx__VDT=(__UINTEGER_32)(idx__VDT + 1);
- goto while_do__2AC__0DT;
- };
- };
- if ((idx__VDT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__HNT=((__POINTER )(NULL));
- cap__INT= 33554432;
- do {
- cap__INT=(__UINTEGER_32)(cap__INT << 1);
- mem__HNT=((__POINTER )(malloc((cap__INT))));
- if ((mem__HNT != (void *)NULL)) {
- free((mem__HNT));
- };
- } while ((! ((mem__HNT == (void *)NULL) || (cap__INT == 2147483648LU))));
- if ((mem__HNT == (void *)NULL)) {
- cap__INT=(__UINTEGER_32)(cap__INT >> 1);
- };
- capacity_max__NTD=cap__INT;
- begin_memory__2RB=((__POINTER )(malloc((cap__INT))));
- };
- old_size__KNT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__KNT + 67108864) > capacity_max__NTD)) {
- __tmp__LNT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__MNT= 1;
- __tmp__NNT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__MNT <= __tmp__LNT)) {
- fputc((int)(((__CHARACTER *)__tmp__NNT)[(__INTEGER)(Self__MNT - 1)]),stdout);
- Self__MNT=(__INTEGER)(Self__MNT + 1);
- };
- exit(( 1));
- };
- block__PNT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__KNT))));
- block__PNT->previous_linear__ID= 4294967295LU;
- block__PNT->size_and_id__JD= 67108858;
- block__PNT->next_free__KD=first_free__LMD;
- block__PNT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__PNT;
- };
- first_free__LMD=block__PNT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__PNT);
- blc__WDT=block__PNT;
- };
- ((__MEMORY *)blc__WDT)->size_and_id__JD=(__UINTEGER_32)(blc__WDT->size_and_id__JD - 4096);
- Self__1DT=((__MEMORY *)blc__WDT);
- result__2DT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1DT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1DT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__WDT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__3DT=((__MEMORY *)blc__WDT);
- prev__4DT=Self__3DT->previous_free__LD;
- next__5DT=Self__3DT->next_free__KD;
- if (((void *)prev__4DT == (void *)NULL)) {
- first_free__LMD=next__5DT;
- } else {
- ((__MEMORY *)prev__4DT)->next_free__KD=next__5DT;
- };
- if (((void *)next__5DT != (void *)NULL)) {
- ((__MEMORY *)next__5DT)->previous_free__LD=prev__4DT;
- };
- pv__YDT=blc__WDT->previous_linear__ID;
- if ((pv__YDT != 4294967295LU)) {
- prev__XDT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__YDT))));
- ((__MEMORY *)prev__XDT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__XDT->size_and_id__JD + blc__WDT->size_and_id__JD) + 8);
- last_block[(idx__VDT)] = (prev__XDT);
- };
- };
- ((__POINTER *)result__2DT)[ 0]=((__POINTER )lab_type__UWS);
- result__TWS=(void *)((unsigned long)result__2DT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__RWS=(void *)((unsigned long)result__TWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VWS)));
- ((__POINTER *)next__RWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__SWS)[ 0]=next__RWS;
- } else {
- next__RWS=((__POINTER *)result__TWS)[ 0];
- if ((next__RWS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TWS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__VWS << 1)) <= 4096)) {
- next__RWS=(void *)((unsigned long)result__TWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VWS)));
- } else {
- idx__BET= 0;
- blc__CET=NULL;
- prev__DET=NULL;
- pv__EET= 0;
- while_do__2AC__GET:
- {
- if ((idx__BET < nb_page__L2B)) {
- blc__CET=((__MEMORY *)(last_block[(idx__BET)]));
- __tmp__FET=(((__UINTEGER_32)(((__MEMORY *)blc__CET)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__CET)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__FET=FALSE__;
- };
- if (__tmp__FET) {
- idx__BET=(__UINTEGER_32)(idx__BET + 1);
- goto while_do__2AC__GET;
- };
- };
- if ((idx__BET >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__QNT=((__POINTER )(NULL));
- cap__RNT= 33554432;
- do {
- cap__RNT=(__UINTEGER_32)(cap__RNT << 1);
- mem__QNT=((__POINTER )(malloc((cap__RNT))));
- if ((mem__QNT != (void *)NULL)) {
- free((mem__QNT));
- };
- } while ((! ((mem__QNT == (void *)NULL) || (cap__RNT == 2147483648LU))));
- if ((mem__QNT == (void *)NULL)) {
- cap__RNT=(__UINTEGER_32)(cap__RNT >> 1);
- };
- capacity_max__NTD=cap__RNT;
- begin_memory__2RB=((__POINTER )(malloc((cap__RNT))));
- };
- old_size__TNT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__TNT + 67108864) > capacity_max__NTD)) {
- __tmp__UNT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__VNT= 1;
- __tmp__WNT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__VNT <= __tmp__UNT)) {
- fputc((int)(((__CHARACTER *)__tmp__WNT)[(__INTEGER)(Self__VNT - 1)]),stdout);
- Self__VNT=(__INTEGER)(Self__VNT + 1);
- };
- exit(( 1));
- };
- block__YNT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__TNT))));
- block__YNT->previous_linear__ID= 4294967295LU;
- block__YNT->size_and_id__JD= 67108858;
- block__YNT->next_free__KD=first_free__LMD;
- block__YNT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__YNT;
- };
- first_free__LMD=block__YNT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__YNT);
- blc__CET=block__YNT;
- };
- ((__MEMORY *)blc__CET)->size_and_id__JD=(__UINTEGER_32)(blc__CET->size_and_id__JD - 4096);
- Self__HET=((__MEMORY *)blc__CET);
- result__IET=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__HET) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__HET->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__CET)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__JET=((__MEMORY *)blc__CET);
- prev__KET=Self__JET->previous_free__LD;
- next__LET=Self__JET->next_free__KD;
- if (((void *)prev__KET == (void *)NULL)) {
- first_free__LMD=next__LET;
- } else {
- ((__MEMORY *)prev__KET)->next_free__KD=next__LET;
- };
- if (((void *)next__LET != (void *)NULL)) {
- ((__MEMORY *)next__LET)->previous_free__LD=prev__KET;
- };
- pv__EET=blc__CET->previous_linear__ID;
- if ((pv__EET != 4294967295LU)) {
- prev__DET=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__EET))));
- ((__MEMORY *)prev__DET)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__DET->size_and_id__JD + blc__CET->size_and_id__JD) + 8);
- last_block[(idx__BET)] = (prev__DET);
- };
- };
- ((__POINTER *)result__IET)[ 0]=((__POINTER )lab_type__UWS);
- next__RWS=(void *)((unsigned long)result__IET - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__RWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__SWS)[ 0]=next__RWS;
- } else {
- ((__POINTER *)result__TWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__RWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TWS=next__RWS;
- };
- };
- ptr__R4=result__TWS;
- };
- result__Q4=((__FAST_ARRAYoSTRINGo *)ptr__R4);
- *(result__Q4) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__5RC=((__FAST_ARRAYoSTRINGo *)result__Q4);
- if ((Self__5RC->parent_arrayed_collection__QC.capacity__ISC < new_count__2W)) {
- sz__OZS=((__UINTEGER_32 )(__INTEGER)(new_count__2W * ((__INTEGER )(sizeof(void *)))));
- result__PZS=((__POINTER )(NULL));
- a__QZS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RZS=(__UINTEGER_32)((__UINTEGER_32)(sz__OZS + a__QZS) & (__UINTEGER_32)(~ a__QZS));
- new_size2__SZS=(__UINTEGER_32)(new_size__RZS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__SZS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__TZS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UZS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__SZS + a__TZS) & (__UINTEGER_32)(~ a__TZS));
- ptr_table__VZS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UZS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WZS=((__POINTER )(NULL));
- result__XZS=((__POINTER *)ptr_table__VZS)[ 0];
- if ((result__XZS == (void *)NULL)) {
- idx__NET= 0;
- blc__OET=NULL;
- prev__PET=NULL;
- pv__QET= 0;
- while_do__2AC__SET:
- {
- if ((idx__NET < nb_page__L2B)) {
- blc__OET=((__MEMORY *)(last_block[(idx__NET)]));
- __tmp__RET=(((__UINTEGER_32)(((__MEMORY *)blc__OET)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__OET)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__RET=FALSE__;
- };
- if (__tmp__RET) {
- idx__NET=(__UINTEGER_32)(idx__NET + 1);
- goto while_do__2AC__SET;
- };
- };
- if ((idx__NET >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__ZNT=((__POINTER )(NULL));
- cap__0NT= 33554432;
- do {
- cap__0NT=(__UINTEGER_32)(cap__0NT << 1);
- mem__ZNT=((__POINTER )(malloc((cap__0NT))));
- if ((mem__ZNT != (void *)NULL)) {
- free((mem__ZNT));
- };
- } while ((! ((mem__ZNT == (void *)NULL) || (cap__0NT == 2147483648LU))));
- if ((mem__ZNT == (void *)NULL)) {
- cap__0NT=(__UINTEGER_32)(cap__0NT >> 1);
- };
- capacity_max__NTD=cap__0NT;
- begin_memory__2RB=((__POINTER )(malloc((cap__0NT))));
- };
- old_size__2NT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__2NT + 67108864) > capacity_max__NTD)) {
- __tmp__3NT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__4NT= 1;
- __tmp__5NT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__4NT <= __tmp__3NT)) {
- fputc((int)(((__CHARACTER *)__tmp__5NT)[(__INTEGER)(Self__4NT - 1)]),stdout);
- Self__4NT=(__INTEGER)(Self__4NT + 1);
- };
- exit(( 1));
- };
- block__BOT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__2NT))));
- block__BOT->previous_linear__ID= 4294967295LU;
- block__BOT->size_and_id__JD= 67108858;
- block__BOT->next_free__KD=first_free__LMD;
- block__BOT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__BOT;
- };
- first_free__LMD=block__BOT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__BOT);
- blc__OET=block__BOT;
- };
- ((__MEMORY *)blc__OET)->size_and_id__JD=(__UINTEGER_32)(blc__OET->size_and_id__JD - 4096);
- Self__TET=((__MEMORY *)blc__OET);
- result__UET=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TET) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TET->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__OET)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__VET=((__MEMORY *)blc__OET);
- prev__WET=Self__VET->previous_free__LD;
- next__XET=Self__VET->next_free__KD;
- if (((void *)prev__WET == (void *)NULL)) {
- first_free__LMD=next__XET;
- } else {
- ((__MEMORY *)prev__WET)->next_free__KD=next__XET;
- };
- if (((void *)next__XET != (void *)NULL)) {
- ((__MEMORY *)next__XET)->previous_free__LD=prev__WET;
- };
- pv__QET=blc__OET->previous_linear__ID;
- if ((pv__QET != 4294967295LU)) {
- prev__PET=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__QET))));
- ((__MEMORY *)prev__PET)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__PET->size_and_id__JD + blc__OET->size_and_id__JD) + 8);
- last_block[(idx__NET)] = (prev__PET);
- };
- };
- ((__POINTER *)result__UET)[ 0]=((__POINTER )new_size__UZS);
- result__XZS=(void *)((unsigned long)result__UET - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__WZS=(void *)((unsigned long)result__XZS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UZS)));
- ((__POINTER *)next__WZS)[ 0]=NULL;
- ((__POINTER *)ptr_table__VZS)[ 0]=next__WZS;
- } else {
- next__WZS=((__POINTER *)result__XZS)[ 0];
- if ((next__WZS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XZS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__UZS << 1)) <= 4096)) {
- next__WZS=(void *)((unsigned long)result__XZS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UZS)));
- } else {
- idx__ZET= 0;
- blc__0ET=NULL;
- prev__1ET=NULL;
- pv__2ET= 0;
- while_do__2AC__4ET:
- {
- if ((idx__ZET < nb_page__L2B)) {
- blc__0ET=((__MEMORY *)(last_block[(idx__ZET)]));
- __tmp__3ET=(((__UINTEGER_32)(((__MEMORY *)blc__0ET)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__0ET)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__3ET=FALSE__;
- };
- if (__tmp__3ET) {
- idx__ZET=(__UINTEGER_32)(idx__ZET + 1);
- goto while_do__2AC__4ET;
- };
- };
- if ((idx__ZET >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__COT=((__POINTER )(NULL));
- cap__DOT= 33554432;
- do {
- cap__DOT=(__UINTEGER_32)(cap__DOT << 1);
- mem__COT=((__POINTER )(malloc((cap__DOT))));
- if ((mem__COT != (void *)NULL)) {
- free((mem__COT));
- };
- } while ((! ((mem__COT == (void *)NULL) || (cap__DOT == 2147483648LU))));
- if ((mem__COT == (void *)NULL)) {
- cap__DOT=(__UINTEGER_32)(cap__DOT >> 1);
- };
- capacity_max__NTD=cap__DOT;
- begin_memory__2RB=((__POINTER )(malloc((cap__DOT))));
- };
- old_size__FOT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__FOT + 67108864) > capacity_max__NTD)) {
- __tmp__GOT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__HOT= 1;
- __tmp__IOT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__HOT <= __tmp__GOT)) {
- fputc((int)(((__CHARACTER *)__tmp__IOT)[(__INTEGER)(Self__HOT - 1)]),stdout);
- Self__HOT=(__INTEGER)(Self__HOT + 1);
- };
- exit(( 1));
- };
- block__KOT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__FOT))));
- block__KOT->previous_linear__ID= 4294967295LU;
- block__KOT->size_and_id__JD= 67108858;
- block__KOT->next_free__KD=first_free__LMD;
- block__KOT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__KOT;
- };
- first_free__LMD=block__KOT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__KOT);
- blc__0ET=block__KOT;
- };
- ((__MEMORY *)blc__0ET)->size_and_id__JD=(__UINTEGER_32)(blc__0ET->size_and_id__JD - 4096);
- Self__5ET=((__MEMORY *)blc__0ET);
- result__AFT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5ET) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5ET->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__0ET)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__BFT=((__MEMORY *)blc__0ET);
- prev__CFT=Self__BFT->previous_free__LD;
- next__DFT=Self__BFT->next_free__KD;
- if (((void *)prev__CFT == (void *)NULL)) {
- first_free__LMD=next__DFT;
- } else {
- ((__MEMORY *)prev__CFT)->next_free__KD=next__DFT;
- };
- if (((void *)next__DFT != (void *)NULL)) {
- ((__MEMORY *)next__DFT)->previous_free__LD=prev__CFT;
- };
- pv__2ET=blc__0ET->previous_linear__ID;
- if ((pv__2ET != 4294967295LU)) {
- prev__1ET=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__2ET))));
- ((__MEMORY *)prev__1ET)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__1ET->size_and_id__JD + blc__0ET->size_and_id__JD) + 8);
- last_block[(idx__ZET)] = (prev__1ET);
- };
- };
- ((__POINTER *)result__AFT)[ 0]=((__POINTER )new_size__UZS);
- next__WZS=(void *)((unsigned long)result__AFT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__WZS)[ 0]=NULL;
- ((__POINTER *)ptr_table__VZS)[ 0]=next__WZS;
- } else {
- ((__POINTER *)result__XZS)[ 0]=(void *)((unsigned long)((__POINTER *)next__WZS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XZS=next__WZS;
- };
- };
- ((__POINTER *)result__XZS)[ 0]=((__POINTER ) 3);
- result__PZS=(void *)((unsigned long)result__XZS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__R2S=first_free__LMD;
- while ((((void *)result__R2S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__R2S)->size_and_id__JD & 4294967292LU) < new_size__RZS))) {
- result__R2S=result__R2S->next_free__KD;
- };
- if (((void *)result__R2S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__LOT=((__POINTER )(NULL));
- cap__MOT= 33554432;
- do {
- cap__MOT=(__UINTEGER_32)(cap__MOT << 1);
- mem__LOT=((__POINTER )(malloc((cap__MOT))));
- if ((mem__LOT != (void *)NULL)) {
- free((mem__LOT));
- };
- } while ((! ((mem__LOT == (void *)NULL) || (cap__MOT == 2147483648LU))));
- if ((mem__LOT == (void *)NULL)) {
- cap__MOT=(__UINTEGER_32)(cap__MOT >> 1);
- };
- capacity_max__NTD=cap__MOT;
- begin_memory__2RB=((__POINTER )(malloc((cap__MOT))));
- };
- old_size__OOT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__OOT + 67108864) > capacity_max__NTD)) {
- __tmp__POT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__QOT= 1;
- __tmp__ROT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__QOT <= __tmp__POT)) {
- fputc((int)(((__CHARACTER *)__tmp__ROT)[(__INTEGER)(Self__QOT - 1)]),stdout);
- Self__QOT=(__INTEGER)(Self__QOT + 1);
- };
- exit(( 1));
- };
- block__TOT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__OOT))));
- block__TOT->previous_linear__ID= 4294967295LU;
- block__TOT->size_and_id__JD= 67108858;
- block__TOT->next_free__KD=first_free__LMD;
- block__TOT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__TOT;
- };
- first_free__LMD=block__TOT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__TOT);
- result__R2S=block__TOT;
- };
- Self__U2S=((__MEMORY *)result__R2S);
- idx__V2S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__R2S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__W2S=NULL;
- prev__X2S=Self__U2S->previous_free__LD;
- next__Y2S=Self__U2S->next_free__KD;
- if (((void *)prev__X2S == (void *)NULL)) {
- first_free__LMD=next__Y2S;
- } else {
- ((__MEMORY *)prev__X2S)->next_free__KD=next__Y2S;
- };
- if (((void *)next__Y2S != (void *)NULL)) {
- ((__MEMORY *)next__Y2S)->previous_free__LD=prev__X2S;
- };
- siz__Z2S=Self__U2S->size_and_id__JD;
- new_size__02S=(__UINTEGER_32)(siz__Z2S - new_size__RZS);
- if ((new_size__02S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__Z2S=new_size__RZS;
- new__W2S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__U2S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RZS))));
- ((__MEMORY *)new__W2S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__U2S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__W2S)->size_and_id__JD=(__UINTEGER_32)(new_size__02S - 8);
- Self__12S=((__MEMORY *)new__W2S);
- Self__12S->next_free__KD=first_free__LMD;
- Self__12S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__12S;
- };
- first_free__LMD=Self__12S;
- if (((__UINTEGER_32)(((__MEMORY *)new__W2S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__V2S)] = (new__W2S);
- } else {
- Self__22S=((__MEMORY *)new__W2S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__22S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__22S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__W2S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__U2S->size_and_id__JD=(__UINTEGER_32)(siz__Z2S | 1);
- result__PZS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__R2S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__YZS=((void **)result__PZS);
- Self__ZZS=(__INTEGER)(new_count__2W - 1);
- while ((Self__ZZS >= 0)) {
- Result__YZS[Self__ZZS]=NULL;
- Self__ZZS=(__INTEGER)(Self__ZZS - 1);
- };
- Self__5RC->parent_arrayed_collection__QC.storage__FNC=Result__YZS;
- Self__5RC->parent_arrayed_collection__QC.capacity__ISC=new_count__2W;
- };
- Self__5RC->parent_arrayed_collection__QC.upper__USC=(__INTEGER)(- 1);
- result__KL=result__Q4;
- Self__HX= 0;
- limit_up__IX=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__HX <= limit_up__IX)) {
- arg__LL=((__CHARACTER *)(arg_vector[(Self__HX)]));
- Self__CFE=((__CHARACTER *)arg__LL);
- idx__OFE= 0;
- while ((! ((idx__OFE > 1024) || ('\0' == Self__CFE[idx__OFE])))) {
- idx__OFE=(__INTEGER)(idx__OFE + 1);
- };
- str__ML=create__Q3(idx__OFE);
- Self__5GE=((__STRING *)str__ML);
- p__AHE=arg__LL;
- i__BHE= 0;
- Self__5GE->count__DW= 0;
- while ((((__CHARACTER *)p__AHE)[i__BHE] != '\0')) {
- ch__ZDE=((__CHARACTER *)p__AHE)[i__BHE];
- new_capacity__0DE= 0;
- if ((Self__5GE->capacity__FW <= Self__5GE->count__DW)) {
- if ((Self__5GE->capacity__FW == 0)) {
- Self__5GE->capacity__FW= 32;
- result__3ZS=((__POINTER )(NULL));
- a__4ZS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5ZS=(__UINTEGER_32)((__UINTEGER_32)( 32 + a__4ZS) & (__UINTEGER_32)(~ a__4ZS));
- new_size2__A0S=(__UINTEGER_32)(new_size__5ZS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__A0S <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__B0S=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__C0S=(__UINTEGER_32)((__UINTEGER_32)(new_size2__A0S + a__B0S) & (__UINTEGER_32)(~ a__B0S));
- ptr_table__D0S=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__C0S / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__E0S=((__POINTER )(NULL));
- result__F0S=((__POINTER *)ptr_table__D0S)[ 0];
- if ((result__F0S == (void *)NULL)) {
- idx__FFT= 0;
- blc__GFT=NULL;
- prev__HFT=NULL;
- pv__IFT= 0;
- while_do__2AC__KFT:
- {
- if ((idx__FFT < nb_page__L2B)) {
- blc__GFT=((__MEMORY *)(last_block[(idx__FFT)]));
- __tmp__JFT=(((__UINTEGER_32)(((__MEMORY *)blc__GFT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__GFT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__JFT=FALSE__;
- };
- if (__tmp__JFT) {
- idx__FFT=(__UINTEGER_32)(idx__FFT + 1);
- goto while_do__2AC__KFT;
- };
- };
- if ((idx__FFT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__UOT=((__POINTER )(NULL));
- cap__VOT= 33554432;
- do {
- cap__VOT=(__UINTEGER_32)(cap__VOT << 1);
- mem__UOT=((__POINTER )(malloc((cap__VOT))));
- if ((mem__UOT != (void *)NULL)) {
- free((mem__UOT));
- };
- } while ((! ((mem__UOT == (void *)NULL) || (cap__VOT == 2147483648LU))));
- if ((mem__UOT == (void *)NULL)) {
- cap__VOT=(__UINTEGER_32)(cap__VOT >> 1);
- };
- capacity_max__NTD=cap__VOT;
- begin_memory__2RB=((__POINTER )(malloc((cap__VOT))));
- };
- old_size__XOT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__XOT + 67108864) > capacity_max__NTD)) {
- __tmp__YOT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__ZOT= 1;
- __tmp__0OT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__ZOT <= __tmp__YOT)) {
- fputc((int)(((__CHARACTER *)__tmp__0OT)[(__INTEGER)(Self__ZOT - 1)]),stdout);
- Self__ZOT=(__INTEGER)(Self__ZOT + 1);
- };
- exit(( 1));
- };
- block__2OT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__XOT))));
- block__2OT->previous_linear__ID= 4294967295LU;
- block__2OT->size_and_id__JD= 67108858;
- block__2OT->next_free__KD=first_free__LMD;
- block__2OT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__2OT;
- };
- first_free__LMD=block__2OT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__2OT);
- blc__GFT=block__2OT;
- };
- ((__MEMORY *)blc__GFT)->size_and_id__JD=(__UINTEGER_32)(blc__GFT->size_and_id__JD - 4096);
- Self__LFT=((__MEMORY *)blc__GFT);
- result__MFT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LFT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LFT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__GFT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__NFT=((__MEMORY *)blc__GFT);
- prev__OFT=Self__NFT->previous_free__LD;
- next__PFT=Self__NFT->next_free__KD;
- if (((void *)prev__OFT == (void *)NULL)) {
- first_free__LMD=next__PFT;
- } else {
- ((__MEMORY *)prev__OFT)->next_free__KD=next__PFT;
- };
- if (((void *)next__PFT != (void *)NULL)) {
- ((__MEMORY *)next__PFT)->previous_free__LD=prev__OFT;
- };
- pv__IFT=blc__GFT->previous_linear__ID;
- if ((pv__IFT != 4294967295LU)) {
- prev__HFT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__IFT))));
- ((__MEMORY *)prev__HFT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__HFT->size_and_id__JD + blc__GFT->size_and_id__JD) + 8);
- last_block[(idx__FFT)] = (prev__HFT);
- };
- };
- ((__POINTER *)result__MFT)[ 0]=((__POINTER )new_size__C0S);
- result__F0S=(void *)((unsigned long)result__MFT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__E0S=(void *)((unsigned long)result__F0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C0S)));
- ((__POINTER *)next__E0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__D0S)[ 0]=next__E0S;
- } else {
- next__E0S=((__POINTER *)result__F0S)[ 0];
- if ((next__E0S == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F0S - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__C0S << 1)) <= 4096)) {
- next__E0S=(void *)((unsigned long)result__F0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C0S)));
- } else {
- idx__RFT= 0;
- blc__SFT=NULL;
- prev__TFT=NULL;
- pv__UFT= 0;
- while_do__2AC__WFT:
- {
- if ((idx__RFT < nb_page__L2B)) {
- blc__SFT=((__MEMORY *)(last_block[(idx__RFT)]));
- __tmp__VFT=(((__UINTEGER_32)(((__MEMORY *)blc__SFT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__SFT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__VFT=FALSE__;
- };
- if (__tmp__VFT) {
- idx__RFT=(__UINTEGER_32)(idx__RFT + 1);
- goto while_do__2AC__WFT;
- };
- };
- if ((idx__RFT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__3OT=((__POINTER )(NULL));
- cap__4OT= 33554432;
- do {
- cap__4OT=(__UINTEGER_32)(cap__4OT << 1);
- mem__3OT=((__POINTER )(malloc((cap__4OT))));
- if ((mem__3OT != (void *)NULL)) {
- free((mem__3OT));
- };
- } while ((! ((mem__3OT == (void *)NULL) || (cap__4OT == 2147483648LU))));
- if ((mem__3OT == (void *)NULL)) {
- cap__4OT=(__UINTEGER_32)(cap__4OT >> 1);
- };
- capacity_max__NTD=cap__4OT;
- begin_memory__2RB=((__POINTER )(malloc((cap__4OT))));
- };
- old_size__APT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__APT + 67108864) > capacity_max__NTD)) {
- __tmp__BPT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__CPT= 1;
- __tmp__DPT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__CPT <= __tmp__BPT)) {
- fputc((int)(((__CHARACTER *)__tmp__DPT)[(__INTEGER)(Self__CPT - 1)]),stdout);
- Self__CPT=(__INTEGER)(Self__CPT + 1);
- };
- exit(( 1));
- };
- block__FPT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__APT))));
- block__FPT->previous_linear__ID= 4294967295LU;
- block__FPT->size_and_id__JD= 67108858;
- block__FPT->next_free__KD=first_free__LMD;
- block__FPT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__FPT;
- };
- first_free__LMD=block__FPT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__FPT);
- blc__SFT=block__FPT;
- };
- ((__MEMORY *)blc__SFT)->size_and_id__JD=(__UINTEGER_32)(blc__SFT->size_and_id__JD - 4096);
- Self__XFT=((__MEMORY *)blc__SFT);
- result__YFT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__XFT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__XFT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__SFT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__ZFT=((__MEMORY *)blc__SFT);
- prev__0FT=Self__ZFT->previous_free__LD;
- next__1FT=Self__ZFT->next_free__KD;
- if (((void *)prev__0FT == (void *)NULL)) {
- first_free__LMD=next__1FT;
- } else {
- ((__MEMORY *)prev__0FT)->next_free__KD=next__1FT;
- };
- if (((void *)next__1FT != (void *)NULL)) {
- ((__MEMORY *)next__1FT)->previous_free__LD=prev__0FT;
- };
- pv__UFT=blc__SFT->previous_linear__ID;
- if ((pv__UFT != 4294967295LU)) {
- prev__TFT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__UFT))));
- ((__MEMORY *)prev__TFT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__TFT->size_and_id__JD + blc__SFT->size_and_id__JD) + 8);
- last_block[(idx__RFT)] = (prev__TFT);
- };
- };
- ((__POINTER *)result__YFT)[ 0]=((__POINTER )new_size__C0S);
- next__E0S=(void *)((unsigned long)result__YFT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__E0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__D0S)[ 0]=next__E0S;
- } else {
- ((__POINTER *)result__F0S)[ 0]=(void *)((unsigned long)((__POINTER *)next__E0S)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__F0S=next__E0S;
- };
- };
- ((__POINTER *)result__F0S)[ 0]=((__POINTER ) 3);
- result__3ZS=(void *)((unsigned long)result__F0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__32S=first_free__LMD;
- while ((((void *)result__32S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__32S)->size_and_id__JD & 4294967292LU) < new_size__5ZS))) {
- result__32S=result__32S->next_free__KD;
- };
- if (((void *)result__32S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__GPT=((__POINTER )(NULL));
- cap__HPT= 33554432;
- do {
- cap__HPT=(__UINTEGER_32)(cap__HPT << 1);
- mem__GPT=((__POINTER )(malloc((cap__HPT))));
- if ((mem__GPT != (void *)NULL)) {
- free((mem__GPT));
- };
- } while ((! ((mem__GPT == (void *)NULL) || (cap__HPT == 2147483648LU))));
- if ((mem__GPT == (void *)NULL)) {
- cap__HPT=(__UINTEGER_32)(cap__HPT >> 1);
- };
- capacity_max__NTD=cap__HPT;
- begin_memory__2RB=((__POINTER )(malloc((cap__HPT))));
- };
- old_size__JPT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__JPT + 67108864) > capacity_max__NTD)) {
- __tmp__KPT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__LPT= 1;
- __tmp__MPT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__LPT <= __tmp__KPT)) {
- fputc((int)(((__CHARACTER *)__tmp__MPT)[(__INTEGER)(Self__LPT - 1)]),stdout);
- Self__LPT=(__INTEGER)(Self__LPT + 1);
- };
- exit(( 1));
- };
- block__OPT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__JPT))));
- block__OPT->previous_linear__ID= 4294967295LU;
- block__OPT->size_and_id__JD= 67108858;
- block__OPT->next_free__KD=first_free__LMD;
- block__OPT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__OPT;
- };
- first_free__LMD=block__OPT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__OPT);
- result__32S=block__OPT;
- };
- Self__A3S=((__MEMORY *)result__32S);
- idx__B3S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__32S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__C3S=NULL;
- prev__D3S=Self__A3S->previous_free__LD;
- next__E3S=Self__A3S->next_free__KD;
- if (((void *)prev__D3S == (void *)NULL)) {
- first_free__LMD=next__E3S;
- } else {
- ((__MEMORY *)prev__D3S)->next_free__KD=next__E3S;
- };
- if (((void *)next__E3S != (void *)NULL)) {
- ((__MEMORY *)next__E3S)->previous_free__LD=prev__D3S;
- };
- siz__F3S=Self__A3S->size_and_id__JD;
- new_size__G3S=(__UINTEGER_32)(siz__F3S - new_size__5ZS);
- if ((new_size__G3S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__F3S=new_size__5ZS;
- new__C3S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__A3S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ZS))));
- ((__MEMORY *)new__C3S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__A3S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__C3S)->size_and_id__JD=(__UINTEGER_32)(new_size__G3S - 8);
- Self__H3S=((__MEMORY *)new__C3S);
- Self__H3S->next_free__KD=first_free__LMD;
- Self__H3S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__H3S;
- };
- first_free__LMD=Self__H3S;
- if (((__UINTEGER_32)(((__MEMORY *)new__C3S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__B3S)] = (new__C3S);
- } else {
- Self__I3S=((__MEMORY *)new__C3S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__I3S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__I3S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__C3S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__A3S->size_and_id__JD=(__UINTEGER_32)(siz__F3S | 1);
- result__3ZS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__32S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__G0S=((__CHARACTER *)result__3ZS);
- Self__H0S= 31;
- while ((Self__H0S >= 0)) {
- Result__G0S[Self__H0S]='\0';
- Self__H0S=(__INTEGER)(Self__H0S - 1);
- };
- Self__5GE->storage__2QC=Result__G0S;
- } else {
- new_capacity__0DE=(__INTEGER)(Self__5GE->capacity__FW << 1);
- __tmp__SEE=Self__5GE->storage__2QC;
- __tmp__TEE=Self__5GE->capacity__FW;
- new__CSH=((__CHARACTER *)realloc_dynamic__old_size__new_size__CGI(((__POINTER )((__CHARACTER *)__tmp__SEE)),((__UINTEGER_32 )__tmp__TEE),((__UINTEGER_32 )new_capacity__0DE)));
- __tmp__VSH=(__INTEGER)(new_capacity__0DE - 1);
- Self__SYL=__tmp__TEE;
- while ((Self__SYL <= __tmp__VSH)) {
- new__CSH[Self__SYL]='\0';
- Self__SYL=(__INTEGER)(Self__SYL + 1);
- };
- Self__5GE->storage__2QC=new__CSH;
- Self__5GE->capacity__FW=new_capacity__0DE;
- };
- };
- ((__CHARACTER *)Self__5GE->storage__2QC)[Self__5GE->count__DW]=ch__ZDE;
- Self__5GE->count__DW=(__INTEGER)(Self__5GE->count__DW + 1);
- i__BHE=(__INTEGER)(i__BHE + 1);
- };
- Self__ZHE=((__FAST_ARRAYoSTRINGo *)result__KL);
- new_capacity__1HE= 0;
- if (((__INTEGER)(Self__ZHE->parent_arrayed_collection__QC.upper__USC + 1) <= (__INTEGER)(Self__ZHE->parent_arrayed_collection__QC.capacity__ISC - 1))) {
- Self__ZHE->parent_arrayed_collection__QC.upper__USC=(__INTEGER)(Self__ZHE->parent_arrayed_collection__QC.upper__USC + 1);
- __tmp__JIE=TRUE__;
- } else {
- __tmp__JIE=FALSE__;
- };
- if ((! __tmp__JIE)) {
- if ((Self__ZHE->parent_arrayed_collection__QC.capacity__ISC == 0)) {
- sz__DVS=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) << 1));
- result__BVS=((__POINTER )(NULL));
- a__CVS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EVS=(__UINTEGER_32)((__UINTEGER_32)(sz__DVS + a__CVS) & (__UINTEGER_32)(~ a__CVS));
- new_size2__FVS=(__UINTEGER_32)(new_size__EVS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FVS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GVS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HVS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FVS + a__GVS) & (__UINTEGER_32)(~ a__GVS));
- ptr_table__OVS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HVS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NVS=((__POINTER )(NULL));
- result__PVS=((__POINTER *)ptr_table__OVS)[ 0];
- if ((result__PVS == (void *)NULL)) {
- idx__3FT= 0;
- blc__4FT=NULL;
- prev__5FT=NULL;
- pv__AGT= 0;
- while_do__2AC__CGT:
- {
- if ((idx__3FT < nb_page__L2B)) {
- blc__4FT=((__MEMORY *)(last_block[(idx__3FT)]));
- __tmp__BGT=(((__UINTEGER_32)(((__MEMORY *)blc__4FT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__4FT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__BGT=FALSE__;
- };
- if (__tmp__BGT) {
- idx__3FT=(__UINTEGER_32)(idx__3FT + 1);
- goto while_do__2AC__CGT;
- };
- };
- if ((idx__3FT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__PPT=((__POINTER )(NULL));
- cap__QPT= 33554432;
- do {
- cap__QPT=(__UINTEGER_32)(cap__QPT << 1);
- mem__PPT=((__POINTER )(malloc((cap__QPT))));
- if ((mem__PPT != (void *)NULL)) {
- free((mem__PPT));
- };
- } while ((! ((mem__PPT == (void *)NULL) || (cap__QPT == 2147483648LU))));
- if ((mem__PPT == (void *)NULL)) {
- cap__QPT=(__UINTEGER_32)(cap__QPT >> 1);
- };
- capacity_max__NTD=cap__QPT;
- begin_memory__2RB=((__POINTER )(malloc((cap__QPT))));
- };
- old_size__SPT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__SPT + 67108864) > capacity_max__NTD)) {
- __tmp__TPT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__UPT= 1;
- __tmp__VPT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__UPT <= __tmp__TPT)) {
- fputc((int)(((__CHARACTER *)__tmp__VPT)[(__INTEGER)(Self__UPT - 1)]),stdout);
- Self__UPT=(__INTEGER)(Self__UPT + 1);
- };
- exit(( 1));
- };
- block__XPT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__SPT))));
- block__XPT->previous_linear__ID= 4294967295LU;
- block__XPT->size_and_id__JD= 67108858;
- block__XPT->next_free__KD=first_free__LMD;
- block__XPT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__XPT;
- };
- first_free__LMD=block__XPT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__XPT);
- blc__4FT=block__XPT;
- };
- ((__MEMORY *)blc__4FT)->size_and_id__JD=(__UINTEGER_32)(blc__4FT->size_and_id__JD - 4096);
- Self__DGT=((__MEMORY *)blc__4FT);
- result__EGT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__DGT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__DGT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__4FT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__FGT=((__MEMORY *)blc__4FT);
- prev__GGT=Self__FGT->previous_free__LD;
- next__HGT=Self__FGT->next_free__KD;
- if (((void *)prev__GGT == (void *)NULL)) {
- first_free__LMD=next__HGT;
- } else {
- ((__MEMORY *)prev__GGT)->next_free__KD=next__HGT;
- };
- if (((void *)next__HGT != (void *)NULL)) {
- ((__MEMORY *)next__HGT)->previous_free__LD=prev__GGT;
- };
- pv__AGT=blc__4FT->previous_linear__ID;
- if ((pv__AGT != 4294967295LU)) {
- prev__5FT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__AGT))));
- ((__MEMORY *)prev__5FT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__5FT->size_and_id__JD + blc__4FT->size_and_id__JD) + 8);
- last_block[(idx__3FT)] = (prev__5FT);
- };
- };
- ((__POINTER *)result__EGT)[ 0]=((__POINTER )new_size__HVS);
- result__PVS=(void *)((unsigned long)result__EGT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__NVS=(void *)((unsigned long)result__PVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVS)));
- ((__POINTER *)next__NVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__OVS)[ 0]=next__NVS;
- } else {
- next__NVS=((__POINTER *)result__PVS)[ 0];
- if ((next__NVS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PVS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__HVS << 1)) <= 4096)) {
- next__NVS=(void *)((unsigned long)result__PVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVS)));
- } else {
- idx__JGT= 0;
- blc__KGT=NULL;
- prev__LGT=NULL;
- pv__MGT= 0;
- while_do__2AC__OGT:
- {
- if ((idx__JGT < nb_page__L2B)) {
- blc__KGT=((__MEMORY *)(last_block[(idx__JGT)]));
- __tmp__NGT=(((__UINTEGER_32)(((__MEMORY *)blc__KGT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__KGT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__NGT=FALSE__;
- };
- if (__tmp__NGT) {
- idx__JGT=(__UINTEGER_32)(idx__JGT + 1);
- goto while_do__2AC__OGT;
- };
- };
- if ((idx__JGT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__YPT=((__POINTER )(NULL));
- cap__ZPT= 33554432;
- do {
- cap__ZPT=(__UINTEGER_32)(cap__ZPT << 1);
- mem__YPT=((__POINTER )(malloc((cap__ZPT))));
- if ((mem__YPT != (void *)NULL)) {
- free((mem__YPT));
- };
- } while ((! ((mem__YPT == (void *)NULL) || (cap__ZPT == 2147483648LU))));
- if ((mem__YPT == (void *)NULL)) {
- cap__ZPT=(__UINTEGER_32)(cap__ZPT >> 1);
- };
- capacity_max__NTD=cap__ZPT;
- begin_memory__2RB=((__POINTER )(malloc((cap__ZPT))));
- };
- old_size__1PT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__1PT + 67108864) > capacity_max__NTD)) {
- __tmp__2PT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__3PT= 1;
- __tmp__4PT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__3PT <= __tmp__2PT)) {
- fputc((int)(((__CHARACTER *)__tmp__4PT)[(__INTEGER)(Self__3PT - 1)]),stdout);
- Self__3PT=(__INTEGER)(Self__3PT + 1);
- };
- exit(( 1));
- };
- block__AQT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__1PT))));
- block__AQT->previous_linear__ID= 4294967295LU;
- block__AQT->size_and_id__JD= 67108858;
- block__AQT->next_free__KD=first_free__LMD;
- block__AQT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__AQT;
- };
- first_free__LMD=block__AQT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__AQT);
- blc__KGT=block__AQT;
- };
- ((__MEMORY *)blc__KGT)->size_and_id__JD=(__UINTEGER_32)(blc__KGT->size_and_id__JD - 4096);
- Self__PGT=((__MEMORY *)blc__KGT);
- result__QGT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PGT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__PGT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__KGT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__RGT=((__MEMORY *)blc__KGT);
- prev__SGT=Self__RGT->previous_free__LD;
- next__TGT=Self__RGT->next_free__KD;
- if (((void *)prev__SGT == (void *)NULL)) {
- first_free__LMD=next__TGT;
- } else {
- ((__MEMORY *)prev__SGT)->next_free__KD=next__TGT;
- };
- if (((void *)next__TGT != (void *)NULL)) {
- ((__MEMORY *)next__TGT)->previous_free__LD=prev__SGT;
- };
- pv__MGT=blc__KGT->previous_linear__ID;
- if ((pv__MGT != 4294967295LU)) {
- prev__LGT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__MGT))));
- ((__MEMORY *)prev__LGT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__LGT->size_and_id__JD + blc__KGT->size_and_id__JD) + 8);
- last_block[(idx__JGT)] = (prev__LGT);
- };
- };
- ((__POINTER *)result__QGT)[ 0]=((__POINTER )new_size__HVS);
- next__NVS=(void *)((unsigned long)result__QGT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__NVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__OVS)[ 0]=next__NVS;
- } else {
- ((__POINTER *)result__PVS)[ 0]=(void *)((unsigned long)((__POINTER *)next__NVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PVS=next__NVS;
- };
- };
- ((__POINTER *)result__PVS)[ 0]=((__POINTER ) 3);
- result__BVS=(void *)((unsigned long)result__PVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__J3S=first_free__LMD;
- while ((((void *)result__J3S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__J3S)->size_and_id__JD & 4294967292LU) < new_size__EVS))) {
- result__J3S=result__J3S->next_free__KD;
- };
- if (((void *)result__J3S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__BQT=((__POINTER )(NULL));
- cap__CQT= 33554432;
- do {
- cap__CQT=(__UINTEGER_32)(cap__CQT << 1);
- mem__BQT=((__POINTER )(malloc((cap__CQT))));
- if ((mem__BQT != (void *)NULL)) {
- free((mem__BQT));
- };
- } while ((! ((mem__BQT == (void *)NULL) || (cap__CQT == 2147483648LU))));
- if ((mem__BQT == (void *)NULL)) {
- cap__CQT=(__UINTEGER_32)(cap__CQT >> 1);
- };
- capacity_max__NTD=cap__CQT;
- begin_memory__2RB=((__POINTER )(malloc((cap__CQT))));
- };
- old_size__EQT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__EQT + 67108864) > capacity_max__NTD)) {
- __tmp__FQT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__GQT= 1;
- __tmp__HQT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__GQT <= __tmp__FQT)) {
- fputc((int)(((__CHARACTER *)__tmp__HQT)[(__INTEGER)(Self__GQT - 1)]),stdout);
- Self__GQT=(__INTEGER)(Self__GQT + 1);
- };
- exit(( 1));
- };
- block__JQT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__EQT))));
- block__JQT->previous_linear__ID= 4294967295LU;
- block__JQT->size_and_id__JD= 67108858;
- block__JQT->next_free__KD=first_free__LMD;
- block__JQT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__JQT;
- };
- first_free__LMD=block__JQT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__JQT);
- result__J3S=block__JQT;
- };
- Self__M3S=((__MEMORY *)result__J3S);
- idx__N3S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__J3S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__O3S=NULL;
- prev__P3S=Self__M3S->previous_free__LD;
- next__Q3S=Self__M3S->next_free__KD;
- if (((void *)prev__P3S == (void *)NULL)) {
- first_free__LMD=next__Q3S;
- } else {
- ((__MEMORY *)prev__P3S)->next_free__KD=next__Q3S;
- };
- if (((void *)next__Q3S != (void *)NULL)) {
- ((__MEMORY *)next__Q3S)->previous_free__LD=prev__P3S;
- };
- siz__R3S=Self__M3S->size_and_id__JD;
- new_size__S3S=(__UINTEGER_32)(siz__R3S - new_size__EVS);
- if ((new_size__S3S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__R3S=new_size__EVS;
- new__O3S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__M3S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EVS))));
- ((__MEMORY *)new__O3S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__M3S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__O3S)->size_and_id__JD=(__UINTEGER_32)(new_size__S3S - 8);
- Self__T3S=((__MEMORY *)new__O3S);
- Self__T3S->next_free__KD=first_free__LMD;
- Self__T3S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__T3S;
- };
- first_free__LMD=Self__T3S;
- if (((__UINTEGER_32)(((__MEMORY *)new__O3S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__N3S)] = (new__O3S);
- } else {
- Self__U3S=((__MEMORY *)new__O3S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__U3S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__U3S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__O3S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__M3S->size_and_id__JD=(__UINTEGER_32)(siz__R3S | 1);
- result__BVS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__J3S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__DOG=((void **)result__BVS);
- Self__KOI= 1;
- while ((Self__KOI >= 0)) {
- Result__DOG[Self__KOI]=NULL;
- Self__KOI=(__INTEGER)(Self__KOI - 1);
- };
- Self__ZHE->parent_arrayed_collection__QC.storage__FNC=Result__DOG;
- Self__ZHE->parent_arrayed_collection__QC.capacity__ISC= 2;
- Self__ZHE->parent_arrayed_collection__QC.upper__USC= 0;
- } else {
- new_capacity__1HE=(__INTEGER)(Self__ZHE->parent_arrayed_collection__QC.capacity__ISC << 1);
- __tmp__4IE=Self__ZHE->parent_arrayed_collection__QC.storage__FNC;
- __tmp__5IE=Self__ZHE->parent_arrayed_collection__QC.capacity__ISC;
- new__ZTH=((void **)realloc_dynamic__old_size__new_size__CGI(((__POINTER )((void **)__tmp__4IE)),((__UINTEGER_32 )(__INTEGER)(__tmp__5IE * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__1HE * ((__INTEGER )(sizeof(void *)))))));
- __tmp__MUH=(__INTEGER)(new_capacity__1HE - 1);
- Self__R0L=__tmp__5IE;
- while ((Self__R0L <= __tmp__MUH)) {
- new__ZTH[Self__R0L]=NULL;
- Self__R0L=(__INTEGER)(Self__R0L + 1);
- };
- Self__ZHE->parent_arrayed_collection__QC.storage__FNC=new__ZTH;
- Self__ZHE->parent_arrayed_collection__QC.capacity__ISC=new_capacity__1HE;
- Self__ZHE->parent_arrayed_collection__QC.upper__USC=(__INTEGER)(Self__ZHE->parent_arrayed_collection__QC.upper__USC + 1);
- };
- };
- ((void **)Self__ZHE->parent_arrayed_collection__QC.storage__FNC)[Self__ZHE->parent_arrayed_collection__QC.upper__USC]=str__ML;
- Self__HX=(__INTEGER)(Self__HX + 1);
- };
- nbodies__AB= 0;
- bodies__GB=NULL;
- pi__GR=((__REAL_64 )(3.141592653589793));
- solar_mass__ZD=(__REAL_64)((__REAL_64)(pi__GR * pi__GR) * ((__REAL_64 )4.0));
- PLANET__->mass__1D=((__REAL_64 ) 0);
- PLANET__->x__5D=((__REAL_64 ) 0);
- PLANET__->y__BE=((__REAL_64 ) 0);
- PLANET__->z__DE=((__REAL_64 ) 0);
- days_per_year__FE=((__REAL_64 )365.24);
- PLANET__->vx__IE=((__REAL_64 ) 0);
- PLANET__->vy__ME=((__REAL_64 ) 0);
- PLANET__->vz__QE=((__REAL_64 ) 0);
- string_tmp__TK=create__Q3( 32);
- b__VXD=NULL;
- b2__AYD=NULL;
- dx__GYD=((__REAL_64 ) 0);
- dy__MYD=((__REAL_64 ) 0);
- dz__SYD=((__REAL_64 ) 0);
- distance__AZD=((__REAL_64 ) 0);
- mag__IZD=((__REAL_64 ) 0);
- Self__JIL=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__Q4)->parent_arrayed_collection__QC.storage__FNC)[ 1]);
- state__MIL= 0;
- cc__NIL='\0';
- negative__OIL=FALSE__;
- result__PIL= 0;
- i__LIL= 1;
- __tmp__JTS=Self__JIL->count__DW;
- __tmp__KTS=Self__JIL->storage__2QC;
- __tmp__LTS=Self__JIL->count__DW;
- while ((i__LIL <= __tmp__JTS)) {
- cc__NIL=((__CHARACTER *)__tmp__KTS)[(__INTEGER)(i__LIL - 1)];
- if ((state__MIL == 0)) {
- if ((((((((cc__NIL == ' ') || (cc__NIL == '\t')) || (cc__NIL == '\n')) || (cc__NIL == '\r')) || (cc__NIL == '\0')) || (cc__NIL == '\f')) || (cc__NIL == '\v'))) {
- __tmp__1JL=TRUE__;
- } else {
- result__T3P=(cc__NIL == '+');
- if (result__T3P) {
- state__MIL= 1;
- };
- __tmp__1JL=result__T3P;
- };
- if ((! __tmp__1JL)) {
- if ((cc__NIL == '-')) {
- negative__OIL=TRUE__;
- state__MIL= 1;
- } else {
- result__PIL=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__NIL)) - 48);
- state__MIL= 2;
- };
- };
- __tmp__OKL=TRUE__;
- } else {
- __tmp__OKL=FALSE__;
- };
- if (__tmp__OKL) {
- __tmp__DLL=TRUE__;
- } else {
- result__QRO=(state__MIL == 1);
- if (result__QRO) {
- result__PIL=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__NIL)) - 48);
- if (negative__OIL) {
- result__PIL=(__INTEGER)(- result__PIL);
- };
- state__MIL= 2;
- };
- __tmp__DLL=result__QRO;
- };
- if (__tmp__DLL) {
- __tmp__KML=TRUE__;
- } else {
- result__CSO=(state__MIL == 2);
- if (result__CSO) {
- result__JFP=FALSE__;
- if ((((__INTEGER_8 )cc__NIL) >= ((__INTEGER_8 )'0'))) {
- result__JFP=(((__INTEGER_8 )cc__NIL) <= ((__INTEGER_8 )'9'));
- };
- if (result__JFP) {
- if (negative__OIL) {
- result__PIL=(__INTEGER)((__INTEGER)( 10 * result__PIL) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__NIL)) - 48));
- } else {
- result__PIL=(__INTEGER)((__INTEGER)( 10 * result__PIL) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__NIL)) - 48));
- };
- } else {
- state__MIL= 3;
- };
- };
- __tmp__KML=result__CSO;
- };
- if ((! __tmp__KML)) {
- if ((state__MIL == 3)) {
- i__LIL=__tmp__LTS;
- };
- };
- i__LIL=(__INTEGER)(i__LIL + 1);
- };
- nbodies__AB= 4;
- sz__ZUS=((__UINTEGER_32 )(__INTEGER)(sizeof(__PLANET) << 2));
- result__XUS=((__POINTER )(NULL));
- a__YUS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0US=(__UINTEGER_32)((__UINTEGER_32)(sz__ZUS + a__YUS) & (__UINTEGER_32)(~ a__YUS));
- new_size2__1US=(__UINTEGER_32)(new_size__0US + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__1US <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__2US=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3US=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1US + a__2US) & (__UINTEGER_32)(~ a__2US));
- ptr_table__CQB=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3US / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__HQB=((__POINTER )(NULL));
- result__FQB=((__POINTER *)ptr_table__CQB)[ 0];
- if ((result__FQB == (void *)NULL)) {
- idx__VGT= 0;
- blc__WGT=NULL;
- prev__XGT=NULL;
- pv__YGT= 0;
- while_do__2AC__0GT:
- {
- if ((idx__VGT < nb_page__L2B)) {
- blc__WGT=((__MEMORY *)(last_block[(idx__VGT)]));
- __tmp__ZGT=(((__UINTEGER_32)(((__MEMORY *)blc__WGT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__WGT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__ZGT=FALSE__;
- };
- if (__tmp__ZGT) {
- idx__VGT=(__UINTEGER_32)(idx__VGT + 1);
- goto while_do__2AC__0GT;
- };
- };
- if ((idx__VGT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__KQT=((__POINTER )(NULL));
- cap__LQT= 33554432;
- do {
- cap__LQT=(__UINTEGER_32)(cap__LQT << 1);
- mem__KQT=((__POINTER )(malloc((cap__LQT))));
- if ((mem__KQT != (void *)NULL)) {
- free((mem__KQT));
- };
- } while ((! ((mem__KQT == (void *)NULL) || (cap__LQT == 2147483648LU))));
- if ((mem__KQT == (void *)NULL)) {
- cap__LQT=(__UINTEGER_32)(cap__LQT >> 1);
- };
- capacity_max__NTD=cap__LQT;
- begin_memory__2RB=((__POINTER )(malloc((cap__LQT))));
- };
- old_size__NQT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__NQT + 67108864) > capacity_max__NTD)) {
- __tmp__OQT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__PQT= 1;
- __tmp__QQT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__PQT <= __tmp__OQT)) {
- fputc((int)(((__CHARACTER *)__tmp__QQT)[(__INTEGER)(Self__PQT - 1)]),stdout);
- Self__PQT=(__INTEGER)(Self__PQT + 1);
- };
- exit(( 1));
- };
- block__SQT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__NQT))));
- block__SQT->previous_linear__ID= 4294967295LU;
- block__SQT->size_and_id__JD= 67108858;
- block__SQT->next_free__KD=first_free__LMD;
- block__SQT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__SQT;
- };
- first_free__LMD=block__SQT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__SQT);
- blc__WGT=block__SQT;
- };
- ((__MEMORY *)blc__WGT)->size_and_id__JD=(__UINTEGER_32)(blc__WGT->size_and_id__JD - 4096);
- Self__1GT=((__MEMORY *)blc__WGT);
- result__2GT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1GT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1GT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__WGT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__3GT=((__MEMORY *)blc__WGT);
- prev__4GT=Self__3GT->previous_free__LD;
- next__5GT=Self__3GT->next_free__KD;
- if (((void *)prev__4GT == (void *)NULL)) {
- first_free__LMD=next__5GT;
- } else {
- ((__MEMORY *)prev__4GT)->next_free__KD=next__5GT;
- };
- if (((void *)next__5GT != (void *)NULL)) {
- ((__MEMORY *)next__5GT)->previous_free__LD=prev__4GT;
- };
- pv__YGT=blc__WGT->previous_linear__ID;
- if ((pv__YGT != 4294967295LU)) {
- prev__XGT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__YGT))));
- ((__MEMORY *)prev__XGT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__XGT->size_and_id__JD + blc__WGT->size_and_id__JD) + 8);
- last_block[(idx__VGT)] = (prev__XGT);
- };
- };
- ((__POINTER *)result__2GT)[ 0]=((__POINTER )new_size__3US);
- result__FQB=(void *)((unsigned long)result__2GT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__HQB=(void *)((unsigned long)result__FQB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3US)));
- ((__POINTER *)next__HQB)[ 0]=NULL;
- ((__POINTER *)ptr_table__CQB)[ 0]=next__HQB;
- } else {
- next__HQB=((__POINTER *)result__FQB)[ 0];
- if ((next__HQB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FQB - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__3US << 1)) <= 4096)) {
- next__HQB=(void *)((unsigned long)result__FQB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3US)));
- } else {
- idx__31B= 0;
- blc__A2B=NULL;
- prev__B2B=NULL;
- pv__E2B= 0;
- while_do__2AC:
- {
- if ((idx__31B < nb_page__L2B)) {
- blc__A2B=((__MEMORY *)(last_block[(idx__31B)]));
- __tmp__E3B=(((__UINTEGER_32)(((__MEMORY *)blc__A2B)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__A2B)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__E3B=FALSE__;
- };
- if (__tmp__E3B) {
- idx__31B=(__UINTEGER_32)(idx__31B + 1);
- goto while_do__2AC;
- };
- };
- if ((idx__31B >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__TQT=((__POINTER )(NULL));
- cap__UQT= 33554432;
- do {
- cap__UQT=(__UINTEGER_32)(cap__UQT << 1);
- mem__TQT=((__POINTER )(malloc((cap__UQT))));
- if ((mem__TQT != (void *)NULL)) {
- free((mem__TQT));
- };
- } while ((! ((mem__TQT == (void *)NULL) || (cap__UQT == 2147483648LU))));
- if ((mem__TQT == (void *)NULL)) {
- cap__UQT=(__UINTEGER_32)(cap__UQT >> 1);
- };
- capacity_max__NTD=cap__UQT;
- begin_memory__2RB=((__POINTER )(malloc((cap__UQT))));
- };
- old_size__WQT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__WQT + 67108864) > capacity_max__NTD)) {
- __tmp__XQT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__YQT= 1;
- __tmp__ZQT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__YQT <= __tmp__XQT)) {
- fputc((int)(((__CHARACTER *)__tmp__ZQT)[(__INTEGER)(Self__YQT - 1)]),stdout);
- Self__YQT=(__INTEGER)(Self__YQT + 1);
- };
- exit(( 1));
- };
- block__1QT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__WQT))));
- block__1QT->previous_linear__ID= 4294967295LU;
- block__1QT->size_and_id__JD= 67108858;
- block__1QT->next_free__KD=first_free__LMD;
- block__1QT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__1QT;
- };
- first_free__LMD=block__1QT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__1QT);
- blc__A2B=block__1QT;
- };
- ((__MEMORY *)blc__A2B)->size_and_id__JD=(__UINTEGER_32)(blc__A2B->size_and_id__JD - 4096);
- Self__TES=((__MEMORY *)blc__A2B);
- result__C2B=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TES) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TES->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__A2B)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__0PS=((__MEMORY *)blc__A2B);
- prev__1PS=Self__0PS->previous_free__LD;
- next__2PS=Self__0PS->next_free__KD;
- if (((void *)prev__1PS == (void *)NULL)) {
- first_free__LMD=next__2PS;
- } else {
- ((__MEMORY *)prev__1PS)->next_free__KD=next__2PS;
- };
- if (((void *)next__2PS != (void *)NULL)) {
- ((__MEMORY *)next__2PS)->previous_free__LD=prev__1PS;
- };
- pv__E2B=blc__A2B->previous_linear__ID;
- if ((pv__E2B != 4294967295LU)) {
- prev__B2B=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__E2B))));
- ((__MEMORY *)prev__B2B)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__B2B->size_and_id__JD + blc__A2B->size_and_id__JD) + 8);
- last_block[(idx__31B)] = (prev__B2B);
- };
- };
- ((__POINTER *)result__C2B)[ 0]=((__POINTER )new_size__3US);
- next__HQB=(void *)((unsigned long)result__C2B - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__HQB)[ 0]=NULL;
- ((__POINTER *)ptr_table__CQB)[ 0]=next__HQB;
- } else {
- ((__POINTER *)result__FQB)[ 0]=(void *)((unsigned long)((__POINTER *)next__HQB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FQB=next__HQB;
- };
- };
- ((__POINTER *)result__FQB)[ 0]=((__POINTER ) 3);
- result__XUS=(void *)((unsigned long)result__FQB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__MLD=first_free__LMD;
- while ((((void *)result__MLD != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__MLD)->size_and_id__JD & 4294967292LU) < new_size__0US))) {
- result__MLD=result__MLD->next_free__KD;
- };
- if (((void *)result__MLD == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__5MF=((__POINTER )(NULL));
- cap__2MF= 33554432;
- do {
- cap__2MF=(__UINTEGER_32)(cap__2MF << 1);
- mem__5MF=((__POINTER )(malloc((cap__2MF))));
- if ((mem__5MF != (void *)NULL)) {
- free((mem__5MF));
- };
- } while ((! ((mem__5MF == (void *)NULL) || (cap__2MF == 2147483648LU))));
- if ((mem__5MF == (void *)NULL)) {
- cap__2MF=(__UINTEGER_32)(cap__2MF >> 1);
- };
- capacity_max__NTD=cap__2MF;
- begin_memory__2RB=((__POINTER )(malloc((cap__2MF))));
- };
- old_size__GTD=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__GTD + 67108864) > capacity_max__NTD)) {
- __tmp__U5C=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__RKD= 1;
- __tmp__1SS=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__RKD <= __tmp__U5C)) {
- fputc((int)(((__CHARACTER *)__tmp__1SS)[(__INTEGER)(Self__RKD - 1)]),stdout);
- Self__RKD=(__INTEGER)(Self__RKD + 1);
- };
- exit(( 1));
- };
- block__MTD=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__GTD))));
- block__MTD->previous_linear__ID= 4294967295LU;
- block__MTD->size_and_id__JD= 67108858;
- block__MTD->next_free__KD=first_free__LMD;
- block__MTD->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__MTD;
- };
- first_free__LMD=block__MTD;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__MTD);
- result__MLD=block__MTD;
- };
- Self__WIH=((__MEMORY *)result__MLD);
- idx__YIH=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__MLD)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__5IH=NULL;
- prev__M1H=Self__WIH->previous_free__LD;
- next__N1H=Self__WIH->next_free__KD;
- if (((void *)prev__M1H == (void *)NULL)) {
- first_free__LMD=next__N1H;
- } else {
- ((__MEMORY *)prev__M1H)->next_free__KD=next__N1H;
- };
- if (((void *)next__N1H != (void *)NULL)) {
- ((__MEMORY *)next__N1H)->previous_free__LD=prev__M1H;
- };
- siz__ZIH=Self__WIH->size_and_id__JD;
- new_size__2IH=(__UINTEGER_32)(siz__ZIH - new_size__0US);
- if ((new_size__2IH > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__ZIH=new_size__0US;
- new__5IH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__WIH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0US))));
- ((__MEMORY *)new__5IH)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__WIH) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__5IH)->size_and_id__JD=(__UINTEGER_32)(new_size__2IH - 8);
- Self__5MH=((__MEMORY *)new__5IH);
- Self__5MH->next_free__KD=first_free__LMD;
- Self__5MH->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__5MH;
- };
- first_free__LMD=Self__5MH;
- if (((__UINTEGER_32)(((__MEMORY *)new__5IH)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__YIH)] = (new__5IH);
- } else {
- Self__HAS=((__MEMORY *)new__5IH);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__HAS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__HAS->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__5IH)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__WIH->size_and_id__JD=(__UINTEGER_32)(siz__ZIH | 1);
- result__XUS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__MLD)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__YC=((__PLANET *)result__XUS);
- bodies__GB=Result__YC;
- Result__YC[ 0].mass__1D=solar_mass__ZD;
- Self__3D=&(Result__YC[ 1]);
- Self__3D->x__5D=((__REAL_64 )(4.84143144246472090E+00));
- Self__3D->y__BE=((__REAL_64 )(-1.16032004402742839E+00));
- Self__3D->z__DE=((__REAL_64 )(-1.03622044471123109E-01));
- Self__3D->vx__IE=(__REAL_64)(((__REAL_64 )(1.66007664274403694E-03)) * days_per_year__FE);
- Self__3D->vy__ME=(__REAL_64)(((__REAL_64 )(7.69901118419740425E-03)) * days_per_year__FE);
- Self__3D->vz__QE=(__REAL_64)(((__REAL_64 )(-6.90460016972063023E-05)) * days_per_year__FE);
- Self__3D->mass__1D=(__REAL_64)(((__REAL_64 )(9.54791938424326609E-04)) * solar_mass__ZD);
- Self__VE=&(Result__YC[ 2]);
- Self__VE->x__5D=((__REAL_64 )(8.34336671824457987E+00));
- Self__VE->y__BE=((__REAL_64 )(4.12479856412430479E+00));
- Self__VE->z__DE=((__REAL_64 )(-4.03523417114321381E-01));
- Self__VE->vx__IE=(__REAL_64)(((__REAL_64 )(-2.76742510726862411E-03)) * days_per_year__FE);
- Self__VE->vy__ME=(__REAL_64)(((__REAL_64 )(4.99852801234917238E-03)) * days_per_year__FE);
- Self__VE->vz__QE=(__REAL_64)(((__REAL_64 )(2.30417297573763929E-05)) * days_per_year__FE);
- Self__VE->mass__1D=(__REAL_64)(((__REAL_64 )(2.85885980666130812E-04)) * solar_mass__ZD);
- Self__GF=&(Result__YC[ 3]);
- Self__GF->x__5D=((__REAL_64 )(1.28943695621391310E+01));
- Self__GF->y__BE=((__REAL_64 )(-1.51111514016986312E+01));
- Self__GF->z__DE=((__REAL_64 )(-2.23307578892655734E-01));
- Self__GF->vx__IE=(__REAL_64)(((__REAL_64 )(2.96460137564761618E-03)) * days_per_year__FE);
- Self__GF->vy__ME=(__REAL_64)(((__REAL_64 )(2.37847173959480950E-03)) * days_per_year__FE);
- Self__GF->vz__QE=(__REAL_64)(((__REAL_64 )(-2.96589568540237556E-05)) * days_per_year__FE);
- Self__GF->mass__1D=(__REAL_64)(((__REAL_64 )(4.36624404335156298E-05)) * solar_mass__ZD);
- Self__XF=&(Result__YC[ 4]);
- Self__XF->x__5D=((__REAL_64 )(1.53796971148509165E+01));
- Self__XF->y__BE=((__REAL_64 )(-2.59193146099879641E+01));
- Self__XF->z__DE=((__REAL_64 )(1.79258772950371181E-01));
- Self__XF->vx__IE=(__REAL_64)(((__REAL_64 )(2.68067772490389322E-03)) * days_per_year__FE);
- Self__XF->vy__ME=(__REAL_64)(((__REAL_64 )(1.62824170038242295E-03)) * days_per_year__FE);
- Self__XF->vz__QE=(__REAL_64)(((__REAL_64 )(-9.51592254519715870E-05)) * days_per_year__FE);
- Self__XF->mass__1D=(__REAL_64)(((__REAL_64 )(5.15138902046611451E-05)) * solar_mass__ZD);
- offset_momentum( 4);
- print_format_c__QK(energy(nbodies__AB));
- Self__0K= 1;
- limit_up__1K=result__PIL;
- while ((Self__0K <= limit_up__1K)) {
- advance(((__REAL_64 )(0.01)),nbodies__AB);
- Self__0K=(__INTEGER)(Self__0K + 1);
- };
- print_format_c__QK(energy(nbodies__AB));
- return( 0);
-}
-
-static __STRING* create__Q3(__INTEGER needed_capacity__S3)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__ZDB,*Self__HUC;
- __POINTER ptr__0DB,ptr_table__UVS,next__TVS,result__VVS,mem__BHT;
- __POINTER result__23S,mem__KHT,result__I4S,ptr_table__0VS,next__ZVS;
- __POINTER result__1VS,mem__THT,result__U4S,mem__2HT,result__A5S;
- __POINTER result__NUS,ptr_table__GWS,next__FWS,result__HWS,mem__FIT;
- __POINTER result__M5S,mem__OIT,result__Y5S,mem__XIT;
- __INTEGER typ_id__5DB,__tmp__FHT,Self__GHT,__tmp__OHT,Self__PHT;
- __INTEGER __tmp__XHT,Self__YHT,__tmp__AIT,Self__BIT,__tmp__JIT;
- __INTEGER Self__KIT,__tmp__SIT,Self__TIT,__tmp__1IT,Self__2IT;
- __INTEGER Self__DNI;
- __UINTEGER_32 sz__2DB,a__CRS,new_size__DRS,idx__V3S,pv__Y3S,cap__CHT;
- __UINTEGER_32 old_size__EHT,idx__B4S,pv__E4S,cap__LHT,old_size__NHT;
- __UINTEGER_32 t__MRS,a__JRS,new_size__3VS,lab_type__2VS,idx__N4S;
- __UINTEGER_32 pv__Q4S,cap__UHT,old_size__WHT,idx__Z4S,pv__24S;
- __UINTEGER_32 cap__3HT,old_size__5HT,sz__PUS,a__OUS,new_size__QUS;
- __UINTEGER_32 new_size2__RUS,a__SUS,new_size__TUS,idx__F5S,pv__I5S;
- __UINTEGER_32 cap__GIT,old_size__IIT,idx__R5S,pv__U5S,cap__PIT;
- __UINTEGER_32 old_size__RIT,cap__YIT,old_size__0IT,idx__N0S,siz__R0S;
- __UINTEGER_32 new_size__S0S;
- __MEMORY *blc__W3S,*prev__X3S,*block__JHT,*Self__13S,*Self__33S;
- __MEMORY *prev__43S,*next__53S,*blc__C4S,*prev__D4S,*block__SHT;
- __MEMORY *Self__H4S,*Self__J4S,*prev__K4S,*next__L4S,*blc__O4S;
- __MEMORY *prev__P4S,*block__1HT,*Self__T4S,*Self__V4S,*prev__W4S;
- __MEMORY *next__X4S,*blc__04S,*prev__14S,*block__EIT,*Self__54S;
- __MEMORY *Self__B5S,*prev__C5S,*next__D5S,*blc__G5S,*prev__H5S;
- __MEMORY *block__NIT,*Self__L5S,*Self__N5S,*prev__O5S,*next__P5S;
- __MEMORY *blc__S5S,*prev__T5S,*block__WIT,*Self__X5S,*Self__Z5S;
- __MEMORY *prev__05S,*next__15S,*result__J0S,*block__5IT,*Self__M0S;
- __MEMORY *new__O0S,*prev__P0S,*next__Q0S,*Self__T0S,*Self__U0S;
- __BOOLEAN __tmp__Z3S,__tmp__F4S,__tmp__R4S,__tmp__34S,__tmp__J5S;
- __BOOLEAN __tmp__V5S;
- __CHARACTER *__tmp__HHT,*__tmp__QHT,*__tmp__ZHT,*__tmp__CIT;
- __CHARACTER *__tmp__LIT,*__tmp__UIT,*__tmp__3IT,*Result__CLG;
- result__ZDB=NULL;
- ptr__0DB=((__POINTER )(NULL));
- typ_id__5DB= 0;
- sz__2DB=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__2DB == 0)) {
- result__ZDB=STRING__;
- } else {
- typ_id__5DB=__STRING__;
- clone_allocation_size__E5=(__UINTEGER_32)(clone_allocation_size__E5 + sz__2DB);
- if ((typ_id__5DB == (__INTEGER)(- 1))) {
- a__CRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DRS=(__UINTEGER_32)((__UINTEGER_32)(sz__2DB + a__CRS) & (__UINTEGER_32)(~ a__CRS));
- ptr_table__UVS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DRS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TVS=((__POINTER )(NULL));
- result__VVS=((__POINTER *)ptr_table__UVS)[ 0];
- if ((result__VVS == (void *)NULL)) {
- idx__V3S= 0;
- blc__W3S=NULL;
- prev__X3S=NULL;
- pv__Y3S= 0;
- while_do__2AC__03S:
- {
- if ((idx__V3S < nb_page__L2B)) {
- blc__W3S=((__MEMORY *)(last_block[(idx__V3S)]));
- __tmp__Z3S=(((__UINTEGER_32)(((__MEMORY *)blc__W3S)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__W3S)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__Z3S=FALSE__;
- };
- if (__tmp__Z3S) {
- idx__V3S=(__UINTEGER_32)(idx__V3S + 1);
- goto while_do__2AC__03S;
- };
- };
- if ((idx__V3S >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__BHT=((__POINTER )(NULL));
- cap__CHT= 33554432;
- do {
- cap__CHT=(__UINTEGER_32)(cap__CHT << 1);
- mem__BHT=((__POINTER )(malloc((cap__CHT))));
- if ((mem__BHT != (void *)NULL)) {
- free((mem__BHT));
- };
- } while ((! ((mem__BHT == (void *)NULL) || (cap__CHT == 2147483648LU))));
- if ((mem__BHT == (void *)NULL)) {
- cap__CHT=(__UINTEGER_32)(cap__CHT >> 1);
- };
- capacity_max__NTD=cap__CHT;
- begin_memory__2RB=((__POINTER )(malloc((cap__CHT))));
- };
- old_size__EHT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__EHT + 67108864) > capacity_max__NTD)) {
- __tmp__FHT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__GHT= 1;
- __tmp__HHT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__GHT <= __tmp__FHT)) {
- fputc((int)(((__CHARACTER *)__tmp__HHT)[(__INTEGER)(Self__GHT - 1)]),stdout);
- Self__GHT=(__INTEGER)(Self__GHT + 1);
- };
- exit(( 1));
- };
- block__JHT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__EHT))));
- block__JHT->previous_linear__ID= 4294967295LU;
- block__JHT->size_and_id__JD= 67108858;
- block__JHT->next_free__KD=first_free__LMD;
- block__JHT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__JHT;
- };
- first_free__LMD=block__JHT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__JHT);
- blc__W3S=block__JHT;
- };
- ((__MEMORY *)blc__W3S)->size_and_id__JD=(__UINTEGER_32)(blc__W3S->size_and_id__JD - 4096);
- Self__13S=((__MEMORY *)blc__W3S);
- result__23S=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__13S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__13S->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__W3S)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__33S=((__MEMORY *)blc__W3S);
- prev__43S=Self__33S->previous_free__LD;
- next__53S=Self__33S->next_free__KD;
- if (((void *)prev__43S == (void *)NULL)) {
- first_free__LMD=next__53S;
- } else {
- ((__MEMORY *)prev__43S)->next_free__KD=next__53S;
- };
- if (((void *)next__53S != (void *)NULL)) {
- ((__MEMORY *)next__53S)->previous_free__LD=prev__43S;
- };
- pv__Y3S=blc__W3S->previous_linear__ID;
- if ((pv__Y3S != 4294967295LU)) {
- prev__X3S=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__Y3S))));
- ((__MEMORY *)prev__X3S)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__X3S->size_and_id__JD + blc__W3S->size_and_id__JD) + 8);
- last_block[(idx__V3S)] = (prev__X3S);
- };
- };
- ((__POINTER *)result__23S)[ 0]=((__POINTER )new_size__DRS);
- result__VVS=(void *)((unsigned long)result__23S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__TVS=(void *)((unsigned long)result__VVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DRS)));
- ((__POINTER *)next__TVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__UVS)[ 0]=next__TVS;
- } else {
- next__TVS=((__POINTER *)result__VVS)[ 0];
- if ((next__TVS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VVS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__DRS << 1)) <= 4096)) {
- next__TVS=(void *)((unsigned long)result__VVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DRS)));
- } else {
- idx__B4S= 0;
- blc__C4S=NULL;
- prev__D4S=NULL;
- pv__E4S= 0;
- while_do__2AC__G4S:
- {
- if ((idx__B4S < nb_page__L2B)) {
- blc__C4S=((__MEMORY *)(last_block[(idx__B4S)]));
- __tmp__F4S=(((__UINTEGER_32)(((__MEMORY *)blc__C4S)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__C4S)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__F4S=FALSE__;
- };
- if (__tmp__F4S) {
- idx__B4S=(__UINTEGER_32)(idx__B4S + 1);
- goto while_do__2AC__G4S;
- };
- };
- if ((idx__B4S >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__KHT=((__POINTER )(NULL));
- cap__LHT= 33554432;
- do {
- cap__LHT=(__UINTEGER_32)(cap__LHT << 1);
- mem__KHT=((__POINTER )(malloc((cap__LHT))));
- if ((mem__KHT != (void *)NULL)) {
- free((mem__KHT));
- };
- } while ((! ((mem__KHT == (void *)NULL) || (cap__LHT == 2147483648LU))));
- if ((mem__KHT == (void *)NULL)) {
- cap__LHT=(__UINTEGER_32)(cap__LHT >> 1);
- };
- capacity_max__NTD=cap__LHT;
- begin_memory__2RB=((__POINTER )(malloc((cap__LHT))));
- };
- old_size__NHT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__NHT + 67108864) > capacity_max__NTD)) {
- __tmp__OHT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__PHT= 1;
- __tmp__QHT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__PHT <= __tmp__OHT)) {
- fputc((int)(((__CHARACTER *)__tmp__QHT)[(__INTEGER)(Self__PHT - 1)]),stdout);
- Self__PHT=(__INTEGER)(Self__PHT + 1);
- };
- exit(( 1));
- };
- block__SHT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__NHT))));
- block__SHT->previous_linear__ID= 4294967295LU;
- block__SHT->size_and_id__JD= 67108858;
- block__SHT->next_free__KD=first_free__LMD;
- block__SHT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__SHT;
- };
- first_free__LMD=block__SHT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__SHT);
- blc__C4S=block__SHT;
- };
- ((__MEMORY *)blc__C4S)->size_and_id__JD=(__UINTEGER_32)(blc__C4S->size_and_id__JD - 4096);
- Self__H4S=((__MEMORY *)blc__C4S);
- result__I4S=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__H4S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__H4S->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__C4S)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__J4S=((__MEMORY *)blc__C4S);
- prev__K4S=Self__J4S->previous_free__LD;
- next__L4S=Self__J4S->next_free__KD;
- if (((void *)prev__K4S == (void *)NULL)) {
- first_free__LMD=next__L4S;
- } else {
- ((__MEMORY *)prev__K4S)->next_free__KD=next__L4S;
- };
- if (((void *)next__L4S != (void *)NULL)) {
- ((__MEMORY *)next__L4S)->previous_free__LD=prev__K4S;
- };
- pv__E4S=blc__C4S->previous_linear__ID;
- if ((pv__E4S != 4294967295LU)) {
- prev__D4S=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__E4S))));
- ((__MEMORY *)prev__D4S)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__D4S->size_and_id__JD + blc__C4S->size_and_id__JD) + 8);
- last_block[(idx__B4S)] = (prev__D4S);
- };
- };
- ((__POINTER *)result__I4S)[ 0]=((__POINTER )new_size__DRS);
- next__TVS=(void *)((unsigned long)result__I4S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__TVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__UVS)[ 0]=next__TVS;
- } else {
- ((__POINTER *)result__VVS)[ 0]=(void *)((unsigned long)((__POINTER *)next__TVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VVS=next__TVS;
- };
- };
- ptr__0DB=result__VVS;
- } else {
- t__MRS=((__UINTEGER_32 )typ_id__5DB);
- a__JRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3VS=(__UINTEGER_32)((__UINTEGER_32)(sz__2DB + a__JRS) & (__UINTEGER_32)(~ a__JRS));
- ptr_table__0VS=((__POINTER )(&(table_type[(t__MRS)])));
- lab_type__2VS=(__UINTEGER_32)(t__MRS | 1);
- next__ZVS=((__POINTER )(NULL));
- result__1VS=((__POINTER *)ptr_table__0VS)[ 0];
- if ((result__1VS == (void *)NULL)) {
- idx__N4S= 0;
- blc__O4S=NULL;
- prev__P4S=NULL;
- pv__Q4S= 0;
- while_do__2AC__S4S:
- {
- if ((idx__N4S < nb_page__L2B)) {
- blc__O4S=((__MEMORY *)(last_block[(idx__N4S)]));
- __tmp__R4S=(((__UINTEGER_32)(((__MEMORY *)blc__O4S)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__O4S)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__R4S=FALSE__;
- };
- if (__tmp__R4S) {
- idx__N4S=(__UINTEGER_32)(idx__N4S + 1);
- goto while_do__2AC__S4S;
- };
- };
- if ((idx__N4S >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__THT=((__POINTER )(NULL));
- cap__UHT= 33554432;
- do {
- cap__UHT=(__UINTEGER_32)(cap__UHT << 1);
- mem__THT=((__POINTER )(malloc((cap__UHT))));
- if ((mem__THT != (void *)NULL)) {
- free((mem__THT));
- };
- } while ((! ((mem__THT == (void *)NULL) || (cap__UHT == 2147483648LU))));
- if ((mem__THT == (void *)NULL)) {
- cap__UHT=(__UINTEGER_32)(cap__UHT >> 1);
- };
- capacity_max__NTD=cap__UHT;
- begin_memory__2RB=((__POINTER )(malloc((cap__UHT))));
- };
- old_size__WHT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__WHT + 67108864) > capacity_max__NTD)) {
- __tmp__XHT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__YHT= 1;
- __tmp__ZHT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__YHT <= __tmp__XHT)) {
- fputc((int)(((__CHARACTER *)__tmp__ZHT)[(__INTEGER)(Self__YHT - 1)]),stdout);
- Self__YHT=(__INTEGER)(Self__YHT + 1);
- };
- exit(( 1));
- };
- block__1HT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__WHT))));
- block__1HT->previous_linear__ID= 4294967295LU;
- block__1HT->size_and_id__JD= 67108858;
- block__1HT->next_free__KD=first_free__LMD;
- block__1HT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__1HT;
- };
- first_free__LMD=block__1HT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__1HT);
- blc__O4S=block__1HT;
- };
- ((__MEMORY *)blc__O4S)->size_and_id__JD=(__UINTEGER_32)(blc__O4S->size_and_id__JD - 4096);
- Self__T4S=((__MEMORY *)blc__O4S);
- result__U4S=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__T4S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__T4S->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__O4S)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__V4S=((__MEMORY *)blc__O4S);
- prev__W4S=Self__V4S->previous_free__LD;
- next__X4S=Self__V4S->next_free__KD;
- if (((void *)prev__W4S == (void *)NULL)) {
- first_free__LMD=next__X4S;
- } else {
- ((__MEMORY *)prev__W4S)->next_free__KD=next__X4S;
- };
- if (((void *)next__X4S != (void *)NULL)) {
- ((__MEMORY *)next__X4S)->previous_free__LD=prev__W4S;
- };
- pv__Q4S=blc__O4S->previous_linear__ID;
- if ((pv__Q4S != 4294967295LU)) {
- prev__P4S=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__Q4S))));
- ((__MEMORY *)prev__P4S)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__P4S->size_and_id__JD + blc__O4S->size_and_id__JD) + 8);
- last_block[(idx__N4S)] = (prev__P4S);
- };
- };
- ((__POINTER *)result__U4S)[ 0]=((__POINTER )lab_type__2VS);
- result__1VS=(void *)((unsigned long)result__U4S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__ZVS=(void *)((unsigned long)result__1VS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3VS)));
- ((__POINTER *)next__ZVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__0VS)[ 0]=next__ZVS;
- } else {
- next__ZVS=((__POINTER *)result__1VS)[ 0];
- if ((next__ZVS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1VS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__3VS << 1)) <= 4096)) {
- next__ZVS=(void *)((unsigned long)result__1VS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3VS)));
- } else {
- idx__Z4S= 0;
- blc__04S=NULL;
- prev__14S=NULL;
- pv__24S= 0;
- while_do__2AC__44S:
- {
- if ((idx__Z4S < nb_page__L2B)) {
- blc__04S=((__MEMORY *)(last_block[(idx__Z4S)]));
- __tmp__34S=(((__UINTEGER_32)(((__MEMORY *)blc__04S)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__04S)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__34S=FALSE__;
- };
- if (__tmp__34S) {
- idx__Z4S=(__UINTEGER_32)(idx__Z4S + 1);
- goto while_do__2AC__44S;
- };
- };
- if ((idx__Z4S >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__2HT=((__POINTER )(NULL));
- cap__3HT= 33554432;
- do {
- cap__3HT=(__UINTEGER_32)(cap__3HT << 1);
- mem__2HT=((__POINTER )(malloc((cap__3HT))));
- if ((mem__2HT != (void *)NULL)) {
- free((mem__2HT));
- };
- } while ((! ((mem__2HT == (void *)NULL) || (cap__3HT == 2147483648LU))));
- if ((mem__2HT == (void *)NULL)) {
- cap__3HT=(__UINTEGER_32)(cap__3HT >> 1);
- };
- capacity_max__NTD=cap__3HT;
- begin_memory__2RB=((__POINTER )(malloc((cap__3HT))));
- };
- old_size__5HT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__5HT + 67108864) > capacity_max__NTD)) {
- __tmp__AIT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__BIT= 1;
- __tmp__CIT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__BIT <= __tmp__AIT)) {
- fputc((int)(((__CHARACTER *)__tmp__CIT)[(__INTEGER)(Self__BIT - 1)]),stdout);
- Self__BIT=(__INTEGER)(Self__BIT + 1);
- };
- exit(( 1));
- };
- block__EIT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__5HT))));
- block__EIT->previous_linear__ID= 4294967295LU;
- block__EIT->size_and_id__JD= 67108858;
- block__EIT->next_free__KD=first_free__LMD;
- block__EIT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__EIT;
- };
- first_free__LMD=block__EIT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__EIT);
- blc__04S=block__EIT;
- };
- ((__MEMORY *)blc__04S)->size_and_id__JD=(__UINTEGER_32)(blc__04S->size_and_id__JD - 4096);
- Self__54S=((__MEMORY *)blc__04S);
- result__A5S=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__54S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__54S->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__04S)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__B5S=((__MEMORY *)blc__04S);
- prev__C5S=Self__B5S->previous_free__LD;
- next__D5S=Self__B5S->next_free__KD;
- if (((void *)prev__C5S == (void *)NULL)) {
- first_free__LMD=next__D5S;
- } else {
- ((__MEMORY *)prev__C5S)->next_free__KD=next__D5S;
- };
- if (((void *)next__D5S != (void *)NULL)) {
- ((__MEMORY *)next__D5S)->previous_free__LD=prev__C5S;
- };
- pv__24S=blc__04S->previous_linear__ID;
- if ((pv__24S != 4294967295LU)) {
- prev__14S=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__24S))));
- ((__MEMORY *)prev__14S)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__14S->size_and_id__JD + blc__04S->size_and_id__JD) + 8);
- last_block[(idx__Z4S)] = (prev__14S);
- };
- };
- ((__POINTER *)result__A5S)[ 0]=((__POINTER )lab_type__2VS);
- next__ZVS=(void *)((unsigned long)result__A5S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__ZVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__0VS)[ 0]=next__ZVS;
- } else {
- ((__POINTER *)result__1VS)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1VS=next__ZVS;
- };
- };
- ptr__0DB=result__1VS;
- };
- result__ZDB=((__STRING *)ptr__0DB);
- *(result__ZDB) = *(STRING__);
- };
- Self__HUC=((__STRING *)result__ZDB);
- if ((needed_capacity__S3 > 0)) {
- if ((Self__HUC->capacity__FW < needed_capacity__S3)) {
- sz__PUS=((__UINTEGER_32 )needed_capacity__S3);
- result__NUS=((__POINTER )(NULL));
- a__OUS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QUS=(__UINTEGER_32)((__UINTEGER_32)(sz__PUS + a__OUS) & (__UINTEGER_32)(~ a__OUS));
- new_size2__RUS=(__UINTEGER_32)(new_size__QUS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__RUS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__SUS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TUS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RUS + a__SUS) & (__UINTEGER_32)(~ a__SUS));
- ptr_table__GWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TUS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FWS=((__POINTER )(NULL));
- result__HWS=((__POINTER *)ptr_table__GWS)[ 0];
- if ((result__HWS == (void *)NULL)) {
- idx__F5S= 0;
- blc__G5S=NULL;
- prev__H5S=NULL;
- pv__I5S= 0;
- while_do__2AC__K5S:
- {
- if ((idx__F5S < nb_page__L2B)) {
- blc__G5S=((__MEMORY *)(last_block[(idx__F5S)]));
- __tmp__J5S=(((__UINTEGER_32)(((__MEMORY *)blc__G5S)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__G5S)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__J5S=FALSE__;
- };
- if (__tmp__J5S) {
- idx__F5S=(__UINTEGER_32)(idx__F5S + 1);
- goto while_do__2AC__K5S;
- };
- };
- if ((idx__F5S >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__FIT=((__POINTER )(NULL));
- cap__GIT= 33554432;
- do {
- cap__GIT=(__UINTEGER_32)(cap__GIT << 1);
- mem__FIT=((__POINTER )(malloc((cap__GIT))));
- if ((mem__FIT != (void *)NULL)) {
- free((mem__FIT));
- };
- } while ((! ((mem__FIT == (void *)NULL) || (cap__GIT == 2147483648LU))));
- if ((mem__FIT == (void *)NULL)) {
- cap__GIT=(__UINTEGER_32)(cap__GIT >> 1);
- };
- capacity_max__NTD=cap__GIT;
- begin_memory__2RB=((__POINTER )(malloc((cap__GIT))));
- };
- old_size__IIT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__IIT + 67108864) > capacity_max__NTD)) {
- __tmp__JIT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__KIT= 1;
- __tmp__LIT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__KIT <= __tmp__JIT)) {
- fputc((int)(((__CHARACTER *)__tmp__LIT)[(__INTEGER)(Self__KIT - 1)]),stdout);
- Self__KIT=(__INTEGER)(Self__KIT + 1);
- };
- exit(( 1));
- };
- block__NIT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__IIT))));
- block__NIT->previous_linear__ID= 4294967295LU;
- block__NIT->size_and_id__JD= 67108858;
- block__NIT->next_free__KD=first_free__LMD;
- block__NIT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__NIT;
- };
- first_free__LMD=block__NIT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__NIT);
- blc__G5S=block__NIT;
- };
- ((__MEMORY *)blc__G5S)->size_and_id__JD=(__UINTEGER_32)(blc__G5S->size_and_id__JD - 4096);
- Self__L5S=((__MEMORY *)blc__G5S);
- result__M5S=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__L5S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__L5S->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__G5S)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__N5S=((__MEMORY *)blc__G5S);
- prev__O5S=Self__N5S->previous_free__LD;
- next__P5S=Self__N5S->next_free__KD;
- if (((void *)prev__O5S == (void *)NULL)) {
- first_free__LMD=next__P5S;
- } else {
- ((__MEMORY *)prev__O5S)->next_free__KD=next__P5S;
- };
- if (((void *)next__P5S != (void *)NULL)) {
- ((__MEMORY *)next__P5S)->previous_free__LD=prev__O5S;
- };
- pv__I5S=blc__G5S->previous_linear__ID;
- if ((pv__I5S != 4294967295LU)) {
- prev__H5S=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__I5S))));
- ((__MEMORY *)prev__H5S)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__H5S->size_and_id__JD + blc__G5S->size_and_id__JD) + 8);
- last_block[(idx__F5S)] = (prev__H5S);
- };
- };
- ((__POINTER *)result__M5S)[ 0]=((__POINTER )new_size__TUS);
- result__HWS=(void *)((unsigned long)result__M5S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__FWS=(void *)((unsigned long)result__HWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TUS)));
- ((__POINTER *)next__FWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__GWS)[ 0]=next__FWS;
- } else {
- next__FWS=((__POINTER *)result__HWS)[ 0];
- if ((next__FWS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HWS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__TUS << 1)) <= 4096)) {
- next__FWS=(void *)((unsigned long)result__HWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TUS)));
- } else {
- idx__R5S= 0;
- blc__S5S=NULL;
- prev__T5S=NULL;
- pv__U5S= 0;
- while_do__2AC__W5S:
- {
- if ((idx__R5S < nb_page__L2B)) {
- blc__S5S=((__MEMORY *)(last_block[(idx__R5S)]));
- __tmp__V5S=(((__UINTEGER_32)(((__MEMORY *)blc__S5S)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__S5S)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__V5S=FALSE__;
- };
- if (__tmp__V5S) {
- idx__R5S=(__UINTEGER_32)(idx__R5S + 1);
- goto while_do__2AC__W5S;
- };
- };
- if ((idx__R5S >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__OIT=((__POINTER )(NULL));
- cap__PIT= 33554432;
- do {
- cap__PIT=(__UINTEGER_32)(cap__PIT << 1);
- mem__OIT=((__POINTER )(malloc((cap__PIT))));
- if ((mem__OIT != (void *)NULL)) {
- free((mem__OIT));
- };
- } while ((! ((mem__OIT == (void *)NULL) || (cap__PIT == 2147483648LU))));
- if ((mem__OIT == (void *)NULL)) {
- cap__PIT=(__UINTEGER_32)(cap__PIT >> 1);
- };
- capacity_max__NTD=cap__PIT;
- begin_memory__2RB=((__POINTER )(malloc((cap__PIT))));
- };
- old_size__RIT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__RIT + 67108864) > capacity_max__NTD)) {
- __tmp__SIT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__TIT= 1;
- __tmp__UIT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__TIT <= __tmp__SIT)) {
- fputc((int)(((__CHARACTER *)__tmp__UIT)[(__INTEGER)(Self__TIT - 1)]),stdout);
- Self__TIT=(__INTEGER)(Self__TIT + 1);
- };
- exit(( 1));
- };
- block__WIT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__RIT))));
- block__WIT->previous_linear__ID= 4294967295LU;
- block__WIT->size_and_id__JD= 67108858;
- block__WIT->next_free__KD=first_free__LMD;
- block__WIT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__WIT;
- };
- first_free__LMD=block__WIT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__WIT);
- blc__S5S=block__WIT;
- };
- ((__MEMORY *)blc__S5S)->size_and_id__JD=(__UINTEGER_32)(blc__S5S->size_and_id__JD - 4096);
- Self__X5S=((__MEMORY *)blc__S5S);
- result__Y5S=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__X5S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__X5S->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__S5S)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__Z5S=((__MEMORY *)blc__S5S);
- prev__05S=Self__Z5S->previous_free__LD;
- next__15S=Self__Z5S->next_free__KD;
- if (((void *)prev__05S == (void *)NULL)) {
- first_free__LMD=next__15S;
- } else {
- ((__MEMORY *)prev__05S)->next_free__KD=next__15S;
- };
- if (((void *)next__15S != (void *)NULL)) {
- ((__MEMORY *)next__15S)->previous_free__LD=prev__05S;
- };
- pv__U5S=blc__S5S->previous_linear__ID;
- if ((pv__U5S != 4294967295LU)) {
- prev__T5S=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__U5S))));
- ((__MEMORY *)prev__T5S)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__T5S->size_and_id__JD + blc__S5S->size_and_id__JD) + 8);
- last_block[(idx__R5S)] = (prev__T5S);
- };
- };
- ((__POINTER *)result__Y5S)[ 0]=((__POINTER )new_size__TUS);
- next__FWS=(void *)((unsigned long)result__Y5S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__FWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__GWS)[ 0]=next__FWS;
- } else {
- ((__POINTER *)result__HWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__FWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HWS=next__FWS;
- };
- };
- ((__POINTER *)result__HWS)[ 0]=((__POINTER ) 3);
- result__NUS=(void *)((unsigned long)result__HWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__J0S=first_free__LMD;
- while ((((void *)result__J0S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__J0S)->size_and_id__JD & 4294967292LU) < new_size__QUS))) {
- result__J0S=result__J0S->next_free__KD;
- };
- if (((void *)result__J0S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__XIT=((__POINTER )(NULL));
- cap__YIT= 33554432;
- do {
- cap__YIT=(__UINTEGER_32)(cap__YIT << 1);
- mem__XIT=((__POINTER )(malloc((cap__YIT))));
- if ((mem__XIT != (void *)NULL)) {
- free((mem__XIT));
- };
- } while ((! ((mem__XIT == (void *)NULL) || (cap__YIT == 2147483648LU))));
- if ((mem__XIT == (void *)NULL)) {
- cap__YIT=(__UINTEGER_32)(cap__YIT >> 1);
- };
- capacity_max__NTD=cap__YIT;
- begin_memory__2RB=((__POINTER )(malloc((cap__YIT))));
- };
- old_size__0IT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__0IT + 67108864) > capacity_max__NTD)) {
- __tmp__1IT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__2IT= 1;
- __tmp__3IT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__2IT <= __tmp__1IT)) {
- fputc((int)(((__CHARACTER *)__tmp__3IT)[(__INTEGER)(Self__2IT - 1)]),stdout);
- Self__2IT=(__INTEGER)(Self__2IT + 1);
- };
- exit(( 1));
- };
- block__5IT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__0IT))));
- block__5IT->previous_linear__ID= 4294967295LU;
- block__5IT->size_and_id__JD= 67108858;
- block__5IT->next_free__KD=first_free__LMD;
- block__5IT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__5IT;
- };
- first_free__LMD=block__5IT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__5IT);
- result__J0S=block__5IT;
- };
- Self__M0S=((__MEMORY *)result__J0S);
- idx__N0S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__J0S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__O0S=NULL;
- prev__P0S=Self__M0S->previous_free__LD;
- next__Q0S=Self__M0S->next_free__KD;
- if (((void *)prev__P0S == (void *)NULL)) {
- first_free__LMD=next__Q0S;
- } else {
- ((__MEMORY *)prev__P0S)->next_free__KD=next__Q0S;
- };
- if (((void *)next__Q0S != (void *)NULL)) {
- ((__MEMORY *)next__Q0S)->previous_free__LD=prev__P0S;
- };
- siz__R0S=Self__M0S->size_and_id__JD;
- new_size__S0S=(__UINTEGER_32)(siz__R0S - new_size__QUS);
- if ((new_size__S0S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__R0S=new_size__QUS;
- new__O0S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__M0S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUS))));
- ((__MEMORY *)new__O0S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__M0S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__O0S)->size_and_id__JD=(__UINTEGER_32)(new_size__S0S - 8);
- Self__T0S=((__MEMORY *)new__O0S);
- Self__T0S->next_free__KD=first_free__LMD;
- Self__T0S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__T0S;
- };
- first_free__LMD=Self__T0S;
- if (((__UINTEGER_32)(((__MEMORY *)new__O0S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__N0S)] = (new__O0S);
- } else {
- Self__U0S=((__MEMORY *)new__O0S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__U0S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__U0S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__O0S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__M0S->size_and_id__JD=(__UINTEGER_32)(siz__R0S | 1);
- result__NUS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__J0S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__CLG=((__CHARACTER *)result__NUS);
- Self__DNI=(__INTEGER)(needed_capacity__S3 - 1);
- while ((Self__DNI >= 0)) {
- Result__CLG[Self__DNI]='\0';
- Self__DNI=(__INTEGER)(Self__DNI - 1);
- };
- Self__HUC->storage__2QC=Result__CLG;
- Self__HUC->capacity__FW=needed_capacity__S3;
- };
- };
- Self__HUC->count__DW= 0;
- return(result__ZDB);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__CGI(__POINTER p__EGI,__UINTEGER_32 old_sz__FGI,__UINTEGER_32 new_sz__GGI)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__RGI,*blc__45S,*prev__55S,*block__IJT,*Self__DAT;
- __MEMORY *Self__FAT,*prev__GAT,*next__HAT,*blc__KAT,*prev__LAT;
- __MEMORY *block__RJT,*Self__PAT,*Self__RAT,*prev__SAT,*next__TAT;
- __MEMORY *result__V0S,*block__0JT,*Self__Y0S,*new__00S,*prev__10S;
- __MEMORY *next__20S,*Self__50S,*Self__A1S,*Self__MKK,*nxt__QKK;
- __MEMORY *result__RKK,*Self__AXS,*new__5WS,*prev__BXS,*next__CXS;
- __MEMORY *Self__GXS,*Self__IXS,*result__B1S,*block__DKT,*Self__E1S;
- __MEMORY *new__G1S,*prev__H1S,*next__I1S,*Self__L1S,*Self__M1S;
- __MEMORY *next__ZAL,*new_free__YAL,*prev__DSS,*next__ESS;
- __POINTER result__SGI,result__OO,ptr_table__AWS,next__5VS,result__BWS;
- __POINTER mem__AJT,result__EAT,mem__JJT,result__QAT,mem__SJT,p__CJK;
- __POINTER last__FUK,mem__1JT,src__2HK,dst__3HK;
- __UINTEGER_32 a__PRS,old_size__IGI,old_size2__LGI,a__TRS;
- __UINTEGER_32 new_size__OGI,a__A1,new_size__IO,new_size2__LO,a__LSS;
- __UINTEGER_32 new_size__MSS,idx__35S,pv__AAT,cap__BJT,old_size__DJT;
- __UINTEGER_32 idx__JAT,pv__MAT,cap__KJT,old_size__MJT,cap__TJT;
- __UINTEGER_32 old_size__VJT,idx__Z0S,siz__30S,new_size__40S,a__XRS;
- __UINTEGER_32 __tmp__DII,sz__VKK,old_size__SKK,siz__DXS,new_size__FXS;
- __UINTEGER_32 cap__2JT,old_size__4JT,idx__F1S,siz__J1S,new_size__K1S;
- __UINTEGER_32 prev__0AL,new_size__3AL;
- __INTEGER __tmp__EJT,Self__FJT,__tmp__NJT,Self__OJT,__tmp__WJT;
- __INTEGER Self__XJT,siz__YWS,Self__3WS,__tmp__5JT,Self__AKT,siz__BIK;
- __INTEGER Self__YRK;
- __BOOLEAN __tmp__BAT,__tmp__NAT;
- __CHARACTER *__tmp__GJT,*__tmp__PJT,*__tmp__YJT,*__tmp__BKT;
- __POINTER *na_src__0WS,*na_dst__2WS,*na_src__5HK,*na_dst__AIK;
- mem__RGI=NULL;
- result__SGI=((__POINTER )(NULL));
- a__PRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__IGI=(__UINTEGER_32)((__UINTEGER_32)(old_sz__FGI + a__PRS) & (__UINTEGER_32)(~ a__PRS));
- old_size2__LGI=(__UINTEGER_32)(old_size__IGI + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__TRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OGI=(__UINTEGER_32)((__UINTEGER_32)(new_sz__GGI + a__TRS) & (__UINTEGER_32)(~ a__TRS));
- if ((old_size2__LGI <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__OO=((__POINTER )(NULL));
- a__A1=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IO=(__UINTEGER_32)((__UINTEGER_32)(new_size__OGI + a__A1) & (__UINTEGER_32)(~ a__A1));
- new_size2__LO=(__UINTEGER_32)(new_size__IO + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__LO <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__LSS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MSS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LO + a__LSS) & (__UINTEGER_32)(~ a__LSS));
- ptr_table__AWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MSS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__5VS=((__POINTER )(NULL));
- result__BWS=((__POINTER *)ptr_table__AWS)[ 0];
- if ((result__BWS == (void *)NULL)) {
- idx__35S= 0;
- blc__45S=NULL;
- prev__55S=NULL;
- pv__AAT= 0;
- while_do__2AC__CAT:
- {
- if ((idx__35S < nb_page__L2B)) {
- blc__45S=((__MEMORY *)(last_block[(idx__35S)]));
- __tmp__BAT=(((__UINTEGER_32)(((__MEMORY *)blc__45S)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__45S)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__BAT=FALSE__;
- };
- if (__tmp__BAT) {
- idx__35S=(__UINTEGER_32)(idx__35S + 1);
- goto while_do__2AC__CAT;
- };
- };
- if ((idx__35S >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__AJT=((__POINTER )(NULL));
- cap__BJT= 33554432;
- do {
- cap__BJT=(__UINTEGER_32)(cap__BJT << 1);
- mem__AJT=((__POINTER )(malloc((cap__BJT))));
- if ((mem__AJT != (void *)NULL)) {
- free((mem__AJT));
- };
- } while ((! ((mem__AJT == (void *)NULL) || (cap__BJT == 2147483648LU))));
- if ((mem__AJT == (void *)NULL)) {
- cap__BJT=(__UINTEGER_32)(cap__BJT >> 1);
- };
- capacity_max__NTD=cap__BJT;
- begin_memory__2RB=((__POINTER )(malloc((cap__BJT))));
- };
- old_size__DJT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__DJT + 67108864) > capacity_max__NTD)) {
- __tmp__EJT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__FJT= 1;
- __tmp__GJT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__FJT <= __tmp__EJT)) {
- fputc((int)(((__CHARACTER *)__tmp__GJT)[(__INTEGER)(Self__FJT - 1)]),stdout);
- Self__FJT=(__INTEGER)(Self__FJT + 1);
- };
- exit(( 1));
- };
- block__IJT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__DJT))));
- block__IJT->previous_linear__ID= 4294967295LU;
- block__IJT->size_and_id__JD= 67108858;
- block__IJT->next_free__KD=first_free__LMD;
- block__IJT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__IJT;
- };
- first_free__LMD=block__IJT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__IJT);
- blc__45S=block__IJT;
- };
- ((__MEMORY *)blc__45S)->size_and_id__JD=(__UINTEGER_32)(blc__45S->size_and_id__JD - 4096);
- Self__DAT=((__MEMORY *)blc__45S);
- result__EAT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__DAT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__DAT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__45S)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__FAT=((__MEMORY *)blc__45S);
- prev__GAT=Self__FAT->previous_free__LD;
- next__HAT=Self__FAT->next_free__KD;
- if (((void *)prev__GAT == (void *)NULL)) {
- first_free__LMD=next__HAT;
- } else {
- ((__MEMORY *)prev__GAT)->next_free__KD=next__HAT;
- };
- if (((void *)next__HAT != (void *)NULL)) {
- ((__MEMORY *)next__HAT)->previous_free__LD=prev__GAT;
- };
- pv__AAT=blc__45S->previous_linear__ID;
- if ((pv__AAT != 4294967295LU)) {
- prev__55S=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__AAT))));
- ((__MEMORY *)prev__55S)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__55S->size_and_id__JD + blc__45S->size_and_id__JD) + 8);
- last_block[(idx__35S)] = (prev__55S);
- };
- };
- ((__POINTER *)result__EAT)[ 0]=((__POINTER )new_size__MSS);
- result__BWS=(void *)((unsigned long)result__EAT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__5VS=(void *)((unsigned long)result__BWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MSS)));
- ((__POINTER *)next__5VS)[ 0]=NULL;
- ((__POINTER *)ptr_table__AWS)[ 0]=next__5VS;
- } else {
- next__5VS=((__POINTER *)result__BWS)[ 0];
- if ((next__5VS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BWS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__MSS << 1)) <= 4096)) {
- next__5VS=(void *)((unsigned long)result__BWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MSS)));
- } else {
- idx__JAT= 0;
- blc__KAT=NULL;
- prev__LAT=NULL;
- pv__MAT= 0;
- while_do__2AC__OAT:
- {
- if ((idx__JAT < nb_page__L2B)) {
- blc__KAT=((__MEMORY *)(last_block[(idx__JAT)]));
- __tmp__NAT=(((__UINTEGER_32)(((__MEMORY *)blc__KAT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__KAT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__NAT=FALSE__;
- };
- if (__tmp__NAT) {
- idx__JAT=(__UINTEGER_32)(idx__JAT + 1);
- goto while_do__2AC__OAT;
- };
- };
- if ((idx__JAT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__JJT=((__POINTER )(NULL));
- cap__KJT= 33554432;
- do {
- cap__KJT=(__UINTEGER_32)(cap__KJT << 1);
- mem__JJT=((__POINTER )(malloc((cap__KJT))));
- if ((mem__JJT != (void *)NULL)) {
- free((mem__JJT));
- };
- } while ((! ((mem__JJT == (void *)NULL) || (cap__KJT == 2147483648LU))));
- if ((mem__JJT == (void *)NULL)) {
- cap__KJT=(__UINTEGER_32)(cap__KJT >> 1);
- };
- capacity_max__NTD=cap__KJT;
- begin_memory__2RB=((__POINTER )(malloc((cap__KJT))));
- };
- old_size__MJT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__MJT + 67108864) > capacity_max__NTD)) {
- __tmp__NJT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__OJT= 1;
- __tmp__PJT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__OJT <= __tmp__NJT)) {
- fputc((int)(((__CHARACTER *)__tmp__PJT)[(__INTEGER)(Self__OJT - 1)]),stdout);
- Self__OJT=(__INTEGER)(Self__OJT + 1);
- };
- exit(( 1));
- };
- block__RJT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__MJT))));
- block__RJT->previous_linear__ID= 4294967295LU;
- block__RJT->size_and_id__JD= 67108858;
- block__RJT->next_free__KD=first_free__LMD;
- block__RJT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__RJT;
- };
- first_free__LMD=block__RJT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__RJT);
- blc__KAT=block__RJT;
- };
- ((__MEMORY *)blc__KAT)->size_and_id__JD=(__UINTEGER_32)(blc__KAT->size_and_id__JD - 4096);
- Self__PAT=((__MEMORY *)blc__KAT);
- result__QAT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PAT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__PAT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__KAT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__RAT=((__MEMORY *)blc__KAT);
- prev__SAT=Self__RAT->previous_free__LD;
- next__TAT=Self__RAT->next_free__KD;
- if (((void *)prev__SAT == (void *)NULL)) {
- first_free__LMD=next__TAT;
- } else {
- ((__MEMORY *)prev__SAT)->next_free__KD=next__TAT;
- };
- if (((void *)next__TAT != (void *)NULL)) {
- ((__MEMORY *)next__TAT)->previous_free__LD=prev__SAT;
- };
- pv__MAT=blc__KAT->previous_linear__ID;
- if ((pv__MAT != 4294967295LU)) {
- prev__LAT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__MAT))));
- ((__MEMORY *)prev__LAT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__LAT->size_and_id__JD + blc__KAT->size_and_id__JD) + 8);
- last_block[(idx__JAT)] = (prev__LAT);
- };
- };
- ((__POINTER *)result__QAT)[ 0]=((__POINTER )new_size__MSS);
- next__5VS=(void *)((unsigned long)result__QAT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__5VS)[ 0]=NULL;
- ((__POINTER *)ptr_table__AWS)[ 0]=next__5VS;
- } else {
- ((__POINTER *)result__BWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__5VS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BWS=next__5VS;
- };
- };
- ((__POINTER *)result__BWS)[ 0]=((__POINTER ) 3);
- result__OO=(void *)((unsigned long)result__BWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__V0S=first_free__LMD;
- while ((((void *)result__V0S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__V0S)->size_and_id__JD & 4294967292LU) < new_size__IO))) {
- result__V0S=result__V0S->next_free__KD;
- };
- if (((void *)result__V0S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__SJT=((__POINTER )(NULL));
- cap__TJT= 33554432;
- do {
- cap__TJT=(__UINTEGER_32)(cap__TJT << 1);
- mem__SJT=((__POINTER )(malloc((cap__TJT))));
- if ((mem__SJT != (void *)NULL)) {
- free((mem__SJT));
- };
- } while ((! ((mem__SJT == (void *)NULL) || (cap__TJT == 2147483648LU))));
- if ((mem__SJT == (void *)NULL)) {
- cap__TJT=(__UINTEGER_32)(cap__TJT >> 1);
- };
- capacity_max__NTD=cap__TJT;
- begin_memory__2RB=((__POINTER )(malloc((cap__TJT))));
- };
- old_size__VJT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__VJT + 67108864) > capacity_max__NTD)) {
- __tmp__WJT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__XJT= 1;
- __tmp__YJT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__XJT <= __tmp__WJT)) {
- fputc((int)(((__CHARACTER *)__tmp__YJT)[(__INTEGER)(Self__XJT - 1)]),stdout);
- Self__XJT=(__INTEGER)(Self__XJT + 1);
- };
- exit(( 1));
- };
- block__0JT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__VJT))));
- block__0JT->previous_linear__ID= 4294967295LU;
- block__0JT->size_and_id__JD= 67108858;
- block__0JT->next_free__KD=first_free__LMD;
- block__0JT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__0JT;
- };
- first_free__LMD=block__0JT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__0JT);
- result__V0S=block__0JT;
- };
- Self__Y0S=((__MEMORY *)result__V0S);
- idx__Z0S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__V0S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__00S=NULL;
- prev__10S=Self__Y0S->previous_free__LD;
- next__20S=Self__Y0S->next_free__KD;
- if (((void *)prev__10S == (void *)NULL)) {
- first_free__LMD=next__20S;
- } else {
- ((__MEMORY *)prev__10S)->next_free__KD=next__20S;
- };
- if (((void *)next__20S != (void *)NULL)) {
- ((__MEMORY *)next__20S)->previous_free__LD=prev__10S;
- };
- siz__30S=Self__Y0S->size_and_id__JD;
- new_size__40S=(__UINTEGER_32)(siz__30S - new_size__IO);
- if ((new_size__40S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__30S=new_size__IO;
- new__00S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__Y0S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IO))));
- ((__MEMORY *)new__00S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__Y0S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__00S)->size_and_id__JD=(__UINTEGER_32)(new_size__40S - 8);
- Self__50S=((__MEMORY *)new__00S);
- Self__50S->next_free__KD=first_free__LMD;
- Self__50S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__50S;
- };
- first_free__LMD=Self__50S;
- if (((__UINTEGER_32)(((__MEMORY *)new__00S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__Z0S)] = (new__00S);
- } else {
- Self__A1S=((__MEMORY *)new__00S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__A1S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__A1S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__00S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__Y0S->size_and_id__JD=(__UINTEGER_32)(siz__30S | 1);
- result__OO=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__V0S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__SGI=result__OO;
- siz__YWS=((__INTEGER )old_size__IGI);
- siz__YWS=(__INTEGER)(siz__YWS / ((__INTEGER )(sizeof(void *))));
- na_src__0WS=((__POINTER *)p__EGI);
- na_dst__2WS=((__POINTER *)result__OO);
- Self__3WS=(__INTEGER)(siz__YWS - 1);
- while ((Self__3WS >= 0)) {
- na_dst__2WS[Self__3WS]=na_src__0WS[Self__3WS];
- Self__3WS=(__INTEGER)(Self__3WS - 1);
- };
- p__CJK=(void *)((unsigned long)p__EGI - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__XRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__FUK=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__LGI + a__XRS) & (__UINTEGER_32)(~ a__XRS)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__CJK)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__FUK)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__FUK)[ 0]=p__CJK;
- } else {
- mem__RGI=((__MEMORY *)(void *)((unsigned long)p__EGI - (unsigned long)((__POINTER ) 8)));
- __tmp__DII=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__EGI - (unsigned long)begin_memory__2RB)))) >> 26);
- Self__MKK=((__MEMORY *)mem__RGI);
- nxt__QKK=NULL;
- result__RKK=NULL;
- sz__VKK= 0;
- old_size__SKK=(__UINTEGER_32)(Self__MKK->size_and_id__JD & 4294967292LU);
- if ((new_size__OGI > old_size__SKK)) {
- if ((! ((__UINTEGER_32)(Self__MKK->size_and_id__JD & 2) != 0))) {
- nxt__QKK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__MKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__MKK->size_and_id__JD & 4294967292LU)))));
- sz__VKK=(__UINTEGER_32)((__UINTEGER_32)(new_size__OGI - old_size__SKK) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__QKK)->size_and_id__JD & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__QKK)->size_and_id__JD & 4294967292LU) >= sz__VKK))) {
- Self__AXS=((__MEMORY *)nxt__QKK);
- new__5WS=NULL;
- prev__BXS=Self__AXS->previous_free__LD;
- next__CXS=Self__AXS->next_free__KD;
- if (((void *)prev__BXS == (void *)NULL)) {
- first_free__LMD=next__CXS;
- } else {
- ((__MEMORY *)prev__BXS)->next_free__KD=next__CXS;
- };
- if (((void *)next__CXS != (void *)NULL)) {
- ((__MEMORY *)next__CXS)->previous_free__LD=prev__BXS;
- };
- siz__DXS=Self__AXS->size_and_id__JD;
- new_size__FXS=(__UINTEGER_32)(siz__DXS - sz__VKK);
- if ((new_size__FXS > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__DXS=sz__VKK;
- new__5WS=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__AXS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__VKK))));
- ((__MEMORY *)new__5WS)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__AXS) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__5WS)->size_and_id__JD=(__UINTEGER_32)(new_size__FXS - 8);
- Self__GXS=((__MEMORY *)new__5WS);
- Self__GXS->next_free__KD=first_free__LMD;
- Self__GXS->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__GXS;
- };
- first_free__LMD=Self__GXS;
- if (((__UINTEGER_32)(((__MEMORY *)new__5WS)->size_and_id__JD & 2) != 0)) {
- last_block[(__tmp__DII)] = (new__5WS);
- } else {
- Self__IXS=((__MEMORY *)new__5WS);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__IXS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__IXS->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__5WS)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__AXS->size_and_id__JD=(__UINTEGER_32)(siz__DXS | 1);
- Self__MKK->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(Self__MKK->size_and_id__JD + (__UINTEGER_32)(nxt__QKK->size_and_id__JD & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__MKK->size_and_id__JD & 2) != 0)) {
- last_block[(__tmp__DII)] = (Self__MKK);
- } else {
- nxt__QKK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__MKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__MKK->size_and_id__JD & 4294967292LU)))));
- ((__MEMORY *)nxt__QKK)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__MKK) - (unsigned long)begin_memory__2RB))));
- };
- result__RKK=Self__MKK;
- };
- };
- if (((void *)result__RKK == (void *)NULL)) {
- result__B1S=first_free__LMD;
- while ((((void *)result__B1S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__B1S)->size_and_id__JD & 4294967292LU) < new_size__OGI))) {
- result__B1S=result__B1S->next_free__KD;
- };
- if (((void *)result__B1S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__1JT=((__POINTER )(NULL));
- cap__2JT= 33554432;
- do {
- cap__2JT=(__UINTEGER_32)(cap__2JT << 1);
- mem__1JT=((__POINTER )(malloc((cap__2JT))));
- if ((mem__1JT != (void *)NULL)) {
- free((mem__1JT));
- };
- } while ((! ((mem__1JT == (void *)NULL) || (cap__2JT == 2147483648LU))));
- if ((mem__1JT == (void *)NULL)) {
- cap__2JT=(__UINTEGER_32)(cap__2JT >> 1);
- };
- capacity_max__NTD=cap__2JT;
- begin_memory__2RB=((__POINTER )(malloc((cap__2JT))));
- };
- old_size__4JT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__4JT + 67108864) > capacity_max__NTD)) {
- __tmp__5JT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__AKT= 1;
- __tmp__BKT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__AKT <= __tmp__5JT)) {
- fputc((int)(((__CHARACTER *)__tmp__BKT)[(__INTEGER)(Self__AKT - 1)]),stdout);
- Self__AKT=(__INTEGER)(Self__AKT + 1);
- };
- exit(( 1));
- };
- block__DKT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__4JT))));
- block__DKT->previous_linear__ID= 4294967295LU;
- block__DKT->size_and_id__JD= 67108858;
- block__DKT->next_free__KD=first_free__LMD;
- block__DKT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__DKT;
- };
- first_free__LMD=block__DKT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__DKT);
- result__B1S=block__DKT;
- };
- Self__E1S=((__MEMORY *)result__B1S);
- idx__F1S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__B1S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__G1S=NULL;
- prev__H1S=Self__E1S->previous_free__LD;
- next__I1S=Self__E1S->next_free__KD;
- if (((void *)prev__H1S == (void *)NULL)) {
- first_free__LMD=next__I1S;
- } else {
- ((__MEMORY *)prev__H1S)->next_free__KD=next__I1S;
- };
- if (((void *)next__I1S != (void *)NULL)) {
- ((__MEMORY *)next__I1S)->previous_free__LD=prev__H1S;
- };
- siz__J1S=Self__E1S->size_and_id__JD;
- new_size__K1S=(__UINTEGER_32)(siz__J1S - new_size__OGI);
- if ((new_size__K1S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__J1S=new_size__OGI;
- new__G1S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__E1S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OGI))));
- ((__MEMORY *)new__G1S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__E1S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__G1S)->size_and_id__JD=(__UINTEGER_32)(new_size__K1S - 8);
- Self__L1S=((__MEMORY *)new__G1S);
- Self__L1S->next_free__KD=first_free__LMD;
- Self__L1S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__L1S;
- };
- first_free__LMD=Self__L1S;
- if (((__UINTEGER_32)(((__MEMORY *)new__G1S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__F1S)] = (new__G1S);
- } else {
- Self__M1S=((__MEMORY *)new__G1S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__M1S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__M1S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__G1S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__E1S->size_and_id__JD=(__UINTEGER_32)(siz__J1S | 1);
- result__RKK=result__B1S;
- src__2HK=(void *)((unsigned long)((__POINTER )Self__MKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__3HK=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__B1S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__BIK=((__INTEGER )old_size__SKK);
- siz__BIK=(__INTEGER)(siz__BIK / ((__INTEGER )(sizeof(void *))));
- na_src__5HK=((__POINTER *)src__2HK);
- na_dst__AIK=((__POINTER *)dst__3HK);
- Self__YRK=(__INTEGER)(siz__BIK - 1);
- while ((Self__YRK >= 0)) {
- na_dst__AIK[Self__YRK]=na_src__5HK[Self__YRK];
- Self__YRK=(__INTEGER)(Self__YRK - 1);
- };
- prev__0AL=Self__MKK->previous_linear__ID;
- next__ZAL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__MKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__MKK->size_and_id__JD & 4294967292LU)))));
- new_free__YAL=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__0AL))));
- new_size__3AL=(__UINTEGER_32)(Self__MKK->size_and_id__JD & 4294967294LU);
- if (((prev__0AL == 4294967295LU) || ((__UINTEGER_32)(new_free__YAL->size_and_id__JD & 1) != 0))) {
- new_free__YAL=Self__MKK;
- Self__MKK->next_free__KD=first_free__LMD;
- Self__MKK->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__MKK;
- };
- first_free__LMD=Self__MKK;
- } else {
- new_size__3AL=(__UINTEGER_32)((__UINTEGER_32)(new_size__3AL + new_free__YAL->size_and_id__JD) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__MKK->size_and_id__JD & 2) != 0)) && ((__UINTEGER_32)(next__ZAL->size_and_id__JD & 1) == 0))) {
- new_size__3AL=(__UINTEGER_32)((__UINTEGER_32)(new_size__3AL + next__ZAL->size_and_id__JD) + 8);
- prev__DSS=next__ZAL->previous_free__LD;
- next__ESS=next__ZAL->next_free__KD;
- if (((void *)prev__DSS == (void *)NULL)) {
- first_free__LMD=next__ESS;
- } else {
- ((__MEMORY *)prev__DSS)->next_free__KD=next__ESS;
- };
- if (((void *)next__ESS != (void *)NULL)) {
- ((__MEMORY *)next__ESS)->previous_free__LD=prev__DSS;
- };
- };
- new_free__YAL->size_and_id__JD=new_size__3AL;
- if (((__UINTEGER_32)(new_free__YAL->size_and_id__JD & 2) != 0)) {
- last_block[(__tmp__DII)] = (new_free__YAL);
- } else {
- next__ZAL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__MKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__MKK->size_and_id__JD & 4294967292LU)))));
- next__ZAL->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__YAL) - (unsigned long)begin_memory__2RB))));
- };
- };
- } else {
- result__RKK=Self__MKK;
- };
- result__SGI=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__RKK)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__SGI);
-}
-
-void offset_momentum(__INTEGER n__IG)
-// ({INTEGER}) VoidNo recursive, Inlinable.
-{
- __REAL_64 px__JG,py__MG,pz__PG,__tmp__NH,__tmp__RH,__tmp__VH;
- __PLANET *b__SG;
- __INTEGER Self__OT;
- __PLANET *__tmp__JH;
- px__JG=((__REAL_64 ) 0);
- py__MG=((__REAL_64 ) 0);
- pz__PG=((__REAL_64 ) 0);
- b__SG=NULL;
- Self__OT= 0;
- while ((Self__OT <= n__IG)) {
- b__SG=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__OT])));
- px__JG=((__REAL_64 )((px__JG) + ((__REAL_64)(b__SG->vx__IE * b__SG->mass__1D))));
- py__MG=((__REAL_64 )((py__MG) + ((__REAL_64)(b__SG->vy__ME * b__SG->mass__1D))));
- pz__PG=((__REAL_64 )((pz__PG) + ((__REAL_64)(b__SG->vz__QE * b__SG->mass__1D))));
- Self__OT=(__INTEGER)(Self__OT + 1);
- };
- __tmp__JH=&(((__PLANET *)bodies__GB)[ 0]);
- __tmp__NH=(__REAL_64)((__REAL_64)(((__REAL_64 ) 0) - px__JG) / solar_mass__ZD);
- __tmp__RH=(__REAL_64)((__REAL_64)(((__REAL_64 ) 0) - py__MG) / solar_mass__ZD);
- __tmp__VH=(__REAL_64)((__REAL_64)(((__REAL_64 ) 0) - pz__PG) / solar_mass__ZD);
- __tmp__JH->vx__IE=__tmp__NH;
- __tmp__JH->vy__ME=__tmp__RH;
- __tmp__JH->vz__QE=__tmp__VH;
-}
-
-__REAL_64 energy(__INTEGER n__XH)
-// ({INTEGER}) With resultNo recursive, Inlinable.
-{
- __REAL_64 e__ZH,dx__4H,dy__BI,dz__EI,__tmp__TOS,__tmp__UOS,__tmp__VOS;
- __REAL_64 __tmp__WOS;
- __PLANET *b__2H,*b2__3H;
- __INTEGER __tmp__KI,Self__EV,__tmp__KJ,__tmp__LJ,Self__RCE;
- e__ZH=((__REAL_64 ) 0);
- b__2H=NULL;
- b2__3H=NULL;
- dx__4H=((__REAL_64 ) 0);
- dy__BI=((__REAL_64 ) 0);
- dz__EI=((__REAL_64 ) 0);
- __tmp__KI=nbodies__AB;
- Self__EV= 0;
- while ((Self__EV <= __tmp__KI)) {
- b__2H=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__EV])));
- e__ZH=((__REAL_64 )((e__ZH) + ((__REAL_64)((__REAL_64)(b__2H->mass__1D * ((__REAL_64 )0.5)) * ((__REAL_64 )((((__REAL_64 )(((__REAL_64)(b__2H->vx__IE * b__2H->vx__IE)) + ((__REAL_64)(b__2H->vy__ME * b__2H->vy__ME))))) + ((__REAL_64)(b__2H->vz__QE * b__2H->vz__QE))))))));
- __tmp__KJ=(__INTEGER)(Self__EV + 1);
- __tmp__LJ=nbodies__AB;
- Self__RCE=__tmp__KJ;
- __tmp__TOS=b__2H->x__5D;
- __tmp__UOS=b__2H->y__BE;
- __tmp__VOS=b__2H->z__DE;
- __tmp__WOS=b__2H->mass__1D;
- while ((Self__RCE <= __tmp__LJ)) {
- b2__3H=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__RCE])));
- dx__4H=(__REAL_64)(__tmp__TOS - b2__3H->x__5D);
- dy__BI=(__REAL_64)(__tmp__UOS - b2__3H->y__BE);
- dz__EI=(__REAL_64)(__tmp__VOS - b2__3H->z__DE);
- e__ZH=(__REAL_64)(e__ZH - (__REAL_64)((__REAL_64)(__tmp__WOS * b2__3H->mass__1D) / ((__REAL_64 )(sqrt((((__REAL_64 )((((__REAL_64 )(((__REAL_64)(dx__4H * dx__4H)) + ((__REAL_64)(dy__BI * dy__BI))))) + ((__REAL_64)(dz__EI * dz__EI))))))))));
- Self__RCE=(__INTEGER)(Self__RCE + 1);
- };
- Self__EV=(__INTEGER)(Self__EV + 1);
- };
- return(e__ZH);
-}
-
-static void print_format_c__QK(__REAL_64 Self__RK)
-// ({REAL_64}) VoidNo recursive, No inlinable.
-{
- __INTEGER old_count__BW,cap__CW,new_capacity__JXS,__tmp__IKT;
- __INTEGER Self__JKT,__tmp__RKT,Self__SKT,__tmp__0KT,Self__1KT;
- __INTEGER Self__HYS,__tmp__MXS,__tmp__OXS,Self__PXS,nb_elements__JYS;
- __INTEGER __tmp__DLT,Self__ELT,__tmp__MLT,Self__NLT,__tmp__VLT;
- __INTEGER Self__WLT,Self__VYS,__tmp__OWC,Self__S4H,new_capacity__SXS;
- __INTEGER __tmp__4LT,Self__5LT,__tmp__HMT,Self__IMT,__tmp__QMT;
- __INTEGER Self__RMT,Self__DZS,__tmp__VXS,__tmp__XXS,Self__YXS;
- __INTEGER __tmp__GZS,Self__HZS;
- __STRING *Self__LVS,*new__EFB,*Self__QVC,*Self__1PC,*Self__NRC;
- __POINTER result__3XS,ptr_table__DYS,next__EYS,result__FYS,mem__EKT;
- __POINTER result__2AT,mem__NKT,result__IBT,mem__WKT,ptr__ZEH;
- __POINTER result__LYS,ptr_table__RYS,next__SYS,result__TYS,mem__5KT;
- __POINTER result__UBT,mem__ILT,result__ACT,mem__RLT,result__ZYS;
- __POINTER ptr_table__5YS,next__AZS,result__BZS,mem__0LT,result__MCT;
- __POINTER mem__DMT,result__YCT,mem__MMT;
- __UINTEGER_32 a__4XS,new_size__5XS,new_size2__AYS,a__BYS;
- __UINTEGER_32 new_size__CYS,idx__VAT,pv__YAT,cap__FKT,old_size__HKT;
- __UINTEGER_32 idx__BBT,pv__EBT,cap__OKT,old_size__QKT,cap__XKT;
- __UINTEGER_32 old_size__ZKT,idx__R1S,siz__V1S,new_size__W1S,sz__KYS;
- __UINTEGER_32 a__MYS,new_size__NYS,new_size2__OYS,a__PYS;
- __UINTEGER_32 new_size__QYS,idx__NBT,pv__QBT,cap__ALT,old_size__CLT;
- __UINTEGER_32 idx__ZBT,pv__2BT,cap__JLT,old_size__LLT,cap__SLT;
- __UINTEGER_32 old_size__ULT,idx__31S,siz__B2S,new_size__C2S,a__0YS;
- __UINTEGER_32 new_size__1YS,new_size2__2YS,a__3YS,new_size__4YS;
- __UINTEGER_32 idx__FCT,pv__ICT,cap__1LT,old_size__3LT,idx__RCT;
- __UINTEGER_32 pv__UCT,cap__EMT,old_size__GMT,cap__NMT,old_size__PMT;
- __UINTEGER_32 idx__J2S,siz__N2S,new_size__O2S;
- __MEMORY *blc__WAT,*prev__XAT,*block__MKT,*Self__1AT,*Self__3AT;
- __MEMORY *prev__4AT,*next__5AT,*blc__CBT,*prev__DBT,*block__VKT;
- __MEMORY *Self__HBT,*Self__JBT,*prev__KBT,*next__LBT,*result__N1S;
- __MEMORY *block__4KT,*Self__Q1S,*new__S1S,*prev__T1S,*next__U1S;
- __MEMORY *Self__X1S,*Self__Y1S,*blc__OBT,*prev__PBT,*block__HLT;
- __MEMORY *Self__TBT,*Self__VBT,*prev__WBT,*next__XBT,*blc__0BT;
- __MEMORY *prev__1BT,*block__QLT,*Self__5BT,*Self__BCT,*prev__CCT;
- __MEMORY *next__DCT,*result__Z1S,*block__ZLT,*Self__21S,*new__41S;
- __MEMORY *prev__51S,*next__A2S,*Self__D2S,*Self__E2S,*blc__GCT;
- __MEMORY *prev__HCT,*block__CMT,*Self__LCT,*Self__NCT,*prev__OCT;
- __MEMORY *next__PCT,*blc__SCT,*prev__TCT,*block__LMT,*Self__XCT;
- __MEMORY *Self__ZCT,*prev__0CT,*next__1CT,*result__F2S,*block__UMT;
- __MEMORY *Self__I2S,*new__K2S,*prev__L2S,*next__M2S,*Self__P2S;
- __MEMORY *Self__Q2S;
- void *s__FZS;
- __BOOLEAN __tmp__ZAT,__tmp__FBT,__tmp__RBT,__tmp__3BT,__tmp__JCT;
- __BOOLEAN __tmp__VCT;
- __CHARACTER *__tmp__KKT,*__tmp__TKT,*__tmp__2KT,*Result__GYS;
- __CHARACTER *__tmp__LXS,*new__NXS,*nc_buf__5V,*__tmp__FLT,*__tmp__OLT;
- __CHARACTER *__tmp__XLT,*Result__UYS,*__tmp__IWC,*__tmp__LWC;
- __CHARACTER *Self__IMH,*__tmp__AMT,*__tmp__JMT,*__tmp__SMT;
- __CHARACTER *Result__CZS,*__tmp__UXS,*new__WXS,*__tmp__3OS,*__tmp__KZS;
- ((__STRING *)string_tmp__TK)->count__DW= 0;
- old_count__BW=((__STRING *)string_tmp__TK)->count__DW;
- cap__CW=(__INTEGER)(((__STRING *)string_tmp__TK)->capacity__FW - old_count__BW);
- Self__LVS=((__STRING *)string_tmp__TK);
- if ((Self__LVS->capacity__FW > Self__LVS->count__DW)) {
- Self__LVS->count__DW=(__INTEGER)(Self__LVS->count__DW + 1);
- if ((((__CHARACTER *)Self__LVS->storage__2QC)[(__INTEGER)(Self__LVS->count__DW - 1)] != '\0')) {
- ((__CHARACTER *)Self__LVS->storage__2QC)[(__INTEGER)(Self__LVS->count__DW - 1)]='\0';
- };
- } else {
- new_capacity__JXS= 0;
- if ((Self__LVS->capacity__FW <= Self__LVS->count__DW)) {
- if ((Self__LVS->capacity__FW == 0)) {
- Self__LVS->capacity__FW= 32;
- result__3XS=((__POINTER )(NULL));
- a__4XS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5XS=(__UINTEGER_32)((__UINTEGER_32)( 32 + a__4XS) & (__UINTEGER_32)(~ a__4XS));
- new_size2__AYS=(__UINTEGER_32)(new_size__5XS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__AYS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__BYS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CYS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__AYS + a__BYS) & (__UINTEGER_32)(~ a__BYS));
- ptr_table__DYS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CYS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EYS=((__POINTER )(NULL));
- result__FYS=((__POINTER *)ptr_table__DYS)[ 0];
- if ((result__FYS == (void *)NULL)) {
- idx__VAT= 0;
- blc__WAT=NULL;
- prev__XAT=NULL;
- pv__YAT= 0;
- while_do__2AC__0AT:
- {
- if ((idx__VAT < nb_page__L2B)) {
- blc__WAT=((__MEMORY *)(last_block[(idx__VAT)]));
- __tmp__ZAT=(((__UINTEGER_32)(((__MEMORY *)blc__WAT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__WAT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__ZAT=FALSE__;
- };
- if (__tmp__ZAT) {
- idx__VAT=(__UINTEGER_32)(idx__VAT + 1);
- goto while_do__2AC__0AT;
- };
- };
- if ((idx__VAT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__EKT=((__POINTER )(NULL));
- cap__FKT= 33554432;
- do {
- cap__FKT=(__UINTEGER_32)(cap__FKT << 1);
- mem__EKT=((__POINTER )(malloc((cap__FKT))));
- if ((mem__EKT != (void *)NULL)) {
- free((mem__EKT));
- };
- } while ((! ((mem__EKT == (void *)NULL) || (cap__FKT == 2147483648LU))));
- if ((mem__EKT == (void *)NULL)) {
- cap__FKT=(__UINTEGER_32)(cap__FKT >> 1);
- };
- capacity_max__NTD=cap__FKT;
- begin_memory__2RB=((__POINTER )(malloc((cap__FKT))));
- };
- old_size__HKT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__HKT + 67108864) > capacity_max__NTD)) {
- __tmp__IKT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__JKT= 1;
- __tmp__KKT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__JKT <= __tmp__IKT)) {
- fputc((int)(((__CHARACTER *)__tmp__KKT)[(__INTEGER)(Self__JKT - 1)]),stdout);
- Self__JKT=(__INTEGER)(Self__JKT + 1);
- };
- exit(( 1));
- };
- block__MKT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__HKT))));
- block__MKT->previous_linear__ID= 4294967295LU;
- block__MKT->size_and_id__JD= 67108858;
- block__MKT->next_free__KD=first_free__LMD;
- block__MKT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__MKT;
- };
- first_free__LMD=block__MKT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__MKT);
- blc__WAT=block__MKT;
- };
- ((__MEMORY *)blc__WAT)->size_and_id__JD=(__UINTEGER_32)(blc__WAT->size_and_id__JD - 4096);
- Self__1AT=((__MEMORY *)blc__WAT);
- result__2AT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1AT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1AT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__WAT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__3AT=((__MEMORY *)blc__WAT);
- prev__4AT=Self__3AT->previous_free__LD;
- next__5AT=Self__3AT->next_free__KD;
- if (((void *)prev__4AT == (void *)NULL)) {
- first_free__LMD=next__5AT;
- } else {
- ((__MEMORY *)prev__4AT)->next_free__KD=next__5AT;
- };
- if (((void *)next__5AT != (void *)NULL)) {
- ((__MEMORY *)next__5AT)->previous_free__LD=prev__4AT;
- };
- pv__YAT=blc__WAT->previous_linear__ID;
- if ((pv__YAT != 4294967295LU)) {
- prev__XAT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__YAT))));
- ((__MEMORY *)prev__XAT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__XAT->size_and_id__JD + blc__WAT->size_and_id__JD) + 8);
- last_block[(idx__VAT)] = (prev__XAT);
- };
- };
- ((__POINTER *)result__2AT)[ 0]=((__POINTER )new_size__CYS);
- result__FYS=(void *)((unsigned long)result__2AT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__EYS=(void *)((unsigned long)result__FYS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CYS)));
- ((__POINTER *)next__EYS)[ 0]=NULL;
- ((__POINTER *)ptr_table__DYS)[ 0]=next__EYS;
- } else {
- next__EYS=((__POINTER *)result__FYS)[ 0];
- if ((next__EYS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FYS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__CYS << 1)) <= 4096)) {
- next__EYS=(void *)((unsigned long)result__FYS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CYS)));
- } else {
- idx__BBT= 0;
- blc__CBT=NULL;
- prev__DBT=NULL;
- pv__EBT= 0;
- while_do__2AC__GBT:
- {
- if ((idx__BBT < nb_page__L2B)) {
- blc__CBT=((__MEMORY *)(last_block[(idx__BBT)]));
- __tmp__FBT=(((__UINTEGER_32)(((__MEMORY *)blc__CBT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__CBT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__FBT=FALSE__;
- };
- if (__tmp__FBT) {
- idx__BBT=(__UINTEGER_32)(idx__BBT + 1);
- goto while_do__2AC__GBT;
- };
- };
- if ((idx__BBT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__NKT=((__POINTER )(NULL));
- cap__OKT= 33554432;
- do {
- cap__OKT=(__UINTEGER_32)(cap__OKT << 1);
- mem__NKT=((__POINTER )(malloc((cap__OKT))));
- if ((mem__NKT != (void *)NULL)) {
- free((mem__NKT));
- };
- } while ((! ((mem__NKT == (void *)NULL) || (cap__OKT == 2147483648LU))));
- if ((mem__NKT == (void *)NULL)) {
- cap__OKT=(__UINTEGER_32)(cap__OKT >> 1);
- };
- capacity_max__NTD=cap__OKT;
- begin_memory__2RB=((__POINTER )(malloc((cap__OKT))));
- };
- old_size__QKT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__QKT + 67108864) > capacity_max__NTD)) {
- __tmp__RKT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__SKT= 1;
- __tmp__TKT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__SKT <= __tmp__RKT)) {
- fputc((int)(((__CHARACTER *)__tmp__TKT)[(__INTEGER)(Self__SKT - 1)]),stdout);
- Self__SKT=(__INTEGER)(Self__SKT + 1);
- };
- exit(( 1));
- };
- block__VKT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__QKT))));
- block__VKT->previous_linear__ID= 4294967295LU;
- block__VKT->size_and_id__JD= 67108858;
- block__VKT->next_free__KD=first_free__LMD;
- block__VKT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__VKT;
- };
- first_free__LMD=block__VKT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__VKT);
- blc__CBT=block__VKT;
- };
- ((__MEMORY *)blc__CBT)->size_and_id__JD=(__UINTEGER_32)(blc__CBT->size_and_id__JD - 4096);
- Self__HBT=((__MEMORY *)blc__CBT);
- result__IBT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__HBT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__HBT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__CBT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__JBT=((__MEMORY *)blc__CBT);
- prev__KBT=Self__JBT->previous_free__LD;
- next__LBT=Self__JBT->next_free__KD;
- if (((void *)prev__KBT == (void *)NULL)) {
- first_free__LMD=next__LBT;
- } else {
- ((__MEMORY *)prev__KBT)->next_free__KD=next__LBT;
- };
- if (((void *)next__LBT != (void *)NULL)) {
- ((__MEMORY *)next__LBT)->previous_free__LD=prev__KBT;
- };
- pv__EBT=blc__CBT->previous_linear__ID;
- if ((pv__EBT != 4294967295LU)) {
- prev__DBT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__EBT))));
- ((__MEMORY *)prev__DBT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__DBT->size_and_id__JD + blc__CBT->size_and_id__JD) + 8);
- last_block[(idx__BBT)] = (prev__DBT);
- };
- };
- ((__POINTER *)result__IBT)[ 0]=((__POINTER )new_size__CYS);
- next__EYS=(void *)((unsigned long)result__IBT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__EYS)[ 0]=NULL;
- ((__POINTER *)ptr_table__DYS)[ 0]=next__EYS;
- } else {
- ((__POINTER *)result__FYS)[ 0]=(void *)((unsigned long)((__POINTER *)next__EYS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FYS=next__EYS;
- };
- };
- ((__POINTER *)result__FYS)[ 0]=((__POINTER ) 3);
- result__3XS=(void *)((unsigned long)result__FYS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__N1S=first_free__LMD;
- while ((((void *)result__N1S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__N1S)->size_and_id__JD & 4294967292LU) < new_size__5XS))) {
- result__N1S=result__N1S->next_free__KD;
- };
- if (((void *)result__N1S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__WKT=((__POINTER )(NULL));
- cap__XKT= 33554432;
- do {
- cap__XKT=(__UINTEGER_32)(cap__XKT << 1);
- mem__WKT=((__POINTER )(malloc((cap__XKT))));
- if ((mem__WKT != (void *)NULL)) {
- free((mem__WKT));
- };
- } while ((! ((mem__WKT == (void *)NULL) || (cap__XKT == 2147483648LU))));
- if ((mem__WKT == (void *)NULL)) {
- cap__XKT=(__UINTEGER_32)(cap__XKT >> 1);
- };
- capacity_max__NTD=cap__XKT;
- begin_memory__2RB=((__POINTER )(malloc((cap__XKT))));
- };
- old_size__ZKT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__ZKT + 67108864) > capacity_max__NTD)) {
- __tmp__0KT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__1KT= 1;
- __tmp__2KT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__1KT <= __tmp__0KT)) {
- fputc((int)(((__CHARACTER *)__tmp__2KT)[(__INTEGER)(Self__1KT - 1)]),stdout);
- Self__1KT=(__INTEGER)(Self__1KT + 1);
- };
- exit(( 1));
- };
- block__4KT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__ZKT))));
- block__4KT->previous_linear__ID= 4294967295LU;
- block__4KT->size_and_id__JD= 67108858;
- block__4KT->next_free__KD=first_free__LMD;
- block__4KT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__4KT;
- };
- first_free__LMD=block__4KT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__4KT);
- result__N1S=block__4KT;
- };
- Self__Q1S=((__MEMORY *)result__N1S);
- idx__R1S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__N1S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__S1S=NULL;
- prev__T1S=Self__Q1S->previous_free__LD;
- next__U1S=Self__Q1S->next_free__KD;
- if (((void *)prev__T1S == (void *)NULL)) {
- first_free__LMD=next__U1S;
- } else {
- ((__MEMORY *)prev__T1S)->next_free__KD=next__U1S;
- };
- if (((void *)next__U1S != (void *)NULL)) {
- ((__MEMORY *)next__U1S)->previous_free__LD=prev__T1S;
- };
- siz__V1S=Self__Q1S->size_and_id__JD;
- new_size__W1S=(__UINTEGER_32)(siz__V1S - new_size__5XS);
- if ((new_size__W1S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__V1S=new_size__5XS;
- new__S1S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__Q1S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5XS))));
- ((__MEMORY *)new__S1S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__Q1S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__S1S)->size_and_id__JD=(__UINTEGER_32)(new_size__W1S - 8);
- Self__X1S=((__MEMORY *)new__S1S);
- Self__X1S->next_free__KD=first_free__LMD;
- Self__X1S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__X1S;
- };
- first_free__LMD=Self__X1S;
- if (((__UINTEGER_32)(((__MEMORY *)new__S1S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__R1S)] = (new__S1S);
- } else {
- Self__Y1S=((__MEMORY *)new__S1S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__Y1S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__Y1S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__S1S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__Q1S->size_and_id__JD=(__UINTEGER_32)(siz__V1S | 1);
- result__3XS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__N1S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__GYS=((__CHARACTER *)result__3XS);
- Self__HYS= 31;
- while ((Self__HYS >= 0)) {
- Result__GYS[Self__HYS]='\0';
- Self__HYS=(__INTEGER)(Self__HYS - 1);
- };
- Self__LVS->storage__2QC=Result__GYS;
- } else {
- new_capacity__JXS=(__INTEGER)(Self__LVS->capacity__FW << 1);
- __tmp__LXS=Self__LVS->storage__2QC;
- __tmp__MXS=Self__LVS->capacity__FW;
- new__NXS=((__CHARACTER *)realloc_dynamic__old_size__new_size__CGI(((__POINTER )((__CHARACTER *)__tmp__LXS)),((__UINTEGER_32 )__tmp__MXS),((__UINTEGER_32 )new_capacity__JXS)));
- __tmp__OXS=(__INTEGER)(new_capacity__JXS - 1);
- Self__PXS=__tmp__MXS;
- while ((Self__PXS <= __tmp__OXS)) {
- new__NXS[Self__PXS]='\0';
- Self__PXS=(__INTEGER)(Self__PXS + 1);
- };
- Self__LVS->storage__2QC=new__NXS;
- Self__LVS->capacity__FW=new_capacity__JXS;
- };
- };
- ((__CHARACTER *)Self__LVS->storage__2QC)[Self__LVS->count__DW]='\0';
- Self__LVS->count__DW=(__INTEGER)(Self__LVS->count__DW + 1);
- };
- Self__LVS->count__DW=(__INTEGER)(Self__LVS->count__DW - 1);
- ptr__ZEH=((__POINTER )((__CHARACTER *)Self__LVS->storage__2QC));
- ptr__ZEH=(void *)((unsigned long)ptr__ZEH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_count__BW)));
- nc_buf__5V=((__CHARACTER *)ptr__ZEH);
- new__EFB=create__Q3(((__STRING_CONSTANT *)(&__string_2))->count__XHB);
- Self__QVC=((__STRING *)new__EFB);
- Self__QVC->count__DW=((__STRING_CONSTANT *)(&__string_2))->count__XHB;
- if ((Self__QVC->count__DW > 0)) {
- if ((Self__QVC->capacity__FW < Self__QVC->count__DW)) {
- nb_elements__JYS=Self__QVC->count__DW;
- sz__KYS=((__UINTEGER_32 )nb_elements__JYS);
- result__LYS=((__POINTER )(NULL));
- a__MYS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NYS=(__UINTEGER_32)((__UINTEGER_32)(sz__KYS + a__MYS) & (__UINTEGER_32)(~ a__MYS));
- new_size2__OYS=(__UINTEGER_32)(new_size__NYS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__OYS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__PYS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QYS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OYS + a__PYS) & (__UINTEGER_32)(~ a__PYS));
- ptr_table__RYS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QYS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__SYS=((__POINTER )(NULL));
- result__TYS=((__POINTER *)ptr_table__RYS)[ 0];
- if ((result__TYS == (void *)NULL)) {
- idx__NBT= 0;
- blc__OBT=NULL;
- prev__PBT=NULL;
- pv__QBT= 0;
- while_do__2AC__SBT:
- {
- if ((idx__NBT < nb_page__L2B)) {
- blc__OBT=((__MEMORY *)(last_block[(idx__NBT)]));
- __tmp__RBT=(((__UINTEGER_32)(((__MEMORY *)blc__OBT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__OBT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__RBT=FALSE__;
- };
- if (__tmp__RBT) {
- idx__NBT=(__UINTEGER_32)(idx__NBT + 1);
- goto while_do__2AC__SBT;
- };
- };
- if ((idx__NBT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__5KT=((__POINTER )(NULL));
- cap__ALT= 33554432;
- do {
- cap__ALT=(__UINTEGER_32)(cap__ALT << 1);
- mem__5KT=((__POINTER )(malloc((cap__ALT))));
- if ((mem__5KT != (void *)NULL)) {
- free((mem__5KT));
- };
- } while ((! ((mem__5KT == (void *)NULL) || (cap__ALT == 2147483648LU))));
- if ((mem__5KT == (void *)NULL)) {
- cap__ALT=(__UINTEGER_32)(cap__ALT >> 1);
- };
- capacity_max__NTD=cap__ALT;
- begin_memory__2RB=((__POINTER )(malloc((cap__ALT))));
- };
- old_size__CLT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__CLT + 67108864) > capacity_max__NTD)) {
- __tmp__DLT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__ELT= 1;
- __tmp__FLT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__ELT <= __tmp__DLT)) {
- fputc((int)(((__CHARACTER *)__tmp__FLT)[(__INTEGER)(Self__ELT - 1)]),stdout);
- Self__ELT=(__INTEGER)(Self__ELT + 1);
- };
- exit(( 1));
- };
- block__HLT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__CLT))));
- block__HLT->previous_linear__ID= 4294967295LU;
- block__HLT->size_and_id__JD= 67108858;
- block__HLT->next_free__KD=first_free__LMD;
- block__HLT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__HLT;
- };
- first_free__LMD=block__HLT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__HLT);
- blc__OBT=block__HLT;
- };
- ((__MEMORY *)blc__OBT)->size_and_id__JD=(__UINTEGER_32)(blc__OBT->size_and_id__JD - 4096);
- Self__TBT=((__MEMORY *)blc__OBT);
- result__UBT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TBT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TBT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__OBT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__VBT=((__MEMORY *)blc__OBT);
- prev__WBT=Self__VBT->previous_free__LD;
- next__XBT=Self__VBT->next_free__KD;
- if (((void *)prev__WBT == (void *)NULL)) {
- first_free__LMD=next__XBT;
- } else {
- ((__MEMORY *)prev__WBT)->next_free__KD=next__XBT;
- };
- if (((void *)next__XBT != (void *)NULL)) {
- ((__MEMORY *)next__XBT)->previous_free__LD=prev__WBT;
- };
- pv__QBT=blc__OBT->previous_linear__ID;
- if ((pv__QBT != 4294967295LU)) {
- prev__PBT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__QBT))));
- ((__MEMORY *)prev__PBT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__PBT->size_and_id__JD + blc__OBT->size_and_id__JD) + 8);
- last_block[(idx__NBT)] = (prev__PBT);
- };
- };
- ((__POINTER *)result__UBT)[ 0]=((__POINTER )new_size__QYS);
- result__TYS=(void *)((unsigned long)result__UBT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__SYS=(void *)((unsigned long)result__TYS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QYS)));
- ((__POINTER *)next__SYS)[ 0]=NULL;
- ((__POINTER *)ptr_table__RYS)[ 0]=next__SYS;
- } else {
- next__SYS=((__POINTER *)result__TYS)[ 0];
- if ((next__SYS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TYS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__QYS << 1)) <= 4096)) {
- next__SYS=(void *)((unsigned long)result__TYS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QYS)));
- } else {
- idx__ZBT= 0;
- blc__0BT=NULL;
- prev__1BT=NULL;
- pv__2BT= 0;
- while_do__2AC__4BT:
- {
- if ((idx__ZBT < nb_page__L2B)) {
- blc__0BT=((__MEMORY *)(last_block[(idx__ZBT)]));
- __tmp__3BT=(((__UINTEGER_32)(((__MEMORY *)blc__0BT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__0BT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__3BT=FALSE__;
- };
- if (__tmp__3BT) {
- idx__ZBT=(__UINTEGER_32)(idx__ZBT + 1);
- goto while_do__2AC__4BT;
- };
- };
- if ((idx__ZBT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__ILT=((__POINTER )(NULL));
- cap__JLT= 33554432;
- do {
- cap__JLT=(__UINTEGER_32)(cap__JLT << 1);
- mem__ILT=((__POINTER )(malloc((cap__JLT))));
- if ((mem__ILT != (void *)NULL)) {
- free((mem__ILT));
- };
- } while ((! ((mem__ILT == (void *)NULL) || (cap__JLT == 2147483648LU))));
- if ((mem__ILT == (void *)NULL)) {
- cap__JLT=(__UINTEGER_32)(cap__JLT >> 1);
- };
- capacity_max__NTD=cap__JLT;
- begin_memory__2RB=((__POINTER )(malloc((cap__JLT))));
- };
- old_size__LLT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__LLT + 67108864) > capacity_max__NTD)) {
- __tmp__MLT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__NLT= 1;
- __tmp__OLT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__NLT <= __tmp__MLT)) {
- fputc((int)(((__CHARACTER *)__tmp__OLT)[(__INTEGER)(Self__NLT - 1)]),stdout);
- Self__NLT=(__INTEGER)(Self__NLT + 1);
- };
- exit(( 1));
- };
- block__QLT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__LLT))));
- block__QLT->previous_linear__ID= 4294967295LU;
- block__QLT->size_and_id__JD= 67108858;
- block__QLT->next_free__KD=first_free__LMD;
- block__QLT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__QLT;
- };
- first_free__LMD=block__QLT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__QLT);
- blc__0BT=block__QLT;
- };
- ((__MEMORY *)blc__0BT)->size_and_id__JD=(__UINTEGER_32)(blc__0BT->size_and_id__JD - 4096);
- Self__5BT=((__MEMORY *)blc__0BT);
- result__ACT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5BT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5BT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__0BT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__BCT=((__MEMORY *)blc__0BT);
- prev__CCT=Self__BCT->previous_free__LD;
- next__DCT=Self__BCT->next_free__KD;
- if (((void *)prev__CCT == (void *)NULL)) {
- first_free__LMD=next__DCT;
- } else {
- ((__MEMORY *)prev__CCT)->next_free__KD=next__DCT;
- };
- if (((void *)next__DCT != (void *)NULL)) {
- ((__MEMORY *)next__DCT)->previous_free__LD=prev__CCT;
- };
- pv__2BT=blc__0BT->previous_linear__ID;
- if ((pv__2BT != 4294967295LU)) {
- prev__1BT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__2BT))));
- ((__MEMORY *)prev__1BT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__1BT->size_and_id__JD + blc__0BT->size_and_id__JD) + 8);
- last_block[(idx__ZBT)] = (prev__1BT);
- };
- };
- ((__POINTER *)result__ACT)[ 0]=((__POINTER )new_size__QYS);
- next__SYS=(void *)((unsigned long)result__ACT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__SYS)[ 0]=NULL;
- ((__POINTER *)ptr_table__RYS)[ 0]=next__SYS;
- } else {
- ((__POINTER *)result__TYS)[ 0]=(void *)((unsigned long)((__POINTER *)next__SYS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TYS=next__SYS;
- };
- };
- ((__POINTER *)result__TYS)[ 0]=((__POINTER ) 3);
- result__LYS=(void *)((unsigned long)result__TYS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__Z1S=first_free__LMD;
- while ((((void *)result__Z1S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__Z1S)->size_and_id__JD & 4294967292LU) < new_size__NYS))) {
- result__Z1S=result__Z1S->next_free__KD;
- };
- if (((void *)result__Z1S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__RLT=((__POINTER )(NULL));
- cap__SLT= 33554432;
- do {
- cap__SLT=(__UINTEGER_32)(cap__SLT << 1);
- mem__RLT=((__POINTER )(malloc((cap__SLT))));
- if ((mem__RLT != (void *)NULL)) {
- free((mem__RLT));
- };
- } while ((! ((mem__RLT == (void *)NULL) || (cap__SLT == 2147483648LU))));
- if ((mem__RLT == (void *)NULL)) {
- cap__SLT=(__UINTEGER_32)(cap__SLT >> 1);
- };
- capacity_max__NTD=cap__SLT;
- begin_memory__2RB=((__POINTER )(malloc((cap__SLT))));
- };
- old_size__ULT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__ULT + 67108864) > capacity_max__NTD)) {
- __tmp__VLT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__WLT= 1;
- __tmp__XLT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__WLT <= __tmp__VLT)) {
- fputc((int)(((__CHARACTER *)__tmp__XLT)[(__INTEGER)(Self__WLT - 1)]),stdout);
- Self__WLT=(__INTEGER)(Self__WLT + 1);
- };
- exit(( 1));
- };
- block__ZLT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__ULT))));
- block__ZLT->previous_linear__ID= 4294967295LU;
- block__ZLT->size_and_id__JD= 67108858;
- block__ZLT->next_free__KD=first_free__LMD;
- block__ZLT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__ZLT;
- };
- first_free__LMD=block__ZLT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__ZLT);
- result__Z1S=block__ZLT;
- };
- Self__21S=((__MEMORY *)result__Z1S);
- idx__31S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z1S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__41S=NULL;
- prev__51S=Self__21S->previous_free__LD;
- next__A2S=Self__21S->next_free__KD;
- if (((void *)prev__51S == (void *)NULL)) {
- first_free__LMD=next__A2S;
- } else {
- ((__MEMORY *)prev__51S)->next_free__KD=next__A2S;
- };
- if (((void *)next__A2S != (void *)NULL)) {
- ((__MEMORY *)next__A2S)->previous_free__LD=prev__51S;
- };
- siz__B2S=Self__21S->size_and_id__JD;
- new_size__C2S=(__UINTEGER_32)(siz__B2S - new_size__NYS);
- if ((new_size__C2S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__B2S=new_size__NYS;
- new__41S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__21S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NYS))));
- ((__MEMORY *)new__41S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__21S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__41S)->size_and_id__JD=(__UINTEGER_32)(new_size__C2S - 8);
- Self__D2S=((__MEMORY *)new__41S);
- Self__D2S->next_free__KD=first_free__LMD;
- Self__D2S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__D2S;
- };
- first_free__LMD=Self__D2S;
- if (((__UINTEGER_32)(((__MEMORY *)new__41S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__31S)] = (new__41S);
- } else {
- Self__E2S=((__MEMORY *)new__41S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__E2S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__E2S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__41S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__21S->size_and_id__JD=(__UINTEGER_32)(siz__B2S | 1);
- result__LYS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z1S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__UYS=((__CHARACTER *)result__LYS);
- Self__VYS=(__INTEGER)(nb_elements__JYS - 1);
- while ((Self__VYS >= 0)) {
- Result__UYS[Self__VYS]='\0';
- Self__VYS=(__INTEGER)(Self__VYS - 1);
- };
- Self__QVC->storage__2QC=Result__UYS;
- Self__QVC->capacity__FW=Self__QVC->count__DW;
- };
- __tmp__IWC=Self__QVC->storage__2QC;
- __tmp__LWC=((__STRING_CONSTANT *)(&__string_2))->storage__YLE;
- __tmp__OWC=(__INTEGER)(Self__QVC->count__DW - 1);
- Self__IMH=((__CHARACTER *)__tmp__IWC);
- Self__S4H=__tmp__OWC;
- while ((Self__S4H >= 0)) {
- Self__IMH[Self__S4H]=((__CHARACTER *)__tmp__LWC)[Self__S4H];
- Self__S4H=(__INTEGER)(Self__S4H - 1);
- };
- };
- Self__1PC=((__STRING *)new__EFB);
- if ((Self__1PC->capacity__FW > Self__1PC->count__DW)) {
- Self__1PC->count__DW=(__INTEGER)(Self__1PC->count__DW + 1);
- if ((((__CHARACTER *)Self__1PC->storage__2QC)[(__INTEGER)(Self__1PC->count__DW - 1)] != '\0')) {
- ((__CHARACTER *)Self__1PC->storage__2QC)[(__INTEGER)(Self__1PC->count__DW - 1)]='\0';
- };
- } else {
- new_capacity__SXS= 0;
- if ((Self__1PC->capacity__FW <= Self__1PC->count__DW)) {
- if ((Self__1PC->capacity__FW == 0)) {
- Self__1PC->capacity__FW= 32;
- result__ZYS=((__POINTER )(NULL));
- a__0YS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1YS=(__UINTEGER_32)((__UINTEGER_32)( 32 + a__0YS) & (__UINTEGER_32)(~ a__0YS));
- new_size2__2YS=(__UINTEGER_32)(new_size__1YS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__2YS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__3YS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4YS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__2YS + a__3YS) & (__UINTEGER_32)(~ a__3YS));
- ptr_table__5YS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4YS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__AZS=((__POINTER )(NULL));
- result__BZS=((__POINTER *)ptr_table__5YS)[ 0];
- if ((result__BZS == (void *)NULL)) {
- idx__FCT= 0;
- blc__GCT=NULL;
- prev__HCT=NULL;
- pv__ICT= 0;
- while_do__2AC__KCT:
- {
- if ((idx__FCT < nb_page__L2B)) {
- blc__GCT=((__MEMORY *)(last_block[(idx__FCT)]));
- __tmp__JCT=(((__UINTEGER_32)(((__MEMORY *)blc__GCT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__GCT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__JCT=FALSE__;
- };
- if (__tmp__JCT) {
- idx__FCT=(__UINTEGER_32)(idx__FCT + 1);
- goto while_do__2AC__KCT;
- };
- };
- if ((idx__FCT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__0LT=((__POINTER )(NULL));
- cap__1LT= 33554432;
- do {
- cap__1LT=(__UINTEGER_32)(cap__1LT << 1);
- mem__0LT=((__POINTER )(malloc((cap__1LT))));
- if ((mem__0LT != (void *)NULL)) {
- free((mem__0LT));
- };
- } while ((! ((mem__0LT == (void *)NULL) || (cap__1LT == 2147483648LU))));
- if ((mem__0LT == (void *)NULL)) {
- cap__1LT=(__UINTEGER_32)(cap__1LT >> 1);
- };
- capacity_max__NTD=cap__1LT;
- begin_memory__2RB=((__POINTER )(malloc((cap__1LT))));
- };
- old_size__3LT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__3LT + 67108864) > capacity_max__NTD)) {
- __tmp__4LT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__5LT= 1;
- __tmp__AMT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__5LT <= __tmp__4LT)) {
- fputc((int)(((__CHARACTER *)__tmp__AMT)[(__INTEGER)(Self__5LT - 1)]),stdout);
- Self__5LT=(__INTEGER)(Self__5LT + 1);
- };
- exit(( 1));
- };
- block__CMT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__3LT))));
- block__CMT->previous_linear__ID= 4294967295LU;
- block__CMT->size_and_id__JD= 67108858;
- block__CMT->next_free__KD=first_free__LMD;
- block__CMT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__CMT;
- };
- first_free__LMD=block__CMT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__CMT);
- blc__GCT=block__CMT;
- };
- ((__MEMORY *)blc__GCT)->size_and_id__JD=(__UINTEGER_32)(blc__GCT->size_and_id__JD - 4096);
- Self__LCT=((__MEMORY *)blc__GCT);
- result__MCT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LCT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LCT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__GCT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__NCT=((__MEMORY *)blc__GCT);
- prev__OCT=Self__NCT->previous_free__LD;
- next__PCT=Self__NCT->next_free__KD;
- if (((void *)prev__OCT == (void *)NULL)) {
- first_free__LMD=next__PCT;
- } else {
- ((__MEMORY *)prev__OCT)->next_free__KD=next__PCT;
- };
- if (((void *)next__PCT != (void *)NULL)) {
- ((__MEMORY *)next__PCT)->previous_free__LD=prev__OCT;
- };
- pv__ICT=blc__GCT->previous_linear__ID;
- if ((pv__ICT != 4294967295LU)) {
- prev__HCT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__ICT))));
- ((__MEMORY *)prev__HCT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__HCT->size_and_id__JD + blc__GCT->size_and_id__JD) + 8);
- last_block[(idx__FCT)] = (prev__HCT);
- };
- };
- ((__POINTER *)result__MCT)[ 0]=((__POINTER )new_size__4YS);
- result__BZS=(void *)((unsigned long)result__MCT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__AZS=(void *)((unsigned long)result__BZS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4YS)));
- ((__POINTER *)next__AZS)[ 0]=NULL;
- ((__POINTER *)ptr_table__5YS)[ 0]=next__AZS;
- } else {
- next__AZS=((__POINTER *)result__BZS)[ 0];
- if ((next__AZS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BZS - (unsigned long)begin_memory__2RB)))) & 4095) + (__UINTEGER_32)(new_size__4YS << 1)) <= 4096)) {
- next__AZS=(void *)((unsigned long)result__BZS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4YS)));
- } else {
- idx__RCT= 0;
- blc__SCT=NULL;
- prev__TCT=NULL;
- pv__UCT= 0;
- while_do__2AC__WCT:
- {
- if ((idx__RCT < nb_page__L2B)) {
- blc__SCT=((__MEMORY *)(last_block[(idx__RCT)]));
- __tmp__VCT=(((__UINTEGER_32)(((__MEMORY *)blc__SCT)->size_and_id__JD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__SCT)->size_and_id__JD & 1) == 1));
- } else {
- __tmp__VCT=FALSE__;
- };
- if (__tmp__VCT) {
- idx__RCT=(__UINTEGER_32)(idx__RCT + 1);
- goto while_do__2AC__WCT;
- };
- };
- if ((idx__RCT >= nb_page__L2B)) {
- if ((capacity_max__NTD == 0)) {
- mem__DMT=((__POINTER )(NULL));
- cap__EMT= 33554432;
- do {
- cap__EMT=(__UINTEGER_32)(cap__EMT << 1);
- mem__DMT=((__POINTER )(malloc((cap__EMT))));
- if ((mem__DMT != (void *)NULL)) {
- free((mem__DMT));
- };
- } while ((! ((mem__DMT == (void *)NULL) || (cap__EMT == 2147483648LU))));
- if ((mem__DMT == (void *)NULL)) {
- cap__EMT=(__UINTEGER_32)(cap__EMT >> 1);
- };
- capacity_max__NTD=cap__EMT;
- begin_memory__2RB=((__POINTER )(malloc((cap__EMT))));
- };
- old_size__GMT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__GMT + 67108864) > capacity_max__NTD)) {
- __tmp__HMT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__IMT= 1;
- __tmp__JMT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__IMT <= __tmp__HMT)) {
- fputc((int)(((__CHARACTER *)__tmp__JMT)[(__INTEGER)(Self__IMT - 1)]),stdout);
- Self__IMT=(__INTEGER)(Self__IMT + 1);
- };
- exit(( 1));
- };
- block__LMT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__GMT))));
- block__LMT->previous_linear__ID= 4294967295LU;
- block__LMT->size_and_id__JD= 67108858;
- block__LMT->next_free__KD=first_free__LMD;
- block__LMT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__LMT;
- };
- first_free__LMD=block__LMT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__LMT);
- blc__SCT=block__LMT;
- };
- ((__MEMORY *)blc__SCT)->size_and_id__JD=(__UINTEGER_32)(blc__SCT->size_and_id__JD - 4096);
- Self__XCT=((__MEMORY *)blc__SCT);
- result__YCT=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__XCT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__XCT->size_and_id__JD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__SCT)->size_and_id__JD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__ZCT=((__MEMORY *)blc__SCT);
- prev__0CT=Self__ZCT->previous_free__LD;
- next__1CT=Self__ZCT->next_free__KD;
- if (((void *)prev__0CT == (void *)NULL)) {
- first_free__LMD=next__1CT;
- } else {
- ((__MEMORY *)prev__0CT)->next_free__KD=next__1CT;
- };
- if (((void *)next__1CT != (void *)NULL)) {
- ((__MEMORY *)next__1CT)->previous_free__LD=prev__0CT;
- };
- pv__UCT=blc__SCT->previous_linear__ID;
- if ((pv__UCT != 4294967295LU)) {
- prev__TCT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__UCT))));
- ((__MEMORY *)prev__TCT)->size_and_id__JD=(__UINTEGER_32)((__UINTEGER_32)(prev__TCT->size_and_id__JD + blc__SCT->size_and_id__JD) + 8);
- last_block[(idx__RCT)] = (prev__TCT);
- };
- };
- ((__POINTER *)result__YCT)[ 0]=((__POINTER )new_size__4YS);
- next__AZS=(void *)((unsigned long)result__YCT - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__AZS)[ 0]=NULL;
- ((__POINTER *)ptr_table__5YS)[ 0]=next__AZS;
- } else {
- ((__POINTER *)result__BZS)[ 0]=(void *)((unsigned long)((__POINTER *)next__AZS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BZS=next__AZS;
- };
- };
- ((__POINTER *)result__BZS)[ 0]=((__POINTER ) 3);
- result__ZYS=(void *)((unsigned long)result__BZS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__F2S=first_free__LMD;
- while ((((void *)result__F2S != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__F2S)->size_and_id__JD & 4294967292LU) < new_size__1YS))) {
- result__F2S=result__F2S->next_free__KD;
- };
- if (((void *)result__F2S == (void *)NULL)) {
- if ((capacity_max__NTD == 0)) {
- mem__MMT=((__POINTER )(NULL));
- cap__NMT= 33554432;
- do {
- cap__NMT=(__UINTEGER_32)(cap__NMT << 1);
- mem__MMT=((__POINTER )(malloc((cap__NMT))));
- if ((mem__MMT != (void *)NULL)) {
- free((mem__MMT));
- };
- } while ((! ((mem__MMT == (void *)NULL) || (cap__NMT == 2147483648LU))));
- if ((mem__MMT == (void *)NULL)) {
- cap__NMT=(__UINTEGER_32)(cap__NMT >> 1);
- };
- capacity_max__NTD=cap__NMT;
- begin_memory__2RB=((__POINTER )(malloc((cap__NMT))));
- };
- old_size__PMT=(__UINTEGER_32)(nb_page__L2B << 26);
- nb_page__L2B=(__UINTEGER_32)(nb_page__L2B + 1);
- if (((__UINTEGER_32)(old_size__PMT + 67108864) > capacity_max__NTD)) {
- __tmp__QMT=((__STRING_CONSTANT *)(&__string_1))->count__XHB;
- Self__RMT= 1;
- __tmp__SMT=((__STRING_CONSTANT *)(&__string_1))->storage__YLE;
- while ((Self__RMT <= __tmp__QMT)) {
- fputc((int)(((__CHARACTER *)__tmp__SMT)[(__INTEGER)(Self__RMT - 1)]),stdout);
- Self__RMT=(__INTEGER)(Self__RMT + 1);
- };
- exit(( 1));
- };
- block__UMT=((__MEMORY *)(void *)((unsigned long)begin_memory__2RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__PMT))));
- block__UMT->previous_linear__ID= 4294967295LU;
- block__UMT->size_and_id__JD= 67108858;
- block__UMT->next_free__KD=first_free__LMD;
- block__UMT->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=block__UMT;
- };
- first_free__LMD=block__UMT;
- last_block[((__UINTEGER_32)(nb_page__L2B - 1))] = (block__UMT);
- result__F2S=block__UMT;
- };
- Self__I2S=((__MEMORY *)result__F2S);
- idx__J2S=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__F2S)) - (unsigned long)begin_memory__2RB)))) >> 26);
- new__K2S=NULL;
- prev__L2S=Self__I2S->previous_free__LD;
- next__M2S=Self__I2S->next_free__KD;
- if (((void *)prev__L2S == (void *)NULL)) {
- first_free__LMD=next__M2S;
- } else {
- ((__MEMORY *)prev__L2S)->next_free__KD=next__M2S;
- };
- if (((void *)next__M2S != (void *)NULL)) {
- ((__MEMORY *)next__M2S)->previous_free__LD=prev__L2S;
- };
- siz__N2S=Self__I2S->size_and_id__JD;
- new_size__O2S=(__UINTEGER_32)(siz__N2S - new_size__1YS);
- if ((new_size__O2S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__N2S=new_size__1YS;
- new__K2S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__I2S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1YS))));
- ((__MEMORY *)new__K2S)->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__I2S) - (unsigned long)begin_memory__2RB))));
- ((__MEMORY *)new__K2S)->size_and_id__JD=(__UINTEGER_32)(new_size__O2S - 8);
- Self__P2S=((__MEMORY *)new__K2S);
- Self__P2S->next_free__KD=first_free__LMD;
- Self__P2S->previous_free__LD=NULL;
- if (((void *)first_free__LMD != (void *)NULL)) {
- ((__MEMORY *)first_free__LMD)->previous_free__LD=Self__P2S;
- };
- first_free__LMD=Self__P2S;
- if (((__UINTEGER_32)(((__MEMORY *)new__K2S)->size_and_id__JD & 2) != 0)) {
- last_block[(idx__J2S)] = (new__K2S);
- } else {
- Self__Q2S=((__MEMORY *)new__K2S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__Q2S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__Q2S->size_and_id__JD & 4294967292LU)))))->previous_linear__ID=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__K2S)) - (unsigned long)begin_memory__2RB))));
- };
- };
- Self__I2S->size_and_id__JD=(__UINTEGER_32)(siz__N2S | 1);
- result__ZYS=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__F2S)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__CZS=((__CHARACTER *)result__ZYS);
- Self__DZS= 31;
- while ((Self__DZS >= 0)) {
- Result__CZS[Self__DZS]='\0';
- Self__DZS=(__INTEGER)(Self__DZS - 1);
- };
- Self__1PC->storage__2QC=Result__CZS;
- } else {
- new_capacity__SXS=(__INTEGER)(Self__1PC->capacity__FW << 1);
- __tmp__UXS=Self__1PC->storage__2QC;
- __tmp__VXS=Self__1PC->capacity__FW;
- new__WXS=((__CHARACTER *)realloc_dynamic__old_size__new_size__CGI(((__POINTER )((__CHARACTER *)__tmp__UXS)),((__UINTEGER_32 )__tmp__VXS),((__UINTEGER_32 )new_capacity__SXS)));
- __tmp__XXS=(__INTEGER)(new_capacity__SXS - 1);
- Self__YXS=__tmp__VXS;
- while ((Self__YXS <= __tmp__XXS)) {
- new__WXS[Self__YXS]='\0';
- Self__YXS=(__INTEGER)(Self__YXS + 1);
- };
- Self__1PC->storage__2QC=new__WXS;
- Self__1PC->capacity__FW=new_capacity__SXS;
- };
- };
- ((__CHARACTER *)Self__1PC->storage__2QC)[Self__1PC->count__DW]='\0';
- Self__1PC->count__DW=(__INTEGER)(Self__1PC->count__DW + 1);
- };
- Self__1PC->count__DW=(__INTEGER)(Self__1PC->count__DW - 1);
- snprintf((nc_buf__5V),(cap__CW),(Self__1PC->storage__2QC),(Self__RK));
- Self__NRC=((__STRING *)string_tmp__TK);
- Self__NRC->count__DW= 0;
- __tmp__3OS=Self__NRC->storage__2QC;
- while ((((__CHARACTER *)__tmp__3OS)[Self__NRC->count__DW] != '\0')) {
- Self__NRC->count__DW=(__INTEGER)(Self__NRC->count__DW + 1);
- };
- s__FZS=((__STRING *)string_tmp__TK);
- __tmp__GZS=((__STRING *)s__FZS)->count__DW;
- Self__HZS= 1;
- __tmp__KZS=((__STRING *)s__FZS)->storage__2QC;
- while ((Self__HZS <= __tmp__GZS)) {
- fputc((int)(((__CHARACTER *)__tmp__KZS)[(__INTEGER)(Self__HZS - 1)]),stdout);
- Self__HZS=(__INTEGER)(Self__HZS + 1);
- };
-}
-
-void advance(__REAL_64 dt__LXD,__INTEGER n__MXD)
-// ({REAL_64},{INTEGER}) VoidNo recursive, Inlinable.
-{
- __INTEGER Self__5RE,Self__EBG,Self__OSE;
- __REAL_64 __tmp__EPS,__tmp__FPS,__tmp__GPS,__tmp__HPS,__tmp__IPS;
- __REAL_64 __tmp__JPS;
- Self__5RE= 0;
- while ((Self__5RE <= n__MXD)) {
- b__VXD=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__5RE])));
- Self__EBG=(__INTEGER)(Self__5RE + 1);
- __tmp__EPS=b__VXD->x__5D;
- __tmp__FPS=b__VXD->y__BE;
- __tmp__GPS=b__VXD->z__DE;
- __tmp__HPS=b__VXD->mass__1D;
- __tmp__IPS=b__VXD->mass__1D;
- __tmp__JPS=b__VXD->mass__1D;
- while ((Self__EBG <= n__MXD)) {
- b2__AYD=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__EBG])));
- dx__GYD=(__REAL_64)(__tmp__EPS - b2__AYD->x__5D);
- dy__MYD=(__REAL_64)(__tmp__FPS - b2__AYD->y__BE);
- dz__SYD=(__REAL_64)(__tmp__GPS - b2__AYD->z__DE);
- distance__AZD=((__REAL_64 )(sqrt((((__REAL_64 )((((__REAL_64 )(((__REAL_64)(dx__GYD * dx__GYD)) + ((__REAL_64)(dy__MYD * dy__MYD))))) + ((__REAL_64)(dz__SYD * dz__SYD))))))));
- mag__IZD=(__REAL_64)(dt__LXD / (__REAL_64)((__REAL_64)(distance__AZD * distance__AZD) * distance__AZD));
- ((__PLANET *)b__VXD)->vx__IE=(__REAL_64)(b__VXD->vx__IE - (__REAL_64)((__REAL_64)(dx__GYD * b2__AYD->mass__1D) * mag__IZD));
- ((__PLANET *)b__VXD)->vy__ME=(__REAL_64)(b__VXD->vy__ME - (__REAL_64)((__REAL_64)(dy__MYD * b2__AYD->mass__1D) * mag__IZD));
- ((__PLANET *)b__VXD)->vz__QE=(__REAL_64)(b__VXD->vz__QE - (__REAL_64)((__REAL_64)(dz__SYD * b2__AYD->mass__1D) * mag__IZD));
- ((__PLANET *)b2__AYD)->vx__IE=((__REAL_64 )((b2__AYD->vx__IE) + ((__REAL_64)((__REAL_64)(dx__GYD * __tmp__HPS) * mag__IZD))));
- ((__PLANET *)b2__AYD)->vy__ME=((__REAL_64 )((b2__AYD->vy__ME) + ((__REAL_64)((__REAL_64)(dy__MYD * __tmp__IPS) * mag__IZD))));
- ((__PLANET *)b2__AYD)->vz__QE=((__REAL_64 )((b2__AYD->vz__QE) + ((__REAL_64)((__REAL_64)(dz__SYD * __tmp__JPS) * mag__IZD))));
- Self__EBG=(__INTEGER)(Self__EBG + 1);
- };
- Self__5RE=(__INTEGER)(Self__5RE + 1);
- };
- Self__OSE= 0;
- while ((Self__OSE <= n__MXD)) {
- b__VXD=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__OSE])));
- ((__PLANET *)b__VXD)->x__5D=((__REAL_64 )((b__VXD->x__5D) + ((__REAL_64)(dt__LXD * b__VXD->vx__IE))));
- ((__PLANET *)b__VXD)->y__BE=((__REAL_64 )((b__VXD->y__BE) + ((__REAL_64)(dt__LXD * b__VXD->vy__ME))));
- ((__PLANET *)b__VXD)->z__DE=((__REAL_64 )((b__VXD->z__DE) + ((__REAL_64)(dt__LXD * b__VXD->vz__QE))));
- Self__OSE=(__INTEGER)(Self__OSE + 1);
- };
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/nbody/nbody_c.c b/example/shootout/nbody/nbody_c.c
deleted file mode 100644
index 0b21594..0000000
--- a/example/shootout/nbody/nbody_c.c
+++ /dev/null
@@ -1,146 +0,0 @@
-/*
- * The Great Computer Language Shootout
- * http://shootout.alioth.debian.org/
- *
- * contributed by Christoph Bauer
- *
- */
-
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#define pi 3.141592653589793
-#define solar_mass (4 * pi * pi)
-#define days_per_year 365.24
-
-struct planet {
- double x, y, z;
- double vx, vy, vz;
- double mass;
-};
-
-void advance(int nbodies, struct planet * bodies, double dt)
-{
- int i, j;
-
- for (i = 0; i < nbodies; i++) {
- struct planet * b = &(bodies[i]);
- for (j = i + 1; j < nbodies; j++) {
- struct planet * b2 = &(bodies[j]);
- double dx = b->x - b2->x;
- double dy = b->y - b2->y;
- double dz = b->z - b2->z;
- double distance = sqrt(dx * dx + dy * dy + dz * dz);
- double mag = dt / (distance * distance * distance);
-
- b->vx -= dx * b2->mass * mag;
- b->vy -= dy * b2->mass * mag;
- b->vz -= dz * b2->mass * mag;
-
- b2->vx += dx * b->mass * mag;
- b2->vy += dy * b->mass * mag;
- b2->vz += dz * b->mass * mag;
- }
- }
-
- for (i = 0; i < nbodies; i++) {
- struct planet * b = &(bodies[i]);
-
- b->x += dt * b->vx;
- b->y += dt * b->vy;
- b->z += dt * b->vz;
- }
-
-}
-
-double energy(int nbodies, struct planet * bodies)
-{
- double e;
- int i, j;
-
- e = 0.0;
- for (i = 0; i < nbodies; i++) {
- struct planet * b = &(bodies[i]);
- e += 0.5 * b->mass * (b->vx * b->vx + b->vy * b->vy + b->vz * b->vz);
- for (j = i + 1; j < nbodies; j++) {
- struct planet * b2 = &(bodies[j]);
- double dx = b->x - b2->x;
- double dy = b->y - b2->y;
- double dz = b->z - b2->z;
- double distance = sqrt(dx * dx + dy * dy + dz * dz);
- e -= (b->mass * b2->mass) / distance;
- }
- }
- return e;
-}
-
-void offset_momentum(int nbodies, struct planet * bodies)
-{
- double px = 0.0, py = 0.0, pz = 0.0;
- int i;
- for (i = 0; i < nbodies; i++) {
- px += bodies[i].vx * bodies[i].mass;
- py += bodies[i].vy * bodies[i].mass;
- pz += bodies[i].vz * bodies[i].mass;
- }
- bodies[0].vx = - px / solar_mass;
- bodies[0].vy = - py / solar_mass;
- bodies[0].vz = - pz / solar_mass;
-}
-
-#define NBODIES 5
-struct planet bodies[NBODIES] = {
- { /* sun */
- 0, 0, 0, 0, 0, 0, solar_mass
- },
- { /* jupiter */
- 4.84143144246472090e+00,
- -1.16032004402742839e+00,
- -1.03622044471123109e-01,
- 1.66007664274403694e-03 * days_per_year,
- 7.69901118419740425e-03 * days_per_year,
- -6.90460016972063023e-05 * days_per_year,
- 9.54791938424326609e-04 * solar_mass
- },
- { /* saturn */
- 8.34336671824457987e+00,
- 4.12479856412430479e+00,
- -4.03523417114321381e-01,
- -2.76742510726862411e-03 * days_per_year,
- 4.99852801234917238e-03 * days_per_year,
- 2.30417297573763929e-05 * days_per_year,
- 2.85885980666130812e-04 * solar_mass
- },
- { /* uranus */
- 1.28943695621391310e+01,
- -1.51111514016986312e+01,
- -2.23307578892655734e-01,
- 2.96460137564761618e-03 * days_per_year,
- 2.37847173959480950e-03 * days_per_year,
- -2.96589568540237556e-05 * days_per_year,
- 4.36624404335156298e-05 * solar_mass
- },
- { /* neptune */
- 1.53796971148509165e+01,
- -2.59193146099879641e+01,
- 1.79258772950371181e-01,
- 2.68067772490389322e-03 * days_per_year,
- 1.62824170038242295e-03 * days_per_year,
- -9.51592254519715870e-05 * days_per_year,
- 5.15138902046611451e-05 * solar_mass
- }
-};
-
-int main(int argc, char ** argv)
-{
- int n = atoi(argv[1]);
- int i;
-
- offset_momentum(NBODIES, bodies);
- printf ("%.9f\n", energy(NBODIES, bodies));
- for (i = 1; i <= n; i++)
- advance(NBODIES, bodies, 0.01);
- printf ("%.9f\n", energy(NBODIES, bodies));
- return 0;
-}
diff --git a/example/shootout/nbody3/nbody.c b/example/shootout/nbody3/nbody.c
deleted file mode 100755
index 094346f..0000000
--- a/example/shootout/nbody3/nbody.c
+++ /dev/null
@@ -1,1324 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// FLOAT_REAL
-#include <math.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM
-#include <time.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- unsigned long __id;
- __INTEGER count__EW;
- __INTEGER capacity__GW;
- __CHARACTER *storage__3QC;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__ND;
- volatile __UINTEGER_32 size_and_id__OD;
- __MEMORY *next_free__PD;
- __MEMORY *previous_free__QD;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// REAL_64
-typedef double __REAL_64;
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 1
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER capacity__JSC;
- __INTEGER upper__VSC;
- void **storage__GNC;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 2
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__WC;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// NUMERIC
-#define __NUMERIC__ 3
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- unsigned long __id;
- __INTEGER count__YHB;
- __CHARACTER *storage__0LE;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// NBODY
-#define __NBODY__ 5
-typedef struct NBODY_struct __NBODY;
-struct NBODY_struct {
- void *Nothing;
-};
-__NBODY NBODY_;
-#define NBODY__ (&NBODY_)
-
-// PLANET
-#define __PLANET__ 6
-typedef struct PLANET_struct __PLANET;
-struct PLANET_struct {
- __REAL_64 mass__AE;
- __REAL_64 x__EE;
- __REAL_64 y__GE;
- __REAL_64 z__IE;
- __REAL_64 vx__NE;
- __REAL_64 vy__RE;
- __REAL_64 vz__VE;
-};
-__PLANET PLANET_;
-#define PLANET__ (&PLANET_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[7];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__3RB;
-__UINTEGER_32 nb_page__M2B;
-__MEMORY *first_free__MMD;
-__UINTEGER_32 capacity_max__OTD;
-void *string_tmp__UK;
-__UINTEGER_32 clone_allocation_size__F5;
-__INTEGER nbodies__AB;
-__PLANET *bodies__GB;
-__PLANET *b__XXD;
-__PLANET *b2__CYD;
-__REAL_64 dx__IYD;
-__REAL_64 dy__OYD;
-__REAL_64 dz__UYD;
-__REAL_64 distance__CZD;
-__REAL_64 mag__KZD;
-__REAL_64 solar_mass__4D;
-__REAL_64 days_per_year__KE;
-__REAL_64 pi__HR;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,5,"%.9f\n"};
-__STRING_CONSTANT __string_2={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__01B(__UINTEGER_32 t__21B);
-static void** create__UGG(__INTEGER nb_elements__WGG);
-static __STRING* create__R3(__INTEGER needed_capacity__T3);
-static void add_last__ZDE(__STRING *Self__0DE,__CHARACTER ch__1DE);
-static __POINTER realloc_dynamic__old_size__new_size__EGI(__POINTER p__GGI,__UINTEGER_32 old_sz__HGI,__UINTEGER_32 new_sz__IGI);
-static __MEMORY* search__JLD(__UINTEGER_32 new_size__LLD);
-void offset_momentum(__INTEGER n__NG);
-__REAL_64 energy(__INTEGER n__2H);
-static void print_format_c__RK(__REAL_64 Self__SK);
-void advance(__REAL_64 dt__NXD,__INTEGER n__OXD);
-static __MEMORY* new_page__ETD();
-static __CHARACTER* create__MDG(__INTEGER nb_elements__ODG);
-static void to_busy__index__XIH(__MEMORY *Self__YIH,__UINTEGER_32 sz__ZIH,__UINTEGER_32 idx__0IH);
-static void put_string__B5C(void *s__D5C);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__NL;
- __INTEGER new_count__3W,typ_id__X4,Self__IX,limit_up__JX,idx__QFE;
- __INTEGER i__DHE,new_capacity__3HE,__tmp__BJE,__tmp__OUH,Self__T0L;
- __INTEGER state__OIL,result__RIL,i__NIL,__tmp__OTS,__tmp__QTS;
- __INTEGER Self__1K,limit_up__2K;
- __POINTER ptr__S4,ptr_table__RWS,next__QWS,result__SWS,ptr_table__XWS;
- __POINTER next__WWS,result__YWS,result__2US,ptr_table__DQB,next__IQB;
- __POINTER result__GQB;
- __UINTEGER_32 sz__U4,a__2QS,new_size__YKB,t__BMB,a__CRS,new_size__0WS;
- __UINTEGER_32 lab_type__ZWS,sz__4US,a__3US,new_size__5US;
- __UINTEGER_32 new_size2__AVS,a__BVS,new_size__CVS;
- __STRING *Self__BHE,*Self__LIL;
- __PLANET *Self__CE,*Self__0E,*Self__LF,*Self__2F;
- __CHARACTER *arg__ML,*Self__EFE,*p__CHE,*__tmp__PTS;
- __FAST_ARRAYoSTRINGo *result__R4,*Self__ASC,*Self__1HE;
- void *result__LL;
- __BOOLEAN __tmp__LIE,negative__QIL,__tmp__3JL,result__V3P,__tmp__QKL;
- __BOOLEAN __tmp__FLL,result__SRO,__tmp__MML,result__ESO,result__LFP;
- void **__tmp__AJE,**new__1TH;
- __CHARACTER cc__PIL;
- __PLANET *Result__4C;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoSTRINGo__->storage__GNC=NULL;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__JSC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->upper__VSC= 0;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__WC=(*ARRAYED_COLLECTIONoSTRINGo__);
- parent_numeric__H=NUMERIC__;
- clone_allocation_size__F5= 0;
- STRING_CONSTANT__->count__YHB=((__INTEGER )((0)));
- STRING__->count__EW= 0;
- STRING_CONSTANT__->storage__0LE=((__CHARACTER *)(NULL));
- STRING__->storage__3QC=NULL;
- nb_page__M2B= 0;
- MEMORY__->size_and_id__OD= 0;
- capacity_max__OTD= 0;
- begin_memory__3RB=((__POINTER )(NULL));
- MEMORY__->previous_linear__ND= 0;
- first_free__MMD=NULL;
- MEMORY__->next_free__PD=NULL;
- MEMORY__->previous_free__QD=NULL;
- STRING__->capacity__GW= 0;
- arg__ML=NULL;
- str__NL=NULL;
- new_count__3W=((__INTEGER )(arg_count));
- result__R4=NULL;
- ptr__S4=((__POINTER )(NULL));
- typ_id__X4= 0;
- sz__U4=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__U4 == 0)) {
- result__R4=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__X4=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__F5=sz__U4;
- if ((typ_id__X4 == (__INTEGER)(- 1))) {
- a__2QS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YKB=(__UINTEGER_32)((__UINTEGER_32)(sz__U4 + a__2QS) & (__UINTEGER_32)(~ a__2QS));
- ptr_table__RWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YKB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QWS=((__POINTER )(NULL));
- result__SWS=((__POINTER *)ptr_table__RWS)[ 0];
- if ((result__SWS == (void *)NULL)) {
- result__SWS=new_lab__01B(new_size__YKB);
- next__QWS=(void *)((unsigned long)result__SWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YKB)));
- ((__POINTER *)next__QWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__RWS)[ 0]=next__QWS;
- } else {
- next__QWS=((__POINTER *)result__SWS)[ 0];
- if ((next__QWS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SWS - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__YKB << 1)) <= 4096)) {
- next__QWS=(void *)((unsigned long)result__SWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YKB)));
- } else {
- next__QWS=new_lab__01B(new_size__YKB);
- };
- ((__POINTER *)next__QWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__RWS)[ 0]=next__QWS;
- } else {
- ((__POINTER *)result__SWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__QWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SWS=next__QWS;
- };
- };
- ptr__S4=result__SWS;
- } else {
- t__BMB=((__UINTEGER_32 )typ_id__X4);
- a__CRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0WS=(__UINTEGER_32)((__UINTEGER_32)(sz__U4 + a__CRS) & (__UINTEGER_32)(~ a__CRS));
- ptr_table__XWS=((__POINTER )(&(table_type[(t__BMB)])));
- lab_type__ZWS=(__UINTEGER_32)(t__BMB | 1);
- next__WWS=((__POINTER )(NULL));
- result__YWS=((__POINTER *)ptr_table__XWS)[ 0];
- if ((result__YWS == (void *)NULL)) {
- result__YWS=new_lab__01B(lab_type__ZWS);
- next__WWS=(void *)((unsigned long)result__YWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0WS)));
- ((__POINTER *)next__WWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__XWS)[ 0]=next__WWS;
- } else {
- next__WWS=((__POINTER *)result__YWS)[ 0];
- if ((next__WWS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YWS - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__0WS << 1)) <= 4096)) {
- next__WWS=(void *)((unsigned long)result__YWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0WS)));
- } else {
- next__WWS=new_lab__01B(lab_type__ZWS);
- };
- ((__POINTER *)next__WWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__XWS)[ 0]=next__WWS;
- } else {
- ((__POINTER *)result__YWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__WWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YWS=next__WWS;
- };
- };
- ptr__S4=result__YWS;
- };
- result__R4=((__FAST_ARRAYoSTRINGo *)ptr__S4);
- *(result__R4) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__ASC=((__FAST_ARRAYoSTRINGo *)result__R4);
- if ((Self__ASC->parent_arrayed_collection__WC.capacity__JSC < new_count__3W)) {
- Self__ASC->parent_arrayed_collection__WC.storage__GNC=create__UGG(new_count__3W);
- Self__ASC->parent_arrayed_collection__WC.capacity__JSC=new_count__3W;
- };
- Self__ASC->parent_arrayed_collection__WC.upper__VSC=(__INTEGER)(- 1);
- result__LL=result__R4;
- Self__IX= 0;
- limit_up__JX=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__IX <= limit_up__JX)) {
- arg__ML=((__CHARACTER *)(arg_vector[(Self__IX)]));
- Self__EFE=((__CHARACTER *)arg__ML);
- idx__QFE= 0;
- while ((! ((idx__QFE > 1024) || ('\0' == Self__EFE[idx__QFE])))) {
- idx__QFE=(__INTEGER)(idx__QFE + 1);
- };
- str__NL=create__R3(idx__QFE);
- Self__BHE=((__STRING *)str__NL);
- p__CHE=arg__ML;
- i__DHE= 0;
- Self__BHE->count__EW= 0;
- while ((((__CHARACTER *)p__CHE)[i__DHE] != '\0')) {
- add_last__ZDE(Self__BHE,((__CHARACTER *)p__CHE)[i__DHE]);
- i__DHE=(__INTEGER)(i__DHE + 1);
- };
- Self__1HE=((__FAST_ARRAYoSTRINGo *)result__LL);
- new_capacity__3HE= 0;
- if (((__INTEGER)(Self__1HE->parent_arrayed_collection__WC.upper__VSC + 1) <= (__INTEGER)(Self__1HE->parent_arrayed_collection__WC.capacity__JSC - 1))) {
- Self__1HE->parent_arrayed_collection__WC.upper__VSC=(__INTEGER)(Self__1HE->parent_arrayed_collection__WC.upper__VSC + 1);
- __tmp__LIE=TRUE__;
- } else {
- __tmp__LIE=FALSE__;
- };
- if ((! __tmp__LIE)) {
- if ((Self__1HE->parent_arrayed_collection__WC.capacity__JSC == 0)) {
- Self__1HE->parent_arrayed_collection__WC.storage__GNC=create__UGG( 2);
- Self__1HE->parent_arrayed_collection__WC.capacity__JSC= 2;
- Self__1HE->parent_arrayed_collection__WC.upper__VSC= 0;
- } else {
- new_capacity__3HE=(__INTEGER)(Self__1HE->parent_arrayed_collection__WC.capacity__JSC << 1);
- __tmp__AJE=Self__1HE->parent_arrayed_collection__WC.storage__GNC;
- __tmp__BJE=Self__1HE->parent_arrayed_collection__WC.capacity__JSC;
- new__1TH=((void **)realloc_dynamic__old_size__new_size__EGI(((__POINTER )((void **)__tmp__AJE)),((__UINTEGER_32 )(__INTEGER)(__tmp__BJE * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__3HE * ((__INTEGER )(sizeof(void *)))))));
- __tmp__OUH=(__INTEGER)(new_capacity__3HE - 1);
- Self__T0L=__tmp__BJE;
- while ((Self__T0L <= __tmp__OUH)) {
- new__1TH[Self__T0L]=NULL;
- Self__T0L=(__INTEGER)(Self__T0L + 1);
- };
- Self__1HE->parent_arrayed_collection__WC.storage__GNC=new__1TH;
- Self__1HE->parent_arrayed_collection__WC.capacity__JSC=new_capacity__3HE;
- Self__1HE->parent_arrayed_collection__WC.upper__VSC=(__INTEGER)(Self__1HE->parent_arrayed_collection__WC.upper__VSC + 1);
- };
- };
- ((void **)Self__1HE->parent_arrayed_collection__WC.storage__GNC)[Self__1HE->parent_arrayed_collection__WC.upper__VSC]=str__NL;
- Self__IX=(__INTEGER)(Self__IX + 1);
- };
- nbodies__AB= 0;
- bodies__GB=NULL;
- pi__HR=((__REAL_64 )(3.141592653589793));
- solar_mass__4D=(__REAL_64)((__REAL_64)(pi__HR * pi__HR) * ((__REAL_64 )4.0));
- PLANET__->mass__AE=((__REAL_64 ) 0);
- PLANET__->x__EE=((__REAL_64 ) 0);
- PLANET__->y__GE=((__REAL_64 ) 0);
- PLANET__->z__IE=((__REAL_64 ) 0);
- days_per_year__KE=((__REAL_64 )365.24);
- PLANET__->vx__NE=((__REAL_64 ) 0);
- PLANET__->vy__RE=((__REAL_64 ) 0);
- PLANET__->vz__VE=((__REAL_64 ) 0);
- string_tmp__UK=create__R3( 32);
- b__XXD=NULL;
- b2__CYD=NULL;
- dx__IYD=((__REAL_64 ) 0);
- dy__OYD=((__REAL_64 ) 0);
- dz__UYD=((__REAL_64 ) 0);
- distance__CZD=((__REAL_64 ) 0);
- mag__KZD=((__REAL_64 ) 0);
- Self__LIL=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__R4)->parent_arrayed_collection__WC.storage__GNC)[ 1]);
- state__OIL= 0;
- cc__PIL='\0';
- negative__QIL=FALSE__;
- result__RIL= 0;
- i__NIL= 1;
- __tmp__OTS=Self__LIL->count__EW;
- __tmp__PTS=Self__LIL->storage__3QC;
- __tmp__QTS=Self__LIL->count__EW;
- while ((i__NIL <= __tmp__OTS)) {
- cc__PIL=((__CHARACTER *)__tmp__PTS)[(__INTEGER)(i__NIL - 1)];
- if ((state__OIL == 0)) {
- if ((((((((cc__PIL == ' ') || (cc__PIL == '\t')) || (cc__PIL == '\n')) || (cc__PIL == '\r')) || (cc__PIL == '\0')) || (cc__PIL == '\f')) || (cc__PIL == '\v'))) {
- __tmp__3JL=TRUE__;
- } else {
- result__V3P=(cc__PIL == '+');
- if (result__V3P) {
- state__OIL= 1;
- };
- __tmp__3JL=result__V3P;
- };
- if ((! __tmp__3JL)) {
- if ((cc__PIL == '-')) {
- negative__QIL=TRUE__;
- state__OIL= 1;
- } else {
- result__RIL=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__PIL)) - 48);
- state__OIL= 2;
- };
- };
- __tmp__QKL=TRUE__;
- } else {
- __tmp__QKL=FALSE__;
- };
- if (__tmp__QKL) {
- __tmp__FLL=TRUE__;
- } else {
- result__SRO=(state__OIL == 1);
- if (result__SRO) {
- result__RIL=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__PIL)) - 48);
- if (negative__QIL) {
- result__RIL=(__INTEGER)(- result__RIL);
- };
- state__OIL= 2;
- };
- __tmp__FLL=result__SRO;
- };
- if (__tmp__FLL) {
- __tmp__MML=TRUE__;
- } else {
- result__ESO=(state__OIL == 2);
- if (result__ESO) {
- result__LFP=FALSE__;
- if ((((__INTEGER_8 )cc__PIL) >= ((__INTEGER_8 )'0'))) {
- result__LFP=(((__INTEGER_8 )cc__PIL) <= ((__INTEGER_8 )'9'));
- };
- if (result__LFP) {
- if (negative__QIL) {
- result__RIL=(__INTEGER)((__INTEGER)( 10 * result__RIL) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__PIL)) - 48));
- } else {
- result__RIL=(__INTEGER)((__INTEGER)( 10 * result__RIL) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__PIL)) - 48));
- };
- } else {
- state__OIL= 3;
- };
- };
- __tmp__MML=result__ESO;
- };
- if ((! __tmp__MML)) {
- if ((state__OIL == 3)) {
- i__NIL=__tmp__QTS;
- };
- };
- i__NIL=(__INTEGER)(i__NIL + 1);
- };
- nbodies__AB= 4;
- sz__4US=((__UINTEGER_32 )(__INTEGER)(sizeof(__PLANET) << 2));
- result__2US=((__POINTER )(NULL));
- a__3US=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5US=(__UINTEGER_32)((__UINTEGER_32)(sz__4US + a__3US) & (__UINTEGER_32)(~ a__3US));
- new_size2__AVS=(__UINTEGER_32)(new_size__5US + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__AVS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__BVS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CVS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__AVS + a__BVS) & (__UINTEGER_32)(~ a__BVS));
- ptr_table__DQB=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CVS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__IQB=((__POINTER )(NULL));
- result__GQB=((__POINTER *)ptr_table__DQB)[ 0];
- if ((result__GQB == (void *)NULL)) {
- result__GQB=new_lab__01B(new_size__CVS);
- next__IQB=(void *)((unsigned long)result__GQB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVS)));
- ((__POINTER *)next__IQB)[ 0]=NULL;
- ((__POINTER *)ptr_table__DQB)[ 0]=next__IQB;
- } else {
- next__IQB=((__POINTER *)result__GQB)[ 0];
- if ((next__IQB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GQB - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__CVS << 1)) <= 4096)) {
- next__IQB=(void *)((unsigned long)result__GQB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVS)));
- } else {
- next__IQB=new_lab__01B(new_size__CVS);
- };
- ((__POINTER *)next__IQB)[ 0]=NULL;
- ((__POINTER *)ptr_table__DQB)[ 0]=next__IQB;
- } else {
- ((__POINTER *)result__GQB)[ 0]=(void *)((unsigned long)((__POINTER *)next__IQB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GQB=next__IQB;
- };
- };
- ((__POINTER *)result__GQB)[ 0]=((__POINTER ) 3);
- result__2US=(void *)((unsigned long)result__GQB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__2US=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__JLD(new_size__5US))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__4C=((__PLANET *)result__2US);
- bodies__GB=Result__4C;
- Result__4C[ 0].mass__AE=solar_mass__4D;
- Self__CE=&(Result__4C[ 1]);
- Self__CE->x__EE=((__REAL_64 )(4.84143144246472090E+00));
- Self__CE->y__GE=((__REAL_64 )(-1.16032004402742839E+00));
- Self__CE->z__IE=((__REAL_64 )(-1.03622044471123109E-01));
- Self__CE->vx__NE=(__REAL_64)(((__REAL_64 )(1.66007664274403694E-03)) * days_per_year__KE);
- Self__CE->vy__RE=(__REAL_64)(((__REAL_64 )(7.69901118419740425E-03)) * days_per_year__KE);
- Self__CE->vz__VE=(__REAL_64)(((__REAL_64 )(-6.90460016972063023E-05)) * days_per_year__KE);
- Self__CE->mass__AE=(__REAL_64)(((__REAL_64 )(9.54791938424326609E-04)) * solar_mass__4D);
- Self__0E=&(Result__4C[ 2]);
- Self__0E->x__EE=((__REAL_64 )(8.34336671824457987E+00));
- Self__0E->y__GE=((__REAL_64 )(4.12479856412430479E+00));
- Self__0E->z__IE=((__REAL_64 )(-4.03523417114321381E-01));
- Self__0E->vx__NE=(__REAL_64)(((__REAL_64 )(-2.76742510726862411E-03)) * days_per_year__KE);
- Self__0E->vy__RE=(__REAL_64)(((__REAL_64 )(4.99852801234917238E-03)) * days_per_year__KE);
- Self__0E->vz__VE=(__REAL_64)(((__REAL_64 )(2.30417297573763929E-05)) * days_per_year__KE);
- Self__0E->mass__AE=(__REAL_64)(((__REAL_64 )(2.85885980666130812E-04)) * solar_mass__4D);
- Self__LF=&(Result__4C[ 3]);
- Self__LF->x__EE=((__REAL_64 )(1.28943695621391310E+01));
- Self__LF->y__GE=((__REAL_64 )(-1.51111514016986312E+01));
- Self__LF->z__IE=((__REAL_64 )(-2.23307578892655734E-01));
- Self__LF->vx__NE=(__REAL_64)(((__REAL_64 )(2.96460137564761618E-03)) * days_per_year__KE);
- Self__LF->vy__RE=(__REAL_64)(((__REAL_64 )(2.37847173959480950E-03)) * days_per_year__KE);
- Self__LF->vz__VE=(__REAL_64)(((__REAL_64 )(-2.96589568540237556E-05)) * days_per_year__KE);
- Self__LF->mass__AE=(__REAL_64)(((__REAL_64 )(4.36624404335156298E-05)) * solar_mass__4D);
- Self__2F=&(Result__4C[ 4]);
- Self__2F->x__EE=((__REAL_64 )(1.53796971148509165E+01));
- Self__2F->y__GE=((__REAL_64 )(-2.59193146099879641E+01));
- Self__2F->z__IE=((__REAL_64 )(1.79258772950371181E-01));
- Self__2F->vx__NE=(__REAL_64)(((__REAL_64 )(2.68067772490389322E-03)) * days_per_year__KE);
- Self__2F->vy__RE=(__REAL_64)(((__REAL_64 )(1.62824170038242295E-03)) * days_per_year__KE);
- Self__2F->vz__VE=(__REAL_64)(((__REAL_64 )(-9.51592254519715870E-05)) * days_per_year__KE);
- Self__2F->mass__AE=(__REAL_64)(((__REAL_64 )(5.15138902046611451E-05)) * solar_mass__4D);
- offset_momentum(nbodies__AB);
- print_format_c__RK(energy(nbodies__AB));
- Self__1K= 1;
- limit_up__2K=result__RIL;
- while ((Self__1K <= limit_up__2K)) {
- advance(((__REAL_64 )0.01),nbodies__AB);
- Self__1K=(__INTEGER)(Self__1K + 1);
- };
- print_format_c__RK(energy(nbodies__AB));
- return( 0);
-}
-
-static __POINTER new_lab__01B(__UINTEGER_32 t__21B)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__41B,pv__F2B;
- __MEMORY *blc__B2B,*prev__C2B,*Self__YES,*Self__5PS,*prev__AQS;
- __MEMORY *next__BQS;
- __POINTER result__D2B;
- __BOOLEAN __tmp__F3B;
- idx__41B= 0;
- blc__B2B=NULL;
- prev__C2B=NULL;
- pv__F2B= 0;
- while_do__3AC:
- {
- if ((idx__41B < nb_page__M2B)) {
- blc__B2B=((__MEMORY *)(last_block[(idx__41B)]));
- __tmp__F3B=(((__UINTEGER_32)(((__MEMORY *)blc__B2B)->size_and_id__OD & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__B2B)->size_and_id__OD & 1) == 1));
- } else {
- __tmp__F3B=FALSE__;
- };
- if (__tmp__F3B) {
- idx__41B=(__UINTEGER_32)(idx__41B + 1);
- goto while_do__3AC;
- };
- };
- if ((idx__41B >= nb_page__M2B)) {
- blc__B2B=new_page__ETD();
- };
- ((__MEMORY *)blc__B2B)->size_and_id__OD=(__UINTEGER_32)(blc__B2B->size_and_id__OD - 4096);
- Self__YES=((__MEMORY *)blc__B2B);
- result__D2B=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YES) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__YES->size_and_id__OD & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__B2B)->size_and_id__OD & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__5PS=((__MEMORY *)blc__B2B);
- prev__AQS=Self__5PS->previous_free__QD;
- next__BQS=Self__5PS->next_free__PD;
- if (((void *)prev__AQS == (void *)NULL)) {
- first_free__MMD=next__BQS;
- } else {
- ((__MEMORY *)prev__AQS)->next_free__PD=next__BQS;
- };
- if (((void *)next__BQS != (void *)NULL)) {
- ((__MEMORY *)next__BQS)->previous_free__QD=prev__AQS;
- };
- pv__F2B=blc__B2B->previous_linear__ND;
- if ((pv__F2B != 4294967295LU)) {
- prev__C2B=((__MEMORY *)(void *)((unsigned long)begin_memory__3RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__F2B))));
- ((__MEMORY *)prev__C2B)->size_and_id__OD=(__UINTEGER_32)((__UINTEGER_32)(prev__C2B->size_and_id__OD + blc__B2B->size_and_id__OD) + 8);
- last_block[(idx__41B)] = (prev__C2B);
- };
- };
- ((__POINTER *)result__D2B)[ 0]=((__POINTER )t__21B);
- return((void *)((unsigned long)result__D2B - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__UGG(__INTEGER nb_elements__WGG)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__IVS,a__HVS,new_size__JVS,new_size2__KVS,a__LVS;
- __UINTEGER_32 new_size__MVS;
- __POINTER result__GVS,ptr_table__TVS,next__SVS,result__UVS;
- __INTEGER Self__MOI;
- void **Result__FOG;
- sz__IVS=((__UINTEGER_32 )(__INTEGER)(nb_elements__WGG * ((__INTEGER )(sizeof(void *)))));
- result__GVS=((__POINTER )(NULL));
- a__HVS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JVS=(__UINTEGER_32)((__UINTEGER_32)(sz__IVS + a__HVS) & (__UINTEGER_32)(~ a__HVS));
- new_size2__KVS=(__UINTEGER_32)(new_size__JVS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__KVS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__LVS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MVS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__KVS + a__LVS) & (__UINTEGER_32)(~ a__LVS));
- ptr_table__TVS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MVS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__SVS=((__POINTER )(NULL));
- result__UVS=((__POINTER *)ptr_table__TVS)[ 0];
- if ((result__UVS == (void *)NULL)) {
- result__UVS=new_lab__01B(new_size__MVS);
- next__SVS=(void *)((unsigned long)result__UVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MVS)));
- ((__POINTER *)next__SVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__TVS)[ 0]=next__SVS;
- } else {
- next__SVS=((__POINTER *)result__UVS)[ 0];
- if ((next__SVS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UVS - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__MVS << 1)) <= 4096)) {
- next__SVS=(void *)((unsigned long)result__UVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MVS)));
- } else {
- next__SVS=new_lab__01B(new_size__MVS);
- };
- ((__POINTER *)next__SVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__TVS)[ 0]=next__SVS;
- } else {
- ((__POINTER *)result__UVS)[ 0]=(void *)((unsigned long)((__POINTER *)next__SVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UVS=next__SVS;
- };
- };
- ((__POINTER *)result__UVS)[ 0]=((__POINTER ) 3);
- result__GVS=(void *)((unsigned long)result__UVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__GVS=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__JLD(new_size__JVS))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__FOG=((void **)result__GVS);
- Self__MOI=(__INTEGER)(nb_elements__WGG - 1);
- while ((Self__MOI >= 0)) {
- Result__FOG[Self__MOI]=NULL;
- Self__MOI=(__INTEGER)(Self__MOI - 1);
- };
- return(Result__FOG);
-}
-
-static __STRING* create__R3(__INTEGER needed_capacity__T3)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__0DB,*Self__IUC;
- __POINTER ptr__1DB,ptr_table__ZVS,next__YVS,result__0VS;
- __POINTER ptr_table__5VS,next__4VS,result__AWS;
- __INTEGER typ_id__AEB;
- __UINTEGER_32 sz__3DB,a__HRS,new_size__IRS,t__RRS,a__ORS;
- __UINTEGER_32 new_size__CWS,lab_type__BWS;
- result__0DB=NULL;
- ptr__1DB=((__POINTER )(NULL));
- typ_id__AEB= 0;
- sz__3DB=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__3DB == 0)) {
- result__0DB=STRING__;
- } else {
- typ_id__AEB=-1;
- clone_allocation_size__F5=(__UINTEGER_32)(clone_allocation_size__F5 + sz__3DB);
- if ((typ_id__AEB == (__INTEGER)(- 1))) {
- a__HRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IRS=(__UINTEGER_32)((__UINTEGER_32)(sz__3DB + a__HRS) & (__UINTEGER_32)(~ a__HRS));
- ptr_table__ZVS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IRS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__YVS=((__POINTER )(NULL));
- result__0VS=((__POINTER *)ptr_table__ZVS)[ 0];
- if ((result__0VS == (void *)NULL)) {
- result__0VS=new_lab__01B(new_size__IRS);
- next__YVS=(void *)((unsigned long)result__0VS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IRS)));
- ((__POINTER *)next__YVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZVS)[ 0]=next__YVS;
- } else {
- next__YVS=((__POINTER *)result__0VS)[ 0];
- if ((next__YVS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0VS - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__IRS << 1)) <= 4096)) {
- next__YVS=(void *)((unsigned long)result__0VS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IRS)));
- } else {
- next__YVS=new_lab__01B(new_size__IRS);
- };
- ((__POINTER *)next__YVS)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZVS)[ 0]=next__YVS;
- } else {
- ((__POINTER *)result__0VS)[ 0]=(void *)((unsigned long)((__POINTER *)next__YVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0VS=next__YVS;
- };
- };
- ptr__1DB=result__0VS;
- } else {
- t__RRS=((__UINTEGER_32 )typ_id__AEB);
- a__ORS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CWS=(__UINTEGER_32)((__UINTEGER_32)(sz__3DB + a__ORS) & (__UINTEGER_32)(~ a__ORS));
- ptr_table__5VS=((__POINTER )(&(table_type[(t__RRS)])));
- lab_type__BWS=(__UINTEGER_32)(t__RRS | 1);
- next__4VS=((__POINTER )(NULL));
- result__AWS=((__POINTER *)ptr_table__5VS)[ 0];
- if ((result__AWS == (void *)NULL)) {
- result__AWS=new_lab__01B(lab_type__BWS);
- next__4VS=(void *)((unsigned long)result__AWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CWS)));
- ((__POINTER *)next__4VS)[ 0]=NULL;
- ((__POINTER *)ptr_table__5VS)[ 0]=next__4VS;
- } else {
- next__4VS=((__POINTER *)result__AWS)[ 0];
- if ((next__4VS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AWS - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__CWS << 1)) <= 4096)) {
- next__4VS=(void *)((unsigned long)result__AWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CWS)));
- } else {
- next__4VS=new_lab__01B(lab_type__BWS);
- };
- ((__POINTER *)next__4VS)[ 0]=NULL;
- ((__POINTER *)ptr_table__5VS)[ 0]=next__4VS;
- } else {
- ((__POINTER *)result__AWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__4VS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AWS=next__4VS;
- };
- };
- ptr__1DB=result__AWS;
- };
- result__0DB=((__STRING *)ptr__1DB);
- *(result__0DB) = *(STRING__);
- };
- Self__IUC=((__STRING *)result__0DB);
- if ((needed_capacity__T3 > 0)) {
- if ((Self__IUC->capacity__GW < needed_capacity__T3)) {
- Self__IUC->storage__3QC=create__MDG(needed_capacity__T3);
- Self__IUC->capacity__GW=needed_capacity__T3;
- };
- };
- Self__IUC->count__EW= 0;
- return(result__0DB);
-}
-
-static void add_last__ZDE(__STRING *Self__0DE,__CHARACTER ch__1DE)
-// ({STRING},{CHARACTER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__2DE,__tmp__VEE,__tmp__XSH,Self__UYL;
- __CHARACTER *__tmp__UEE,*new__ESH;
- new_capacity__2DE= 0;
- if ((Self__0DE->capacity__GW <= Self__0DE->count__EW)) {
- if ((Self__0DE->capacity__GW == 0)) {
- Self__0DE->capacity__GW= 32;
- Self__0DE->storage__3QC=create__MDG( 32);
- } else {
- new_capacity__2DE=(__INTEGER)(Self__0DE->capacity__GW << 1);
- __tmp__UEE=Self__0DE->storage__3QC;
- __tmp__VEE=Self__0DE->capacity__GW;
- new__ESH=((__CHARACTER *)realloc_dynamic__old_size__new_size__EGI(((__POINTER )((__CHARACTER *)__tmp__UEE)),((__UINTEGER_32 )__tmp__VEE),((__UINTEGER_32 )new_capacity__2DE)));
- __tmp__XSH=(__INTEGER)(new_capacity__2DE - 1);
- Self__UYL=__tmp__VEE;
- while ((Self__UYL <= __tmp__XSH)) {
- new__ESH[Self__UYL]='\0';
- Self__UYL=(__INTEGER)(Self__UYL + 1);
- };
- Self__0DE->storage__3QC=new__ESH;
- Self__0DE->capacity__GW=new_capacity__2DE;
- };
- };
- ((__CHARACTER *)Self__0DE->storage__3QC)[Self__0DE->count__EW]=ch__1DE;
- Self__0DE->count__EW=(__INTEGER)(Self__0DE->count__EW + 1);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__EGI(__POINTER p__GGI,__UINTEGER_32 old_sz__HGI,__UINTEGER_32 new_sz__IGI)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__TGI,*Self__OKK,*nxt__SKK,*result__TKK,*next__1AL;
- __MEMORY *new_free__0AL,*prev__ISS,*next__JSS;
- __POINTER result__UGI,result__PO,ptr_table__FWS,next__EWS,result__GWS;
- __POINTER p__EJK,last__HUK,src__4HK,dst__5HK;
- __UINTEGER_32 a__URS,old_size__KGI,old_size2__NGI,a__YRS;
- __UINTEGER_32 new_size__QGI,a__B1,new_size__JO,new_size2__MO,a__QSS;
- __UINTEGER_32 new_size__RSS,a__2RS,__tmp__FII,sz__XKK,old_size__UKK;
- __UINTEGER_32 prev__2AL,new_size__5AL;
- __INTEGER siz__3WS,Self__CXS,siz__DIK,Self__0RK;
- __POINTER *na_src__5WS,*na_dst__BXS,*na_src__BIK,*na_dst__CIK;
- mem__TGI=NULL;
- result__UGI=((__POINTER )(NULL));
- a__URS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__KGI=(__UINTEGER_32)((__UINTEGER_32)(old_sz__HGI + a__URS) & (__UINTEGER_32)(~ a__URS));
- old_size2__NGI=(__UINTEGER_32)(old_size__KGI + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__YRS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QGI=(__UINTEGER_32)((__UINTEGER_32)(new_sz__IGI + a__YRS) & (__UINTEGER_32)(~ a__YRS));
- if ((old_size2__NGI <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__PO=((__POINTER )(NULL));
- a__B1=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JO=(__UINTEGER_32)((__UINTEGER_32)(new_size__QGI + a__B1) & (__UINTEGER_32)(~ a__B1));
- new_size2__MO=(__UINTEGER_32)(new_size__JO + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__MO <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__QSS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RSS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__MO + a__QSS) & (__UINTEGER_32)(~ a__QSS));
- ptr_table__FWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RSS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EWS=((__POINTER )(NULL));
- result__GWS=((__POINTER *)ptr_table__FWS)[ 0];
- if ((result__GWS == (void *)NULL)) {
- result__GWS=new_lab__01B(new_size__RSS);
- next__EWS=(void *)((unsigned long)result__GWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RSS)));
- ((__POINTER *)next__EWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__FWS)[ 0]=next__EWS;
- } else {
- next__EWS=((__POINTER *)result__GWS)[ 0];
- if ((next__EWS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GWS - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__RSS << 1)) <= 4096)) {
- next__EWS=(void *)((unsigned long)result__GWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RSS)));
- } else {
- next__EWS=new_lab__01B(new_size__RSS);
- };
- ((__POINTER *)next__EWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__FWS)[ 0]=next__EWS;
- } else {
- ((__POINTER *)result__GWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__EWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GWS=next__EWS;
- };
- };
- ((__POINTER *)result__GWS)[ 0]=((__POINTER ) 3);
- result__PO=(void *)((unsigned long)result__GWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__PO=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__JLD(new_size__JO))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__UGI=result__PO;
- siz__3WS=((__INTEGER )old_size__KGI);
- siz__3WS=(__INTEGER)(siz__3WS / ((__INTEGER )(sizeof(void *))));
- na_src__5WS=((__POINTER *)p__GGI);
- na_dst__BXS=((__POINTER *)result__PO);
- Self__CXS=(__INTEGER)(siz__3WS - 1);
- while ((Self__CXS >= 0)) {
- na_dst__BXS[Self__CXS]=na_src__5WS[Self__CXS];
- Self__CXS=(__INTEGER)(Self__CXS - 1);
- };
- p__EJK=(void *)((unsigned long)p__GGI - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__2RS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__HUK=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__NGI + a__2RS) & (__UINTEGER_32)(~ a__2RS)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__EJK)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__HUK)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__HUK)[ 0]=p__EJK;
- } else {
- mem__TGI=((__MEMORY *)(void *)((unsigned long)p__GGI - (unsigned long)((__POINTER ) 8)));
- __tmp__FII=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__GGI - (unsigned long)begin_memory__3RB)))) >> 26);
- Self__OKK=((__MEMORY *)mem__TGI);
- nxt__SKK=NULL;
- result__TKK=NULL;
- sz__XKK= 0;
- old_size__UKK=(__UINTEGER_32)(Self__OKK->size_and_id__OD & 4294967292LU);
- if ((new_size__QGI > old_size__UKK)) {
- if ((! ((__UINTEGER_32)(Self__OKK->size_and_id__OD & 2) != 0))) {
- nxt__SKK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__OKK->size_and_id__OD & 4294967292LU)))));
- sz__XKK=(__UINTEGER_32)((__UINTEGER_32)(new_size__QGI - old_size__UKK) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__SKK)->size_and_id__OD & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__SKK)->size_and_id__OD & 4294967292LU) >= sz__XKK))) {
- to_busy__index__XIH(nxt__SKK,sz__XKK,__tmp__FII);
- Self__OKK->size_and_id__OD=(__UINTEGER_32)((__UINTEGER_32)(Self__OKK->size_and_id__OD + (__UINTEGER_32)(nxt__SKK->size_and_id__OD & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__OKK->size_and_id__OD & 2) != 0)) {
- last_block[(__tmp__FII)] = (Self__OKK);
- } else {
- nxt__SKK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__OKK->size_and_id__OD & 4294967292LU)))));
- ((__MEMORY *)nxt__SKK)->previous_linear__ND=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__OKK) - (unsigned long)begin_memory__3RB))));
- };
- result__TKK=Self__OKK;
- };
- };
- if (((void *)result__TKK == (void *)NULL)) {
- result__TKK=search__JLD(new_size__QGI);
- src__4HK=(void *)((unsigned long)((__POINTER )Self__OKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__5HK=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__TKK)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__DIK=((__INTEGER )old_size__UKK);
- siz__DIK=(__INTEGER)(siz__DIK / ((__INTEGER )(sizeof(void *))));
- na_src__BIK=((__POINTER *)src__4HK);
- na_dst__CIK=((__POINTER *)dst__5HK);
- Self__0RK=(__INTEGER)(siz__DIK - 1);
- while ((Self__0RK >= 0)) {
- na_dst__CIK[Self__0RK]=na_src__BIK[Self__0RK];
- Self__0RK=(__INTEGER)(Self__0RK - 1);
- };
- prev__2AL=Self__OKK->previous_linear__ND;
- next__1AL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__OKK->size_and_id__OD & 4294967292LU)))));
- new_free__0AL=((__MEMORY *)(void *)((unsigned long)begin_memory__3RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__2AL))));
- new_size__5AL=(__UINTEGER_32)(Self__OKK->size_and_id__OD & 4294967294LU);
- if (((prev__2AL == 4294967295LU) || ((__UINTEGER_32)(new_free__0AL->size_and_id__OD & 1) != 0))) {
- new_free__0AL=Self__OKK;
- Self__OKK->next_free__PD=first_free__MMD;
- Self__OKK->previous_free__QD=NULL;
- if (((void *)first_free__MMD != (void *)NULL)) {
- ((__MEMORY *)first_free__MMD)->previous_free__QD=Self__OKK;
- };
- first_free__MMD=Self__OKK;
- } else {
- new_size__5AL=(__UINTEGER_32)((__UINTEGER_32)(new_size__5AL + new_free__0AL->size_and_id__OD) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__OKK->size_and_id__OD & 2) != 0)) && ((__UINTEGER_32)(next__1AL->size_and_id__OD & 1) == 0))) {
- new_size__5AL=(__UINTEGER_32)((__UINTEGER_32)(new_size__5AL + next__1AL->size_and_id__OD) + 8);
- prev__ISS=next__1AL->previous_free__QD;
- next__JSS=next__1AL->next_free__PD;
- if (((void *)prev__ISS == (void *)NULL)) {
- first_free__MMD=next__JSS;
- } else {
- ((__MEMORY *)prev__ISS)->next_free__PD=next__JSS;
- };
- if (((void *)next__JSS != (void *)NULL)) {
- ((__MEMORY *)next__JSS)->previous_free__QD=prev__ISS;
- };
- };
- new_free__0AL->size_and_id__OD=new_size__5AL;
- if (((__UINTEGER_32)(new_free__0AL->size_and_id__OD & 2) != 0)) {
- last_block[(__tmp__FII)] = (new_free__0AL);
- } else {
- next__1AL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OKK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__OKK->size_and_id__OD & 4294967292LU)))));
- next__1AL->previous_linear__ND=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__0AL) - (unsigned long)begin_memory__3RB))));
- };
- };
- } else {
- result__TKK=Self__OKK;
- };
- result__UGI=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__TKK)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__UGI);
-}
-
-static __MEMORY* search__JLD(__UINTEGER_32 new_size__LLD)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__NLD;
- result__NLD=first_free__MMD;
- while ((((void *)result__NLD != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__NLD)->size_and_id__OD & 4294967292LU) < new_size__LLD))) {
- result__NLD=result__NLD->next_free__PD;
- };
- if (((void *)result__NLD == (void *)NULL)) {
- result__NLD=new_page__ETD();
- };
- to_busy__index__XIH(result__NLD,new_size__LLD,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__NLD)) - (unsigned long)begin_memory__3RB)))) >> 26));
- return(result__NLD);
-}
-
-void offset_momentum(__INTEGER n__NG)
-// ({INTEGER}) VoidNo recursive, Inlinable.
-{
- __REAL_64 px__OG,py__RG,pz__UG,__tmp__SH,__tmp__WH,__tmp__0H;
- __PLANET *b__XG;
- __INTEGER Self__PT;
- __PLANET *__tmp__OH;
- px__OG=((__REAL_64 ) 0);
- py__RG=((__REAL_64 ) 0);
- pz__UG=((__REAL_64 ) 0);
- b__XG=NULL;
- Self__PT= 0;
- while ((Self__PT <= n__NG)) {
- b__XG=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__PT])));
- px__OG=((__REAL_64 )((px__OG) + ((__REAL_64)(b__XG->vx__NE * b__XG->mass__AE))));
- py__RG=((__REAL_64 )((py__RG) + ((__REAL_64)(b__XG->vy__RE * b__XG->mass__AE))));
- pz__UG=((__REAL_64 )((pz__UG) + ((__REAL_64)(b__XG->vz__VE * b__XG->mass__AE))));
- Self__PT=(__INTEGER)(Self__PT + 1);
- };
- __tmp__OH=&(((__PLANET *)bodies__GB)[ 0]);
- __tmp__SH=(__REAL_64)((__REAL_64)(((__REAL_64 ) 0) - px__OG) / solar_mass__4D);
- __tmp__WH=(__REAL_64)((__REAL_64)(((__REAL_64 ) 0) - py__RG) / solar_mass__4D);
- __tmp__0H=(__REAL_64)((__REAL_64)(((__REAL_64 ) 0) - pz__UG) / solar_mass__4D);
- __tmp__OH->vx__NE=__tmp__SH;
- __tmp__OH->vy__RE=__tmp__WH;
- __tmp__OH->vz__VE=__tmp__0H;
-}
-
-__REAL_64 energy(__INTEGER n__2H)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __REAL_64 e__4H,dx__DI,dy__GI,dz__JI,__tmp__YOS,__tmp__ZOS,__tmp__0OS;
- __REAL_64 __tmp__1OS;
- __PLANET *b__BI,*b2__CI;
- __INTEGER __tmp__PI,Self__FV,__tmp__LJ,__tmp__MJ,Self__TCE;
- e__4H=((__REAL_64 ) 0);
- b__BI=NULL;
- b2__CI=NULL;
- dx__DI=((__REAL_64 ) 0);
- dy__GI=((__REAL_64 ) 0);
- dz__JI=((__REAL_64 ) 0);
- __tmp__PI=nbodies__AB;
- Self__FV= 0;
- while ((Self__FV <= __tmp__PI)) {
- b__BI=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__FV])));
- e__4H=((__REAL_64 )((e__4H) + ((__REAL_64)((__REAL_64)(b__BI->mass__AE * ((__REAL_64 )0.5)) * ((__REAL_64 )((((__REAL_64 )(((__REAL_64)(b__BI->vx__NE * b__BI->vx__NE)) + ((__REAL_64)(b__BI->vy__RE * b__BI->vy__RE))))) + ((__REAL_64)(b__BI->vz__VE * b__BI->vz__VE))))))));
- __tmp__LJ=(__INTEGER)(Self__FV + 1);
- __tmp__MJ=nbodies__AB;
- Self__TCE=__tmp__LJ;
- __tmp__YOS=b__BI->x__EE;
- __tmp__ZOS=b__BI->y__GE;
- __tmp__0OS=b__BI->z__IE;
- __tmp__1OS=b__BI->mass__AE;
- while ((Self__TCE <= __tmp__MJ)) {
- b2__CI=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__TCE])));
- dx__DI=(__REAL_64)(__tmp__YOS - b2__CI->x__EE);
- dy__GI=(__REAL_64)(__tmp__ZOS - b2__CI->y__GE);
- dz__JI=(__REAL_64)(__tmp__0OS - b2__CI->z__IE);
- e__4H=(__REAL_64)(e__4H - (__REAL_64)((__REAL_64)(__tmp__1OS * b2__CI->mass__AE) / ((__REAL_64 )(sqrt((((__REAL_64 )((((__REAL_64 )(((__REAL_64)(dx__DI * dx__DI)) + ((__REAL_64)(dy__GI * dy__GI))))) + ((__REAL_64)(dz__JI * dz__JI))))))))));
- Self__TCE=(__INTEGER)(Self__TCE + 1);
- };
- Self__FV=(__INTEGER)(Self__FV + 1);
- };
- return(e__4H);
-}
-
-static void print_format_c__RK(__REAL_64 Self__SK)
-// ({REAL_64}) VoidNo recursive, No inlinable.
-{
- __INTEGER old_count__CW,cap__DW,__tmp__PWC,Self__U4H;
- __STRING *Self__QVS,*new__FFB,*Self__RVC,*Self__2PC,*Self__ORC;
- __POINTER ptr__1EH;
- __CHARACTER *nc_buf__AW,*__tmp__JWC,*__tmp__MWC,*Self__KMH,*__tmp__CPS;
- ((__STRING *)string_tmp__UK)->count__EW= 0;
- old_count__CW=((__STRING *)string_tmp__UK)->count__EW;
- cap__DW=(__INTEGER)(((__STRING *)string_tmp__UK)->capacity__GW - old_count__CW);
- Self__QVS=((__STRING *)string_tmp__UK);
- if ((Self__QVS->capacity__GW > Self__QVS->count__EW)) {
- Self__QVS->count__EW=(__INTEGER)(Self__QVS->count__EW + 1);
- if ((((__CHARACTER *)Self__QVS->storage__3QC)[(__INTEGER)(Self__QVS->count__EW - 1)] != '\0')) {
- ((__CHARACTER *)Self__QVS->storage__3QC)[(__INTEGER)(Self__QVS->count__EW - 1)]='\0';
- };
- } else {
- add_last__ZDE(Self__QVS,'\0');
- };
- Self__QVS->count__EW=(__INTEGER)(Self__QVS->count__EW - 1);
- ptr__1EH=((__POINTER )((__CHARACTER *)Self__QVS->storage__3QC));
- ptr__1EH=(void *)((unsigned long)ptr__1EH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_count__CW)));
- nc_buf__AW=((__CHARACTER *)ptr__1EH);
- new__FFB=create__R3(((__STRING_CONSTANT *)(&__string_1))->count__YHB);
- Self__RVC=((__STRING *)new__FFB);
- Self__RVC->count__EW=((__STRING_CONSTANT *)(&__string_1))->count__YHB;
- if ((Self__RVC->count__EW > 0)) {
- if ((Self__RVC->capacity__GW < Self__RVC->count__EW)) {
- Self__RVC->storage__3QC=create__MDG(Self__RVC->count__EW);
- Self__RVC->capacity__GW=Self__RVC->count__EW;
- };
- __tmp__JWC=Self__RVC->storage__3QC;
- __tmp__MWC=((__STRING_CONSTANT *)(&__string_1))->storage__0LE;
- __tmp__PWC=(__INTEGER)(Self__RVC->count__EW - 1);
- Self__KMH=((__CHARACTER *)__tmp__JWC);
- Self__U4H=__tmp__PWC;
- while ((Self__U4H >= 0)) {
- Self__KMH[Self__U4H]=((__CHARACTER *)__tmp__MWC)[Self__U4H];
- Self__U4H=(__INTEGER)(Self__U4H - 1);
- };
- };
- Self__2PC=((__STRING *)new__FFB);
- if ((Self__2PC->capacity__GW > Self__2PC->count__EW)) {
- Self__2PC->count__EW=(__INTEGER)(Self__2PC->count__EW + 1);
- if ((((__CHARACTER *)Self__2PC->storage__3QC)[(__INTEGER)(Self__2PC->count__EW - 1)] != '\0')) {
- ((__CHARACTER *)Self__2PC->storage__3QC)[(__INTEGER)(Self__2PC->count__EW - 1)]='\0';
- };
- } else {
- add_last__ZDE(Self__2PC,'\0');
- };
- Self__2PC->count__EW=(__INTEGER)(Self__2PC->count__EW - 1);
- snprintf((nc_buf__AW),(cap__DW),(Self__2PC->storage__3QC),(Self__SK));
- Self__ORC=((__STRING *)string_tmp__UK);
- Self__ORC->count__EW= 0;
- __tmp__CPS=Self__ORC->storage__3QC;
- while ((((__CHARACTER *)__tmp__CPS)[Self__ORC->count__EW] != '\0')) {
- Self__ORC->count__EW=(__INTEGER)(Self__ORC->count__EW + 1);
- };
- put_string__B5C(((__STRING *)string_tmp__UK));
-}
-
-void advance(__REAL_64 dt__NXD,__INTEGER n__OXD)
-// ({REAL_64},{INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER Self__BSE,Self__GBG,Self__QSE;
- __REAL_64 __tmp__JPS,__tmp__KPS,__tmp__LPS,__tmp__MPS,__tmp__NPS;
- __REAL_64 __tmp__OPS;
- /* debut */;
- Self__BSE= 0;
- while ((Self__BSE <= n__OXD)) {
- b__XXD=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__BSE])));
- Self__GBG=(__INTEGER)(Self__BSE + 1);
- __tmp__JPS=b__XXD->x__EE;
- __tmp__KPS=b__XXD->y__GE;
- __tmp__LPS=b__XXD->z__IE;
- __tmp__MPS=b__XXD->mass__AE;
- __tmp__NPS=b__XXD->mass__AE;
- __tmp__OPS=b__XXD->mass__AE;
- while ((Self__GBG <= n__OXD)) {
- b2__CYD=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__GBG])));
- dx__IYD=(__REAL_64)(__tmp__JPS - b2__CYD->x__EE);
- dy__OYD=(__REAL_64)(__tmp__KPS - b2__CYD->y__GE);
- dz__UYD=(__REAL_64)(__tmp__LPS - b2__CYD->z__IE);
- distance__CZD=((__REAL_64 )(sqrt((((__REAL_64 )((((__REAL_64 )(((__REAL_64)(dx__IYD * dx__IYD)) + ((__REAL_64)(dy__OYD * dy__OYD))))) + ((__REAL_64)(dz__UYD * dz__UYD))))))));
- mag__KZD=(__REAL_64)(dt__NXD / (__REAL_64)((__REAL_64)(distance__CZD * distance__CZD) * distance__CZD));
- ((__PLANET *)b__XXD)->vx__NE=(__REAL_64)(b__XXD->vx__NE - (__REAL_64)((__REAL_64)(dx__IYD * b2__CYD->mass__AE) * mag__KZD));
- ((__PLANET *)b__XXD)->vy__RE=(__REAL_64)(b__XXD->vy__RE - (__REAL_64)((__REAL_64)(dy__OYD * b2__CYD->mass__AE) * mag__KZD));
- ((__PLANET *)b__XXD)->vz__VE=(__REAL_64)(b__XXD->vz__VE - (__REAL_64)((__REAL_64)(dz__UYD * b2__CYD->mass__AE) * mag__KZD));
- ((__PLANET *)b2__CYD)->vx__NE=((__REAL_64 )((b2__CYD->vx__NE) + ((__REAL_64)((__REAL_64)(dx__IYD * __tmp__MPS) * mag__KZD))));
- ((__PLANET *)b2__CYD)->vy__RE=((__REAL_64 )((b2__CYD->vy__RE) + ((__REAL_64)((__REAL_64)(dy__OYD * __tmp__NPS) * mag__KZD))));
- ((__PLANET *)b2__CYD)->vz__VE=((__REAL_64 )((b2__CYD->vz__VE) + ((__REAL_64)((__REAL_64)(dz__UYD * __tmp__OPS) * mag__KZD))));
- Self__GBG=(__INTEGER)(Self__GBG + 1);
- };
- Self__BSE=(__INTEGER)(Self__BSE + 1);
- };
- Self__QSE= 0;
- while ((Self__QSE <= n__OXD)) {
- b__XXD=((__PLANET *)(&(((__PLANET *)bodies__GB)[Self__QSE])));
- ((__PLANET *)b__XXD)->x__EE=((__REAL_64 )((b__XXD->x__EE) + ((__REAL_64)(dt__NXD * b__XXD->vx__NE))));
- ((__PLANET *)b__XXD)->y__GE=((__REAL_64 )((b__XXD->y__GE) + ((__REAL_64)(dt__NXD * b__XXD->vy__RE))));
- ((__PLANET *)b__XXD)->z__IE=((__REAL_64 )((b__XXD->z__IE) + ((__REAL_64)(dt__NXD * b__XXD->vz__VE))));
- Self__QSE=(__INTEGER)(Self__QSE + 1);
- };
-}
-
-static __MEMORY* new_page__ETD()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__BNF;
- __UINTEGER_32 cap__4MF,old_size__HTD;
- __MEMORY *block__NTD;
- if ((capacity_max__OTD == 0)) {
- mem__BNF=((__POINTER )(NULL));
- cap__4MF= 33554432;
- do {
- cap__4MF=(__UINTEGER_32)(cap__4MF << 1);
- mem__BNF=((__POINTER )(malloc((cap__4MF))));
- if ((mem__BNF != (void *)NULL)) {
- free((mem__BNF));
- };
- } while ((! ((mem__BNF == (void *)NULL) || (cap__4MF == 2147483648LU))));
- if ((mem__BNF == (void *)NULL)) {
- cap__4MF=(__UINTEGER_32)(cap__4MF >> 1);
- };
- capacity_max__OTD=cap__4MF;
- begin_memory__3RB=((__POINTER )(malloc((cap__4MF))));
- };
- old_size__HTD=(__UINTEGER_32)(nb_page__M2B << 26);
- nb_page__M2B=(__UINTEGER_32)(nb_page__M2B + 1);
- if (((__UINTEGER_32)(old_size__HTD + 67108864) > capacity_max__OTD)) {
- put_string__B5C((&__string_2));
- exit(( 1));
- };
- block__NTD=((__MEMORY *)(void *)((unsigned long)begin_memory__3RB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__HTD))));
- block__NTD->previous_linear__ND= 4294967295LU;
- block__NTD->size_and_id__OD= 67108858;
- block__NTD->next_free__PD=first_free__MMD;
- block__NTD->previous_free__QD=NULL;
- if (((void *)first_free__MMD != (void *)NULL)) {
- ((__MEMORY *)first_free__MMD)->previous_free__QD=block__NTD;
- };
- first_free__MMD=block__NTD;
- last_block[((__UINTEGER_32)(nb_page__M2B - 1))] = (block__NTD);
- return(block__NTD);
-}
-
-static __CHARACTER* create__MDG(__INTEGER nb_elements__ODG)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__UUS,a__TUS,new_size__VUS,new_size2__WUS,a__XUS;
- __UINTEGER_32 new_size__YUS;
- __POINTER result__SUS,ptr_table__LWS,next__KWS,result__MWS;
- __INTEGER Self__FNI;
- __CHARACTER *Result__ELG;
- sz__UUS=((__UINTEGER_32 )nb_elements__ODG);
- result__SUS=((__POINTER )(NULL));
- a__TUS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VUS=(__UINTEGER_32)((__UINTEGER_32)(sz__UUS + a__TUS) & (__UINTEGER_32)(~ a__TUS));
- new_size2__WUS=(__UINTEGER_32)(new_size__VUS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__WUS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__XUS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YUS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WUS + a__XUS) & (__UINTEGER_32)(~ a__XUS));
- ptr_table__LWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YUS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KWS=((__POINTER )(NULL));
- result__MWS=((__POINTER *)ptr_table__LWS)[ 0];
- if ((result__MWS == (void *)NULL)) {
- result__MWS=new_lab__01B(new_size__YUS);
- next__KWS=(void *)((unsigned long)result__MWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YUS)));
- ((__POINTER *)next__KWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__LWS)[ 0]=next__KWS;
- } else {
- next__KWS=((__POINTER *)result__MWS)[ 0];
- if ((next__KWS == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MWS - (unsigned long)begin_memory__3RB)))) & 4095) + (__UINTEGER_32)(new_size__YUS << 1)) <= 4096)) {
- next__KWS=(void *)((unsigned long)result__MWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YUS)));
- } else {
- next__KWS=new_lab__01B(new_size__YUS);
- };
- ((__POINTER *)next__KWS)[ 0]=NULL;
- ((__POINTER *)ptr_table__LWS)[ 0]=next__KWS;
- } else {
- ((__POINTER *)result__MWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__KWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MWS=next__KWS;
- };
- };
- ((__POINTER *)result__MWS)[ 0]=((__POINTER ) 3);
- result__SUS=(void *)((unsigned long)result__MWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__SUS=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__JLD(new_size__VUS))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__ELG=((__CHARACTER *)result__SUS);
- Self__FNI=(__INTEGER)(nb_elements__ODG - 1);
- while ((Self__FNI >= 0)) {
- Result__ELG[Self__FNI]='\0';
- Self__FNI=(__INTEGER)(Self__FNI - 1);
- };
- return(Result__ELG);
-}
-
-static void to_busy__index__XIH(__MEMORY *Self__YIH,__UINTEGER_32 sz__ZIH,__UINTEGER_32 idx__0IH)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __MEMORY *new__BJH,*prev__O1H,*next__P1H,*Self__BNH,*Self__MAS;
- __UINTEGER_32 siz__1IH,new_size__4IH;
- new__BJH=NULL;
- prev__O1H=Self__YIH->previous_free__QD;
- next__P1H=Self__YIH->next_free__PD;
- if (((void *)prev__O1H == (void *)NULL)) {
- first_free__MMD=next__P1H;
- } else {
- ((__MEMORY *)prev__O1H)->next_free__PD=next__P1H;
- };
- if (((void *)next__P1H != (void *)NULL)) {
- ((__MEMORY *)next__P1H)->previous_free__QD=prev__O1H;
- };
- siz__1IH=Self__YIH->size_and_id__OD;
- new_size__4IH=(__UINTEGER_32)(siz__1IH - sz__ZIH);
- if ((new_size__4IH > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__1IH=sz__ZIH;
- new__BJH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YIH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__ZIH))));
- ((__MEMORY *)new__BJH)->previous_linear__ND=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__YIH) - (unsigned long)begin_memory__3RB))));
- ((__MEMORY *)new__BJH)->size_and_id__OD=(__UINTEGER_32)(new_size__4IH - 8);
- Self__BNH=((__MEMORY *)new__BJH);
- Self__BNH->next_free__PD=first_free__MMD;
- Self__BNH->previous_free__QD=NULL;
- if (((void *)first_free__MMD != (void *)NULL)) {
- ((__MEMORY *)first_free__MMD)->previous_free__QD=Self__BNH;
- };
- first_free__MMD=Self__BNH;
- if (((__UINTEGER_32)(((__MEMORY *)new__BJH)->size_and_id__OD & 2) != 0)) {
- last_block[(idx__0IH)] = (new__BJH);
- } else {
- Self__MAS=((__MEMORY *)new__BJH);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__MAS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__MAS->size_and_id__OD & 4294967292LU)))))->previous_linear__ND=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__BJH)) - (unsigned long)begin_memory__3RB))));
- };
- };
- Self__YIH->size_and_id__OD=(__UINTEGER_32)(siz__1IH | 1);
-}
-
-static void put_string__B5C(void *s__D5C)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__V5C,Self__SKD,limit_up__TKD;
- __CHARACTER *__tmp__ATS,*__tmp__BTS;
- __CHARACTER __tmp__25C;
- if (((struct ___OBJ *)s__D5C)->__id==__STRING_CONSTANT__) {
- };
- if (((struct ___OBJ *)s__D5C)->__id==__STRING_CONSTANT__) {
- __tmp__V5C=((__STRING_CONSTANT *)s__D5C)->count__YHB;
- } else {
- __tmp__V5C=((__STRING *)s__D5C)->count__EW;
- };
- Self__SKD= 1;
- limit_up__TKD=__tmp__V5C;
- __tmp__ATS=((__STRING_CONSTANT *)s__D5C)->storage__0LE;
- __tmp__BTS=((__STRING *)s__D5C)->storage__3QC;
- while ((Self__SKD <= limit_up__TKD)) {
- if (((struct ___OBJ *)s__D5C)->__id==__STRING_CONSTANT__) {
- __tmp__25C=((__CHARACTER *)__tmp__ATS)[(__INTEGER)(Self__SKD - 1)];
- } else {
- __tmp__25C=((__CHARACTER *)__tmp__BTS)[(__INTEGER)(Self__SKD - 1)];
- };
- fputc((int)(__tmp__25C),stdout);
- Self__SKD=(__INTEGER)(Self__SKD + 1);
- };
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/nbody3/nbody_c.c b/example/shootout/nbody3/nbody_c.c
deleted file mode 100755
index 7312851..0000000
--- a/example/shootout/nbody3/nbody_c.c
+++ /dev/null
@@ -1,138 +0,0 @@
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#define pi 3.141592653589793
-#define solar_mass (4 * pi * pi)
-#define days_per_year 365.24
-
-struct planet {
- double x, y, z;
- double vx, vy, vz;
- double mass;
-};
-
-void advance(int nbodies, struct planet * bodies, double dt)
-{
- int i, j;
-
- for (i = 0; i < nbodies; i++) {
- struct planet * b = &(bodies[i]);
- for (j = i + 1; j < nbodies; j++) {
- struct planet * b2 = &(bodies[j]);
- double dx = b->x - b2->x;
- double dy = b->y - b2->y;
- double dz = b->z - b2->z;
- double distance = sqrt(dx * dx + dy * dy + dz * dz);
- double mag = dt / (distance * distance * distance);
-
- b->vx -= dx * b2->mass * mag;
- b->vy -= dy * b2->mass * mag;
- b->vz -= dz * b2->mass * mag;
-
- b2->vx += dx * b->mass * mag;
- b2->vy += dy * b->mass * mag;
- b2->vz += dz * b->mass * mag;
-
- }
- }
-
- for (i = 0; i < nbodies; i++) {
- struct planet * b = &(bodies[i]);
- b->x += dt * b->vx;
- b->y += dt * b->vy;
- b->z += dt * b->vz;
- }
-
-}
-
-double energy(int nbodies, struct planet * bodies)
-{
- double e;
- int i, j;
-
- e = 0.0;
- for (i = 0; i < nbodies; i++) {
- struct planet * b = &(bodies[i]);
- e += 0.5 * b->mass * (b->vx * b->vx + b->vy * b->vy + b->vz * b->vz);
- for (j = i + 1; j < nbodies; j++) {
- struct planet * b2 = &(bodies[j]);
- double dx = b->x - b2->x;
- double dy = b->y - b2->y;
- double dz = b->z - b2->z;
- double distance = sqrt(dx * dx + dy * dy + dz * dz);
- e -= (b->mass * b2->mass) / distance;
- }
- }
- return e;
-}
-
-void offset_momentum(int nbodies, struct planet * bodies)
-{
- double px = 0.0, py = 0.0, pz = 0.0;
- int i;
- for (i = 0; i < nbodies; i++) {
- px += bodies[i].vx * bodies[i].mass;
- py += bodies[i].vy * bodies[i].mass;
- pz += bodies[i].vz * bodies[i].mass;
- }
- bodies[0].vx = - px / solar_mass;
- bodies[0].vy = - py / solar_mass;
- bodies[0].vz = - pz / solar_mass;
-}
-
-#define NBODIES 5
-struct planet bodies[NBODIES] = {
- { /* sun */
- 0, 0, 0, 0, 0, 0, solar_mass
- },
- { /* jupiter */
- 4.84143144246472090e+00,
- -1.16032004402742839e+00,
- -1.03622044471123109e-01,
- 1.66007664274403694e-03 * days_per_year,
- 7.69901118419740425e-03 * days_per_year,
- -6.90460016972063023e-05 * days_per_year,
- 9.54791938424326609e-04 * solar_mass
- },
- { /* saturn */
- 8.34336671824457987e+00,
- 4.12479856412430479e+00,
- -4.03523417114321381e-01,
- -2.76742510726862411e-03 * days_per_year,
- 4.99852801234917238e-03 * days_per_year,
- 2.30417297573763929e-05 * days_per_year,
- 2.85885980666130812e-04 * solar_mass
- },
- { /* uranus */
- 1.28943695621391310e+01,
- -1.51111514016986312e+01,
- -2.23307578892655734e-01,
- 2.96460137564761618e-03 * days_per_year,
- 2.37847173959480950e-03 * days_per_year,
- -2.96589568540237556e-05 * days_per_year,
- 4.36624404335156298e-05 * solar_mass
- },
- { /* neptune */
- 1.53796971148509165e+01,
- -2.59193146099879641e+01,
- 1.79258772950371181e-01,
- 2.68067772490389322e-03 * days_per_year,
- 1.62824170038242295e-03 * days_per_year,
- -9.51592254519715870e-05 * days_per_year,
- 5.15138902046611451e-05 * solar_mass
- }
-};
-
-int main(int argc, char ** argv)
-{
- int n = atoi(argv[1]);
- int i;
-
- offset_momentum(NBODIES, bodies);
- printf ("%.9f\n", energy(NBODIES, bodies));
- for (i = 1; i <= n; i++)
- advance(NBODIES, bodies, 0.01);
- printf ("%.9f\n", energy(NBODIES, bodies));
- return 0;
-}
diff --git a/example/shootout/nsieve-bits/nsieve_bits.c b/example/shootout/nsieve-bits/nsieve_bits.c
deleted file mode 100755
index 7b74dbe..0000000
--- a/example/shootout/nsieve-bits/nsieve_bits.c
+++ /dev/null
@@ -1,1295 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- unsigned long __id;
- __INTEGER count__EDE;
- __INTEGER capacity__O1H;
- __CHARACTER *storage__X1H;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__RM;
- volatile __UINTEGER_32 size_and_id__SM;
- __MEMORY *next_free__TM;
- __MEMORY *previous_free__UM;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- unsigned long __id;
- __INTEGER count__5BE;
- __CHARACTER *storage__L5F;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// NUMERIC
-#define __NUMERIC__ 1
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 2
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER upper__KG;
- __INTEGER capacity__DAC;
- void **storage__OAC;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 3
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__HG;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// ARRAYED_COLLECTION[Expanded UINTEGER_32]
-#define __ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__ 5
-typedef struct ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_struct __ARRAYED_COLLECTIONoExpanded_UINTEGER_32o;
-struct ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_struct {
- __INTEGER capacity__Y2B;
- __INTEGER upper__R3B;
- __UINTEGER_32 *storage__D3B;
-};
-__ARRAYED_COLLECTIONoExpanded_UINTEGER_32o ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_;
-#define ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__ (&ARRAYED_COLLECTIONoExpanded_UINTEGER_32o_)
-
-// FAST_ARRAY[Expanded UINTEGER_32]
-#define __FAST_ARRAYoExpanded_UINTEGER_32o__ 6
-typedef struct FAST_ARRAYoExpanded_UINTEGER_32o_struct __FAST_ARRAYoExpanded_UINTEGER_32o;
-struct FAST_ARRAYoExpanded_UINTEGER_32o_struct {
- __ARRAYED_COLLECTIONoExpanded_UINTEGER_32o parent_arrayed_collection__OC;
-};
-__FAST_ARRAYoExpanded_UINTEGER_32o FAST_ARRAYoExpanded_UINTEGER_32o_;
-#define FAST_ARRAYoExpanded_UINTEGER_32o__ (&FAST_ARRAYoExpanded_UINTEGER_32o_)
-
-// NSIEVE_BITS
-#define __NSIEVE_BITS__ 7
-typedef struct NSIEVE_BITS_struct __NSIEVE_BITS;
-struct NSIEVE_BITS_struct {
- void *Nothing;
-};
-__NSIEVE_BITS NSIEVE_BITS_;
-#define NSIEVE_BITS__ (&NSIEVE_BITS_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[8];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__D4;
-__UINTEGER_32 nb_page__XLB;
-__UINTEGER_32 capacity_max__4VC;
-__MEMORY *first_free__1JF;
-void *string_tmp__M2C;
-__UINTEGER_32 clone_allocation_size__HM;
-void *primes__VC;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,13,"Primes up to "};
-__STRING_CONSTANT __string_2={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__FLB(__UINTEGER_32 t__HLB);
-static void** create__BTF(__INTEGER nb_elements__DTF);
-static __STRING* create__I5C(__INTEGER needed_capacity__K5C);
-static void add_last__PDJ(__STRING *Self__QDJ,__CHARACTER ch__RDJ);
-static __POINTER realloc_dynamic__old_size__new_size__T1I(__POINTER p__V1I,__UINTEGER_32 old_sz__W1I,__UINTEGER_32 new_sz__X1I);
-static __MEMORY* search__YIF(__UINTEGER_32 new_size__0IF);
-static void print__31C(__STRING_CONSTANT *Self__41C);
-static void print_format__J2C(__UINTEGER_32 Self__K2C);
-static __MEMORY* new_page__UVC();
-static __CHARACTER* create__ZYL(__INTEGER nb_elements__1YL);
-static void to_busy__index__1DI(__MEMORY *Self__2DI,__UINTEGER_32 sz__3DI,__UINTEGER_32 idx__4DI);
-static void put_string__VMD(void *s__XMD);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__FJ;
- __INTEGER new_count__PN,typ_id__BR,Self__0N,limit_up__1N,idx__Y3C;
- __INTEGER i__UYH,new_capacity__R5C,__tmp__VAD,__tmp__MDI,Self__K5N;
- __INTEGER state__PKN,result__SKN,i__OKN,__tmp__DOW,__tmp__FOW;
- __INTEGER new_count__JI,typ_id__ZL,Self__EPI,__tmp__43B,Self__3CL;
- __INTEGER Self__PI,Self__00C,limit_up__10C,Self__M1C,limit_up__N1C;
- __POINTER ptr__2Q,ptr_table__4RW,next__3RW,result__5RW,ptr_table__ESW;
- __POINTER next__DSW,result__FSW,ptr__UL,ptr_table__KSW,next__JSW;
- __POINTER result__LSW,ptr_table__QSW,next__PSW,result__RSW;
- __POINTER result__FQW,ptr_table__J2,next__O2,result__M2;
- __UINTEGER_32 sz__4Q,a__NNW,new_size__ONW,t__XNW,a__UNW,new_size__HSW;
- __UINTEGER_32 lab_type__GSW,param__4,count__BB,n__EB,j__HB,sz__1;
- __UINTEGER_32 sz__WL,a__QKW,new_size__JW,t__SX,a__WKW,new_size__TSW;
- __UINTEGER_32 lab_type__SSW,sz__HQW,a__GQW,new_size__IQW;
- __UINTEGER_32 new_size2__JQW,a__KQW,new_size__LQW,m__ZC,__tmp__1D;
- __UINTEGER_32 i__AE,idx__MCM;
- __STRING *Self__SYH,*Self__MKN;
- __CHARACTER *arg__EJ,*Self__M3C,*p__TYH,*__tmp__EOW;
- __FAST_ARRAYoSTRINGo *result__1Q,*Self__05B,*Self__P5C;
- void *result__DJ;
- __BOOLEAN __tmp__55C,negative__RKN,__tmp__4LN,result__BIT,__tmp__RMN;
- __BOOLEAN __tmp__GNN,result__ZAS,__tmp__NON,result__LBS,result__3QH;
- __BOOLEAN __tmp__F3B;
- void **__tmp__UAD,**new__ZCI;
- __CHARACTER cc__QKN;
- __FAST_ARRAYoExpanded_UINTEGER_32o *result__TL,*Self__O2B;
- __UINTEGER_32 *Result__YJD,*__tmp__33B,*Self__JJK,*__tmp__ZQW;
- __UINTEGER_32 *__tmp__2QW,*__tmp__3QW,*__tmp__4QW,*__tmp__WSW;
- arg_count = argc;
- arg_vector = argv;
- parent_numeric__H=NUMERIC__;
- ARRAYED_COLLECTIONoSTRINGo__->upper__KG= 0;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__DAC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->storage__OAC=NULL;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__HG=(*ARRAYED_COLLECTIONoSTRINGo__);
- clone_allocation_size__HM= 0;
- STRING_CONSTANT__->count__5BE=((__INTEGER )((0)));
- STRING__->count__EDE= 0;
- STRING_CONSTANT__->storage__L5F=((__CHARACTER *)(NULL));
- STRING__->storage__X1H=NULL;
- nb_page__XLB= 0;
- MEMORY__->size_and_id__SM= 0;
- capacity_max__4VC= 0;
- begin_memory__D4=((__POINTER )(NULL));
- MEMORY__->previous_linear__RM= 0;
- first_free__1JF=NULL;
- MEMORY__->next_free__TM=NULL;
- MEMORY__->previous_free__UM=NULL;
- STRING__->capacity__O1H= 0;
- arg__EJ=NULL;
- str__FJ=NULL;
- new_count__PN=((__INTEGER )(arg_count));
- result__1Q=NULL;
- ptr__2Q=((__POINTER )(NULL));
- typ_id__BR= 0;
- sz__4Q=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__4Q == 0)) {
- result__1Q=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__BR=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__HM=sz__4Q;
- if ((typ_id__BR == (__INTEGER)(- 1))) {
- a__NNW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ONW=(__UINTEGER_32)((__UINTEGER_32)(sz__4Q + a__NNW) & (__UINTEGER_32)(~ a__NNW));
- ptr_table__4RW=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ONW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__3RW=((__POINTER )(NULL));
- result__5RW=((__POINTER *)ptr_table__4RW)[ 0];
- if ((result__5RW == (void *)NULL)) {
- result__5RW=new_lab__FLB(new_size__ONW);
- next__3RW=(void *)((unsigned long)result__5RW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ONW)));
- ((__POINTER *)next__3RW)[ 0]=NULL;
- ((__POINTER *)ptr_table__4RW)[ 0]=next__3RW;
- } else {
- next__3RW=((__POINTER *)result__5RW)[ 0];
- if ((next__3RW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5RW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__ONW << 1)) <= 4096)) {
- next__3RW=(void *)((unsigned long)result__5RW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ONW)));
- } else {
- next__3RW=new_lab__FLB(new_size__ONW);
- };
- ((__POINTER *)next__3RW)[ 0]=NULL;
- ((__POINTER *)ptr_table__4RW)[ 0]=next__3RW;
- } else {
- ((__POINTER *)result__5RW)[ 0]=(void *)((unsigned long)((__POINTER *)next__3RW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5RW=next__3RW;
- };
- };
- ptr__2Q=result__5RW;
- } else {
- t__XNW=((__UINTEGER_32 )typ_id__BR);
- a__UNW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HSW=(__UINTEGER_32)((__UINTEGER_32)(sz__4Q + a__UNW) & (__UINTEGER_32)(~ a__UNW));
- ptr_table__ESW=((__POINTER )(&(table_type[(t__XNW)])));
- lab_type__GSW=(__UINTEGER_32)(t__XNW | 1);
- next__DSW=((__POINTER )(NULL));
- result__FSW=((__POINTER *)ptr_table__ESW)[ 0];
- if ((result__FSW == (void *)NULL)) {
- result__FSW=new_lab__FLB(lab_type__GSW);
- next__DSW=(void *)((unsigned long)result__FSW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSW)));
- ((__POINTER *)next__DSW)[ 0]=NULL;
- ((__POINTER *)ptr_table__ESW)[ 0]=next__DSW;
- } else {
- next__DSW=((__POINTER *)result__FSW)[ 0];
- if ((next__DSW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FSW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__HSW << 1)) <= 4096)) {
- next__DSW=(void *)((unsigned long)result__FSW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSW)));
- } else {
- next__DSW=new_lab__FLB(lab_type__GSW);
- };
- ((__POINTER *)next__DSW)[ 0]=NULL;
- ((__POINTER *)ptr_table__ESW)[ 0]=next__DSW;
- } else {
- ((__POINTER *)result__FSW)[ 0]=(void *)((unsigned long)((__POINTER *)next__DSW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FSW=next__DSW;
- };
- };
- ptr__2Q=result__FSW;
- };
- result__1Q=((__FAST_ARRAYoSTRINGo *)ptr__2Q);
- *(result__1Q) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__05B=((__FAST_ARRAYoSTRINGo *)result__1Q);
- if ((Self__05B->parent_arrayed_collection__HG.capacity__DAC < new_count__PN)) {
- Self__05B->parent_arrayed_collection__HG.storage__OAC=create__BTF(new_count__PN);
- Self__05B->parent_arrayed_collection__HG.capacity__DAC=new_count__PN;
- };
- Self__05B->parent_arrayed_collection__HG.upper__KG=(__INTEGER)(- 1);
- result__DJ=result__1Q;
- Self__0N= 0;
- limit_up__1N=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__0N <= limit_up__1N)) {
- arg__EJ=((__CHARACTER *)(arg_vector[(Self__0N)]));
- Self__M3C=((__CHARACTER *)arg__EJ);
- idx__Y3C= 0;
- while ((! ((idx__Y3C > 1024) || ('\0' == Self__M3C[idx__Y3C])))) {
- idx__Y3C=(__INTEGER)(idx__Y3C + 1);
- };
- str__FJ=create__I5C(idx__Y3C);
- Self__SYH=((__STRING *)str__FJ);
- p__TYH=arg__EJ;
- i__UYH= 0;
- Self__SYH->count__EDE= 0;
- while ((((__CHARACTER *)p__TYH)[i__UYH] != '\0')) {
- add_last__PDJ(Self__SYH,((__CHARACTER *)p__TYH)[i__UYH]);
- i__UYH=(__INTEGER)(i__UYH + 1);
- };
- Self__P5C=((__FAST_ARRAYoSTRINGo *)result__DJ);
- new_capacity__R5C= 0;
- if (((__INTEGER)(Self__P5C->parent_arrayed_collection__HG.upper__KG + 1) <= (__INTEGER)(Self__P5C->parent_arrayed_collection__HG.capacity__DAC - 1))) {
- Self__P5C->parent_arrayed_collection__HG.upper__KG=(__INTEGER)(Self__P5C->parent_arrayed_collection__HG.upper__KG + 1);
- __tmp__55C=TRUE__;
- } else {
- __tmp__55C=FALSE__;
- };
- if ((! __tmp__55C)) {
- if ((Self__P5C->parent_arrayed_collection__HG.capacity__DAC == 0)) {
- Self__P5C->parent_arrayed_collection__HG.storage__OAC=create__BTF( 2);
- Self__P5C->parent_arrayed_collection__HG.capacity__DAC= 2;
- Self__P5C->parent_arrayed_collection__HG.upper__KG= 0;
- } else {
- new_capacity__R5C=(__INTEGER)(Self__P5C->parent_arrayed_collection__HG.capacity__DAC << 1);
- __tmp__UAD=Self__P5C->parent_arrayed_collection__HG.storage__OAC;
- __tmp__VAD=Self__P5C->parent_arrayed_collection__HG.capacity__DAC;
- new__ZCI=((void **)realloc_dynamic__old_size__new_size__T1I(((__POINTER )((void **)__tmp__UAD)),((__UINTEGER_32 )(__INTEGER)(__tmp__VAD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__R5C * ((__INTEGER )(sizeof(void *)))))));
- __tmp__MDI=(__INTEGER)(new_capacity__R5C - 1);
- Self__K5N=__tmp__VAD;
- while ((Self__K5N <= __tmp__MDI)) {
- new__ZCI[Self__K5N]=NULL;
- Self__K5N=(__INTEGER)(Self__K5N + 1);
- };
- Self__P5C->parent_arrayed_collection__HG.storage__OAC=new__ZCI;
- Self__P5C->parent_arrayed_collection__HG.capacity__DAC=new_capacity__R5C;
- Self__P5C->parent_arrayed_collection__HG.upper__KG=(__INTEGER)(Self__P5C->parent_arrayed_collection__HG.upper__KG + 1);
- };
- };
- ((void **)Self__P5C->parent_arrayed_collection__HG.storage__OAC)[Self__P5C->parent_arrayed_collection__HG.upper__KG]=str__FJ;
- Self__0N=(__INTEGER)(Self__0N + 1);
- };
- ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__->capacity__Y2B= 0;
- ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__->storage__D3B=NULL;
- ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__->upper__R3B= 0;
- FAST_ARRAYoExpanded_UINTEGER_32o__->parent_arrayed_collection__OC=(*ARRAYED_COLLECTIONoExpanded_UINTEGER_32o__);
- primes__VC=NULL;
- string_tmp__M2C=create__I5C( 32);
- param__4= 0;
- count__BB= 0;
- n__EB= 0;
- j__HB= 0;
- if ((result__1Q->parent_arrayed_collection__HG.upper__KG == 1)) {
- Self__MKN=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__1Q)->parent_arrayed_collection__HG.storage__OAC)[ 1]);
- state__PKN= 0;
- cc__QKN='\0';
- negative__RKN=FALSE__;
- result__SKN= 0;
- i__OKN= 1;
- __tmp__DOW=Self__MKN->count__EDE;
- __tmp__EOW=Self__MKN->storage__X1H;
- __tmp__FOW=Self__MKN->count__EDE;
- while ((i__OKN <= __tmp__DOW)) {
- cc__QKN=((__CHARACTER *)__tmp__EOW)[(__INTEGER)(i__OKN - 1)];
- if ((state__PKN == 0)) {
- if ((((((((cc__QKN == ' ') || (cc__QKN == '\t')) || (cc__QKN == '\n')) || (cc__QKN == '\r')) || (cc__QKN == '\0')) || (cc__QKN == '\f')) || (cc__QKN == '\v'))) {
- __tmp__4LN=TRUE__;
- } else {
- result__BIT=(cc__QKN == '+');
- if (result__BIT) {
- state__PKN= 1;
- };
- __tmp__4LN=result__BIT;
- };
- if ((! __tmp__4LN)) {
- if ((cc__QKN == '-')) {
- negative__RKN=TRUE__;
- state__PKN= 1;
- } else {
- result__SKN=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QKN)) - 48);
- state__PKN= 2;
- };
- };
- __tmp__RMN=TRUE__;
- } else {
- __tmp__RMN=FALSE__;
- };
- if (__tmp__RMN) {
- __tmp__GNN=TRUE__;
- } else {
- result__ZAS=(state__PKN == 1);
- if (result__ZAS) {
- result__SKN=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QKN)) - 48);
- if (negative__RKN) {
- result__SKN=(__INTEGER)(- result__SKN);
- };
- state__PKN= 2;
- };
- __tmp__GNN=result__ZAS;
- };
- if (__tmp__GNN) {
- __tmp__NON=TRUE__;
- } else {
- result__LBS=(state__PKN == 2);
- if (result__LBS) {
- result__3QH=FALSE__;
- if ((((__INTEGER_8 )cc__QKN) >= ((__INTEGER_8 )'0'))) {
- result__3QH=(((__INTEGER_8 )cc__QKN) <= ((__INTEGER_8 )'9'));
- };
- if (result__3QH) {
- if (negative__RKN) {
- result__SKN=(__INTEGER)((__INTEGER)( 10 * result__SKN) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QKN)) - 48));
- } else {
- result__SKN=(__INTEGER)((__INTEGER)( 10 * result__SKN) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__QKN)) - 48));
- };
- } else {
- state__PKN= 3;
- };
- };
- __tmp__NON=result__LBS;
- };
- if ((! __tmp__NON)) {
- if ((state__PKN == 3)) {
- i__OKN=__tmp__FOW;
- };
- };
- i__OKN=(__INTEGER)(i__OKN + 1);
- };
- param__4=((__UINTEGER_32 )result__SKN);
- } else {
- param__4= 1;
- };
- sz__1=((__UINTEGER_32 )(__INTEGER)( 10000 << ((__INTEGER )param__4)));
- new_count__JI=((__INTEGER )(__UINTEGER_32)((__UINTEGER_32)(sz__1 >> 3) + 4));
- result__TL=NULL;
- ptr__UL=((__POINTER )(NULL));
- typ_id__ZL= 0;
- sz__WL=((__UINTEGER_32 )sizeof(__FAST_ARRAYoExpanded_UINTEGER_32o));
- if ((sz__WL == 0)) {
- result__TL=FAST_ARRAYoExpanded_UINTEGER_32o__;
- } else {
- typ_id__ZL=__FAST_ARRAYoExpanded_UINTEGER_32o__;
- clone_allocation_size__HM=(__UINTEGER_32)(clone_allocation_size__HM + sz__WL);
- if ((typ_id__ZL == (__INTEGER)(- 1))) {
- a__QKW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JW=(__UINTEGER_32)((__UINTEGER_32)(sz__WL + a__QKW) & (__UINTEGER_32)(~ a__QKW));
- ptr_table__KSW=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__JSW=((__POINTER )(NULL));
- result__LSW=((__POINTER *)ptr_table__KSW)[ 0];
- if ((result__LSW == (void *)NULL)) {
- result__LSW=new_lab__FLB(new_size__JW);
- next__JSW=(void *)((unsigned long)result__LSW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JW)));
- ((__POINTER *)next__JSW)[ 0]=NULL;
- ((__POINTER *)ptr_table__KSW)[ 0]=next__JSW;
- } else {
- next__JSW=((__POINTER *)result__LSW)[ 0];
- if ((next__JSW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LSW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__JW << 1)) <= 4096)) {
- next__JSW=(void *)((unsigned long)result__LSW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JW)));
- } else {
- next__JSW=new_lab__FLB(new_size__JW);
- };
- ((__POINTER *)next__JSW)[ 0]=NULL;
- ((__POINTER *)ptr_table__KSW)[ 0]=next__JSW;
- } else {
- ((__POINTER *)result__LSW)[ 0]=(void *)((unsigned long)((__POINTER *)next__JSW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LSW=next__JSW;
- };
- };
- ptr__UL=result__LSW;
- } else {
- t__SX=((__UINTEGER_32 )typ_id__ZL);
- a__WKW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TSW=(__UINTEGER_32)((__UINTEGER_32)(sz__WL + a__WKW) & (__UINTEGER_32)(~ a__WKW));
- ptr_table__QSW=((__POINTER )(&(table_type[(t__SX)])));
- lab_type__SSW=(__UINTEGER_32)(t__SX | 1);
- next__PSW=((__POINTER )(NULL));
- result__RSW=((__POINTER *)ptr_table__QSW)[ 0];
- if ((result__RSW == (void *)NULL)) {
- result__RSW=new_lab__FLB(lab_type__SSW);
- next__PSW=(void *)((unsigned long)result__RSW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSW)));
- ((__POINTER *)next__PSW)[ 0]=NULL;
- ((__POINTER *)ptr_table__QSW)[ 0]=next__PSW;
- } else {
- next__PSW=((__POINTER *)result__RSW)[ 0];
- if ((next__PSW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RSW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__TSW << 1)) <= 4096)) {
- next__PSW=(void *)((unsigned long)result__RSW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSW)));
- } else {
- next__PSW=new_lab__FLB(lab_type__SSW);
- };
- ((__POINTER *)next__PSW)[ 0]=NULL;
- ((__POINTER *)ptr_table__QSW)[ 0]=next__PSW;
- } else {
- ((__POINTER *)result__RSW)[ 0]=(void *)((unsigned long)((__POINTER *)next__PSW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RSW=next__PSW;
- };
- };
- ptr__UL=result__RSW;
- };
- result__TL=((__FAST_ARRAYoExpanded_UINTEGER_32o *)ptr__UL);
- *(result__TL) = *(FAST_ARRAYoExpanded_UINTEGER_32o__);
- };
- Self__O2B=((__FAST_ARRAYoExpanded_UINTEGER_32o *)result__TL);
- if ((new_count__JI > Self__O2B->parent_arrayed_collection__OC.capacity__Y2B)) {
- sz__HQW=((__UINTEGER_32 )(__INTEGER)(new_count__JI << 2));
- result__FQW=((__POINTER )(NULL));
- a__GQW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IQW=(__UINTEGER_32)((__UINTEGER_32)(sz__HQW + a__GQW) & (__UINTEGER_32)(~ a__GQW));
- new_size2__JQW=(__UINTEGER_32)(new_size__IQW + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__JQW <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__KQW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LQW=(__UINTEGER_32)((__UINTEGER_32)(new_size2__JQW + a__KQW) & (__UINTEGER_32)(~ a__KQW));
- ptr_table__J2=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LQW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__O2=((__POINTER )(NULL));
- result__M2=((__POINTER *)ptr_table__J2)[ 0];
- if ((result__M2 == (void *)NULL)) {
- result__M2=new_lab__FLB(new_size__LQW);
- next__O2=(void *)((unsigned long)result__M2 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LQW)));
- ((__POINTER *)next__O2)[ 0]=NULL;
- ((__POINTER *)ptr_table__J2)[ 0]=next__O2;
- } else {
- next__O2=((__POINTER *)result__M2)[ 0];
- if ((next__O2 == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M2 - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__LQW << 1)) <= 4096)) {
- next__O2=(void *)((unsigned long)result__M2 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LQW)));
- } else {
- next__O2=new_lab__FLB(new_size__LQW);
- };
- ((__POINTER *)next__O2)[ 0]=NULL;
- ((__POINTER *)ptr_table__J2)[ 0]=next__O2;
- } else {
- ((__POINTER *)result__M2)[ 0]=(void *)((unsigned long)((__POINTER *)next__O2)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__M2=next__O2;
- };
- };
- ((__POINTER *)result__M2)[ 0]=((__POINTER ) 3);
- result__FQW=(void *)((unsigned long)result__M2 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__FQW=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__YIF(new_size__IQW))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__YJD=((__UINTEGER_32 *)result__FQW);
- Self__EPI=(__INTEGER)(new_count__JI - 1);
- while ((Self__EPI >= 0)) {
- Result__YJD[Self__EPI]= 0;
- Self__EPI=(__INTEGER)(Self__EPI - 1);
- };
- Self__O2B->parent_arrayed_collection__OC.storage__D3B=Result__YJD;
- Self__O2B->parent_arrayed_collection__OC.capacity__Y2B=new_count__JI;
- __tmp__F3B=TRUE__;
- } else {
- __tmp__F3B=FALSE__;
- };
- if ((! __tmp__F3B)) {
- if (((Self__O2B->parent_arrayed_collection__OC.capacity__Y2B > 0) && (Self__O2B->parent_arrayed_collection__OC.upper__R3B >= 0))) {
- __tmp__33B=Self__O2B->parent_arrayed_collection__OC.storage__D3B;
- __tmp__43B=Self__O2B->parent_arrayed_collection__OC.upper__R3B;
- Self__JJK=((__UINTEGER_32 *)__tmp__33B);
- Self__3CL= 0;
- while ((Self__3CL <= __tmp__43B)) {
- Self__JJK[Self__3CL]= 0;
- Self__3CL=(__INTEGER)(Self__3CL + 1);
- };
- };
- };
- Self__O2B->parent_arrayed_collection__OC.upper__R3B=(__INTEGER)(new_count__JI - 1);
- primes__VC=result__TL;
- Self__PI= 0;
- while ((Self__PI <= 2)) {
- m__ZC=((__UINTEGER_32 )Self__PI);
- count__BB= 0;
- n__EB=(__UINTEGER_32)(sz__1 >> ((__INTEGER )m__ZC));
- __tmp__1D=(__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(n__EB >> 3) + 4) >> 2);
- Self__00C= 0;
- limit_up__10C=((__INTEGER )__tmp__1D);
- __tmp__ZQW=((__FAST_ARRAYoExpanded_UINTEGER_32o *)primes__VC)->parent_arrayed_collection__OC.storage__D3B;
- while ((Self__00C <= limit_up__10C)) {
- ((__UINTEGER_32 *)__tmp__ZQW)[Self__00C]=((__UINTEGER_32 )(__INTEGER)(~ 0));
- Self__00C=(__INTEGER)(Self__00C + 1);
- };
- Self__M1C= 2;
- limit_up__N1C=((__INTEGER )n__EB);
- __tmp__2QW=((__FAST_ARRAYoExpanded_UINTEGER_32o *)primes__VC)->parent_arrayed_collection__OC.storage__D3B;
- __tmp__3QW=((__FAST_ARRAYoExpanded_UINTEGER_32o *)primes__VC)->parent_arrayed_collection__OC.storage__D3B;
- __tmp__4QW=((__FAST_ARRAYoExpanded_UINTEGER_32o *)primes__VC)->parent_arrayed_collection__OC.storage__D3B;
- __tmp__WSW=((__FAST_ARRAYoExpanded_UINTEGER_32o *)primes__VC)->parent_arrayed_collection__OC.storage__D3B;
- while ((Self__M1C <= limit_up__N1C)) {
- i__AE=((__UINTEGER_32 )Self__M1C);
- if (((__UINTEGER_32)(((__UINTEGER_32 *)__tmp__2QW)[((__INTEGER )(__UINTEGER_32)(i__AE >> 5))] & ((__UINTEGER_32 )(__INTEGER)( 1 << ((__INTEGER )(__UINTEGER_32)(i__AE & 31))))) != 0)) {
- count__BB=(__UINTEGER_32)(count__BB + 1);
- j__HB=(__UINTEGER_32)(i__AE + i__AE);
- while ((j__HB <= n__EB)) {
- if (((__UINTEGER_32)(((__UINTEGER_32 *)__tmp__3QW)[((__INTEGER )(__UINTEGER_32)(j__HB >> 5))] & ((__UINTEGER_32 )(__INTEGER)( 1 << ((__INTEGER )(__UINTEGER_32)(j__HB & 31))))) != 0)) {
- idx__MCM=(__UINTEGER_32)(j__HB >> 5);
- ((__UINTEGER_32 *)__tmp__WSW)[((__INTEGER )idx__MCM)]=(__UINTEGER_32)(((__UINTEGER_32 *)__tmp__4QW)[((__INTEGER )idx__MCM)] ^ ((__UINTEGER_32 )(__INTEGER)( 1 << ((__INTEGER )(__UINTEGER_32)(j__HB & 31)))));
- };
- j__HB=(__UINTEGER_32)(j__HB + i__AE);
- };
- };
- Self__M1C=(__INTEGER)(Self__M1C + 1);
- };
- print__31C((&__string_1));
- print_format__J2C(n__EB);
- fputc((int)(' '),stdout);
- print_format__J2C(count__BB);
- fputc((int)('\n'),stdout);
- Self__PI=(__INTEGER)(Self__PI + 1);
- };
- return( 0);
-}
-
-static __POINTER new_lab__FLB(__UINTEGER_32 t__HLB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__JLB,pv__QLB;
- __MEMORY *blc__MLB,*prev__NLB,*Self__E0V,*Self__NJW,*prev__OJW;
- __MEMORY *next__PJW;
- __POINTER result__OLB;
- __BOOLEAN __tmp__QMB;
- idx__JLB= 0;
- blc__MLB=NULL;
- prev__NLB=NULL;
- pv__QLB= 0;
- while_do__IQB:
- {
- if ((idx__JLB < nb_page__XLB)) {
- blc__MLB=((__MEMORY *)(last_block[(idx__JLB)]));
- __tmp__QMB=(((__UINTEGER_32)(((__MEMORY *)blc__MLB)->size_and_id__SM & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__MLB)->size_and_id__SM & 1) == 1));
- } else {
- __tmp__QMB=FALSE__;
- };
- if (__tmp__QMB) {
- idx__JLB=(__UINTEGER_32)(idx__JLB + 1);
- goto while_do__IQB;
- };
- };
- if ((idx__JLB >= nb_page__XLB)) {
- blc__MLB=new_page__UVC();
- };
- ((__MEMORY *)blc__MLB)->size_and_id__SM=(__UINTEGER_32)(blc__MLB->size_and_id__SM - 4096);
- Self__E0V=((__MEMORY *)blc__MLB);
- result__OLB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__E0V) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__E0V->size_and_id__SM & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__MLB)->size_and_id__SM & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__NJW=((__MEMORY *)blc__MLB);
- prev__OJW=Self__NJW->previous_free__UM;
- next__PJW=Self__NJW->next_free__TM;
- if (((void *)prev__OJW == (void *)NULL)) {
- first_free__1JF=next__PJW;
- } else {
- ((__MEMORY *)prev__OJW)->next_free__TM=next__PJW;
- };
- if (((void *)next__PJW != (void *)NULL)) {
- ((__MEMORY *)next__PJW)->previous_free__UM=prev__OJW;
- };
- pv__QLB=blc__MLB->previous_linear__RM;
- if ((pv__QLB != 4294967295LU)) {
- prev__NLB=((__MEMORY *)(void *)((unsigned long)begin_memory__D4 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__QLB))));
- ((__MEMORY *)prev__NLB)->size_and_id__SM=(__UINTEGER_32)((__UINTEGER_32)(prev__NLB->size_and_id__SM + blc__MLB->size_and_id__SM) + 8);
- last_block[(idx__JLB)] = (prev__NLB);
- };
- };
- ((__POINTER *)result__OLB)[ 0]=((__POINTER )t__HLB);
- return((void *)((unsigned long)result__OLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__BTF(__INTEGER nb_elements__DTF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__RQW,a__QQW,new_size__SQW,new_size2__TQW,a__UQW;
- __UINTEGER_32 new_size__VQW;
- __POINTER result__PQW,ptr_table__ARW,next__5QW,result__BRW;
- __INTEGER Self__OFJ;
- void **Result__ICG;
- sz__RQW=((__UINTEGER_32 )(__INTEGER)(nb_elements__DTF * ((__INTEGER )(sizeof(void *)))));
- result__PQW=((__POINTER )(NULL));
- a__QQW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SQW=(__UINTEGER_32)((__UINTEGER_32)(sz__RQW + a__QQW) & (__UINTEGER_32)(~ a__QQW));
- new_size2__TQW=(__UINTEGER_32)(new_size__SQW + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__TQW <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__UQW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VQW=(__UINTEGER_32)((__UINTEGER_32)(new_size2__TQW + a__UQW) & (__UINTEGER_32)(~ a__UQW));
- ptr_table__ARW=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VQW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__5QW=((__POINTER )(NULL));
- result__BRW=((__POINTER *)ptr_table__ARW)[ 0];
- if ((result__BRW == (void *)NULL)) {
- result__BRW=new_lab__FLB(new_size__VQW);
- next__5QW=(void *)((unsigned long)result__BRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VQW)));
- ((__POINTER *)next__5QW)[ 0]=NULL;
- ((__POINTER *)ptr_table__ARW)[ 0]=next__5QW;
- } else {
- next__5QW=((__POINTER *)result__BRW)[ 0];
- if ((next__5QW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BRW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__VQW << 1)) <= 4096)) {
- next__5QW=(void *)((unsigned long)result__BRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VQW)));
- } else {
- next__5QW=new_lab__FLB(new_size__VQW);
- };
- ((__POINTER *)next__5QW)[ 0]=NULL;
- ((__POINTER *)ptr_table__ARW)[ 0]=next__5QW;
- } else {
- ((__POINTER *)result__BRW)[ 0]=(void *)((unsigned long)((__POINTER *)next__5QW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BRW=next__5QW;
- };
- };
- ((__POINTER *)result__BRW)[ 0]=((__POINTER ) 3);
- result__PQW=(void *)((unsigned long)result__BRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__PQW=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__YIF(new_size__SQW))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__ICG=((void **)result__PQW);
- Self__OFJ=(__INTEGER)(nb_elements__DTF - 1);
- while ((Self__OFJ >= 0)) {
- Result__ICG[Self__OFJ]=NULL;
- Self__OFJ=(__INTEGER)(Self__OFJ - 1);
- };
- return(Result__ICG);
-}
-
-static __STRING* create__I5C(__INTEGER needed_capacity__K5C)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__URD,*Self__50H;
- __POINTER ptr__VRD,ptr_table__GRW,next__FRW,result__HRW;
- __POINTER ptr_table__MRW,next__LRW,result__NRW;
- __INTEGER typ_id__0RD;
- __UINTEGER_32 sz__XRD,a__1KW,new_size__2KW,t__FLW,a__CLW;
- __UINTEGER_32 new_size__PRW,lab_type__ORW;
- result__URD=NULL;
- ptr__VRD=((__POINTER )(NULL));
- typ_id__0RD= 0;
- sz__XRD=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__XRD == 0)) {
- result__URD=STRING__;
- } else {
- typ_id__0RD=-1;
- clone_allocation_size__HM=(__UINTEGER_32)(clone_allocation_size__HM + sz__XRD);
- if ((typ_id__0RD == (__INTEGER)(- 1))) {
- a__1KW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2KW=(__UINTEGER_32)((__UINTEGER_32)(sz__XRD + a__1KW) & (__UINTEGER_32)(~ a__1KW));
- ptr_table__GRW=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2KW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FRW=((__POINTER )(NULL));
- result__HRW=((__POINTER *)ptr_table__GRW)[ 0];
- if ((result__HRW == (void *)NULL)) {
- result__HRW=new_lab__FLB(new_size__2KW);
- next__FRW=(void *)((unsigned long)result__HRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KW)));
- ((__POINTER *)next__FRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__GRW)[ 0]=next__FRW;
- } else {
- next__FRW=((__POINTER *)result__HRW)[ 0];
- if ((next__FRW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HRW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__2KW << 1)) <= 4096)) {
- next__FRW=(void *)((unsigned long)result__HRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KW)));
- } else {
- next__FRW=new_lab__FLB(new_size__2KW);
- };
- ((__POINTER *)next__FRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__GRW)[ 0]=next__FRW;
- } else {
- ((__POINTER *)result__HRW)[ 0]=(void *)((unsigned long)((__POINTER *)next__FRW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HRW=next__FRW;
- };
- };
- ptr__VRD=result__HRW;
- } else {
- t__FLW=((__UINTEGER_32 )typ_id__0RD);
- a__CLW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PRW=(__UINTEGER_32)((__UINTEGER_32)(sz__XRD + a__CLW) & (__UINTEGER_32)(~ a__CLW));
- ptr_table__MRW=((__POINTER )(&(table_type[(t__FLW)])));
- lab_type__ORW=(__UINTEGER_32)(t__FLW | 1);
- next__LRW=((__POINTER )(NULL));
- result__NRW=((__POINTER *)ptr_table__MRW)[ 0];
- if ((result__NRW == (void *)NULL)) {
- result__NRW=new_lab__FLB(lab_type__ORW);
- next__LRW=(void *)((unsigned long)result__NRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRW)));
- ((__POINTER *)next__LRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__MRW)[ 0]=next__LRW;
- } else {
- next__LRW=((__POINTER *)result__NRW)[ 0];
- if ((next__LRW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NRW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__PRW << 1)) <= 4096)) {
- next__LRW=(void *)((unsigned long)result__NRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRW)));
- } else {
- next__LRW=new_lab__FLB(lab_type__ORW);
- };
- ((__POINTER *)next__LRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__MRW)[ 0]=next__LRW;
- } else {
- ((__POINTER *)result__NRW)[ 0]=(void *)((unsigned long)((__POINTER *)next__LRW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NRW=next__LRW;
- };
- };
- ptr__VRD=result__NRW;
- };
- result__URD=((__STRING *)ptr__VRD);
- *(result__URD) = *(STRING__);
- };
- Self__50H=((__STRING *)result__URD);
- if ((needed_capacity__K5C > 0)) {
- if ((Self__50H->capacity__O1H < needed_capacity__K5C)) {
- Self__50H->storage__X1H=create__ZYL(needed_capacity__K5C);
- Self__50H->capacity__O1H=needed_capacity__K5C;
- };
- };
- Self__50H->count__EDE= 0;
- return(result__URD);
-}
-
-static void add_last__PDJ(__STRING *Self__QDJ,__CHARACTER ch__RDJ)
-// ({STRING},{CHARACTER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__SDJ,__tmp__LEJ,__tmp__UZN,Self__EDR;
- __CHARACTER *__tmp__KEJ,*new__BZN;
- new_capacity__SDJ= 0;
- if ((Self__QDJ->capacity__O1H <= Self__QDJ->count__EDE)) {
- if ((Self__QDJ->capacity__O1H == 0)) {
- Self__QDJ->capacity__O1H= 32;
- Self__QDJ->storage__X1H=create__ZYL( 32);
- } else {
- new_capacity__SDJ=(__INTEGER)(Self__QDJ->capacity__O1H << 1);
- __tmp__KEJ=Self__QDJ->storage__X1H;
- __tmp__LEJ=Self__QDJ->capacity__O1H;
- new__BZN=((__CHARACTER *)realloc_dynamic__old_size__new_size__T1I(((__POINTER )((__CHARACTER *)__tmp__KEJ)),((__UINTEGER_32 )__tmp__LEJ),((__UINTEGER_32 )new_capacity__SDJ)));
- __tmp__UZN=(__INTEGER)(new_capacity__SDJ - 1);
- Self__EDR=__tmp__LEJ;
- while ((Self__EDR <= __tmp__UZN)) {
- new__BZN[Self__EDR]='\0';
- Self__EDR=(__INTEGER)(Self__EDR + 1);
- };
- Self__QDJ->storage__X1H=new__BZN;
- Self__QDJ->capacity__O1H=new_capacity__SDJ;
- };
- };
- ((__CHARACTER *)Self__QDJ->storage__X1H)[Self__QDJ->count__EDE]=ch__RDJ;
- Self__QDJ->count__EDE=(__INTEGER)(Self__QDJ->count__EDE + 1);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__T1I(__POINTER p__V1I,__UINTEGER_32 old_sz__W1I,__UINTEGER_32 new_sz__X1I)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__C2I,*Self__1KL,*nxt__5KL,*result__ALL,*next__MCN;
- __MEMORY *new_free__LCN,*prev__4LW,*next__5LW;
- __POINTER result__D2I,result__S2D,ptr_table__SRW,next__RRW;
- __POINTER result__TRW,p__RJL,last__E5L,src__LIL,dst__MIL;
- __UINTEGER_32 a__KLW,old_size__Z1I,old_size2__21I,a__OLW;
- __UINTEGER_32 new_size__51I,a__K0,new_size__M2D,new_size2__P2D,a__GMW;
- __UINTEGER_32 new_size__HMW,a__SLW,__tmp__U3I,sz__ELL,old_size__BLL;
- __UINTEGER_32 prev__NCN,new_size__QCN;
- __INTEGER siz__YSW,Self__3SW,siz__QIL,Self__X2L;
- __POINTER *na_src__0SW,*na_dst__2SW,*na_src__OIL,*na_dst__PIL;
- mem__C2I=NULL;
- result__D2I=((__POINTER )(NULL));
- a__KLW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__Z1I=(__UINTEGER_32)((__UINTEGER_32)(old_sz__W1I + a__KLW) & (__UINTEGER_32)(~ a__KLW));
- old_size2__21I=(__UINTEGER_32)(old_size__Z1I + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__OLW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__51I=(__UINTEGER_32)((__UINTEGER_32)(new_sz__X1I + a__OLW) & (__UINTEGER_32)(~ a__OLW));
- if ((old_size2__21I <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__S2D=((__POINTER )(NULL));
- a__K0=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__M2D=(__UINTEGER_32)((__UINTEGER_32)(new_size__51I + a__K0) & (__UINTEGER_32)(~ a__K0));
- new_size2__P2D=(__UINTEGER_32)(new_size__M2D + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__P2D <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GMW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HMW=(__UINTEGER_32)((__UINTEGER_32)(new_size2__P2D + a__GMW) & (__UINTEGER_32)(~ a__GMW));
- ptr_table__SRW=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HMW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__RRW=((__POINTER )(NULL));
- result__TRW=((__POINTER *)ptr_table__SRW)[ 0];
- if ((result__TRW == (void *)NULL)) {
- result__TRW=new_lab__FLB(new_size__HMW);
- next__RRW=(void *)((unsigned long)result__TRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMW)));
- ((__POINTER *)next__RRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__SRW)[ 0]=next__RRW;
- } else {
- next__RRW=((__POINTER *)result__TRW)[ 0];
- if ((next__RRW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TRW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__HMW << 1)) <= 4096)) {
- next__RRW=(void *)((unsigned long)result__TRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMW)));
- } else {
- next__RRW=new_lab__FLB(new_size__HMW);
- };
- ((__POINTER *)next__RRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__SRW)[ 0]=next__RRW;
- } else {
- ((__POINTER *)result__TRW)[ 0]=(void *)((unsigned long)((__POINTER *)next__RRW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TRW=next__RRW;
- };
- };
- ((__POINTER *)result__TRW)[ 0]=((__POINTER ) 3);
- result__S2D=(void *)((unsigned long)result__TRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__S2D=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__YIF(new_size__M2D))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__D2I=result__S2D;
- siz__YSW=((__INTEGER )old_size__Z1I);
- siz__YSW=(__INTEGER)(siz__YSW / ((__INTEGER )(sizeof(void *))));
- na_src__0SW=((__POINTER *)p__V1I);
- na_dst__2SW=((__POINTER *)result__S2D);
- Self__3SW=(__INTEGER)(siz__YSW - 1);
- while ((Self__3SW >= 0)) {
- na_dst__2SW[Self__3SW]=na_src__0SW[Self__3SW];
- Self__3SW=(__INTEGER)(Self__3SW - 1);
- };
- p__RJL=(void *)((unsigned long)p__V1I - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__SLW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__E5L=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__21I + a__SLW) & (__UINTEGER_32)(~ a__SLW)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__RJL)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__E5L)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__E5L)[ 0]=p__RJL;
- } else {
- mem__C2I=((__MEMORY *)(void *)((unsigned long)p__V1I - (unsigned long)((__POINTER ) 8)));
- __tmp__U3I=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__V1I - (unsigned long)begin_memory__D4)))) >> 26);
- Self__1KL=((__MEMORY *)mem__C2I);
- nxt__5KL=NULL;
- result__ALL=NULL;
- sz__ELL= 0;
- old_size__BLL=(__UINTEGER_32)(Self__1KL->size_and_id__SM & 4294967292LU);
- if ((new_size__51I > old_size__BLL)) {
- if ((! ((__UINTEGER_32)(Self__1KL->size_and_id__SM & 2) != 0))) {
- nxt__5KL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1KL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1KL->size_and_id__SM & 4294967292LU)))));
- sz__ELL=(__UINTEGER_32)((__UINTEGER_32)(new_size__51I - old_size__BLL) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__5KL)->size_and_id__SM & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__5KL)->size_and_id__SM & 4294967292LU) >= sz__ELL))) {
- to_busy__index__1DI(nxt__5KL,sz__ELL,__tmp__U3I);
- Self__1KL->size_and_id__SM=(__UINTEGER_32)((__UINTEGER_32)(Self__1KL->size_and_id__SM + (__UINTEGER_32)(nxt__5KL->size_and_id__SM & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__1KL->size_and_id__SM & 2) != 0)) {
- last_block[(__tmp__U3I)] = (Self__1KL);
- } else {
- nxt__5KL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1KL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1KL->size_and_id__SM & 4294967292LU)))));
- ((__MEMORY *)nxt__5KL)->previous_linear__RM=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__1KL) - (unsigned long)begin_memory__D4))));
- };
- result__ALL=Self__1KL;
- };
- };
- if (((void *)result__ALL == (void *)NULL)) {
- result__ALL=search__YIF(new_size__51I);
- src__LIL=(void *)((unsigned long)((__POINTER )Self__1KL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__MIL=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__ALL)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__QIL=((__INTEGER )old_size__BLL);
- siz__QIL=(__INTEGER)(siz__QIL / ((__INTEGER )(sizeof(void *))));
- na_src__OIL=((__POINTER *)src__LIL);
- na_dst__PIL=((__POINTER *)dst__MIL);
- Self__X2L=(__INTEGER)(siz__QIL - 1);
- while ((Self__X2L >= 0)) {
- na_dst__PIL[Self__X2L]=na_src__OIL[Self__X2L];
- Self__X2L=(__INTEGER)(Self__X2L - 1);
- };
- prev__NCN=Self__1KL->previous_linear__RM;
- next__MCN=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1KL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1KL->size_and_id__SM & 4294967292LU)))));
- new_free__LCN=((__MEMORY *)(void *)((unsigned long)begin_memory__D4 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__NCN))));
- new_size__QCN=(__UINTEGER_32)(Self__1KL->size_and_id__SM & 4294967294LU);
- if (((prev__NCN == 4294967295LU) || ((__UINTEGER_32)(new_free__LCN->size_and_id__SM & 1) != 0))) {
- new_free__LCN=Self__1KL;
- Self__1KL->next_free__TM=first_free__1JF;
- Self__1KL->previous_free__UM=NULL;
- if (((void *)first_free__1JF != (void *)NULL)) {
- ((__MEMORY *)first_free__1JF)->previous_free__UM=Self__1KL;
- };
- first_free__1JF=Self__1KL;
- } else {
- new_size__QCN=(__UINTEGER_32)((__UINTEGER_32)(new_size__QCN + new_free__LCN->size_and_id__SM) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__1KL->size_and_id__SM & 2) != 0)) && ((__UINTEGER_32)(next__MCN->size_and_id__SM & 1) == 0))) {
- new_size__QCN=(__UINTEGER_32)((__UINTEGER_32)(new_size__QCN + next__MCN->size_and_id__SM) + 8);
- prev__4LW=next__MCN->previous_free__UM;
- next__5LW=next__MCN->next_free__TM;
- if (((void *)prev__4LW == (void *)NULL)) {
- first_free__1JF=next__5LW;
- } else {
- ((__MEMORY *)prev__4LW)->next_free__TM=next__5LW;
- };
- if (((void *)next__5LW != (void *)NULL)) {
- ((__MEMORY *)next__5LW)->previous_free__UM=prev__4LW;
- };
- };
- new_free__LCN->size_and_id__SM=new_size__QCN;
- if (((__UINTEGER_32)(new_free__LCN->size_and_id__SM & 2) != 0)) {
- last_block[(__tmp__U3I)] = (new_free__LCN);
- } else {
- next__MCN=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1KL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1KL->size_and_id__SM & 4294967292LU)))));
- next__MCN->previous_linear__RM=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__LCN) - (unsigned long)begin_memory__D4))));
- };
- };
- } else {
- result__ALL=Self__1KL;
- };
- result__D2I=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__ALL)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__D2I);
-}
-
-static __MEMORY* search__YIF(__UINTEGER_32 new_size__0IF)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__2IF;
- result__2IF=first_free__1JF;
- while ((((void *)result__2IF != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__2IF)->size_and_id__SM & 4294967292LU) < new_size__0IF))) {
- result__2IF=result__2IF->next_free__TM;
- };
- if (((void *)result__2IF == (void *)NULL)) {
- result__2IF=new_page__UVC();
- };
- to_busy__index__1DI(result__2IF,new_size__0IF,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__2IF)) - (unsigned long)begin_memory__D4)))) >> 26));
- return(result__2IF);
-}
-
-static void print__31C(__STRING_CONSTANT *Self__41C)
-// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
-{
- put_string__VMD(Self__41C);
-}
-
-static void print_format__J2C(__UINTEGER_32 Self__K2C)
-// ({UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __INTEGER old_count__JDE,i__1VE,j__2VE,__tmp__PDE,Self__ZUI,i__YZL;
- __UINTEGER_32 val__YVE;
- __STRING *Self__C0K,*Self__Q3H;
- __CHARACTER tmp__F0K;
- __CHARACTER *__tmp__WPW,*__tmp__XPW;
- ((__STRING *)string_tmp__M2C)->count__EDE= 0;
- old_count__JDE=((__STRING *)string_tmp__M2C)->count__EDE;
- val__YVE= 0;
- i__1VE= 0;
- j__2VE= 0;
- if ((Self__K2C == 0)) {
- add_last__PDJ(((__STRING *)string_tmp__M2C),'0');
- } else {
- i__1VE=(__INTEGER)(((__STRING *)string_tmp__M2C)->count__EDE + 1);
- val__YVE=Self__K2C;
- while ((val__YVE != 0)) {
- add_last__PDJ(((__STRING *)string_tmp__M2C),((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__UINTEGER_32)(val__YVE % 10)) + ((__INTEGER_8 )'0'))))));
- val__YVE=(__UINTEGER_32)(val__YVE / 10);
- };
- j__2VE=((__STRING *)string_tmp__M2C)->count__EDE;
- while ((i__1VE < j__2VE)) {
- Self__C0K=((__STRING *)string_tmp__M2C);
- tmp__F0K=((__CHARACTER *)Self__C0K->storage__X1H)[(__INTEGER)(i__1VE - 1)];
- ((__CHARACTER *)Self__C0K->storage__X1H)[(__INTEGER)(i__1VE - 1)]=((__CHARACTER *)Self__C0K->storage__X1H)[(__INTEGER)(j__2VE - 1)];
- ((__CHARACTER *)Self__C0K->storage__X1H)[(__INTEGER)(j__2VE - 1)]=tmp__F0K;
- j__2VE=(__INTEGER)(j__2VE - 1);
- i__1VE=(__INTEGER)(i__1VE + 1);
- };
- };
- __tmp__PDE=(__UINTEGER_32)( 8 - (__INTEGER)(((__STRING *)string_tmp__M2C)->count__EDE - old_count__JDE));
- Self__Q3H=((__STRING *)string_tmp__M2C);
- Self__ZUI= 1;
- while ((Self__ZUI <= __tmp__PDE)) {
- i__YZL=Self__Q3H->count__EDE;
- add_last__PDJ(Self__Q3H,' ');
- __tmp__WPW=Self__Q3H->storage__X1H;
- __tmp__XPW=Self__Q3H->storage__X1H;
- while ((i__YZL != old_count__JDE)) {
- ((__CHARACTER *)__tmp__XPW)[(__INTEGER)((__INTEGER)(i__YZL + 1) - 1)]=((__CHARACTER *)__tmp__WPW)[(__INTEGER)(i__YZL - 1)];
- i__YZL=(__INTEGER)(i__YZL - 1);
- };
- ((__CHARACTER *)Self__Q3H->storage__X1H)[(__INTEGER)((__INTEGER)(old_count__JDE + 1) - 1)]=' ';
- Self__ZUI=(__INTEGER)(Self__ZUI + 1);
- };
- put_string__VMD(((__STRING *)string_tmp__M2C));
-}
-
-static __MEMORY* new_page__UVC()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__YLE;
- __UINTEGER_32 cap__VLE,old_size__XVC;
- __MEMORY *block__3VC;
- if ((capacity_max__4VC == 0)) {
- mem__YLE=((__POINTER )(NULL));
- cap__VLE= 33554432;
- do {
- cap__VLE=(__UINTEGER_32)(cap__VLE << 1);
- mem__YLE=((__POINTER )(malloc((cap__VLE))));
- if ((mem__YLE != (void *)NULL)) {
- free((mem__YLE));
- };
- } while ((! ((mem__YLE == (void *)NULL) || (cap__VLE == 2147483648LU))));
- if ((mem__YLE == (void *)NULL)) {
- cap__VLE=(__UINTEGER_32)(cap__VLE >> 1);
- };
- capacity_max__4VC=cap__VLE;
- begin_memory__D4=((__POINTER )(malloc((cap__VLE))));
- };
- old_size__XVC=(__UINTEGER_32)(nb_page__XLB << 26);
- nb_page__XLB=(__UINTEGER_32)(nb_page__XLB + 1);
- if (((__UINTEGER_32)(old_size__XVC + 67108864) > capacity_max__4VC)) {
- print__31C((&__string_2));
- exit(( 1));
- };
- block__3VC=((__MEMORY *)(void *)((unsigned long)begin_memory__D4 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__XVC))));
- block__3VC->previous_linear__RM= 4294967295LU;
- block__3VC->size_and_id__SM= 67108858;
- block__3VC->next_free__TM=first_free__1JF;
- block__3VC->previous_free__UM=NULL;
- if (((void *)first_free__1JF != (void *)NULL)) {
- ((__MEMORY *)first_free__1JF)->previous_free__UM=block__3VC;
- };
- first_free__1JF=block__3VC;
- last_block[((__UINTEGER_32)(nb_page__XLB - 1))] = (block__3VC);
- return(block__3VC);
-}
-
-static __CHARACTER* create__ZYL(__INTEGER nb_elements__1YL)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__3PW,a__2PW,new_size__4PW,new_size2__5PW,a__AQW;
- __UINTEGER_32 new_size__BQW;
- __POINTER result__1PW,ptr_table__YRW,next__XRW,result__ZRW;
- __INTEGER Self__MCO;
- __CHARACTER *Result__MJM;
- sz__3PW=((__UINTEGER_32 )nb_elements__1YL);
- result__1PW=((__POINTER )(NULL));
- a__2PW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4PW=(__UINTEGER_32)((__UINTEGER_32)(sz__3PW + a__2PW) & (__UINTEGER_32)(~ a__2PW));
- new_size2__5PW=(__UINTEGER_32)(new_size__4PW + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__5PW <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__AQW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BQW=(__UINTEGER_32)((__UINTEGER_32)(new_size2__5PW + a__AQW) & (__UINTEGER_32)(~ a__AQW));
- ptr_table__YRW=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BQW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__XRW=((__POINTER )(NULL));
- result__ZRW=((__POINTER *)ptr_table__YRW)[ 0];
- if ((result__ZRW == (void *)NULL)) {
- result__ZRW=new_lab__FLB(new_size__BQW);
- next__XRW=(void *)((unsigned long)result__ZRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BQW)));
- ((__POINTER *)next__XRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__YRW)[ 0]=next__XRW;
- } else {
- next__XRW=((__POINTER *)result__ZRW)[ 0];
- if ((next__XRW == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZRW - (unsigned long)begin_memory__D4)))) & 4095) + (__UINTEGER_32)(new_size__BQW << 1)) <= 4096)) {
- next__XRW=(void *)((unsigned long)result__ZRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BQW)));
- } else {
- next__XRW=new_lab__FLB(new_size__BQW);
- };
- ((__POINTER *)next__XRW)[ 0]=NULL;
- ((__POINTER *)ptr_table__YRW)[ 0]=next__XRW;
- } else {
- ((__POINTER *)result__ZRW)[ 0]=(void *)((unsigned long)((__POINTER *)next__XRW)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZRW=next__XRW;
- };
- };
- ((__POINTER *)result__ZRW)[ 0]=((__POINTER ) 3);
- result__1PW=(void *)((unsigned long)result__ZRW - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__1PW=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__YIF(new_size__4PW))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__MJM=((__CHARACTER *)result__1PW);
- Self__MCO=(__INTEGER)(nb_elements__1YL - 1);
- while ((Self__MCO >= 0)) {
- Result__MJM[Self__MCO]='\0';
- Self__MCO=(__INTEGER)(Self__MCO - 1);
- };
- return(Result__MJM);
-}
-
-static void to_busy__index__1DI(__MEMORY *Self__2DI,__UINTEGER_32 sz__3DI,__UINTEGER_32 idx__4DI)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __MEMORY *new__FEI,*prev__LAJ,*next__MAJ,*Self__PZH,*Self__AUV;
- __UINTEGER_32 siz__5DI,new_size__CEI;
- new__FEI=NULL;
- prev__LAJ=Self__2DI->previous_free__UM;
- next__MAJ=Self__2DI->next_free__TM;
- if (((void *)prev__LAJ == (void *)NULL)) {
- first_free__1JF=next__MAJ;
- } else {
- ((__MEMORY *)prev__LAJ)->next_free__TM=next__MAJ;
- };
- if (((void *)next__MAJ != (void *)NULL)) {
- ((__MEMORY *)next__MAJ)->previous_free__UM=prev__LAJ;
- };
- siz__5DI=Self__2DI->size_and_id__SM;
- new_size__CEI=(__UINTEGER_32)(siz__5DI - sz__3DI);
- if ((new_size__CEI > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__5DI=sz__3DI;
- new__FEI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__2DI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__3DI))));
- ((__MEMORY *)new__FEI)->previous_linear__RM=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__2DI) - (unsigned long)begin_memory__D4))));
- ((__MEMORY *)new__FEI)->size_and_id__SM=(__UINTEGER_32)(new_size__CEI - 8);
- Self__PZH=((__MEMORY *)new__FEI);
- Self__PZH->next_free__TM=first_free__1JF;
- Self__PZH->previous_free__UM=NULL;
- if (((void *)first_free__1JF != (void *)NULL)) {
- ((__MEMORY *)first_free__1JF)->previous_free__UM=Self__PZH;
- };
- first_free__1JF=Self__PZH;
- if (((__UINTEGER_32)(((__MEMORY *)new__FEI)->size_and_id__SM & 2) != 0)) {
- last_block[(idx__4DI)] = (new__FEI);
- } else {
- Self__AUV=((__MEMORY *)new__FEI);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__AUV) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__AUV->size_and_id__SM & 4294967292LU)))))->previous_linear__RM=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__FEI)) - (unsigned long)begin_memory__D4))));
- };
- };
- Self__2DI->size_and_id__SM=(__UINTEGER_32)(siz__5DI | 1);
-}
-
-static void put_string__VMD(void *s__XMD)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__KND,Self__ECE,limit_up__FCE;
- __CHARACTER *__tmp__FNW,*__tmp__GNW;
- __CHARACTER __tmp__RND;
- if (((struct ___OBJ *)s__XMD)->__id==__STRING_CONSTANT__) {
- };
- if (((struct ___OBJ *)s__XMD)->__id==__STRING_CONSTANT__) {
- __tmp__KND=((__STRING_CONSTANT *)s__XMD)->count__5BE;
- } else {
- __tmp__KND=((__STRING *)s__XMD)->count__EDE;
- };
- Self__ECE= 1;
- limit_up__FCE=__tmp__KND;
- __tmp__FNW=((__STRING_CONSTANT *)s__XMD)->storage__L5F;
- __tmp__GNW=((__STRING *)s__XMD)->storage__X1H;
- while ((Self__ECE <= limit_up__FCE)) {
- if (((struct ___OBJ *)s__XMD)->__id==__STRING_CONSTANT__) {
- __tmp__RND=((__CHARACTER *)__tmp__FNW)[(__INTEGER)(Self__ECE - 1)];
- } else {
- __tmp__RND=((__CHARACTER *)__tmp__GNW)[(__INTEGER)(Self__ECE - 1)];
- };
- fputc((int)(__tmp__RND),stdout);
- Self__ECE=(__INTEGER)(Self__ECE + 1);
- };
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/nsieve-bits/nsieve_bits_c.c b/example/shootout/nsieve-bits/nsieve_bits_c.c
deleted file mode 100644
index d7a0bb7..0000000
--- a/example/shootout/nsieve-bits/nsieve_bits_c.c
+++ /dev/null
@@ -1,37 +0,0 @@
-/*
-** The Great Computer Language Shootout
-** http://shootout.alioth.debian.org/
-** contributed by Mike Pall
-*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-typedef unsigned int bits;
-#define BBITS (sizeof(bits) * 8)
-#define BSIZE(x) (((x) / 8) + sizeof(bits))
-#define BMASK(x) (1 << ((x) % BBITS))
-#define BTEST(p, x) ((p)[(x) / BBITS] & BMASK(x))
-#define BFLIP(p, x) (p)[(x) / BBITS] ^= BMASK(x)
-
-int main(int argc, char **argv)
-{
- unsigned int m, sz = 10000 << (argc > 1 ? atoi(argv[1]) : 1);
- bits *primes = (bits *)malloc(BSIZE(sz));
- if (!primes) return 1;
- for (m = 0; m <= 2; m++) {
- unsigned int i, j, count = 0, n = sz >> m;
- memset(primes, 0xff, BSIZE(n));
- for (i = 2; i <= n; i++)
- if (BTEST(primes, i)) {
- count++;
- for (j = i + i; j <= n; j += i)
- if (BTEST(primes, j)) BFLIP(primes, j);
- }
- printf("Primes up to %8d %8d\n", n, count);
- }
- free(primes);
- return 0;
-}
-
diff --git a/example/shootout/nsieve/nsieve.c b/example/shootout/nsieve/nsieve.c
deleted file mode 100755
index 6917ee2..0000000
--- a/example/shootout/nsieve/nsieve.c
+++ /dev/null
@@ -1,1162 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- unsigned long __id;
- __INTEGER count__NT;
- __INTEGER capacity__G3C;
- __CHARACTER *storage__X3C;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__UC;
- volatile __UINTEGER_32 size_and_id__VC;
- __MEMORY *next_free__WC;
- __MEMORY *previous_free__XC;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- unsigned long __id;
- __INTEGER count__H1;
- __CHARACTER *storage__1PE;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 1
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER capacity__AAD;
- __INTEGER upper__MAD;
- void **storage__E2C;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 2
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__SB;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// NUMERIC
-#define __NUMERIC__ 3
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// NSIEVE
-#define __NSIEVE__ 5
-typedef struct NSIEVE_struct __NSIEVE;
-struct NSIEVE_struct {
- void *Nothing;
-};
-__NSIEVE NSIEVE_;
-#define NSIEVE__ (&NSIEVE_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-// INTEGER_32
-typedef signed long __INTEGER_32;
-
-
-void *table_type[6];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__CVB;
-__UINTEGER_32 nb_page__HBC;
-__MEMORY *first_free__11D;
-__UINTEGER_32 capacity_max__GCE;
-__UINTEGER_32 clone_allocation_size__BV;
-__BOOLEAN *flags__HB;
-void *string_tmp__RE;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,13,"Primes up to "};
-__STRING_CONSTANT __string_2={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__VAC(__UINTEGER_32 t__XAC);
-static void** create__GQH(__INTEGER nb_elements__IQH);
-static __STRING* create__WS(__INTEGER needed_capacity__YS);
-static void add_last__C3C(__STRING *Self__D3C,__CHARACTER ch__E3C);
-static __POINTER realloc_dynamic__old_size__new_size__5FJ(__POINTER p__BGJ,__UINTEGER_32 old_sz__CGJ,__UINTEGER_32 new_sz__DGJ);
-static __MEMORY* search__Y0D(__UINTEGER_32 new_size__00D);
-static void primes__CD(__INTEGER m__ED);
-static __MEMORY* new_page__2BE();
-static __CHARACTER* create__0VF(__INTEGER nb_elements__2VF);
-static void to_busy__index__0KI(__MEMORY *Self__1KI,__UINTEGER_32 sz__2KI,__UINTEGER_32 idx__3KI);
-static void print__RL(__STRING_CONSTANT *Self__SL);
-static void append_in__format__2L(__INTEGER Self__3L,void *str__4L);
-static void put_string__XR(void *s__ZR);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__5E;
- __INTEGER new_count__HM,typ_id__TU,Self__OM,limit_up__PM,idx__CJE;
- __INTEGER i__VKE,new_capacity__PLE,__tmp__TME,__tmp__PWI,Self__3DN;
- __INTEGER state__DPM,result__GPM,i__CPM,__tmp__GZT,__tmp__IZT,m__0;
- __POINTER ptr__OU,ptr_table__H2T,next__G2T,result__I2T,ptr_table__N2T;
- __POINTER next__M2T,result__O2T,result__U0T,ptr_table__ITB,next__NTB;
- __POINTER result__LTB;
- __UINTEGER_32 sz__QU,a__0VT,new_size__VNB,t__4OB,a__AWT,new_size__Q2T;
- __UINTEGER_32 lab_type__P2T,sz__W0T,a__V0T,new_size__X0T;
- __UINTEGER_32 new_size2__Y0T,a__Z0T,new_size__00T;
- __STRING *Self__TKE,*Self__APM;
- __CHARACTER *arg__4E,*Self__WIE,*p__UKE,*__tmp__HZT;
- __FAST_ARRAYoSTRINGo *result__NU,*Self__X5C,*Self__NLE;
- void *result__3E;
- __BOOLEAN __tmp__3LE,negative__FPM,__tmp__SQM,result__DER,__tmp__FRM;
- __BOOLEAN __tmp__0RM,result__DKQ,__tmp__BTM,result__VKQ,result__BUH;
- void **__tmp__SME,**new__2VI;
- __CHARACTER cc__EPM;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoSTRINGo__->storage__E2C=NULL;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__AAD= 0;
- ARRAYED_COLLECTIONoSTRINGo__->upper__MAD= 0;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__SB=(*ARRAYED_COLLECTIONoSTRINGo__);
- parent_numeric__H=NUMERIC__;
- clone_allocation_size__BV= 0;
- STRING_CONSTANT__->count__H1=((__INTEGER )((0)));
- STRING__->count__NT= 0;
- STRING_CONSTANT__->storage__1PE=((__CHARACTER *)(NULL));
- STRING__->storage__X3C=NULL;
- nb_page__HBC= 0;
- MEMORY__->size_and_id__VC= 0;
- capacity_max__GCE= 0;
- begin_memory__CVB=((__POINTER )(NULL));
- MEMORY__->previous_linear__UC= 0;
- first_free__11D=NULL;
- MEMORY__->next_free__WC=NULL;
- MEMORY__->previous_free__XC=NULL;
- STRING__->capacity__G3C= 0;
- arg__4E=NULL;
- str__5E=NULL;
- new_count__HM=((__INTEGER )(arg_count));
- result__NU=NULL;
- ptr__OU=((__POINTER )(NULL));
- typ_id__TU= 0;
- sz__QU=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__QU == 0)) {
- result__NU=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__TU=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__BV=sz__QU;
- if ((typ_id__TU == (__INTEGER)(- 1))) {
- a__0VT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VNB=(__UINTEGER_32)((__UINTEGER_32)(sz__QU + a__0VT) & (__UINTEGER_32)(~ a__0VT));
- ptr_table__H2T=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VNB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__G2T=((__POINTER )(NULL));
- result__I2T=((__POINTER *)ptr_table__H2T)[ 0];
- if ((result__I2T == (void *)NULL)) {
- result__I2T=new_lab__VAC(new_size__VNB);
- next__G2T=(void *)((unsigned long)result__I2T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VNB)));
- ((__POINTER *)next__G2T)[ 0]=NULL;
- ((__POINTER *)ptr_table__H2T)[ 0]=next__G2T;
- } else {
- next__G2T=((__POINTER *)result__I2T)[ 0];
- if ((next__G2T == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I2T - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__VNB << 1)) <= 4096)) {
- next__G2T=(void *)((unsigned long)result__I2T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VNB)));
- } else {
- next__G2T=new_lab__VAC(new_size__VNB);
- };
- ((__POINTER *)next__G2T)[ 0]=NULL;
- ((__POINTER *)ptr_table__H2T)[ 0]=next__G2T;
- } else {
- ((__POINTER *)result__I2T)[ 0]=(void *)((unsigned long)((__POINTER *)next__G2T)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__I2T=next__G2T;
- };
- };
- ptr__OU=result__I2T;
- } else {
- t__4OB=((__UINTEGER_32 )typ_id__TU);
- a__AWT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Q2T=(__UINTEGER_32)((__UINTEGER_32)(sz__QU + a__AWT) & (__UINTEGER_32)(~ a__AWT));
- ptr_table__N2T=((__POINTER )(&(table_type[(t__4OB)])));
- lab_type__P2T=(__UINTEGER_32)(t__4OB | 1);
- next__M2T=((__POINTER )(NULL));
- result__O2T=((__POINTER *)ptr_table__N2T)[ 0];
- if ((result__O2T == (void *)NULL)) {
- result__O2T=new_lab__VAC(lab_type__P2T);
- next__M2T=(void *)((unsigned long)result__O2T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2T)));
- ((__POINTER *)next__M2T)[ 0]=NULL;
- ((__POINTER *)ptr_table__N2T)[ 0]=next__M2T;
- } else {
- next__M2T=((__POINTER *)result__O2T)[ 0];
- if ((next__M2T == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O2T - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__Q2T << 1)) <= 4096)) {
- next__M2T=(void *)((unsigned long)result__O2T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2T)));
- } else {
- next__M2T=new_lab__VAC(lab_type__P2T);
- };
- ((__POINTER *)next__M2T)[ 0]=NULL;
- ((__POINTER *)ptr_table__N2T)[ 0]=next__M2T;
- } else {
- ((__POINTER *)result__O2T)[ 0]=(void *)((unsigned long)((__POINTER *)next__M2T)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__O2T=next__M2T;
- };
- };
- ptr__OU=result__O2T;
- };
- result__NU=((__FAST_ARRAYoSTRINGo *)ptr__OU);
- *(result__NU) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__X5C=((__FAST_ARRAYoSTRINGo *)result__NU);
- if ((Self__X5C->parent_arrayed_collection__SB.capacity__AAD < new_count__HM)) {
- Self__X5C->parent_arrayed_collection__SB.storage__E2C=create__GQH(new_count__HM);
- Self__X5C->parent_arrayed_collection__SB.capacity__AAD=new_count__HM;
- };
- Self__X5C->parent_arrayed_collection__SB.upper__MAD=(__INTEGER)(- 1);
- result__3E=result__NU;
- Self__OM= 0;
- limit_up__PM=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__OM <= limit_up__PM)) {
- arg__4E=((__CHARACTER *)(arg_vector[(Self__OM)]));
- Self__WIE=((__CHARACTER *)arg__4E);
- idx__CJE= 0;
- while ((! ((idx__CJE > 1024) || ('\0' == Self__WIE[idx__CJE])))) {
- idx__CJE=(__INTEGER)(idx__CJE + 1);
- };
- str__5E=create__WS(idx__CJE);
- Self__TKE=((__STRING *)str__5E);
- p__UKE=arg__4E;
- i__VKE= 0;
- Self__TKE->count__NT= 0;
- while ((((__CHARACTER *)p__UKE)[i__VKE] != '\0')) {
- add_last__C3C(Self__TKE,((__CHARACTER *)p__UKE)[i__VKE]);
- i__VKE=(__INTEGER)(i__VKE + 1);
- };
- Self__NLE=((__FAST_ARRAYoSTRINGo *)result__3E);
- new_capacity__PLE= 0;
- if (((__INTEGER)(Self__NLE->parent_arrayed_collection__SB.upper__MAD + 1) <= (__INTEGER)(Self__NLE->parent_arrayed_collection__SB.capacity__AAD - 1))) {
- Self__NLE->parent_arrayed_collection__SB.upper__MAD=(__INTEGER)(Self__NLE->parent_arrayed_collection__SB.upper__MAD + 1);
- __tmp__3LE=TRUE__;
- } else {
- __tmp__3LE=FALSE__;
- };
- if ((! __tmp__3LE)) {
- if ((Self__NLE->parent_arrayed_collection__SB.capacity__AAD == 0)) {
- Self__NLE->parent_arrayed_collection__SB.storage__E2C=create__GQH( 2);
- Self__NLE->parent_arrayed_collection__SB.capacity__AAD= 2;
- Self__NLE->parent_arrayed_collection__SB.upper__MAD= 0;
- } else {
- new_capacity__PLE=(__INTEGER)(Self__NLE->parent_arrayed_collection__SB.capacity__AAD << 1);
- __tmp__SME=Self__NLE->parent_arrayed_collection__SB.storage__E2C;
- __tmp__TME=Self__NLE->parent_arrayed_collection__SB.capacity__AAD;
- new__2VI=((void **)realloc_dynamic__old_size__new_size__5FJ(((__POINTER )((void **)__tmp__SME)),((__UINTEGER_32 )(__INTEGER)(__tmp__TME * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__PLE * ((__INTEGER )(sizeof(void *)))))));
- __tmp__PWI=(__INTEGER)(new_capacity__PLE - 1);
- Self__3DN=__tmp__TME;
- while ((Self__3DN <= __tmp__PWI)) {
- new__2VI[Self__3DN]=NULL;
- Self__3DN=(__INTEGER)(Self__3DN + 1);
- };
- Self__NLE->parent_arrayed_collection__SB.storage__E2C=new__2VI;
- Self__NLE->parent_arrayed_collection__SB.capacity__AAD=new_capacity__PLE;
- Self__NLE->parent_arrayed_collection__SB.upper__MAD=(__INTEGER)(Self__NLE->parent_arrayed_collection__SB.upper__MAD + 1);
- };
- };
- ((void **)Self__NLE->parent_arrayed_collection__SB.storage__E2C)[Self__NLE->parent_arrayed_collection__SB.upper__MAD]=str__5E;
- Self__OM=(__INTEGER)(Self__OM + 1);
- };
- flags__HB=NULL;
- string_tmp__RE=create__WS( 64);
- Self__APM=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__NU)->parent_arrayed_collection__SB.storage__E2C)[ 1]);
- state__DPM= 0;
- cc__EPM='\0';
- negative__FPM=FALSE__;
- result__GPM= 0;
- i__CPM= 1;
- __tmp__GZT=Self__APM->count__NT;
- __tmp__HZT=Self__APM->storage__X3C;
- __tmp__IZT=Self__APM->count__NT;
- while ((i__CPM <= __tmp__GZT)) {
- cc__EPM=((__CHARACTER *)__tmp__HZT)[(__INTEGER)(i__CPM - 1)];
- if ((state__DPM == 0)) {
- if ((((((((cc__EPM == ' ') || (cc__EPM == '\t')) || (cc__EPM == '\n')) || (cc__EPM == '\r')) || (cc__EPM == '\0')) || (cc__EPM == '\f')) || (cc__EPM == '\v'))) {
- __tmp__SQM=TRUE__;
- } else {
- result__DER=(cc__EPM == '+');
- if (result__DER) {
- state__DPM= 1;
- };
- __tmp__SQM=result__DER;
- };
- if ((! __tmp__SQM)) {
- if ((cc__EPM == '-')) {
- negative__FPM=TRUE__;
- state__DPM= 1;
- } else {
- result__GPM=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__EPM)) - 48);
- state__DPM= 2;
- };
- };
- __tmp__FRM=TRUE__;
- } else {
- __tmp__FRM=FALSE__;
- };
- if (__tmp__FRM) {
- __tmp__0RM=TRUE__;
- } else {
- result__DKQ=(state__DPM == 1);
- if (result__DKQ) {
- result__GPM=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__EPM)) - 48);
- if (negative__FPM) {
- result__GPM=(__INTEGER)(- result__GPM);
- };
- state__DPM= 2;
- };
- __tmp__0RM=result__DKQ;
- };
- if (__tmp__0RM) {
- __tmp__BTM=TRUE__;
- } else {
- result__VKQ=(state__DPM == 2);
- if (result__VKQ) {
- result__BUH=FALSE__;
- if ((((__INTEGER_8 )cc__EPM) >= ((__INTEGER_8 )'0'))) {
- result__BUH=(((__INTEGER_8 )cc__EPM) <= ((__INTEGER_8 )'9'));
- };
- if (result__BUH) {
- if (negative__FPM) {
- result__GPM=(__INTEGER)((__INTEGER)( 10 * result__GPM) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__EPM)) - 48));
- } else {
- result__GPM=(__INTEGER)((__INTEGER)( 10 * result__GPM) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__EPM)) - 48));
- };
- } else {
- state__DPM= 3;
- };
- };
- __tmp__BTM=result__VKQ;
- };
- if ((! __tmp__BTM)) {
- if ((state__DPM == 3)) {
- i__CPM=__tmp__IZT;
- };
- };
- i__CPM=(__INTEGER)(i__CPM + 1);
- };
- m__0=(__INTEGER)( 10000 * (__INTEGER)( 1 << result__GPM));
- sz__W0T=((__UINTEGER_32 )(__INTEGER)(m__0 * sizeof(__BOOLEAN)));
- result__U0T=((__POINTER )(NULL));
- a__V0T=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X0T=(__UINTEGER_32)((__UINTEGER_32)(sz__W0T + a__V0T) & (__UINTEGER_32)(~ a__V0T));
- new_size2__Y0T=(__UINTEGER_32)(new_size__X0T + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__Y0T <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__Z0T=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__00T=(__UINTEGER_32)((__UINTEGER_32)(new_size2__Y0T + a__Z0T) & (__UINTEGER_32)(~ a__Z0T));
- ptr_table__ITB=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__00T / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NTB=((__POINTER )(NULL));
- result__LTB=((__POINTER *)ptr_table__ITB)[ 0];
- if ((result__LTB == (void *)NULL)) {
- result__LTB=new_lab__VAC(new_size__00T);
- next__NTB=(void *)((unsigned long)result__LTB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00T)));
- ((__POINTER *)next__NTB)[ 0]=NULL;
- ((__POINTER *)ptr_table__ITB)[ 0]=next__NTB;
- } else {
- next__NTB=((__POINTER *)result__LTB)[ 0];
- if ((next__NTB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LTB - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__00T << 1)) <= 4096)) {
- next__NTB=(void *)((unsigned long)result__LTB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00T)));
- } else {
- next__NTB=new_lab__VAC(new_size__00T);
- };
- ((__POINTER *)next__NTB)[ 0]=NULL;
- ((__POINTER *)ptr_table__ITB)[ 0]=next__NTB;
- } else {
- ((__POINTER *)result__LTB)[ 0]=(void *)((unsigned long)((__POINTER *)next__NTB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LTB=next__NTB;
- };
- };
- ((__POINTER *)result__LTB)[ 0]=((__POINTER ) 3);
- result__U0T=(void *)((unsigned long)result__LTB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__U0T=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Y0D(new_size__X0T))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- flags__HB=((__BOOLEAN *)result__U0T);
- primes__CD(m__0);
- m__0=(__INTEGER)(m__0 >> 1);
- primes__CD(m__0);
- m__0=(__INTEGER)(m__0 >> 1);
- primes__CD(m__0);
- return( 0);
-}
-
-static __POINTER new_lab__VAC(__UINTEGER_32 t__XAC)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__ZAC,pv__ABC;
- __MEMORY *blc__2AC,*prev__3AC,*Self__AIT,*Self__JVT,*prev__KVT;
- __MEMORY *next__LVT;
- __POINTER result__4AC;
- __BOOLEAN __tmp__ACC;
- idx__ZAC= 0;
- blc__2AC=NULL;
- prev__3AC=NULL;
- pv__ABC= 0;
- while_do__IHC:
- {
- if ((idx__ZAC < nb_page__HBC)) {
- blc__2AC=((__MEMORY *)(last_block[(idx__ZAC)]));
- __tmp__ACC=(((__UINTEGER_32)(((__MEMORY *)blc__2AC)->size_and_id__VC & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__2AC)->size_and_id__VC & 1) == 1));
- } else {
- __tmp__ACC=FALSE__;
- };
- if (__tmp__ACC) {
- idx__ZAC=(__UINTEGER_32)(idx__ZAC + 1);
- goto while_do__IHC;
- };
- };
- if ((idx__ZAC >= nb_page__HBC)) {
- blc__2AC=new_page__2BE();
- };
- ((__MEMORY *)blc__2AC)->size_and_id__VC=(__UINTEGER_32)(blc__2AC->size_and_id__VC - 4096);
- Self__AIT=((__MEMORY *)blc__2AC);
- result__4AC=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__AIT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__AIT->size_and_id__VC & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__2AC)->size_and_id__VC & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__JVT=((__MEMORY *)blc__2AC);
- prev__KVT=Self__JVT->previous_free__XC;
- next__LVT=Self__JVT->next_free__WC;
- if (((void *)prev__KVT == (void *)NULL)) {
- first_free__11D=next__LVT;
- } else {
- ((__MEMORY *)prev__KVT)->next_free__WC=next__LVT;
- };
- if (((void *)next__LVT != (void *)NULL)) {
- ((__MEMORY *)next__LVT)->previous_free__XC=prev__KVT;
- };
- pv__ABC=blc__2AC->previous_linear__UC;
- if ((pv__ABC != 4294967295LU)) {
- prev__3AC=((__MEMORY *)(void *)((unsigned long)begin_memory__CVB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__ABC))));
- ((__MEMORY *)prev__3AC)->size_and_id__VC=(__UINTEGER_32)((__UINTEGER_32)(prev__3AC->size_and_id__VC + blc__2AC->size_and_id__VC) + 8);
- last_block[(idx__ZAC)] = (prev__3AC);
- };
- };
- ((__POINTER *)result__4AC)[ 0]=((__POINTER )t__XAC);
- return((void *)((unsigned long)result__4AC - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__GQH(__INTEGER nb_elements__IQH)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__A1T,a__50T,new_size__B1T,new_size2__C1T,a__D1T;
- __UINTEGER_32 new_size__E1T;
- __POINTER result__40T,ptr_table__J1T,next__I1T,result__K1T;
- __INTEGER Self__HOJ;
- void **Result__EWH;
- sz__A1T=((__UINTEGER_32 )(__INTEGER)(nb_elements__IQH * ((__INTEGER )(sizeof(void *)))));
- result__40T=((__POINTER )(NULL));
- a__50T=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__B1T=(__UINTEGER_32)((__UINTEGER_32)(sz__A1T + a__50T) & (__UINTEGER_32)(~ a__50T));
- new_size2__C1T=(__UINTEGER_32)(new_size__B1T + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__C1T <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__D1T=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__E1T=(__UINTEGER_32)((__UINTEGER_32)(new_size2__C1T + a__D1T) & (__UINTEGER_32)(~ a__D1T));
- ptr_table__J1T=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__E1T / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__I1T=((__POINTER )(NULL));
- result__K1T=((__POINTER *)ptr_table__J1T)[ 0];
- if ((result__K1T == (void *)NULL)) {
- result__K1T=new_lab__VAC(new_size__E1T);
- next__I1T=(void *)((unsigned long)result__K1T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E1T)));
- ((__POINTER *)next__I1T)[ 0]=NULL;
- ((__POINTER *)ptr_table__J1T)[ 0]=next__I1T;
- } else {
- next__I1T=((__POINTER *)result__K1T)[ 0];
- if ((next__I1T == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K1T - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__E1T << 1)) <= 4096)) {
- next__I1T=(void *)((unsigned long)result__K1T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E1T)));
- } else {
- next__I1T=new_lab__VAC(new_size__E1T);
- };
- ((__POINTER *)next__I1T)[ 0]=NULL;
- ((__POINTER *)ptr_table__J1T)[ 0]=next__I1T;
- } else {
- ((__POINTER *)result__K1T)[ 0]=(void *)((unsigned long)((__POINTER *)next__I1T)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K1T=next__I1T;
- };
- };
- ((__POINTER *)result__K1T)[ 0]=((__POINTER ) 3);
- result__40T=(void *)((unsigned long)result__K1T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__40T=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Y0D(new_size__B1T))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__EWH=((void **)result__40T);
- Self__HOJ=(__INTEGER)(nb_elements__IQH - 1);
- while ((Self__HOJ >= 0)) {
- Result__EWH[Self__HOJ]=NULL;
- Self__HOJ=(__INTEGER)(Self__HOJ - 1);
- };
- return(Result__EWH);
-}
-
-static __STRING* create__WS(__INTEGER needed_capacity__YS)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__C2,*Self__5BD;
- __POINTER ptr__D2,ptr_table__P1T,next__O1T,result__Q1T,ptr_table__V1T;
- __POINTER next__U1T,result__W1T;
- __INTEGER typ_id__I2;
- __UINTEGER_32 sz__F2,a__FWT,new_size__GWT,t__PWT,a__MWT,new_size__Y1T;
- __UINTEGER_32 lab_type__X1T;
- result__C2=NULL;
- ptr__D2=((__POINTER )(NULL));
- typ_id__I2= 0;
- sz__F2=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__F2 == 0)) {
- result__C2=STRING__;
- } else {
- typ_id__I2=-1;
- clone_allocation_size__BV=(__UINTEGER_32)(clone_allocation_size__BV + sz__F2);
- if ((typ_id__I2 == (__INTEGER)(- 1))) {
- a__FWT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GWT=(__UINTEGER_32)((__UINTEGER_32)(sz__F2 + a__FWT) & (__UINTEGER_32)(~ a__FWT));
- ptr_table__P1T=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GWT / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__O1T=((__POINTER )(NULL));
- result__Q1T=((__POINTER *)ptr_table__P1T)[ 0];
- if ((result__Q1T == (void *)NULL)) {
- result__Q1T=new_lab__VAC(new_size__GWT);
- next__O1T=(void *)((unsigned long)result__Q1T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GWT)));
- ((__POINTER *)next__O1T)[ 0]=NULL;
- ((__POINTER *)ptr_table__P1T)[ 0]=next__O1T;
- } else {
- next__O1T=((__POINTER *)result__Q1T)[ 0];
- if ((next__O1T == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q1T - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__GWT << 1)) <= 4096)) {
- next__O1T=(void *)((unsigned long)result__Q1T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GWT)));
- } else {
- next__O1T=new_lab__VAC(new_size__GWT);
- };
- ((__POINTER *)next__O1T)[ 0]=NULL;
- ((__POINTER *)ptr_table__P1T)[ 0]=next__O1T;
- } else {
- ((__POINTER *)result__Q1T)[ 0]=(void *)((unsigned long)((__POINTER *)next__O1T)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q1T=next__O1T;
- };
- };
- ptr__D2=result__Q1T;
- } else {
- t__PWT=((__UINTEGER_32 )typ_id__I2);
- a__MWT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Y1T=(__UINTEGER_32)((__UINTEGER_32)(sz__F2 + a__MWT) & (__UINTEGER_32)(~ a__MWT));
- ptr_table__V1T=((__POINTER )(&(table_type[(t__PWT)])));
- lab_type__X1T=(__UINTEGER_32)(t__PWT | 1);
- next__U1T=((__POINTER )(NULL));
- result__W1T=((__POINTER *)ptr_table__V1T)[ 0];
- if ((result__W1T == (void *)NULL)) {
- result__W1T=new_lab__VAC(lab_type__X1T);
- next__U1T=(void *)((unsigned long)result__W1T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y1T)));
- ((__POINTER *)next__U1T)[ 0]=NULL;
- ((__POINTER *)ptr_table__V1T)[ 0]=next__U1T;
- } else {
- next__U1T=((__POINTER *)result__W1T)[ 0];
- if ((next__U1T == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W1T - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__Y1T << 1)) <= 4096)) {
- next__U1T=(void *)((unsigned long)result__W1T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y1T)));
- } else {
- next__U1T=new_lab__VAC(lab_type__X1T);
- };
- ((__POINTER *)next__U1T)[ 0]=NULL;
- ((__POINTER *)ptr_table__V1T)[ 0]=next__U1T;
- } else {
- ((__POINTER *)result__W1T)[ 0]=(void *)((unsigned long)((__POINTER *)next__U1T)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__W1T=next__U1T;
- };
- };
- ptr__D2=result__W1T;
- };
- result__C2=((__STRING *)ptr__D2);
- *(result__C2) = *(STRING__);
- };
- Self__5BD=((__STRING *)result__C2);
- if ((needed_capacity__YS > 0)) {
- if ((Self__5BD->capacity__G3C < needed_capacity__YS)) {
- Self__5BD->storage__X3C=create__0VF(needed_capacity__YS);
- Self__5BD->capacity__G3C=needed_capacity__YS;
- };
- };
- Self__5BD->count__NT= 0;
- return(result__C2);
-}
-
-static void add_last__C3C(__STRING *Self__D3C,__CHARACTER ch__E3C)
-// ({STRING},{CHARACTER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__F3C,__tmp__A4C,__tmp__KRI,Self__4BN;
- __CHARACTER *__tmp__53C,*new__XQI;
- new_capacity__F3C= 0;
- if ((Self__D3C->capacity__G3C <= Self__D3C->count__NT)) {
- if ((Self__D3C->capacity__G3C == 0)) {
- Self__D3C->capacity__G3C= 32;
- Self__D3C->storage__X3C=create__0VF( 32);
- } else {
- new_capacity__F3C=(__INTEGER)(Self__D3C->capacity__G3C << 1);
- __tmp__53C=Self__D3C->storage__X3C;
- __tmp__A4C=Self__D3C->capacity__G3C;
- new__XQI=((__CHARACTER *)realloc_dynamic__old_size__new_size__5FJ(((__POINTER )((__CHARACTER *)__tmp__53C)),((__UINTEGER_32 )__tmp__A4C),((__UINTEGER_32 )new_capacity__F3C)));
- __tmp__KRI=(__INTEGER)(new_capacity__F3C - 1);
- Self__4BN=__tmp__A4C;
- while ((Self__4BN <= __tmp__KRI)) {
- new__XQI[Self__4BN]='\0';
- Self__4BN=(__INTEGER)(Self__4BN + 1);
- };
- Self__D3C->storage__X3C=new__XQI;
- Self__D3C->capacity__G3C=new_capacity__F3C;
- };
- };
- ((__CHARACTER *)Self__D3C->storage__X3C)[Self__D3C->count__NT]=ch__E3C;
- Self__D3C->count__NT=(__INTEGER)(Self__D3C->count__NT + 1);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__5FJ(__POINTER p__BGJ,__UINTEGER_32 old_sz__CGJ,__UINTEGER_32 new_sz__DGJ)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__OGJ,*Self__ONL,*nxt__SNL,*result__TNL,*next__QHM;
- __MEMORY *new_free__PHM,*prev__GXT,*next__HXT;
- __POINTER result__PGJ,result__4H,ptr_table__11T,next__01T,result__21T;
- __POINTER p__EML,last__40L,src__4KL,dst__5KL;
- __UINTEGER_32 a__SWT,old_size__FGJ,old_size2__IGJ,a__WWT;
- __UINTEGER_32 new_size__LGJ,a__HQ,new_size__YH,new_size2__1H,a__OXT;
- __UINTEGER_32 new_size__PXT,a__0WT,__tmp__AIJ,sz__XNL,old_size__UNL;
- __UINTEGER_32 prev__RHM,new_size__UHM;
- __INTEGER siz__T2T,Self__Y2T,siz__DLL,Self__RYL;
- __POINTER *na_src__V2T,*na_dst__X2T,*na_src__BLL,*na_dst__CLL;
- mem__OGJ=NULL;
- result__PGJ=((__POINTER )(NULL));
- a__SWT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__FGJ=(__UINTEGER_32)((__UINTEGER_32)(old_sz__CGJ + a__SWT) & (__UINTEGER_32)(~ a__SWT));
- old_size2__IGJ=(__UINTEGER_32)(old_size__FGJ + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__WWT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LGJ=(__UINTEGER_32)((__UINTEGER_32)(new_sz__DGJ + a__WWT) & (__UINTEGER_32)(~ a__WWT));
- if ((old_size2__IGJ <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__4H=((__POINTER )(NULL));
- a__HQ=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YH=(__UINTEGER_32)((__UINTEGER_32)(new_size__LGJ + a__HQ) & (__UINTEGER_32)(~ a__HQ));
- new_size2__1H=(__UINTEGER_32)(new_size__YH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__1H <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__OXT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PXT=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1H + a__OXT) & (__UINTEGER_32)(~ a__OXT));
- ptr_table__11T=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PXT / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__01T=((__POINTER )(NULL));
- result__21T=((__POINTER *)ptr_table__11T)[ 0];
- if ((result__21T == (void *)NULL)) {
- result__21T=new_lab__VAC(new_size__PXT);
- next__01T=(void *)((unsigned long)result__21T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PXT)));
- ((__POINTER *)next__01T)[ 0]=NULL;
- ((__POINTER *)ptr_table__11T)[ 0]=next__01T;
- } else {
- next__01T=((__POINTER *)result__21T)[ 0];
- if ((next__01T == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__21T - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__PXT << 1)) <= 4096)) {
- next__01T=(void *)((unsigned long)result__21T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PXT)));
- } else {
- next__01T=new_lab__VAC(new_size__PXT);
- };
- ((__POINTER *)next__01T)[ 0]=NULL;
- ((__POINTER *)ptr_table__11T)[ 0]=next__01T;
- } else {
- ((__POINTER *)result__21T)[ 0]=(void *)((unsigned long)((__POINTER *)next__01T)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__21T=next__01T;
- };
- };
- ((__POINTER *)result__21T)[ 0]=((__POINTER ) 3);
- result__4H=(void *)((unsigned long)result__21T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__4H=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Y0D(new_size__YH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__PGJ=result__4H;
- siz__T2T=((__INTEGER )old_size__FGJ);
- siz__T2T=(__INTEGER)(siz__T2T / ((__INTEGER )(sizeof(void *))));
- na_src__V2T=((__POINTER *)p__BGJ);
- na_dst__X2T=((__POINTER *)result__4H);
- Self__Y2T=(__INTEGER)(siz__T2T - 1);
- while ((Self__Y2T >= 0)) {
- na_dst__X2T[Self__Y2T]=na_src__V2T[Self__Y2T];
- Self__Y2T=(__INTEGER)(Self__Y2T - 1);
- };
- p__EML=(void *)((unsigned long)p__BGJ - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__0WT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__40L=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__IGJ + a__0WT) & (__UINTEGER_32)(~ a__0WT)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__EML)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__40L)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__40L)[ 0]=p__EML;
- } else {
- mem__OGJ=((__MEMORY *)(void *)((unsigned long)p__BGJ - (unsigned long)((__POINTER ) 8)));
- __tmp__AIJ=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__BGJ - (unsigned long)begin_memory__CVB)))) >> 26);
- Self__ONL=((__MEMORY *)mem__OGJ);
- nxt__SNL=NULL;
- result__TNL=NULL;
- sz__XNL= 0;
- old_size__UNL=(__UINTEGER_32)(Self__ONL->size_and_id__VC & 4294967292LU);
- if ((new_size__LGJ > old_size__UNL)) {
- if ((! ((__UINTEGER_32)(Self__ONL->size_and_id__VC & 2) != 0))) {
- nxt__SNL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ONL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ONL->size_and_id__VC & 4294967292LU)))));
- sz__XNL=(__UINTEGER_32)((__UINTEGER_32)(new_size__LGJ - old_size__UNL) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__SNL)->size_and_id__VC & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__SNL)->size_and_id__VC & 4294967292LU) >= sz__XNL))) {
- to_busy__index__0KI(nxt__SNL,sz__XNL,__tmp__AIJ);
- Self__ONL->size_and_id__VC=(__UINTEGER_32)((__UINTEGER_32)(Self__ONL->size_and_id__VC + (__UINTEGER_32)(nxt__SNL->size_and_id__VC & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__ONL->size_and_id__VC & 2) != 0)) {
- last_block[(__tmp__AIJ)] = (Self__ONL);
- } else {
- nxt__SNL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ONL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ONL->size_and_id__VC & 4294967292LU)))));
- ((__MEMORY *)nxt__SNL)->previous_linear__UC=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__ONL) - (unsigned long)begin_memory__CVB))));
- };
- result__TNL=Self__ONL;
- };
- };
- if (((void *)result__TNL == (void *)NULL)) {
- result__TNL=search__Y0D(new_size__LGJ);
- src__4KL=(void *)((unsigned long)((__POINTER )Self__ONL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__5KL=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__TNL)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__DLL=((__INTEGER )old_size__UNL);
- siz__DLL=(__INTEGER)(siz__DLL / ((__INTEGER )(sizeof(void *))));
- na_src__BLL=((__POINTER *)src__4KL);
- na_dst__CLL=((__POINTER *)dst__5KL);
- Self__RYL=(__INTEGER)(siz__DLL - 1);
- while ((Self__RYL >= 0)) {
- na_dst__CLL[Self__RYL]=na_src__BLL[Self__RYL];
- Self__RYL=(__INTEGER)(Self__RYL - 1);
- };
- prev__RHM=Self__ONL->previous_linear__UC;
- next__QHM=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ONL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ONL->size_and_id__VC & 4294967292LU)))));
- new_free__PHM=((__MEMORY *)(void *)((unsigned long)begin_memory__CVB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__RHM))));
- new_size__UHM=(__UINTEGER_32)(Self__ONL->size_and_id__VC & 4294967294LU);
- if (((prev__RHM == 4294967295LU) || ((__UINTEGER_32)(new_free__PHM->size_and_id__VC & 1) != 0))) {
- new_free__PHM=Self__ONL;
- Self__ONL->next_free__WC=first_free__11D;
- Self__ONL->previous_free__XC=NULL;
- if (((void *)first_free__11D != (void *)NULL)) {
- ((__MEMORY *)first_free__11D)->previous_free__XC=Self__ONL;
- };
- first_free__11D=Self__ONL;
- } else {
- new_size__UHM=(__UINTEGER_32)((__UINTEGER_32)(new_size__UHM + new_free__PHM->size_and_id__VC) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__ONL->size_and_id__VC & 2) != 0)) && ((__UINTEGER_32)(next__QHM->size_and_id__VC & 1) == 0))) {
- new_size__UHM=(__UINTEGER_32)((__UINTEGER_32)(new_size__UHM + next__QHM->size_and_id__VC) + 8);
- prev__GXT=next__QHM->previous_free__XC;
- next__HXT=next__QHM->next_free__WC;
- if (((void *)prev__GXT == (void *)NULL)) {
- first_free__11D=next__HXT;
- } else {
- ((__MEMORY *)prev__GXT)->next_free__WC=next__HXT;
- };
- if (((void *)next__HXT != (void *)NULL)) {
- ((__MEMORY *)next__HXT)->previous_free__XC=prev__GXT;
- };
- };
- new_free__PHM->size_and_id__VC=new_size__UHM;
- if (((__UINTEGER_32)(new_free__PHM->size_and_id__VC & 2) != 0)) {
- last_block[(__tmp__AIJ)] = (new_free__PHM);
- } else {
- next__QHM=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ONL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ONL->size_and_id__VC & 4294967292LU)))));
- next__QHM->previous_linear__UC=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__PHM) - (unsigned long)begin_memory__CVB))));
- };
- };
- } else {
- result__TNL=Self__ONL;
- };
- result__PGJ=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__TNL)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__PGJ);
-}
-
-static __MEMORY* search__Y0D(__UINTEGER_32 new_size__00D)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__20D;
- result__20D=first_free__11D;
- while ((((void *)result__20D != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__20D)->size_and_id__VC & 4294967292LU) < new_size__00D))) {
- result__20D=result__20D->next_free__WC;
- };
- if (((void *)result__20D == (void *)NULL)) {
- result__20D=new_page__2BE();
- };
- to_busy__index__0KI(result__20D,new_size__00D,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__20D)) - (unsigned long)begin_memory__CVB)))) >> 26));
- return(result__20D);
-}
-
-static void primes__CD(__INTEGER m__ED)
-// ({INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER result__FD,j__GD,tmp__ID,Self__ERD,i__HD;
- __BOOLEAN *Self__I2C;
- result__FD= 0;
- j__GD= 0;
- tmp__ID=(__INTEGER)(m__ED - 1);
- Self__I2C=((__BOOLEAN *)flags__HB);
- Self__ERD=tmp__ID;
- while ((Self__ERD >= 0)) {
- Self__I2C[Self__ERD]=TRUE__;
- Self__ERD=(__INTEGER)(Self__ERD - 1);
- };
- i__HD= 2;
- while ((i__HD <= tmp__ID)) {
- if (((__BOOLEAN *)flags__HB)[i__HD]) {
- j__GD=(__INTEGER)(i__HD << 1);
- while ((j__GD <= tmp__ID)) {
- ((__BOOLEAN *)flags__HB)[j__GD]=FALSE__;
- j__GD=(__INTEGER)(j__GD + i__HD);
- };
- result__FD=(__INTEGER)(result__FD + 1);
- };
- i__HD=(__INTEGER)(i__HD + 1);
- };
- print__RL((&__string_1));
- ((__STRING *)string_tmp__RE)->count__NT= 0;
- append_in__format__2L(m__ED,string_tmp__RE);
- add_last__C3C(string_tmp__RE,' ');
- append_in__format__2L(result__FD,string_tmp__RE);
- add_last__C3C(string_tmp__RE,'\n');
- put_string__XR(((__STRING *)string_tmp__RE));
-}
-
-static __MEMORY* new_page__2BE()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__GHG;
- __UINTEGER_32 cap__DHG,old_size__5BE;
- __MEMORY *block__FCE;
- if ((capacity_max__GCE == 0)) {
- mem__GHG=((__POINTER )(NULL));
- cap__DHG= 33554432;
- do {
- cap__DHG=(__UINTEGER_32)(cap__DHG << 1);
- mem__GHG=((__POINTER )(malloc((cap__DHG))));
- if ((mem__GHG != (void *)NULL)) {
- free((mem__GHG));
- };
- } while ((! ((mem__GHG == (void *)NULL) || (cap__DHG == 2147483648LU))));
- if ((mem__GHG == (void *)NULL)) {
- cap__DHG=(__UINTEGER_32)(cap__DHG >> 1);
- };
- capacity_max__GCE=cap__DHG;
- begin_memory__CVB=((__POINTER )(malloc((cap__DHG))));
- };
- old_size__5BE=(__UINTEGER_32)(nb_page__HBC << 26);
- nb_page__HBC=(__UINTEGER_32)(nb_page__HBC + 1);
- if (((__UINTEGER_32)(old_size__5BE + 67108864) > capacity_max__GCE)) {
- print__RL((&__string_2));
- exit(( 1));
- };
- block__FCE=((__MEMORY *)(void *)((unsigned long)begin_memory__CVB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__5BE))));
- block__FCE->previous_linear__UC= 4294967295LU;
- block__FCE->size_and_id__VC= 67108858;
- block__FCE->next_free__WC=first_free__11D;
- block__FCE->previous_free__XC=NULL;
- if (((void *)first_free__11D != (void *)NULL)) {
- ((__MEMORY *)first_free__11D)->previous_free__XC=block__FCE;
- };
- first_free__11D=block__FCE;
- last_block[((__UINTEGER_32)(nb_page__HBC - 1))] = (block__FCE);
- return(block__FCE);
-}
-
-static __CHARACTER* create__0VF(__INTEGER nb_elements__2VF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__M0T,a__L0T,new_size__N0T,new_size2__O0T,a__P0T;
- __UINTEGER_32 new_size__Q0T;
- __POINTER result__K0T,ptr_table__B2T,next__A2T,result__C2T;
- __INTEGER Self__XJJ;
- __CHARACTER *Result__TRG;
- sz__M0T=((__UINTEGER_32 )nb_elements__2VF);
- result__K0T=((__POINTER )(NULL));
- a__L0T=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__N0T=(__UINTEGER_32)((__UINTEGER_32)(sz__M0T + a__L0T) & (__UINTEGER_32)(~ a__L0T));
- new_size2__O0T=(__UINTEGER_32)(new_size__N0T + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__O0T <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__P0T=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Q0T=(__UINTEGER_32)((__UINTEGER_32)(new_size2__O0T + a__P0T) & (__UINTEGER_32)(~ a__P0T));
- ptr_table__B2T=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Q0T / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__A2T=((__POINTER )(NULL));
- result__C2T=((__POINTER *)ptr_table__B2T)[ 0];
- if ((result__C2T == (void *)NULL)) {
- result__C2T=new_lab__VAC(new_size__Q0T);
- next__A2T=(void *)((unsigned long)result__C2T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q0T)));
- ((__POINTER *)next__A2T)[ 0]=NULL;
- ((__POINTER *)ptr_table__B2T)[ 0]=next__A2T;
- } else {
- next__A2T=((__POINTER *)result__C2T)[ 0];
- if ((next__A2T == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C2T - (unsigned long)begin_memory__CVB)))) & 4095) + (__UINTEGER_32)(new_size__Q0T << 1)) <= 4096)) {
- next__A2T=(void *)((unsigned long)result__C2T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q0T)));
- } else {
- next__A2T=new_lab__VAC(new_size__Q0T);
- };
- ((__POINTER *)next__A2T)[ 0]=NULL;
- ((__POINTER *)ptr_table__B2T)[ 0]=next__A2T;
- } else {
- ((__POINTER *)result__C2T)[ 0]=(void *)((unsigned long)((__POINTER *)next__A2T)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C2T=next__A2T;
- };
- };
- ((__POINTER *)result__C2T)[ 0]=((__POINTER ) 3);
- result__K0T=(void *)((unsigned long)result__C2T - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__K0T=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Y0D(new_size__N0T))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__TRG=((__CHARACTER *)result__K0T);
- Self__XJJ=(__INTEGER)(nb_elements__2VF - 1);
- while ((Self__XJJ >= 0)) {
- Result__TRG[Self__XJJ]='\0';
- Self__XJJ=(__INTEGER)(Self__XJJ - 1);
- };
- return(Result__TRG);
-}
-
-static void to_busy__index__0KI(__MEMORY *Self__1KI,__UINTEGER_32 sz__2KI,__UINTEGER_32 idx__3KI)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __MEMORY *new__ELI,*prev__E5I,*next__F5I,*Self__MOI,*Self__ZCT;
- __UINTEGER_32 siz__4KI,new_size__BLI;
- new__ELI=NULL;
- prev__E5I=Self__1KI->previous_free__XC;
- next__F5I=Self__1KI->next_free__WC;
- if (((void *)prev__E5I == (void *)NULL)) {
- first_free__11D=next__F5I;
- } else {
- ((__MEMORY *)prev__E5I)->next_free__WC=next__F5I;
- };
- if (((void *)next__F5I != (void *)NULL)) {
- ((__MEMORY *)next__F5I)->previous_free__XC=prev__E5I;
- };
- siz__4KI=Self__1KI->size_and_id__VC;
- new_size__BLI=(__UINTEGER_32)(siz__4KI - sz__2KI);
- if ((new_size__BLI > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__4KI=sz__2KI;
- new__ELI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1KI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__2KI))));
- ((__MEMORY *)new__ELI)->previous_linear__UC=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__1KI) - (unsigned long)begin_memory__CVB))));
- ((__MEMORY *)new__ELI)->size_and_id__VC=(__UINTEGER_32)(new_size__BLI - 8);
- Self__MOI=((__MEMORY *)new__ELI);
- Self__MOI->next_free__WC=first_free__11D;
- Self__MOI->previous_free__XC=NULL;
- if (((void *)first_free__11D != (void *)NULL)) {
- ((__MEMORY *)first_free__11D)->previous_free__XC=Self__MOI;
- };
- first_free__11D=Self__MOI;
- if (((__UINTEGER_32)(((__MEMORY *)new__ELI)->size_and_id__VC & 2) != 0)) {
- last_block[(idx__3KI)] = (new__ELI);
- } else {
- Self__ZCT=((__MEMORY *)new__ELI);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ZCT) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ZCT->size_and_id__VC & 4294967292LU)))))->previous_linear__UC=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__ELI)) - (unsigned long)begin_memory__CVB))));
- };
- };
- Self__1KI->size_and_id__VC=(__UINTEGER_32)(siz__4KI | 1);
-}
-
-static void print__RL(__STRING_CONSTANT *Self__SL)
-// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
-{
- put_string__XR(Self__SL);
-}
-
-static void append_in__format__2L(__INTEGER Self__3L,void *str__4L)
-// ({INTEGER},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER old_count__ST,i__PEB,j__QEB,__tmp__YT,Self__4XD,i__W4F;
- __INTEGER_32 Self__EEB,val__MEB;
- __STRING *Self__GRE,*Self__2CD;
- __CHARACTER tmp__JRE;
- __CHARACTER *__tmp__TYT,*__tmp__UYT;
- old_count__ST=((__STRING *)str__4L)->count__NT;
- Self__EEB=((__INTEGER_32 )Self__3L);
- val__MEB= 0;
- i__PEB= 0;
- j__QEB= 0;
- if ((Self__EEB == 0)) {
- add_last__C3C(((__STRING *)str__4L),'0');
- } else {
- if ((Self__EEB > 0)) {
- val__MEB=Self__EEB;
- } else {
- val__MEB=(__INTEGER_32)(- Self__EEB);
- add_last__C3C(((__STRING *)str__4L),'-');
- };
- i__PEB=(__INTEGER)(((__STRING *)str__4L)->count__NT + 1);
- while ((val__MEB != 0)) {
- add_last__C3C(((__STRING *)str__4L),((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER_32)(val__MEB % 10)) + ((__INTEGER_8 )'0'))))));
- val__MEB=(__INTEGER_32)(val__MEB / 10);
- };
- j__QEB=((__STRING *)str__4L)->count__NT;
- while ((i__PEB < j__QEB)) {
- Self__GRE=((__STRING *)str__4L);
- tmp__JRE=((__CHARACTER *)Self__GRE->storage__X3C)[(__INTEGER)(i__PEB - 1)];
- ((__CHARACTER *)Self__GRE->storage__X3C)[(__INTEGER)(i__PEB - 1)]=((__CHARACTER *)Self__GRE->storage__X3C)[(__INTEGER)(j__QEB - 1)];
- ((__CHARACTER *)Self__GRE->storage__X3C)[(__INTEGER)(j__QEB - 1)]=tmp__JRE;
- j__QEB=(__INTEGER)(j__QEB - 1);
- i__PEB=(__INTEGER)(i__PEB + 1);
- };
- };
- __tmp__YT=(__INTEGER)( 8 - (__INTEGER)(((__STRING *)str__4L)->count__NT - old_count__ST));
- Self__2CD=((__STRING *)str__4L);
- Self__4XD= 1;
- while ((Self__4XD <= __tmp__YT)) {
- i__W4F=Self__2CD->count__NT;
- add_last__C3C(Self__2CD,' ');
- __tmp__TYT=Self__2CD->storage__X3C;
- __tmp__UYT=Self__2CD->storage__X3C;
- while ((i__W4F != old_count__ST)) {
- ((__CHARACTER *)__tmp__UYT)[(__INTEGER)((__INTEGER)(i__W4F + 1) - 1)]=((__CHARACTER *)__tmp__TYT)[(__INTEGER)(i__W4F - 1)];
- i__W4F=(__INTEGER)(i__W4F - 1);
- };
- ((__CHARACTER *)Self__2CD->storage__X3C)[(__INTEGER)((__INTEGER)(old_count__ST + 1) - 1)]=' ';
- Self__4XD=(__INTEGER)(Self__4XD + 1);
- };
-}
-
-static void put_string__XR(void *s__ZR)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__MS,Self__M1,limit_up__N1;
- __CHARACTER *__tmp__YYT,*__tmp__ZYT;
- __CHARACTER __tmp__TS;
- if (((struct ___OBJ *)s__ZR)->__id==__STRING_CONSTANT__) {
- };
- if (((struct ___OBJ *)s__ZR)->__id==__STRING_CONSTANT__) {
- __tmp__MS=((__STRING_CONSTANT *)s__ZR)->count__H1;
- } else {
- __tmp__MS=((__STRING *)s__ZR)->count__NT;
- };
- Self__M1= 1;
- limit_up__N1=__tmp__MS;
- __tmp__YYT=((__STRING_CONSTANT *)s__ZR)->storage__1PE;
- __tmp__ZYT=((__STRING *)s__ZR)->storage__X3C;
- while ((Self__M1 <= limit_up__N1)) {
- if (((struct ___OBJ *)s__ZR)->__id==__STRING_CONSTANT__) {
- __tmp__TS=((__CHARACTER *)__tmp__YYT)[(__INTEGER)(Self__M1 - 1)];
- } else {
- __tmp__TS=((__CHARACTER *)__tmp__ZYT)[(__INTEGER)(Self__M1 - 1)];
- };
- fputc((int)(__tmp__TS),stdout);
- Self__M1=(__INTEGER)(Self__M1 + 1);
- };
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/nsieve/nsieve_c.c b/example/shootout/nsieve/nsieve_c.c
deleted file mode 100644
index ec80fd6..0000000
--- a/example/shootout/nsieve/nsieve_c.c
+++ /dev/null
@@ -1,35 +0,0 @@
-// The Computer Language Shootout
-// http://shootout.alioth.debian.org/
-// Precedent C entry modified by bearophile for speed and size, 31 Jan 2006
-// Compile with: -O3 -s -std=c99 -fomit-frame-pointer
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-typedef unsigned char boolean;
-
-
-static void nsieve(int m) {
- unsigned int count = 0, i, j;
- boolean * flags = (boolean *) malloc(m * sizeof(boolean));
- memset(flags, 1, m);
-
- for (i = 2; i < m; ++i)
- if (flags[i]) {
- ++count;
- for (j = i << 1; j < m; j += i)
-// if (flags[j])
- flags[j] = 0;
- }
-
- free(flags);
- printf("Primes up to %8u %8u\n", m, count);
-}
-
-int main(int argc, char * argv[]) {
- int m = atoi(argv[1]);
- for (int i = 0; i < 3; i++)
- nsieve(10000 << (m-i));
- return 0;
-}
diff --git a/example/shootout/partial_sums/partial_sums.c b/example/shootout/partial_sums/partial_sums.c
deleted file mode 100755
index 0f79d32..0000000
--- a/example/shootout/partial_sums/partial_sums.c
+++ /dev/null
@@ -1,3853 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// FLOAT_REAL
-#include <math.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 0
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__JX;
- __CHARACTER *storage__ZZD;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// STRING
-#define __STRING__ 1
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__CS;
- __INTEGER capacity__ES;
- __CHARACTER *storage__CNC;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// REAL_64
-typedef double __REAL_64;
-
-// NUMERIC
-#define __NUMERIC__ 2
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 3
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER upper__WH;
- __INTEGER capacity__OOC;
- void **storage__ZOC;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 4
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__TH;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// OBJECT
-#define __OBJECT__ 5
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// MEMORY
-#define __MEMORY__ 6
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__CZ;
- volatile __UINTEGER_32 size_and_id__DZ;
- __MEMORY *next_free__EZ;
- __MEMORY *previous_free__FZ;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// FALSE
-#define FALSE__ 0
-
-// TRUE
-#define TRUE__ 1
-
-// PARTIAL_SUMS
-#define __PARTIAL_SUMS__ 7
-typedef struct PARTIAL_SUMS_struct __PARTIAL_SUMS;
-struct PARTIAL_SUMS_struct {
- void *Nothing;
-};
-__PARTIAL_SUMS PARTIAL_SUMS_;
-#define PARTIAL_SUMS__ (&PARTIAL_SUMS_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[8];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-void *string_tmp__JO;
-__UINTEGER_32 clone_allocation_size__YY;
-__POINTER begin_memory__XLB;
-__UINTEGER_32 nb_page__UYB;
-__UINTEGER_32 capacity_max__4KD;
-__MEMORY *first_free__2KG;
-__REAL_64 two_third__DD;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={19,"Not enough memory.\n"};
-__STRING_CONSTANT __string_2={9,"\t(2/3)^k\n"};
-__STRING_CONSTANT __string_3={8,"\tk^-0.5\n"};
-__STRING_CONSTANT __string_4={10,"\t1/k(k+1)\n"};
-__STRING_CONSTANT __string_5={13,"\tFlint Hills\n"};
-__STRING_CONSTANT __string_6={15,"\tCookson Hills\n"};
-__STRING_CONSTANT __string_7={10,"\tHarmonic\n"};
-__STRING_CONSTANT __string_8={14,"\tRiemann Zeta\n"};
-__STRING_CONSTANT __string_9={22,"\tAlternating Harmonic\n"};
-__STRING_CONSTANT __string_10={9,"\tGregory\n"};
-__STRING_CONSTANT __string_11={4,"%.9f"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static void print__PO(__STRING_CONSTANT *Self__QO);
-static __STRING* create__LV(__INTEGER needed_capacity__NV);
-static __POINTER realloc_dynamic__old_size__new_size__FPH(__POINTER p__HPH,__UINTEGER_32 old_sz__IPH,__UINTEGER_32 new_sz__JPH);
-static void print_format_c__GO(__REAL_64 Self__HO);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__1P;
- __INTEGER new_count__0T,typ_id__KY,Self__W3R,Self__FU,limit_up__GU;
- __INTEGER idx__JUD,i__2VD,new_capacity__VSD,Self__E4R,__tmp__OTD;
- __INTEGER __tmp__X2G,Self__YDL,new_capacity__WWD,Self__NXH,__tmp__0XD;
- __INTEGER __tmp__O4G,Self__XFL,n__Z,state__ZTK,result__2TK,i__YTK;
- __INTEGER __tmp__2XR,__tmp__4XR,Self__DM,limit_up__EM,Self__HN;
- __INTEGER limit_up__IN,Self__XN,limit_up__YN;
- __POINTER ptr__FY,ptr_table__P0R,next__O0R,result__Q0R,mem__HKS;
- __POINTER result__NKS,mem__YKS,result__4KS,ptr_table__3JB,next__CKB;
- __POINTER result__AKB,mem__JLS,result__PLS,mem__0LS,result__AMS;
- __POINTER result__M3R,ptr_table__S3R,next__T3R,result__U3R,mem__LMS;
- __POINTER result__RMS,mem__2MS,result__CNS,mem__0AS,result__03R;
- __POINTER ptr_table__A4R,next__B4R,result__C4R,mem__NNS,result__TNS;
- __POINTER mem__4NS,result__EOS,mem__LBS,result__OYR,ptr_table__RZR;
- __POINTER next__QZR,result__SZR,mem__POS,result__VOS,mem__VBS;
- __POINTER result__LYB,mem__QBS;
- __UINTEGER_32 sz__HY,a__GVR,new_size__XDB,idx__BKS,pv__EKS,cap__IKS;
- __UINTEGER_32 idx__SKS,pv__VKS,cap__ZKS,old_size__1KS,t__AFB,a__MVR;
- __UINTEGER_32 new_size__2JB,lab_type__4JB,idx__DLS,pv__GLS,cap__KLS;
- __UINTEGER_32 old_size__MLS,idx__ULS,pv__XLS,cap__1LS,old_size__3LS;
- __UINTEGER_32 sz__L3R,a__N3R,new_size__O3R,new_size2__P3R,a__Q3R;
- __UINTEGER_32 new_size__R3R,idx__FMS,pv__IMS,cap__MMS,old_size__OMS;
- __UINTEGER_32 idx__WMS,pv__ZMS,cap__3MS,old_size__5MS,cap__1AS;
- __UINTEGER_32 old_size__3AS,idx__SAS,siz__WAS,new_size__XAS,a__13R;
- __UINTEGER_32 new_size__23R,new_size2__33R,a__43R,new_size__53R;
- __UINTEGER_32 idx__HNS,pv__KNS,cap__ONS,old_size__QNS,idx__YNS;
- __UINTEGER_32 pv__1NS,cap__5NS,old_size__BOS,cap__MBS,old_size__OBS;
- __UINTEGER_32 idx__DBS,siz__HBS,new_size__IBS,sz__QYR,a__PYR;
- __UINTEGER_32 new_size__RYR,new_size2__SYR,a__UYR,new_size__VYR;
- __UINTEGER_32 idx__JOS,pv__MOS,cap__QOS,old_size__SOS,idx__GYB;
- __UINTEGER_32 pv__NYB,cap__WBS,old_size__YBS,cap__RBS,old_size__TBS;
- __UINTEGER_32 idx__EDH,siz__FDH,new_size__IDH;
- __MEMORY *blc__CKS,*prev__DKS,*block__LKS,*prev__PKS,*next__QKS;
- __MEMORY *blc__TKS,*prev__UKS,*block__2KS,*Self__3KS,*Self__5KS;
- __MEMORY *prev__ALS,*next__BLS,*blc__ELS,*prev__FLS,*block__NLS;
- __MEMORY *Self__OLS,*Self__QLS,*prev__RLS,*next__SLS,*blc__VLS;
- __MEMORY *prev__WLS,*block__4LS,*Self__5LS,*Self__BMS,*prev__CMS;
- __MEMORY *next__DMS,*blc__GMS,*prev__HMS,*block__PMS,*Self__QMS;
- __MEMORY *Self__SMS,*prev__TMS,*next__UMS,*blc__XMS,*prev__YMS;
- __MEMORY *block__ANS,*Self__BNS,*Self__DNS,*prev__ENS,*next__FNS;
- __MEMORY *result__OAS,*block__4AS,*Self__RAS,*new__TAS,*prev__UAS;
- __MEMORY *next__VAS,*Self__YAS,*Self__ZAS,*blc__INS,*prev__JNS;
- __MEMORY *block__RNS,*Self__SNS,*Self__UNS,*prev__VNS,*next__WNS;
- __MEMORY *blc__ZNS,*prev__0NS,*block__COS,*Self__DOS,*Self__FOS;
- __MEMORY *prev__GOS,*next__HOS,*result__5AS,*block__PBS,*Self__CBS;
- __MEMORY *new__EBS,*prev__FBS,*next__GBS,*Self__JBS,*Self__KBS;
- __MEMORY *blc__KOS,*prev__LOS,*block__TOS,*Self__UOS,*Self__WOS;
- __MEMORY *prev__XOS,*next__YOS,*blc__JYB,*prev__KYB,*block__ZBS;
- __MEMORY *Self__TKR,*Self__VUR,*prev__WUR,*next__XUR,*result__3JG;
- __MEMORY *block__UBS,*Self__CDH,*new__LDH,*prev__U3H,*next__V3H;
- __MEMORY *Self__BYG,*Self__HGR;
- __STRING *Self__0VD,*Self__WTK;
- __REAL_64 a1__CB,a2__FB,a3__IB,a4__LB,a5__OB,a6__RB,a7__UB,a8__XB;
- __REAL_64 a9__0B,nr__AC,Self__TI,limit_up__UI,Self__WJ,limit_up__XJ;
- __REAL_64 Self__KK,limit_up__LK,Self__4K,limit_up__5K,Self__SL;
- __REAL_64 limit_up__TL,Self__VM,limit_up__WM,alt__3B;
- __CHARACTER *arg__0P,*Self__3TD,*p__1VD,*Result__D4R,*__tmp__NTD;
- __CHARACTER *new__E2G,*__tmp__3XR;
- __FAST_ARRAYoSTRINGo *result__EY,*Self__FOC,*Self__UWD;
- __BOOLEAN __tmp__FKS,__tmp__WKS,__tmp__HLS,__tmp__YLS,__tmp__JMS;
- __BOOLEAN __tmp__0MS,__tmp__LNS,__tmp__2NS,__tmp__EXD,__tmp__NOS;
- __BOOLEAN __tmp__NZB,negative__1TK,__tmp__IVK,result__TGP,__tmp__1VK;
- __BOOLEAN __tmp__QWK,result__Z0N,__tmp__XXK,result__L1N,result__JOO;
- void **Result__V3R,**Result__FVF,**__tmp__ZXD,**new__13G;
- void *result__ZP;
- __CHARACTER ch__USD,cc__0TK;
- arg_count = argc;
- arg_vector = argv;
- parent_numeric__H=NUMERIC__;
- ARRAYED_COLLECTIONoSTRINGo__->upper__WH= 0;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__OOC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->storage__ZOC=NULL;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__TH=(*ARRAYED_COLLECTIONoSTRINGo__);
- clone_allocation_size__YY= 0;
- STRING_CONSTANT__->count__JX=((__INTEGER )((0)));
- STRING__->count__CS= 0;
- STRING_CONSTANT__->storage__ZZD=((__CHARACTER *)(NULL));
- STRING__->storage__CNC=NULL;
- nb_page__UYB= 0;
- MEMORY__->size_and_id__DZ= 0;
- capacity_max__4KD= 0;
- begin_memory__XLB=((__POINTER )(NULL));
- MEMORY__->previous_linear__CZ= 0;
- first_free__2KG=NULL;
- MEMORY__->next_free__EZ=NULL;
- MEMORY__->previous_free__FZ=NULL;
- STRING__->capacity__ES= 0;
- arg__0P=NULL;
- str__1P=NULL;
- new_count__0T=((__INTEGER )(arg_count));
- result__EY=NULL;
- ptr__FY=((__POINTER )(NULL));
- typ_id__KY= 0;
- sz__HY=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__HY == 0)) {
- result__EY=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__KY=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__YY=sz__HY;
- if ((typ_id__KY == (__INTEGER)(- 1))) {
- a__GVR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XDB=(__UINTEGER_32)((__UINTEGER_32)(sz__HY + a__GVR) & (__UINTEGER_32)(~ a__GVR));
- ptr_table__P0R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XDB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__O0R=((__POINTER )(NULL));
- result__Q0R=((__POINTER *)ptr_table__P0R)[ 0];
- if ((result__Q0R == (void *)NULL)) {
- idx__BKS= 0;
- blc__CKS=NULL;
- prev__DKS=NULL;
- pv__EKS= 0;
- while_do__F3B__GKS:
- {
- if ((idx__BKS < nb_page__UYB)) {
- blc__CKS=((__MEMORY *)(last_block[(idx__BKS)]));
- __tmp__FKS=(((__UINTEGER_32)(((__MEMORY *)blc__CKS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__CKS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__FKS=FALSE__;
- };
- if (__tmp__FKS) {
- idx__BKS=(__UINTEGER_32)(idx__BKS + 1);
- goto while_do__F3B__GKS;
- };
- };
- mem__HKS=((__POINTER )(NULL));
- cap__IKS= 33554432;
- do {
- cap__IKS=(__UINTEGER_32)(cap__IKS << 1);
- mem__HKS=((__POINTER )(malloc((cap__IKS))));
- if ((mem__HKS != (void *)NULL)) {
- free((mem__HKS));
- };
- } while ((! ((mem__HKS == (void *)NULL) || (cap__IKS == 2147483648LU))));
- if ((mem__HKS == (void *)NULL)) {
- cap__IKS=(__UINTEGER_32)(cap__IKS >> 1);
- };
- capacity_max__4KD=cap__IKS;
- begin_memory__XLB=((__POINTER )(malloc((cap__IKS))));
- nb_page__UYB= 1;
- if (( 67108864 > cap__IKS)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__LKS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 0))));
- block__LKS->previous_linear__CZ= 4294967295LU;
- block__LKS->size_and_id__DZ= 67108858;
- block__LKS->next_free__EZ=first_free__2KG;
- block__LKS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__LKS;
- };
- first_free__2KG=block__LKS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__LKS);
- blc__CKS=block__LKS;
- block__LKS->size_and_id__DZ=(__UINTEGER_32)(block__LKS->size_and_id__DZ - 4096);
- result__NKS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )block__LKS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(block__LKS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(block__LKS->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- prev__PKS=block__LKS->previous_free__FZ;
- next__QKS=block__LKS->next_free__EZ;
- if (((void *)prev__PKS == (void *)NULL)) {
- first_free__2KG=next__QKS;
- } else {
- ((__MEMORY *)prev__PKS)->next_free__EZ=next__QKS;
- };
- if (((void *)next__QKS != (void *)NULL)) {
- ((__MEMORY *)next__QKS)->previous_free__FZ=prev__PKS;
- };
- pv__EKS=block__LKS->previous_linear__CZ;
- if ((pv__EKS != 4294967295LU)) {
- prev__DKS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__EKS))));
- ((__MEMORY *)prev__DKS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__DKS->size_and_id__DZ + block__LKS->size_and_id__DZ) + 8);
- last_block[(idx__BKS)] = (prev__DKS);
- };
- };
- ((__POINTER *)result__NKS)[ 0]=((__POINTER )new_size__XDB);
- result__Q0R=(void *)((unsigned long)result__NKS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__O0R=(void *)((unsigned long)result__Q0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDB)));
- ((__POINTER *)next__O0R)[ 0]=NULL;
- ((__POINTER *)ptr_table__P0R)[ 0]=next__O0R;
- } else {
- next__O0R=((__POINTER *)result__Q0R)[ 0];
- if ((next__O0R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q0R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__XDB << 1)) <= 4096)) {
- next__O0R=(void *)((unsigned long)result__Q0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDB)));
- } else {
- idx__SKS= 0;
- blc__TKS=NULL;
- prev__UKS=NULL;
- pv__VKS= 0;
- while_do__F3B__XKS:
- {
- if ((idx__SKS < nb_page__UYB)) {
- blc__TKS=((__MEMORY *)(last_block[(idx__SKS)]));
- __tmp__WKS=(((__UINTEGER_32)(((__MEMORY *)blc__TKS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__TKS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__WKS=FALSE__;
- };
- if (__tmp__WKS) {
- idx__SKS=(__UINTEGER_32)(idx__SKS + 1);
- goto while_do__F3B__XKS;
- };
- };
- if ((idx__SKS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__YKS=((__POINTER )(NULL));
- cap__ZKS= 33554432;
- do {
- cap__ZKS=(__UINTEGER_32)(cap__ZKS << 1);
- mem__YKS=((__POINTER )(malloc((cap__ZKS))));
- if ((mem__YKS != (void *)NULL)) {
- free((mem__YKS));
- };
- } while ((! ((mem__YKS == (void *)NULL) || (cap__ZKS == 2147483648LU))));
- if ((mem__YKS == (void *)NULL)) {
- cap__ZKS=(__UINTEGER_32)(cap__ZKS >> 1);
- };
- capacity_max__4KD=cap__ZKS;
- begin_memory__XLB=((__POINTER )(malloc((cap__ZKS))));
- };
- old_size__1KS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__1KS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__2KS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__1KS))));
- block__2KS->previous_linear__CZ= 4294967295LU;
- block__2KS->size_and_id__DZ= 67108858;
- block__2KS->next_free__EZ=first_free__2KG;
- block__2KS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__2KS;
- };
- first_free__2KG=block__2KS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__2KS);
- blc__TKS=block__2KS;
- };
- ((__MEMORY *)blc__TKS)->size_and_id__DZ=(__UINTEGER_32)(blc__TKS->size_and_id__DZ - 4096);
- Self__3KS=((__MEMORY *)blc__TKS);
- result__4KS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__3KS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__3KS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__TKS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__5KS=((__MEMORY *)blc__TKS);
- prev__ALS=Self__5KS->previous_free__FZ;
- next__BLS=Self__5KS->next_free__EZ;
- if (((void *)prev__ALS == (void *)NULL)) {
- first_free__2KG=next__BLS;
- } else {
- ((__MEMORY *)prev__ALS)->next_free__EZ=next__BLS;
- };
- if (((void *)next__BLS != (void *)NULL)) {
- ((__MEMORY *)next__BLS)->previous_free__FZ=prev__ALS;
- };
- pv__VKS=blc__TKS->previous_linear__CZ;
- if ((pv__VKS != 4294967295LU)) {
- prev__UKS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__VKS))));
- ((__MEMORY *)prev__UKS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__UKS->size_and_id__DZ + blc__TKS->size_and_id__DZ) + 8);
- last_block[(idx__SKS)] = (prev__UKS);
- };
- };
- ((__POINTER *)result__4KS)[ 0]=((__POINTER )new_size__XDB);
- next__O0R=(void *)((unsigned long)result__4KS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__O0R)[ 0]=NULL;
- ((__POINTER *)ptr_table__P0R)[ 0]=next__O0R;
- } else {
- ((__POINTER *)result__Q0R)[ 0]=(void *)((unsigned long)((__POINTER *)next__O0R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q0R=next__O0R;
- };
- };
- ptr__FY=result__Q0R;
- } else {
- t__AFB=((__UINTEGER_32 )typ_id__KY);
- a__MVR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2JB=(__UINTEGER_32)((__UINTEGER_32)(sz__HY + a__MVR) & (__UINTEGER_32)(~ a__MVR));
- ptr_table__3JB=((__POINTER )(&(table_type[(t__AFB)])));
- lab_type__4JB=(__UINTEGER_32)(t__AFB | 1);
- next__CKB=((__POINTER )(NULL));
- result__AKB=((__POINTER *)ptr_table__3JB)[ 0];
- if ((result__AKB == (void *)NULL)) {
- idx__DLS= 0;
- blc__ELS=NULL;
- prev__FLS=NULL;
- pv__GLS= 0;
- while_do__F3B__ILS:
- {
- if ((idx__DLS < nb_page__UYB)) {
- blc__ELS=((__MEMORY *)(last_block[(idx__DLS)]));
- __tmp__HLS=(((__UINTEGER_32)(((__MEMORY *)blc__ELS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__ELS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__HLS=FALSE__;
- };
- if (__tmp__HLS) {
- idx__DLS=(__UINTEGER_32)(idx__DLS + 1);
- goto while_do__F3B__ILS;
- };
- };
- if ((idx__DLS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__JLS=((__POINTER )(NULL));
- cap__KLS= 33554432;
- do {
- cap__KLS=(__UINTEGER_32)(cap__KLS << 1);
- mem__JLS=((__POINTER )(malloc((cap__KLS))));
- if ((mem__JLS != (void *)NULL)) {
- free((mem__JLS));
- };
- } while ((! ((mem__JLS == (void *)NULL) || (cap__KLS == 2147483648LU))));
- if ((mem__JLS == (void *)NULL)) {
- cap__KLS=(__UINTEGER_32)(cap__KLS >> 1);
- };
- capacity_max__4KD=cap__KLS;
- begin_memory__XLB=((__POINTER )(malloc((cap__KLS))));
- };
- old_size__MLS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__MLS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__NLS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__MLS))));
- block__NLS->previous_linear__CZ= 4294967295LU;
- block__NLS->size_and_id__DZ= 67108858;
- block__NLS->next_free__EZ=first_free__2KG;
- block__NLS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__NLS;
- };
- first_free__2KG=block__NLS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__NLS);
- blc__ELS=block__NLS;
- };
- ((__MEMORY *)blc__ELS)->size_and_id__DZ=(__UINTEGER_32)(blc__ELS->size_and_id__DZ - 4096);
- Self__OLS=((__MEMORY *)blc__ELS);
- result__PLS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OLS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__OLS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__ELS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__QLS=((__MEMORY *)blc__ELS);
- prev__RLS=Self__QLS->previous_free__FZ;
- next__SLS=Self__QLS->next_free__EZ;
- if (((void *)prev__RLS == (void *)NULL)) {
- first_free__2KG=next__SLS;
- } else {
- ((__MEMORY *)prev__RLS)->next_free__EZ=next__SLS;
- };
- if (((void *)next__SLS != (void *)NULL)) {
- ((__MEMORY *)next__SLS)->previous_free__FZ=prev__RLS;
- };
- pv__GLS=blc__ELS->previous_linear__CZ;
- if ((pv__GLS != 4294967295LU)) {
- prev__FLS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__GLS))));
- ((__MEMORY *)prev__FLS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__FLS->size_and_id__DZ + blc__ELS->size_and_id__DZ) + 8);
- last_block[(idx__DLS)] = (prev__FLS);
- };
- };
- ((__POINTER *)result__PLS)[ 0]=((__POINTER )lab_type__4JB);
- result__AKB=(void *)((unsigned long)result__PLS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__CKB=(void *)((unsigned long)result__AKB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2JB)));
- ((__POINTER *)next__CKB)[ 0]=NULL;
- ((__POINTER *)ptr_table__3JB)[ 0]=next__CKB;
- } else {
- next__CKB=((__POINTER *)result__AKB)[ 0];
- if ((next__CKB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AKB - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__2JB << 1)) <= 4096)) {
- next__CKB=(void *)((unsigned long)result__AKB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2JB)));
- } else {
- idx__ULS= 0;
- blc__VLS=NULL;
- prev__WLS=NULL;
- pv__XLS= 0;
- while_do__F3B__ZLS:
- {
- if ((idx__ULS < nb_page__UYB)) {
- blc__VLS=((__MEMORY *)(last_block[(idx__ULS)]));
- __tmp__YLS=(((__UINTEGER_32)(((__MEMORY *)blc__VLS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__VLS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__YLS=FALSE__;
- };
- if (__tmp__YLS) {
- idx__ULS=(__UINTEGER_32)(idx__ULS + 1);
- goto while_do__F3B__ZLS;
- };
- };
- if ((idx__ULS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__0LS=((__POINTER )(NULL));
- cap__1LS= 33554432;
- do {
- cap__1LS=(__UINTEGER_32)(cap__1LS << 1);
- mem__0LS=((__POINTER )(malloc((cap__1LS))));
- if ((mem__0LS != (void *)NULL)) {
- free((mem__0LS));
- };
- } while ((! ((mem__0LS == (void *)NULL) || (cap__1LS == 2147483648LU))));
- if ((mem__0LS == (void *)NULL)) {
- cap__1LS=(__UINTEGER_32)(cap__1LS >> 1);
- };
- capacity_max__4KD=cap__1LS;
- begin_memory__XLB=((__POINTER )(malloc((cap__1LS))));
- };
- old_size__3LS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__3LS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__4LS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__3LS))));
- block__4LS->previous_linear__CZ= 4294967295LU;
- block__4LS->size_and_id__DZ= 67108858;
- block__4LS->next_free__EZ=first_free__2KG;
- block__4LS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__4LS;
- };
- first_free__2KG=block__4LS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__4LS);
- blc__VLS=block__4LS;
- };
- ((__MEMORY *)blc__VLS)->size_and_id__DZ=(__UINTEGER_32)(blc__VLS->size_and_id__DZ - 4096);
- Self__5LS=((__MEMORY *)blc__VLS);
- result__AMS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5LS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__5LS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__VLS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__BMS=((__MEMORY *)blc__VLS);
- prev__CMS=Self__BMS->previous_free__FZ;
- next__DMS=Self__BMS->next_free__EZ;
- if (((void *)prev__CMS == (void *)NULL)) {
- first_free__2KG=next__DMS;
- } else {
- ((__MEMORY *)prev__CMS)->next_free__EZ=next__DMS;
- };
- if (((void *)next__DMS != (void *)NULL)) {
- ((__MEMORY *)next__DMS)->previous_free__FZ=prev__CMS;
- };
- pv__XLS=blc__VLS->previous_linear__CZ;
- if ((pv__XLS != 4294967295LU)) {
- prev__WLS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__XLS))));
- ((__MEMORY *)prev__WLS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__WLS->size_and_id__DZ + blc__VLS->size_and_id__DZ) + 8);
- last_block[(idx__ULS)] = (prev__WLS);
- };
- };
- ((__POINTER *)result__AMS)[ 0]=((__POINTER )lab_type__4JB);
- next__CKB=(void *)((unsigned long)result__AMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__CKB)[ 0]=NULL;
- ((__POINTER *)ptr_table__3JB)[ 0]=next__CKB;
- } else {
- ((__POINTER *)result__AKB)[ 0]=(void *)((unsigned long)((__POINTER *)next__CKB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AKB=next__CKB;
- };
- };
- ptr__FY=result__AKB;
- };
- result__EY=((__FAST_ARRAYoSTRINGo *)ptr__FY);
- *(result__EY) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__FOC=((__FAST_ARRAYoSTRINGo *)result__EY);
- if ((Self__FOC->parent_arrayed_collection__TH.capacity__OOC < new_count__0T)) {
- sz__L3R=((__UINTEGER_32 )(__INTEGER)(new_count__0T * ((__INTEGER )(sizeof(void *)))));
- result__M3R=((__POINTER )(NULL));
- a__N3R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__O3R=(__UINTEGER_32)((__UINTEGER_32)(sz__L3R + a__N3R) & (__UINTEGER_32)(~ a__N3R));
- new_size2__P3R=(__UINTEGER_32)(new_size__O3R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__P3R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__Q3R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__R3R=(__UINTEGER_32)((__UINTEGER_32)(new_size2__P3R + a__Q3R) & (__UINTEGER_32)(~ a__Q3R));
- ptr_table__S3R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__R3R / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__T3R=((__POINTER )(NULL));
- result__U3R=((__POINTER *)ptr_table__S3R)[ 0];
- if ((result__U3R == (void *)NULL)) {
- idx__FMS= 0;
- blc__GMS=NULL;
- prev__HMS=NULL;
- pv__IMS= 0;
- while_do__F3B__KMS:
- {
- if ((idx__FMS < nb_page__UYB)) {
- blc__GMS=((__MEMORY *)(last_block[(idx__FMS)]));
- __tmp__JMS=(((__UINTEGER_32)(((__MEMORY *)blc__GMS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__GMS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__JMS=FALSE__;
- };
- if (__tmp__JMS) {
- idx__FMS=(__UINTEGER_32)(idx__FMS + 1);
- goto while_do__F3B__KMS;
- };
- };
- if ((idx__FMS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__LMS=((__POINTER )(NULL));
- cap__MMS= 33554432;
- do {
- cap__MMS=(__UINTEGER_32)(cap__MMS << 1);
- mem__LMS=((__POINTER )(malloc((cap__MMS))));
- if ((mem__LMS != (void *)NULL)) {
- free((mem__LMS));
- };
- } while ((! ((mem__LMS == (void *)NULL) || (cap__MMS == 2147483648LU))));
- if ((mem__LMS == (void *)NULL)) {
- cap__MMS=(__UINTEGER_32)(cap__MMS >> 1);
- };
- capacity_max__4KD=cap__MMS;
- begin_memory__XLB=((__POINTER )(malloc((cap__MMS))));
- };
- old_size__OMS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__OMS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__PMS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__OMS))));
- block__PMS->previous_linear__CZ= 4294967295LU;
- block__PMS->size_and_id__DZ= 67108858;
- block__PMS->next_free__EZ=first_free__2KG;
- block__PMS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__PMS;
- };
- first_free__2KG=block__PMS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__PMS);
- blc__GMS=block__PMS;
- };
- ((__MEMORY *)blc__GMS)->size_and_id__DZ=(__UINTEGER_32)(blc__GMS->size_and_id__DZ - 4096);
- Self__QMS=((__MEMORY *)blc__GMS);
- result__RMS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__QMS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__QMS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__GMS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__SMS=((__MEMORY *)blc__GMS);
- prev__TMS=Self__SMS->previous_free__FZ;
- next__UMS=Self__SMS->next_free__EZ;
- if (((void *)prev__TMS == (void *)NULL)) {
- first_free__2KG=next__UMS;
- } else {
- ((__MEMORY *)prev__TMS)->next_free__EZ=next__UMS;
- };
- if (((void *)next__UMS != (void *)NULL)) {
- ((__MEMORY *)next__UMS)->previous_free__FZ=prev__TMS;
- };
- pv__IMS=blc__GMS->previous_linear__CZ;
- if ((pv__IMS != 4294967295LU)) {
- prev__HMS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__IMS))));
- ((__MEMORY *)prev__HMS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__HMS->size_and_id__DZ + blc__GMS->size_and_id__DZ) + 8);
- last_block[(idx__FMS)] = (prev__HMS);
- };
- };
- ((__POINTER *)result__RMS)[ 0]=((__POINTER )new_size__R3R);
- result__U3R=(void *)((unsigned long)result__RMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__T3R=(void *)((unsigned long)result__U3R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R3R)));
- ((__POINTER *)next__T3R)[ 0]=NULL;
- ((__POINTER *)ptr_table__S3R)[ 0]=next__T3R;
- } else {
- next__T3R=((__POINTER *)result__U3R)[ 0];
- if ((next__T3R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U3R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__R3R << 1)) <= 4096)) {
- next__T3R=(void *)((unsigned long)result__U3R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R3R)));
- } else {
- idx__WMS= 0;
- blc__XMS=NULL;
- prev__YMS=NULL;
- pv__ZMS= 0;
- while_do__F3B__1MS:
- {
- if ((idx__WMS < nb_page__UYB)) {
- blc__XMS=((__MEMORY *)(last_block[(idx__WMS)]));
- __tmp__0MS=(((__UINTEGER_32)(((__MEMORY *)blc__XMS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__XMS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__0MS=FALSE__;
- };
- if (__tmp__0MS) {
- idx__WMS=(__UINTEGER_32)(idx__WMS + 1);
- goto while_do__F3B__1MS;
- };
- };
- if ((idx__WMS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__2MS=((__POINTER )(NULL));
- cap__3MS= 33554432;
- do {
- cap__3MS=(__UINTEGER_32)(cap__3MS << 1);
- mem__2MS=((__POINTER )(malloc((cap__3MS))));
- if ((mem__2MS != (void *)NULL)) {
- free((mem__2MS));
- };
- } while ((! ((mem__2MS == (void *)NULL) || (cap__3MS == 2147483648LU))));
- if ((mem__2MS == (void *)NULL)) {
- cap__3MS=(__UINTEGER_32)(cap__3MS >> 1);
- };
- capacity_max__4KD=cap__3MS;
- begin_memory__XLB=((__POINTER )(malloc((cap__3MS))));
- };
- old_size__5MS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__5MS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__ANS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__5MS))));
- block__ANS->previous_linear__CZ= 4294967295LU;
- block__ANS->size_and_id__DZ= 67108858;
- block__ANS->next_free__EZ=first_free__2KG;
- block__ANS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__ANS;
- };
- first_free__2KG=block__ANS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__ANS);
- blc__XMS=block__ANS;
- };
- ((__MEMORY *)blc__XMS)->size_and_id__DZ=(__UINTEGER_32)(blc__XMS->size_and_id__DZ - 4096);
- Self__BNS=((__MEMORY *)blc__XMS);
- result__CNS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__BNS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__BNS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__XMS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__DNS=((__MEMORY *)blc__XMS);
- prev__ENS=Self__DNS->previous_free__FZ;
- next__FNS=Self__DNS->next_free__EZ;
- if (((void *)prev__ENS == (void *)NULL)) {
- first_free__2KG=next__FNS;
- } else {
- ((__MEMORY *)prev__ENS)->next_free__EZ=next__FNS;
- };
- if (((void *)next__FNS != (void *)NULL)) {
- ((__MEMORY *)next__FNS)->previous_free__FZ=prev__ENS;
- };
- pv__ZMS=blc__XMS->previous_linear__CZ;
- if ((pv__ZMS != 4294967295LU)) {
- prev__YMS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__ZMS))));
- ((__MEMORY *)prev__YMS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__YMS->size_and_id__DZ + blc__XMS->size_and_id__DZ) + 8);
- last_block[(idx__WMS)] = (prev__YMS);
- };
- };
- ((__POINTER *)result__CNS)[ 0]=((__POINTER )new_size__R3R);
- next__T3R=(void *)((unsigned long)result__CNS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__T3R)[ 0]=NULL;
- ((__POINTER *)ptr_table__S3R)[ 0]=next__T3R;
- } else {
- ((__POINTER *)result__U3R)[ 0]=(void *)((unsigned long)((__POINTER *)next__T3R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__U3R=next__T3R;
- };
- };
- ((__POINTER *)result__U3R)[ 0]=((__POINTER ) 3);
- result__M3R=(void *)((unsigned long)result__U3R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__OAS=first_free__2KG;
- while ((((void *)result__OAS != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__OAS)->size_and_id__DZ & 4294967292LU) < new_size__O3R))) {
- result__OAS=result__OAS->next_free__EZ;
- };
- if (((void *)result__OAS == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__0AS=((__POINTER )(NULL));
- cap__1AS= 33554432;
- do {
- cap__1AS=(__UINTEGER_32)(cap__1AS << 1);
- mem__0AS=((__POINTER )(malloc((cap__1AS))));
- if ((mem__0AS != (void *)NULL)) {
- free((mem__0AS));
- };
- } while ((! ((mem__0AS == (void *)NULL) || (cap__1AS == 2147483648LU))));
- if ((mem__0AS == (void *)NULL)) {
- cap__1AS=(__UINTEGER_32)(cap__1AS >> 1);
- };
- capacity_max__4KD=cap__1AS;
- begin_memory__XLB=((__POINTER )(malloc((cap__1AS))));
- };
- old_size__3AS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__3AS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__4AS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__3AS))));
- block__4AS->previous_linear__CZ= 4294967295LU;
- block__4AS->size_and_id__DZ= 67108858;
- block__4AS->next_free__EZ=first_free__2KG;
- block__4AS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__4AS;
- };
- first_free__2KG=block__4AS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__4AS);
- result__OAS=block__4AS;
- };
- Self__RAS=((__MEMORY *)result__OAS);
- idx__SAS=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__OAS)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__TAS=NULL;
- prev__UAS=Self__RAS->previous_free__FZ;
- next__VAS=Self__RAS->next_free__EZ;
- if (((void *)prev__UAS == (void *)NULL)) {
- first_free__2KG=next__VAS;
- } else {
- ((__MEMORY *)prev__UAS)->next_free__EZ=next__VAS;
- };
- if (((void *)next__VAS != (void *)NULL)) {
- ((__MEMORY *)next__VAS)->previous_free__FZ=prev__UAS;
- };
- siz__WAS=Self__RAS->size_and_id__DZ;
- new_size__XAS=(__UINTEGER_32)(siz__WAS - new_size__O3R);
- if ((new_size__XAS > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__WAS=new_size__O3R;
- new__TAS=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__RAS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O3R))));
- ((__MEMORY *)new__TAS)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__RAS) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__TAS)->size_and_id__DZ=(__UINTEGER_32)(new_size__XAS - 8);
- Self__YAS=((__MEMORY *)new__TAS);
- Self__YAS->next_free__EZ=first_free__2KG;
- Self__YAS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__YAS;
- };
- first_free__2KG=Self__YAS;
- if (((__UINTEGER_32)(((__MEMORY *)new__TAS)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__SAS)] = (new__TAS);
- } else {
- Self__ZAS=((__MEMORY *)new__TAS);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ZAS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ZAS->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__TAS)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__RAS->size_and_id__DZ=(__UINTEGER_32)(siz__WAS | 1);
- result__M3R=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__OAS)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__V3R=((void **)result__M3R);
- Self__W3R=(__INTEGER)(new_count__0T - 1);
- while ((Self__W3R >= 0)) {
- Result__V3R[Self__W3R]=NULL;
- Self__W3R=(__INTEGER)(Self__W3R - 1);
- };
- Self__FOC->parent_arrayed_collection__TH.storage__ZOC=Result__V3R;
- Self__FOC->parent_arrayed_collection__TH.capacity__OOC=new_count__0T;
- };
- Self__FOC->parent_arrayed_collection__TH.upper__WH=(__INTEGER)(- 1);
- result__ZP=result__EY;
- Self__FU= 0;
- limit_up__GU=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__FU <= limit_up__GU)) {
- arg__0P=((__CHARACTER *)(arg_vector[(Self__FU)]));
- Self__3TD=((__CHARACTER *)arg__0P);
- idx__JUD= 0;
- while ((! ((idx__JUD > 1024) || ('\0' == Self__3TD[idx__JUD])))) {
- idx__JUD=(__INTEGER)(idx__JUD + 1);
- };
- str__1P=create__LV(idx__JUD);
- Self__0VD=((__STRING *)str__1P);
- p__1VD=arg__0P;
- i__2VD= 0;
- Self__0VD->count__CS= 0;
- while ((((__CHARACTER *)p__1VD)[i__2VD] != '\0')) {
- ch__USD=((__CHARACTER *)p__1VD)[i__2VD];
- new_capacity__VSD= 0;
- if ((Self__0VD->capacity__ES <= Self__0VD->count__CS)) {
- if ((Self__0VD->capacity__ES == 0)) {
- Self__0VD->capacity__ES= 32;
- result__03R=((__POINTER )(NULL));
- a__13R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__23R=(__UINTEGER_32)((__UINTEGER_32)( 32 + a__13R) & (__UINTEGER_32)(~ a__13R));
- new_size2__33R=(__UINTEGER_32)(new_size__23R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__33R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__43R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__53R=(__UINTEGER_32)((__UINTEGER_32)(new_size2__33R + a__43R) & (__UINTEGER_32)(~ a__43R));
- ptr_table__A4R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__53R / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__B4R=((__POINTER )(NULL));
- result__C4R=((__POINTER *)ptr_table__A4R)[ 0];
- if ((result__C4R == (void *)NULL)) {
- idx__HNS= 0;
- blc__INS=NULL;
- prev__JNS=NULL;
- pv__KNS= 0;
- while_do__F3B__MNS:
- {
- if ((idx__HNS < nb_page__UYB)) {
- blc__INS=((__MEMORY *)(last_block[(idx__HNS)]));
- __tmp__LNS=(((__UINTEGER_32)(((__MEMORY *)blc__INS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__INS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__LNS=FALSE__;
- };
- if (__tmp__LNS) {
- idx__HNS=(__UINTEGER_32)(idx__HNS + 1);
- goto while_do__F3B__MNS;
- };
- };
- if ((idx__HNS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__NNS=((__POINTER )(NULL));
- cap__ONS= 33554432;
- do {
- cap__ONS=(__UINTEGER_32)(cap__ONS << 1);
- mem__NNS=((__POINTER )(malloc((cap__ONS))));
- if ((mem__NNS != (void *)NULL)) {
- free((mem__NNS));
- };
- } while ((! ((mem__NNS == (void *)NULL) || (cap__ONS == 2147483648LU))));
- if ((mem__NNS == (void *)NULL)) {
- cap__ONS=(__UINTEGER_32)(cap__ONS >> 1);
- };
- capacity_max__4KD=cap__ONS;
- begin_memory__XLB=((__POINTER )(malloc((cap__ONS))));
- };
- old_size__QNS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__QNS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__RNS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__QNS))));
- block__RNS->previous_linear__CZ= 4294967295LU;
- block__RNS->size_and_id__DZ= 67108858;
- block__RNS->next_free__EZ=first_free__2KG;
- block__RNS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__RNS;
- };
- first_free__2KG=block__RNS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__RNS);
- blc__INS=block__RNS;
- };
- ((__MEMORY *)blc__INS)->size_and_id__DZ=(__UINTEGER_32)(blc__INS->size_and_id__DZ - 4096);
- Self__SNS=((__MEMORY *)blc__INS);
- result__TNS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__SNS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__SNS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__INS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__UNS=((__MEMORY *)blc__INS);
- prev__VNS=Self__UNS->previous_free__FZ;
- next__WNS=Self__UNS->next_free__EZ;
- if (((void *)prev__VNS == (void *)NULL)) {
- first_free__2KG=next__WNS;
- } else {
- ((__MEMORY *)prev__VNS)->next_free__EZ=next__WNS;
- };
- if (((void *)next__WNS != (void *)NULL)) {
- ((__MEMORY *)next__WNS)->previous_free__FZ=prev__VNS;
- };
- pv__KNS=blc__INS->previous_linear__CZ;
- if ((pv__KNS != 4294967295LU)) {
- prev__JNS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__KNS))));
- ((__MEMORY *)prev__JNS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__JNS->size_and_id__DZ + blc__INS->size_and_id__DZ) + 8);
- last_block[(idx__HNS)] = (prev__JNS);
- };
- };
- ((__POINTER *)result__TNS)[ 0]=((__POINTER )new_size__53R);
- result__C4R=(void *)((unsigned long)result__TNS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__B4R=(void *)((unsigned long)result__C4R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53R)));
- ((__POINTER *)next__B4R)[ 0]=NULL;
- ((__POINTER *)ptr_table__A4R)[ 0]=next__B4R;
- } else {
- next__B4R=((__POINTER *)result__C4R)[ 0];
- if ((next__B4R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C4R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__53R << 1)) <= 4096)) {
- next__B4R=(void *)((unsigned long)result__C4R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53R)));
- } else {
- idx__YNS= 0;
- blc__ZNS=NULL;
- prev__0NS=NULL;
- pv__1NS= 0;
- while_do__F3B__3NS:
- {
- if ((idx__YNS < nb_page__UYB)) {
- blc__ZNS=((__MEMORY *)(last_block[(idx__YNS)]));
- __tmp__2NS=(((__UINTEGER_32)(((__MEMORY *)blc__ZNS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__ZNS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__2NS=FALSE__;
- };
- if (__tmp__2NS) {
- idx__YNS=(__UINTEGER_32)(idx__YNS + 1);
- goto while_do__F3B__3NS;
- };
- };
- if ((idx__YNS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__4NS=((__POINTER )(NULL));
- cap__5NS= 33554432;
- do {
- cap__5NS=(__UINTEGER_32)(cap__5NS << 1);
- mem__4NS=((__POINTER )(malloc((cap__5NS))));
- if ((mem__4NS != (void *)NULL)) {
- free((mem__4NS));
- };
- } while ((! ((mem__4NS == (void *)NULL) || (cap__5NS == 2147483648LU))));
- if ((mem__4NS == (void *)NULL)) {
- cap__5NS=(__UINTEGER_32)(cap__5NS >> 1);
- };
- capacity_max__4KD=cap__5NS;
- begin_memory__XLB=((__POINTER )(malloc((cap__5NS))));
- };
- old_size__BOS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__BOS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__COS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__BOS))));
- block__COS->previous_linear__CZ= 4294967295LU;
- block__COS->size_and_id__DZ= 67108858;
- block__COS->next_free__EZ=first_free__2KG;
- block__COS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__COS;
- };
- first_free__2KG=block__COS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__COS);
- blc__ZNS=block__COS;
- };
- ((__MEMORY *)blc__ZNS)->size_and_id__DZ=(__UINTEGER_32)(blc__ZNS->size_and_id__DZ - 4096);
- Self__DOS=((__MEMORY *)blc__ZNS);
- result__EOS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__DOS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__DOS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__ZNS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__FOS=((__MEMORY *)blc__ZNS);
- prev__GOS=Self__FOS->previous_free__FZ;
- next__HOS=Self__FOS->next_free__EZ;
- if (((void *)prev__GOS == (void *)NULL)) {
- first_free__2KG=next__HOS;
- } else {
- ((__MEMORY *)prev__GOS)->next_free__EZ=next__HOS;
- };
- if (((void *)next__HOS != (void *)NULL)) {
- ((__MEMORY *)next__HOS)->previous_free__FZ=prev__GOS;
- };
- pv__1NS=blc__ZNS->previous_linear__CZ;
- if ((pv__1NS != 4294967295LU)) {
- prev__0NS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__1NS))));
- ((__MEMORY *)prev__0NS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__0NS->size_and_id__DZ + blc__ZNS->size_and_id__DZ) + 8);
- last_block[(idx__YNS)] = (prev__0NS);
- };
- };
- ((__POINTER *)result__EOS)[ 0]=((__POINTER )new_size__53R);
- next__B4R=(void *)((unsigned long)result__EOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__B4R)[ 0]=NULL;
- ((__POINTER *)ptr_table__A4R)[ 0]=next__B4R;
- } else {
- ((__POINTER *)result__C4R)[ 0]=(void *)((unsigned long)((__POINTER *)next__B4R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C4R=next__B4R;
- };
- };
- ((__POINTER *)result__C4R)[ 0]=((__POINTER ) 3);
- result__03R=(void *)((unsigned long)result__C4R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__5AS=first_free__2KG;
- while ((((void *)result__5AS != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__5AS)->size_and_id__DZ & 4294967292LU) < new_size__23R))) {
- result__5AS=result__5AS->next_free__EZ;
- };
- if (((void *)result__5AS == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__LBS=((__POINTER )(NULL));
- cap__MBS= 33554432;
- do {
- cap__MBS=(__UINTEGER_32)(cap__MBS << 1);
- mem__LBS=((__POINTER )(malloc((cap__MBS))));
- if ((mem__LBS != (void *)NULL)) {
- free((mem__LBS));
- };
- } while ((! ((mem__LBS == (void *)NULL) || (cap__MBS == 2147483648LU))));
- if ((mem__LBS == (void *)NULL)) {
- cap__MBS=(__UINTEGER_32)(cap__MBS >> 1);
- };
- capacity_max__4KD=cap__MBS;
- begin_memory__XLB=((__POINTER )(malloc((cap__MBS))));
- };
- old_size__OBS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__OBS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__PBS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__OBS))));
- block__PBS->previous_linear__CZ= 4294967295LU;
- block__PBS->size_and_id__DZ= 67108858;
- block__PBS->next_free__EZ=first_free__2KG;
- block__PBS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__PBS;
- };
- first_free__2KG=block__PBS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__PBS);
- result__5AS=block__PBS;
- };
- Self__CBS=((__MEMORY *)result__5AS);
- idx__DBS=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__5AS)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__EBS=NULL;
- prev__FBS=Self__CBS->previous_free__FZ;
- next__GBS=Self__CBS->next_free__EZ;
- if (((void *)prev__FBS == (void *)NULL)) {
- first_free__2KG=next__GBS;
- } else {
- ((__MEMORY *)prev__FBS)->next_free__EZ=next__GBS;
- };
- if (((void *)next__GBS != (void *)NULL)) {
- ((__MEMORY *)next__GBS)->previous_free__FZ=prev__FBS;
- };
- siz__HBS=Self__CBS->size_and_id__DZ;
- new_size__IBS=(__UINTEGER_32)(siz__HBS - new_size__23R);
- if ((new_size__IBS > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__HBS=new_size__23R;
- new__EBS=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__CBS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__23R))));
- ((__MEMORY *)new__EBS)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__CBS) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__EBS)->size_and_id__DZ=(__UINTEGER_32)(new_size__IBS - 8);
- Self__JBS=((__MEMORY *)new__EBS);
- Self__JBS->next_free__EZ=first_free__2KG;
- Self__JBS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__JBS;
- };
- first_free__2KG=Self__JBS;
- if (((__UINTEGER_32)(((__MEMORY *)new__EBS)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__DBS)] = (new__EBS);
- } else {
- Self__KBS=((__MEMORY *)new__EBS);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__KBS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__KBS->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__EBS)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__CBS->size_and_id__DZ=(__UINTEGER_32)(siz__HBS | 1);
- result__03R=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__5AS)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__D4R=((__CHARACTER *)result__03R);
- Self__E4R= 31;
- while ((Self__E4R >= 0)) {
- Result__D4R[Self__E4R]='\0';
- Self__E4R=(__INTEGER)(Self__E4R - 1);
- };
- Self__0VD->storage__CNC=Result__D4R;
- } else {
- new_capacity__VSD=(__INTEGER)(Self__0VD->capacity__ES << 1);
- __tmp__NTD=Self__0VD->storage__CNC;
- __tmp__OTD=Self__0VD->capacity__ES;
- new__E2G=((__CHARACTER *)realloc_dynamic__old_size__new_size__FPH(((__POINTER )((__CHARACTER *)__tmp__NTD)),((__UINTEGER_32 )__tmp__OTD),((__UINTEGER_32 )new_capacity__VSD)));
- __tmp__X2G=(__INTEGER)(new_capacity__VSD - 1);
- Self__YDL=__tmp__OTD;
- while ((Self__YDL <= __tmp__X2G)) {
- new__E2G[Self__YDL]='\0';
- Self__YDL=(__INTEGER)(Self__YDL + 1);
- };
- Self__0VD->storage__CNC=new__E2G;
- Self__0VD->capacity__ES=new_capacity__VSD;
- };
- };
- ((__CHARACTER *)Self__0VD->storage__CNC)[Self__0VD->count__CS]=ch__USD;
- Self__0VD->count__CS=(__INTEGER)(Self__0VD->count__CS + 1);
- i__2VD=(__INTEGER)(i__2VD + 1);
- };
- Self__UWD=((__FAST_ARRAYoSTRINGo *)result__ZP);
- new_capacity__WWD= 0;
- if (((__INTEGER)(Self__UWD->parent_arrayed_collection__TH.upper__WH + 1) <= (__INTEGER)(Self__UWD->parent_arrayed_collection__TH.capacity__OOC - 1))) {
- Self__UWD->parent_arrayed_collection__TH.upper__WH=(__INTEGER)(Self__UWD->parent_arrayed_collection__TH.upper__WH + 1);
- __tmp__EXD=TRUE__;
- } else {
- __tmp__EXD=FALSE__;
- };
- if ((! __tmp__EXD)) {
- if ((Self__UWD->parent_arrayed_collection__TH.capacity__OOC == 0)) {
- sz__QYR=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) << 1));
- result__OYR=((__POINTER )(NULL));
- a__PYR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RYR=(__UINTEGER_32)((__UINTEGER_32)(sz__QYR + a__PYR) & (__UINTEGER_32)(~ a__PYR));
- new_size2__SYR=(__UINTEGER_32)(new_size__RYR + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__SYR <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__UYR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VYR=(__UINTEGER_32)((__UINTEGER_32)(new_size2__SYR + a__UYR) & (__UINTEGER_32)(~ a__UYR));
- ptr_table__RZR=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VYR / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QZR=((__POINTER )(NULL));
- result__SZR=((__POINTER *)ptr_table__RZR)[ 0];
- if ((result__SZR == (void *)NULL)) {
- idx__JOS= 0;
- blc__KOS=NULL;
- prev__LOS=NULL;
- pv__MOS= 0;
- while_do__F3B__OOS:
- {
- if ((idx__JOS < nb_page__UYB)) {
- blc__KOS=((__MEMORY *)(last_block[(idx__JOS)]));
- __tmp__NOS=(((__UINTEGER_32)(((__MEMORY *)blc__KOS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__KOS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__NOS=FALSE__;
- };
- if (__tmp__NOS) {
- idx__JOS=(__UINTEGER_32)(idx__JOS + 1);
- goto while_do__F3B__OOS;
- };
- };
- if ((idx__JOS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__POS=((__POINTER )(NULL));
- cap__QOS= 33554432;
- do {
- cap__QOS=(__UINTEGER_32)(cap__QOS << 1);
- mem__POS=((__POINTER )(malloc((cap__QOS))));
- if ((mem__POS != (void *)NULL)) {
- free((mem__POS));
- };
- } while ((! ((mem__POS == (void *)NULL) || (cap__QOS == 2147483648LU))));
- if ((mem__POS == (void *)NULL)) {
- cap__QOS=(__UINTEGER_32)(cap__QOS >> 1);
- };
- capacity_max__4KD=cap__QOS;
- begin_memory__XLB=((__POINTER )(malloc((cap__QOS))));
- };
- old_size__SOS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__SOS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__TOS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__SOS))));
- block__TOS->previous_linear__CZ= 4294967295LU;
- block__TOS->size_and_id__DZ= 67108858;
- block__TOS->next_free__EZ=first_free__2KG;
- block__TOS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__TOS;
- };
- first_free__2KG=block__TOS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__TOS);
- blc__KOS=block__TOS;
- };
- ((__MEMORY *)blc__KOS)->size_and_id__DZ=(__UINTEGER_32)(blc__KOS->size_and_id__DZ - 4096);
- Self__UOS=((__MEMORY *)blc__KOS);
- result__VOS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__UOS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__UOS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__KOS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__WOS=((__MEMORY *)blc__KOS);
- prev__XOS=Self__WOS->previous_free__FZ;
- next__YOS=Self__WOS->next_free__EZ;
- if (((void *)prev__XOS == (void *)NULL)) {
- first_free__2KG=next__YOS;
- } else {
- ((__MEMORY *)prev__XOS)->next_free__EZ=next__YOS;
- };
- if (((void *)next__YOS != (void *)NULL)) {
- ((__MEMORY *)next__YOS)->previous_free__FZ=prev__XOS;
- };
- pv__MOS=blc__KOS->previous_linear__CZ;
- if ((pv__MOS != 4294967295LU)) {
- prev__LOS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__MOS))));
- ((__MEMORY *)prev__LOS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__LOS->size_and_id__DZ + blc__KOS->size_and_id__DZ) + 8);
- last_block[(idx__JOS)] = (prev__LOS);
- };
- };
- ((__POINTER *)result__VOS)[ 0]=((__POINTER )new_size__VYR);
- result__SZR=(void *)((unsigned long)result__VOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__QZR=(void *)((unsigned long)result__SZR - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VYR)));
- ((__POINTER *)next__QZR)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZR)[ 0]=next__QZR;
- } else {
- next__QZR=((__POINTER *)result__SZR)[ 0];
- if ((next__QZR == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SZR - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__VYR << 1)) <= 4096)) {
- next__QZR=(void *)((unsigned long)result__SZR - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VYR)));
- } else {
- idx__GYB= 0;
- blc__JYB=NULL;
- prev__KYB=NULL;
- pv__NYB= 0;
- while_do__F3B:
- {
- if ((idx__GYB < nb_page__UYB)) {
- blc__JYB=((__MEMORY *)(last_block[(idx__GYB)]));
- __tmp__NZB=(((__UINTEGER_32)(((__MEMORY *)blc__JYB)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__JYB)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__NZB=FALSE__;
- };
- if (__tmp__NZB) {
- idx__GYB=(__UINTEGER_32)(idx__GYB + 1);
- goto while_do__F3B;
- };
- };
- if ((idx__GYB >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__VBS=((__POINTER )(NULL));
- cap__WBS= 33554432;
- do {
- cap__WBS=(__UINTEGER_32)(cap__WBS << 1);
- mem__VBS=((__POINTER )(malloc((cap__WBS))));
- if ((mem__VBS != (void *)NULL)) {
- free((mem__VBS));
- };
- } while ((! ((mem__VBS == (void *)NULL) || (cap__WBS == 2147483648LU))));
- if ((mem__VBS == (void *)NULL)) {
- cap__WBS=(__UINTEGER_32)(cap__WBS >> 1);
- };
- capacity_max__4KD=cap__WBS;
- begin_memory__XLB=((__POINTER )(malloc((cap__WBS))));
- };
- old_size__YBS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__YBS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__ZBS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__YBS))));
- block__ZBS->previous_linear__CZ= 4294967295LU;
- block__ZBS->size_and_id__DZ= 67108858;
- block__ZBS->next_free__EZ=first_free__2KG;
- block__ZBS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__ZBS;
- };
- first_free__2KG=block__ZBS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__ZBS);
- blc__JYB=block__ZBS;
- };
- ((__MEMORY *)blc__JYB)->size_and_id__DZ=(__UINTEGER_32)(blc__JYB->size_and_id__DZ - 4096);
- Self__TKR=((__MEMORY *)blc__JYB);
- result__LYB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TKR) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TKR->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__JYB)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__VUR=((__MEMORY *)blc__JYB);
- prev__WUR=Self__VUR->previous_free__FZ;
- next__XUR=Self__VUR->next_free__EZ;
- if (((void *)prev__WUR == (void *)NULL)) {
- first_free__2KG=next__XUR;
- } else {
- ((__MEMORY *)prev__WUR)->next_free__EZ=next__XUR;
- };
- if (((void *)next__XUR != (void *)NULL)) {
- ((__MEMORY *)next__XUR)->previous_free__FZ=prev__WUR;
- };
- pv__NYB=blc__JYB->previous_linear__CZ;
- if ((pv__NYB != 4294967295LU)) {
- prev__KYB=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__NYB))));
- ((__MEMORY *)prev__KYB)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__KYB->size_and_id__DZ + blc__JYB->size_and_id__DZ) + 8);
- last_block[(idx__GYB)] = (prev__KYB);
- };
- };
- ((__POINTER *)result__LYB)[ 0]=((__POINTER )new_size__VYR);
- next__QZR=(void *)((unsigned long)result__LYB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__QZR)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZR)[ 0]=next__QZR;
- } else {
- ((__POINTER *)result__SZR)[ 0]=(void *)((unsigned long)((__POINTER *)next__QZR)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SZR=next__QZR;
- };
- };
- ((__POINTER *)result__SZR)[ 0]=((__POINTER ) 3);
- result__OYR=(void *)((unsigned long)result__SZR - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__3JG=first_free__2KG;
- while ((((void *)result__3JG != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__3JG)->size_and_id__DZ & 4294967292LU) < new_size__RYR))) {
- result__3JG=result__3JG->next_free__EZ;
- };
- if (((void *)result__3JG == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__QBS=((__POINTER )(NULL));
- cap__RBS= 33554432;
- do {
- cap__RBS=(__UINTEGER_32)(cap__RBS << 1);
- mem__QBS=((__POINTER )(malloc((cap__RBS))));
- if ((mem__QBS != (void *)NULL)) {
- free((mem__QBS));
- };
- } while ((! ((mem__QBS == (void *)NULL) || (cap__RBS == 2147483648LU))));
- if ((mem__QBS == (void *)NULL)) {
- cap__RBS=(__UINTEGER_32)(cap__RBS >> 1);
- };
- capacity_max__4KD=cap__RBS;
- begin_memory__XLB=((__POINTER )(malloc((cap__RBS))));
- };
- old_size__TBS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__TBS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__UBS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__TBS))));
- block__UBS->previous_linear__CZ= 4294967295LU;
- block__UBS->size_and_id__DZ= 67108858;
- block__UBS->next_free__EZ=first_free__2KG;
- block__UBS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__UBS;
- };
- first_free__2KG=block__UBS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__UBS);
- result__3JG=block__UBS;
- };
- Self__CDH=((__MEMORY *)result__3JG);
- idx__EDH=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__3JG)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__LDH=NULL;
- prev__U3H=Self__CDH->previous_free__FZ;
- next__V3H=Self__CDH->next_free__EZ;
- if (((void *)prev__U3H == (void *)NULL)) {
- first_free__2KG=next__V3H;
- } else {
- ((__MEMORY *)prev__U3H)->next_free__EZ=next__V3H;
- };
- if (((void *)next__V3H != (void *)NULL)) {
- ((__MEMORY *)next__V3H)->previous_free__FZ=prev__U3H;
- };
- siz__FDH=Self__CDH->size_and_id__DZ;
- new_size__IDH=(__UINTEGER_32)(siz__FDH - new_size__RYR);
- if ((new_size__IDH > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__FDH=new_size__RYR;
- new__LDH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__CDH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RYR))));
- ((__MEMORY *)new__LDH)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__CDH) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__LDH)->size_and_id__DZ=(__UINTEGER_32)(new_size__IDH - 8);
- Self__BYG=((__MEMORY *)new__LDH);
- Self__BYG->next_free__EZ=first_free__2KG;
- Self__BYG->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__BYG;
- };
- first_free__2KG=Self__BYG;
- if (((__UINTEGER_32)(((__MEMORY *)new__LDH)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__EDH)] = (new__LDH);
- } else {
- Self__HGR=((__MEMORY *)new__LDH);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__HGR) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__HGR->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__LDH)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__CDH->size_and_id__DZ=(__UINTEGER_32)(siz__FDH | 1);
- result__OYR=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__3JG)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__FVF=((void **)result__OYR);
- Self__NXH= 1;
- while ((Self__NXH >= 0)) {
- Result__FVF[Self__NXH]=NULL;
- Self__NXH=(__INTEGER)(Self__NXH - 1);
- };
- Self__UWD->parent_arrayed_collection__TH.storage__ZOC=Result__FVF;
- Self__UWD->parent_arrayed_collection__TH.capacity__OOC= 2;
- Self__UWD->parent_arrayed_collection__TH.upper__WH= 0;
- } else {
- new_capacity__WWD=(__INTEGER)(Self__UWD->parent_arrayed_collection__TH.capacity__OOC << 1);
- __tmp__ZXD=Self__UWD->parent_arrayed_collection__TH.storage__ZOC;
- __tmp__0XD=Self__UWD->parent_arrayed_collection__TH.capacity__OOC;
- new__13G=((void **)realloc_dynamic__old_size__new_size__FPH(((__POINTER )((void **)__tmp__ZXD)),((__UINTEGER_32 )(__INTEGER)(__tmp__0XD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__WWD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__O4G=(__INTEGER)(new_capacity__WWD - 1);
- Self__XFL=__tmp__0XD;
- while ((Self__XFL <= __tmp__O4G)) {
- new__13G[Self__XFL]=NULL;
- Self__XFL=(__INTEGER)(Self__XFL + 1);
- };
- Self__UWD->parent_arrayed_collection__TH.storage__ZOC=new__13G;
- Self__UWD->parent_arrayed_collection__TH.capacity__OOC=new_capacity__WWD;
- Self__UWD->parent_arrayed_collection__TH.upper__WH=(__INTEGER)(Self__UWD->parent_arrayed_collection__TH.upper__WH + 1);
- };
- };
- ((void **)Self__UWD->parent_arrayed_collection__TH.storage__ZOC)[Self__UWD->parent_arrayed_collection__TH.upper__WH]=str__1P;
- Self__FU=(__INTEGER)(Self__FU + 1);
- };
- two_third__DD=(__REAL_64)(((__REAL_64 ) 2) / ((__REAL_64 )3.0));
- string_tmp__JO=create__LV( 32);
- n__Z= 0;
- a1__CB=((__REAL_64 ) 0);
- a2__FB=((__REAL_64 ) 0);
- a3__IB=((__REAL_64 ) 0);
- a4__LB=((__REAL_64 ) 0);
- a5__OB=((__REAL_64 ) 0);
- a6__RB=((__REAL_64 ) 0);
- a7__UB=((__REAL_64 ) 0);
- a8__XB=((__REAL_64 ) 0);
- a9__0B=((__REAL_64 ) 0);
- nr__AC=((__REAL_64 ) 0);
- if ((result__EY->parent_arrayed_collection__TH.upper__WH == 1)) {
- Self__WTK=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__EY)->parent_arrayed_collection__TH.storage__ZOC)[ 1]);
- state__ZTK= 0;
- cc__0TK='\0';
- negative__1TK=FALSE__;
- result__2TK= 0;
- i__YTK= 1;
- __tmp__2XR=Self__WTK->count__CS;
- __tmp__3XR=Self__WTK->storage__CNC;
- __tmp__4XR=Self__WTK->count__CS;
- while ((i__YTK <= __tmp__2XR)) {
- cc__0TK=((__CHARACTER *)__tmp__3XR)[(__INTEGER)(i__YTK - 1)];
- if ((state__ZTK == 0)) {
- if ((((((((cc__0TK == ' ') || (cc__0TK == '\t')) || (cc__0TK == '\n')) || (cc__0TK == '\r')) || (cc__0TK == '\0')) || (cc__0TK == '\f')) || (cc__0TK == '\v'))) {
- __tmp__IVK=TRUE__;
- } else {
- result__TGP=(cc__0TK == '+');
- if (result__TGP) {
- state__ZTK= 1;
- };
- __tmp__IVK=result__TGP;
- };
- if ((! __tmp__IVK)) {
- if ((cc__0TK == '-')) {
- negative__1TK=TRUE__;
- state__ZTK= 1;
- } else {
- result__2TK=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__0TK)) - 48);
- state__ZTK= 2;
- };
- };
- __tmp__1VK=TRUE__;
- } else {
- __tmp__1VK=FALSE__;
- };
- if (__tmp__1VK) {
- __tmp__QWK=TRUE__;
- } else {
- result__Z0N=(state__ZTK == 1);
- if (result__Z0N) {
- result__2TK=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__0TK)) - 48);
- if (negative__1TK) {
- result__2TK=(__INTEGER)(- result__2TK);
- };
- state__ZTK= 2;
- };
- __tmp__QWK=result__Z0N;
- };
- if (__tmp__QWK) {
- __tmp__XXK=TRUE__;
- } else {
- result__L1N=(state__ZTK == 2);
- if (result__L1N) {
- result__JOO=FALSE__;
- if ((((__INTEGER_8 )cc__0TK) >= ((__INTEGER_8 )'0'))) {
- result__JOO=(((__INTEGER_8 )cc__0TK) <= ((__INTEGER_8 )'9'));
- };
- if (result__JOO) {
- if (negative__1TK) {
- result__2TK=(__INTEGER)((__INTEGER)( 10 * result__2TK) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__0TK)) - 48));
- } else {
- result__2TK=(__INTEGER)((__INTEGER)( 10 * result__2TK) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__0TK)) - 48));
- };
- } else {
- state__ZTK= 3;
- };
- };
- __tmp__XXK=result__L1N;
- };
- if ((! __tmp__XXK)) {
- if ((state__ZTK == 3)) {
- i__YTK=__tmp__4XR;
- };
- };
- i__YTK=(__INTEGER)(i__YTK + 1);
- };
- n__Z=result__2TK;
- nr__AC=((__REAL_64 )result__2TK);
- };
- Self__TI=((__REAL_64 ) 0);
- limit_up__UI=(__REAL_64)(nr__AC - ((__REAL_64 )1.0));
- while ((Self__TI <= limit_up__UI)) {
- a1__CB=((__REAL_64 )((a1__CB) + (((__REAL_64 )(pow((two_third__DD),(Self__TI)))))));
- Self__TI=((__REAL_64 )((Self__TI) + (((__REAL_64 ) 1))));
- };
- Self__WJ=((__REAL_64 ) 1);
- limit_up__XJ=nr__AC;
- while ((Self__WJ <= limit_up__XJ)) {
- a2__FB=((__REAL_64 )((a2__FB) + ((__REAL_64)(((__REAL_64 ) 1) / ((__REAL_64 )(sqrt((Self__WJ))))))));
- Self__WJ=((__REAL_64 )((Self__WJ) + (((__REAL_64 ) 1))));
- };
- Self__KK=((__REAL_64 ) 1);
- limit_up__LK=nr__AC;
- while ((Self__KK <= limit_up__LK)) {
- a3__IB=((__REAL_64 )((a3__IB) + ((__REAL_64)(((__REAL_64 ) 1) / (__REAL_64)(Self__KK * ((__REAL_64 )((Self__KK) + (((__REAL_64 )1.0)))))))));
- Self__KK=((__REAL_64 )((Self__KK) + (((__REAL_64 ) 1))));
- };
- Self__4K=((__REAL_64 ) 1);
- limit_up__5K=nr__AC;
- while ((Self__4K <= limit_up__5K)) {
- a4__LB=((__REAL_64 )((a4__LB) + ((__REAL_64)(((__REAL_64 ) 1) / (__REAL_64)((__REAL_64)((__REAL_64)((__REAL_64)(((__REAL_64 )(sin((Self__4K)))) * ((__REAL_64 )(sin((Self__4K))))) * Self__4K) * Self__4K) * Self__4K)))));
- Self__4K=((__REAL_64 )((Self__4K) + (((__REAL_64 ) 1))));
- };
- Self__SL=((__REAL_64 ) 1);
- limit_up__TL=nr__AC;
- while ((Self__SL <= limit_up__TL)) {
- a5__OB=((__REAL_64 )((a5__OB) + ((__REAL_64)(((__REAL_64 ) 1) / (__REAL_64)((__REAL_64)((__REAL_64)((__REAL_64)(((__REAL_64 )(cos((Self__SL)))) * ((__REAL_64 )(cos((Self__SL))))) * Self__SL) * Self__SL) * Self__SL)))));
- Self__SL=((__REAL_64 )((Self__SL) + (((__REAL_64 ) 1))));
- };
- Self__DM= 1;
- limit_up__EM=n__Z;
- while ((Self__DM <= limit_up__EM)) {
- a6__RB=((__REAL_64 )((a6__RB) + ((__REAL_64)(((__REAL_64 ) 1) / ((__REAL_64 )Self__DM)))));
- Self__DM=(__INTEGER)(Self__DM + 1);
- };
- Self__VM=((__REAL_64 ) 1);
- limit_up__WM=nr__AC;
- while ((Self__VM <= limit_up__WM)) {
- a7__UB=((__REAL_64 )((a7__UB) + ((__REAL_64)(((__REAL_64 ) 1) / (__REAL_64)(Self__VM * Self__VM)))));
- Self__VM=((__REAL_64 )((Self__VM) + (((__REAL_64 ) 1))));
- };
- alt__3B=((__REAL_64 )1.0);
- Self__HN= 1;
- limit_up__IN=n__Z;
- while ((Self__HN <= limit_up__IN)) {
- a8__XB=((__REAL_64 )((a8__XB) + ((__REAL_64)(alt__3B / ((__REAL_64 )Self__HN)))));
- alt__3B=(__REAL_64)(((__REAL_64 ) 0) - alt__3B);
- Self__HN=(__INTEGER)(Self__HN + 1);
- };
- alt__3B=((__REAL_64 )1.0);
- Self__XN= 1;
- limit_up__YN=n__Z;
- while ((Self__XN <= limit_up__YN)) {
- a9__0B=((__REAL_64 )((a9__0B) + ((__REAL_64)(alt__3B / ((__REAL_64 )(__INTEGER)((__INTEGER)(Self__XN << 1) - 1))))));
- alt__3B=(__REAL_64)(((__REAL_64 ) 0) - alt__3B);
- Self__XN=(__INTEGER)(Self__XN + 1);
- };
- print_format_c__GO(a1__CB);
- print__PO((&__string_2));
- print_format_c__GO(a2__FB);
- print__PO((&__string_3));
- print_format_c__GO(a3__IB);
- print__PO((&__string_4));
- print_format_c__GO(a4__LB);
- print__PO((&__string_5));
- print_format_c__GO(a5__OB);
- print__PO((&__string_6));
- print_format_c__GO(a6__RB);
- print__PO((&__string_7));
- print_format_c__GO(a7__UB);
- print__PO((&__string_8));
- print_format_c__GO(a8__XB);
- print__PO((&__string_9));
- print_format_c__GO(a9__0B);
- print__PO((&__string_10));
- return( 0);
-}
-
-static void print__PO(__STRING_CONSTANT *Self__QO)
-// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
-{
- __INTEGER __tmp__GT,Self__OX;
- __CHARACTER *__tmp__OXR;
- __tmp__GT=Self__QO->count__JX;
- Self__OX= 1;
- __tmp__OXR=Self__QO->storage__ZZD;
- while ((Self__OX <= __tmp__GT)) {
- fputc((int)(((__CHARACTER *)__tmp__OXR)[(__INTEGER)(Self__OX - 1)]),stdout);
- Self__OX=(__INTEGER)(Self__OX + 1);
- };
-}
-
-static __STRING* create__LV(__INTEGER needed_capacity__NV)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__2Z,*Self__CQC;
- __POINTER ptr__3Z,ptr_table__XZR,next__WZR,result__YZR,mem__ZCS;
- __POINTER result__5CS,mem__KDS,result__QDS,ptr_table__3ZR,next__2ZR;
- __POINTER result__4ZR,mem__1DS,result__BES,mem__MES,result__SES;
- __POINTER result__DXR,ptr_table__J0R,next__I0R,result__K0R,mem__3ES;
- __POINTER result__DFS,mem__OFS,result__UFS,mem__0BS;
- __INTEGER typ_id__C0,Self__GWH;
- __UINTEGER_32 sz__5Z,a__RVR,new_size__SVR,idx__TCS,pv__WCS,cap__0CS;
- __UINTEGER_32 old_size__2CS,idx__EDS,pv__HDS,cap__LDS,old_size__NDS;
- __UINTEGER_32 t__1VR,a__YVR,new_size__A0R,lab_type__5ZR,idx__VDS;
- __UINTEGER_32 pv__YDS,cap__2DS,old_size__4DS,idx__GES,pv__JES;
- __UINTEGER_32 cap__NES,old_size__PES,sz__FXR,a__EXR,new_size__GXR;
- __UINTEGER_32 new_size2__HXR,a__JXR,new_size__KXR,idx__XES,pv__0ES;
- __UINTEGER_32 cap__4ES,old_size__AFS,idx__IFS,pv__LFS,cap__PFS;
- __UINTEGER_32 old_size__RFS,cap__1BS,old_size__3BS,idx__K4R,siz__O4R;
- __UINTEGER_32 new_size__P4R;
- __MEMORY *blc__UCS,*prev__VCS,*block__3CS,*Self__4CS,*Self__ADS;
- __MEMORY *prev__BDS,*next__CDS,*blc__FDS,*prev__GDS,*block__ODS;
- __MEMORY *Self__PDS,*Self__RDS,*prev__SDS,*next__TDS,*blc__WDS;
- __MEMORY *prev__XDS,*block__5DS,*Self__AES,*Self__CES,*prev__DES;
- __MEMORY *next__EES,*blc__HES,*prev__IES,*block__QES,*Self__RES;
- __MEMORY *Self__TES,*prev__UES,*next__VES,*blc__YES,*prev__ZES;
- __MEMORY *block__BFS,*Self__CFS,*Self__EFS,*prev__FFS,*next__GFS;
- __MEMORY *blc__JFS,*prev__KFS,*block__SFS,*Self__TFS,*Self__VFS;
- __MEMORY *prev__WFS,*next__XFS,*result__G4R,*block__4BS,*Self__J4R;
- __MEMORY *new__L4R,*prev__M4R,*next__N4R,*Self__Q4R,*Self__R4R;
- __BOOLEAN __tmp__XCS,__tmp__IDS,__tmp__ZDS,__tmp__KES,__tmp__1ES;
- __BOOLEAN __tmp__MFS;
- __CHARACTER *Result__ESF;
- result__2Z=NULL;
- ptr__3Z=((__POINTER )(NULL));
- typ_id__C0= 0;
- sz__5Z=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__5Z == 0)) {
- result__2Z=STRING__;
- } else {
- typ_id__C0=__STRING__;
- clone_allocation_size__YY=(__UINTEGER_32)(clone_allocation_size__YY + sz__5Z);
- if ((typ_id__C0 == (__INTEGER)(- 1))) {
- a__RVR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SVR=(__UINTEGER_32)((__UINTEGER_32)(sz__5Z + a__RVR) & (__UINTEGER_32)(~ a__RVR));
- ptr_table__XZR=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SVR / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WZR=((__POINTER )(NULL));
- result__YZR=((__POINTER *)ptr_table__XZR)[ 0];
- if ((result__YZR == (void *)NULL)) {
- idx__TCS= 0;
- blc__UCS=NULL;
- prev__VCS=NULL;
- pv__WCS= 0;
- while_do__F3B__YCS:
- {
- if ((idx__TCS < nb_page__UYB)) {
- blc__UCS=((__MEMORY *)(last_block[(idx__TCS)]));
- __tmp__XCS=(((__UINTEGER_32)(((__MEMORY *)blc__UCS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__UCS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__XCS=FALSE__;
- };
- if (__tmp__XCS) {
- idx__TCS=(__UINTEGER_32)(idx__TCS + 1);
- goto while_do__F3B__YCS;
- };
- };
- if ((idx__TCS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__ZCS=((__POINTER )(NULL));
- cap__0CS= 33554432;
- do {
- cap__0CS=(__UINTEGER_32)(cap__0CS << 1);
- mem__ZCS=((__POINTER )(malloc((cap__0CS))));
- if ((mem__ZCS != (void *)NULL)) {
- free((mem__ZCS));
- };
- } while ((! ((mem__ZCS == (void *)NULL) || (cap__0CS == 2147483648LU))));
- if ((mem__ZCS == (void *)NULL)) {
- cap__0CS=(__UINTEGER_32)(cap__0CS >> 1);
- };
- capacity_max__4KD=cap__0CS;
- begin_memory__XLB=((__POINTER )(malloc((cap__0CS))));
- };
- old_size__2CS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__2CS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__3CS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__2CS))));
- block__3CS->previous_linear__CZ= 4294967295LU;
- block__3CS->size_and_id__DZ= 67108858;
- block__3CS->next_free__EZ=first_free__2KG;
- block__3CS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__3CS;
- };
- first_free__2KG=block__3CS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__3CS);
- blc__UCS=block__3CS;
- };
- ((__MEMORY *)blc__UCS)->size_and_id__DZ=(__UINTEGER_32)(blc__UCS->size_and_id__DZ - 4096);
- Self__4CS=((__MEMORY *)blc__UCS);
- result__5CS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__4CS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__4CS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__UCS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__ADS=((__MEMORY *)blc__UCS);
- prev__BDS=Self__ADS->previous_free__FZ;
- next__CDS=Self__ADS->next_free__EZ;
- if (((void *)prev__BDS == (void *)NULL)) {
- first_free__2KG=next__CDS;
- } else {
- ((__MEMORY *)prev__BDS)->next_free__EZ=next__CDS;
- };
- if (((void *)next__CDS != (void *)NULL)) {
- ((__MEMORY *)next__CDS)->previous_free__FZ=prev__BDS;
- };
- pv__WCS=blc__UCS->previous_linear__CZ;
- if ((pv__WCS != 4294967295LU)) {
- prev__VCS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__WCS))));
- ((__MEMORY *)prev__VCS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__VCS->size_and_id__DZ + blc__UCS->size_and_id__DZ) + 8);
- last_block[(idx__TCS)] = (prev__VCS);
- };
- };
- ((__POINTER *)result__5CS)[ 0]=((__POINTER )new_size__SVR);
- result__YZR=(void *)((unsigned long)result__5CS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__WZR=(void *)((unsigned long)result__YZR - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SVR)));
- ((__POINTER *)next__WZR)[ 0]=NULL;
- ((__POINTER *)ptr_table__XZR)[ 0]=next__WZR;
- } else {
- next__WZR=((__POINTER *)result__YZR)[ 0];
- if ((next__WZR == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YZR - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__SVR << 1)) <= 4096)) {
- next__WZR=(void *)((unsigned long)result__YZR - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SVR)));
- } else {
- idx__EDS= 0;
- blc__FDS=NULL;
- prev__GDS=NULL;
- pv__HDS= 0;
- while_do__F3B__JDS:
- {
- if ((idx__EDS < nb_page__UYB)) {
- blc__FDS=((__MEMORY *)(last_block[(idx__EDS)]));
- __tmp__IDS=(((__UINTEGER_32)(((__MEMORY *)blc__FDS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__FDS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__IDS=FALSE__;
- };
- if (__tmp__IDS) {
- idx__EDS=(__UINTEGER_32)(idx__EDS + 1);
- goto while_do__F3B__JDS;
- };
- };
- if ((idx__EDS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__KDS=((__POINTER )(NULL));
- cap__LDS= 33554432;
- do {
- cap__LDS=(__UINTEGER_32)(cap__LDS << 1);
- mem__KDS=((__POINTER )(malloc((cap__LDS))));
- if ((mem__KDS != (void *)NULL)) {
- free((mem__KDS));
- };
- } while ((! ((mem__KDS == (void *)NULL) || (cap__LDS == 2147483648LU))));
- if ((mem__KDS == (void *)NULL)) {
- cap__LDS=(__UINTEGER_32)(cap__LDS >> 1);
- };
- capacity_max__4KD=cap__LDS;
- begin_memory__XLB=((__POINTER )(malloc((cap__LDS))));
- };
- old_size__NDS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__NDS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__ODS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__NDS))));
- block__ODS->previous_linear__CZ= 4294967295LU;
- block__ODS->size_and_id__DZ= 67108858;
- block__ODS->next_free__EZ=first_free__2KG;
- block__ODS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__ODS;
- };
- first_free__2KG=block__ODS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__ODS);
- blc__FDS=block__ODS;
- };
- ((__MEMORY *)blc__FDS)->size_and_id__DZ=(__UINTEGER_32)(blc__FDS->size_and_id__DZ - 4096);
- Self__PDS=((__MEMORY *)blc__FDS);
- result__QDS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PDS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__PDS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__FDS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__RDS=((__MEMORY *)blc__FDS);
- prev__SDS=Self__RDS->previous_free__FZ;
- next__TDS=Self__RDS->next_free__EZ;
- if (((void *)prev__SDS == (void *)NULL)) {
- first_free__2KG=next__TDS;
- } else {
- ((__MEMORY *)prev__SDS)->next_free__EZ=next__TDS;
- };
- if (((void *)next__TDS != (void *)NULL)) {
- ((__MEMORY *)next__TDS)->previous_free__FZ=prev__SDS;
- };
- pv__HDS=blc__FDS->previous_linear__CZ;
- if ((pv__HDS != 4294967295LU)) {
- prev__GDS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__HDS))));
- ((__MEMORY *)prev__GDS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__GDS->size_and_id__DZ + blc__FDS->size_and_id__DZ) + 8);
- last_block[(idx__EDS)] = (prev__GDS);
- };
- };
- ((__POINTER *)result__QDS)[ 0]=((__POINTER )new_size__SVR);
- next__WZR=(void *)((unsigned long)result__QDS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__WZR)[ 0]=NULL;
- ((__POINTER *)ptr_table__XZR)[ 0]=next__WZR;
- } else {
- ((__POINTER *)result__YZR)[ 0]=(void *)((unsigned long)((__POINTER *)next__WZR)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YZR=next__WZR;
- };
- };
- ptr__3Z=result__YZR;
- } else {
- t__1VR=((__UINTEGER_32 )typ_id__C0);
- a__YVR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__A0R=(__UINTEGER_32)((__UINTEGER_32)(sz__5Z + a__YVR) & (__UINTEGER_32)(~ a__YVR));
- ptr_table__3ZR=((__POINTER )(&(table_type[(t__1VR)])));
- lab_type__5ZR=(__UINTEGER_32)(t__1VR | 1);
- next__2ZR=((__POINTER )(NULL));
- result__4ZR=((__POINTER *)ptr_table__3ZR)[ 0];
- if ((result__4ZR == (void *)NULL)) {
- idx__VDS= 0;
- blc__WDS=NULL;
- prev__XDS=NULL;
- pv__YDS= 0;
- while_do__F3B__0DS:
- {
- if ((idx__VDS < nb_page__UYB)) {
- blc__WDS=((__MEMORY *)(last_block[(idx__VDS)]));
- __tmp__ZDS=(((__UINTEGER_32)(((__MEMORY *)blc__WDS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__WDS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__ZDS=FALSE__;
- };
- if (__tmp__ZDS) {
- idx__VDS=(__UINTEGER_32)(idx__VDS + 1);
- goto while_do__F3B__0DS;
- };
- };
- if ((idx__VDS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__1DS=((__POINTER )(NULL));
- cap__2DS= 33554432;
- do {
- cap__2DS=(__UINTEGER_32)(cap__2DS << 1);
- mem__1DS=((__POINTER )(malloc((cap__2DS))));
- if ((mem__1DS != (void *)NULL)) {
- free((mem__1DS));
- };
- } while ((! ((mem__1DS == (void *)NULL) || (cap__2DS == 2147483648LU))));
- if ((mem__1DS == (void *)NULL)) {
- cap__2DS=(__UINTEGER_32)(cap__2DS >> 1);
- };
- capacity_max__4KD=cap__2DS;
- begin_memory__XLB=((__POINTER )(malloc((cap__2DS))));
- };
- old_size__4DS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__4DS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__5DS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__4DS))));
- block__5DS->previous_linear__CZ= 4294967295LU;
- block__5DS->size_and_id__DZ= 67108858;
- block__5DS->next_free__EZ=first_free__2KG;
- block__5DS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__5DS;
- };
- first_free__2KG=block__5DS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__5DS);
- blc__WDS=block__5DS;
- };
- ((__MEMORY *)blc__WDS)->size_and_id__DZ=(__UINTEGER_32)(blc__WDS->size_and_id__DZ - 4096);
- Self__AES=((__MEMORY *)blc__WDS);
- result__BES=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__AES) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__AES->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__WDS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__CES=((__MEMORY *)blc__WDS);
- prev__DES=Self__CES->previous_free__FZ;
- next__EES=Self__CES->next_free__EZ;
- if (((void *)prev__DES == (void *)NULL)) {
- first_free__2KG=next__EES;
- } else {
- ((__MEMORY *)prev__DES)->next_free__EZ=next__EES;
- };
- if (((void *)next__EES != (void *)NULL)) {
- ((__MEMORY *)next__EES)->previous_free__FZ=prev__DES;
- };
- pv__YDS=blc__WDS->previous_linear__CZ;
- if ((pv__YDS != 4294967295LU)) {
- prev__XDS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__YDS))));
- ((__MEMORY *)prev__XDS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__XDS->size_and_id__DZ + blc__WDS->size_and_id__DZ) + 8);
- last_block[(idx__VDS)] = (prev__XDS);
- };
- };
- ((__POINTER *)result__BES)[ 0]=((__POINTER )lab_type__5ZR);
- result__4ZR=(void *)((unsigned long)result__BES - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__2ZR=(void *)((unsigned long)result__4ZR - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0R)));
- ((__POINTER *)next__2ZR)[ 0]=NULL;
- ((__POINTER *)ptr_table__3ZR)[ 0]=next__2ZR;
- } else {
- next__2ZR=((__POINTER *)result__4ZR)[ 0];
- if ((next__2ZR == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4ZR - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__A0R << 1)) <= 4096)) {
- next__2ZR=(void *)((unsigned long)result__4ZR - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0R)));
- } else {
- idx__GES= 0;
- blc__HES=NULL;
- prev__IES=NULL;
- pv__JES= 0;
- while_do__F3B__LES:
- {
- if ((idx__GES < nb_page__UYB)) {
- blc__HES=((__MEMORY *)(last_block[(idx__GES)]));
- __tmp__KES=(((__UINTEGER_32)(((__MEMORY *)blc__HES)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__HES)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__KES=FALSE__;
- };
- if (__tmp__KES) {
- idx__GES=(__UINTEGER_32)(idx__GES + 1);
- goto while_do__F3B__LES;
- };
- };
- if ((idx__GES >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__MES=((__POINTER )(NULL));
- cap__NES= 33554432;
- do {
- cap__NES=(__UINTEGER_32)(cap__NES << 1);
- mem__MES=((__POINTER )(malloc((cap__NES))));
- if ((mem__MES != (void *)NULL)) {
- free((mem__MES));
- };
- } while ((! ((mem__MES == (void *)NULL) || (cap__NES == 2147483648LU))));
- if ((mem__MES == (void *)NULL)) {
- cap__NES=(__UINTEGER_32)(cap__NES >> 1);
- };
- capacity_max__4KD=cap__NES;
- begin_memory__XLB=((__POINTER )(malloc((cap__NES))));
- };
- old_size__PES=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__PES + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__QES=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__PES))));
- block__QES->previous_linear__CZ= 4294967295LU;
- block__QES->size_and_id__DZ= 67108858;
- block__QES->next_free__EZ=first_free__2KG;
- block__QES->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__QES;
- };
- first_free__2KG=block__QES;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__QES);
- blc__HES=block__QES;
- };
- ((__MEMORY *)blc__HES)->size_and_id__DZ=(__UINTEGER_32)(blc__HES->size_and_id__DZ - 4096);
- Self__RES=((__MEMORY *)blc__HES);
- result__SES=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__RES) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__RES->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__HES)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__TES=((__MEMORY *)blc__HES);
- prev__UES=Self__TES->previous_free__FZ;
- next__VES=Self__TES->next_free__EZ;
- if (((void *)prev__UES == (void *)NULL)) {
- first_free__2KG=next__VES;
- } else {
- ((__MEMORY *)prev__UES)->next_free__EZ=next__VES;
- };
- if (((void *)next__VES != (void *)NULL)) {
- ((__MEMORY *)next__VES)->previous_free__FZ=prev__UES;
- };
- pv__JES=blc__HES->previous_linear__CZ;
- if ((pv__JES != 4294967295LU)) {
- prev__IES=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__JES))));
- ((__MEMORY *)prev__IES)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__IES->size_and_id__DZ + blc__HES->size_and_id__DZ) + 8);
- last_block[(idx__GES)] = (prev__IES);
- };
- };
- ((__POINTER *)result__SES)[ 0]=((__POINTER )lab_type__5ZR);
- next__2ZR=(void *)((unsigned long)result__SES - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__2ZR)[ 0]=NULL;
- ((__POINTER *)ptr_table__3ZR)[ 0]=next__2ZR;
- } else {
- ((__POINTER *)result__4ZR)[ 0]=(void *)((unsigned long)((__POINTER *)next__2ZR)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4ZR=next__2ZR;
- };
- };
- ptr__3Z=result__4ZR;
- };
- result__2Z=((__STRING *)ptr__3Z);
- *(result__2Z) = *(STRING__);
- };
- Self__CQC=((__STRING *)result__2Z);
- if ((needed_capacity__NV > 0)) {
- if ((Self__CQC->capacity__ES < needed_capacity__NV)) {
- sz__FXR=((__UINTEGER_32 )needed_capacity__NV);
- result__DXR=((__POINTER )(NULL));
- a__EXR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GXR=(__UINTEGER_32)((__UINTEGER_32)(sz__FXR + a__EXR) & (__UINTEGER_32)(~ a__EXR));
- new_size2__HXR=(__UINTEGER_32)(new_size__GXR + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__HXR <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__JXR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KXR=(__UINTEGER_32)((__UINTEGER_32)(new_size2__HXR + a__JXR) & (__UINTEGER_32)(~ a__JXR));
- ptr_table__J0R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KXR / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__I0R=((__POINTER )(NULL));
- result__K0R=((__POINTER *)ptr_table__J0R)[ 0];
- if ((result__K0R == (void *)NULL)) {
- idx__XES= 0;
- blc__YES=NULL;
- prev__ZES=NULL;
- pv__0ES= 0;
- while_do__F3B__2ES:
- {
- if ((idx__XES < nb_page__UYB)) {
- blc__YES=((__MEMORY *)(last_block[(idx__XES)]));
- __tmp__1ES=(((__UINTEGER_32)(((__MEMORY *)blc__YES)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__YES)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__1ES=FALSE__;
- };
- if (__tmp__1ES) {
- idx__XES=(__UINTEGER_32)(idx__XES + 1);
- goto while_do__F3B__2ES;
- };
- };
- if ((idx__XES >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__3ES=((__POINTER )(NULL));
- cap__4ES= 33554432;
- do {
- cap__4ES=(__UINTEGER_32)(cap__4ES << 1);
- mem__3ES=((__POINTER )(malloc((cap__4ES))));
- if ((mem__3ES != (void *)NULL)) {
- free((mem__3ES));
- };
- } while ((! ((mem__3ES == (void *)NULL) || (cap__4ES == 2147483648LU))));
- if ((mem__3ES == (void *)NULL)) {
- cap__4ES=(__UINTEGER_32)(cap__4ES >> 1);
- };
- capacity_max__4KD=cap__4ES;
- begin_memory__XLB=((__POINTER )(malloc((cap__4ES))));
- };
- old_size__AFS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__AFS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__BFS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__AFS))));
- block__BFS->previous_linear__CZ= 4294967295LU;
- block__BFS->size_and_id__DZ= 67108858;
- block__BFS->next_free__EZ=first_free__2KG;
- block__BFS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__BFS;
- };
- first_free__2KG=block__BFS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__BFS);
- blc__YES=block__BFS;
- };
- ((__MEMORY *)blc__YES)->size_and_id__DZ=(__UINTEGER_32)(blc__YES->size_and_id__DZ - 4096);
- Self__CFS=((__MEMORY *)blc__YES);
- result__DFS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__CFS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__CFS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__YES)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__EFS=((__MEMORY *)blc__YES);
- prev__FFS=Self__EFS->previous_free__FZ;
- next__GFS=Self__EFS->next_free__EZ;
- if (((void *)prev__FFS == (void *)NULL)) {
- first_free__2KG=next__GFS;
- } else {
- ((__MEMORY *)prev__FFS)->next_free__EZ=next__GFS;
- };
- if (((void *)next__GFS != (void *)NULL)) {
- ((__MEMORY *)next__GFS)->previous_free__FZ=prev__FFS;
- };
- pv__0ES=blc__YES->previous_linear__CZ;
- if ((pv__0ES != 4294967295LU)) {
- prev__ZES=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__0ES))));
- ((__MEMORY *)prev__ZES)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__ZES->size_and_id__DZ + blc__YES->size_and_id__DZ) + 8);
- last_block[(idx__XES)] = (prev__ZES);
- };
- };
- ((__POINTER *)result__DFS)[ 0]=((__POINTER )new_size__KXR);
- result__K0R=(void *)((unsigned long)result__DFS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__I0R=(void *)((unsigned long)result__K0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KXR)));
- ((__POINTER *)next__I0R)[ 0]=NULL;
- ((__POINTER *)ptr_table__J0R)[ 0]=next__I0R;
- } else {
- next__I0R=((__POINTER *)result__K0R)[ 0];
- if ((next__I0R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K0R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__KXR << 1)) <= 4096)) {
- next__I0R=(void *)((unsigned long)result__K0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KXR)));
- } else {
- idx__IFS= 0;
- blc__JFS=NULL;
- prev__KFS=NULL;
- pv__LFS= 0;
- while_do__F3B__NFS:
- {
- if ((idx__IFS < nb_page__UYB)) {
- blc__JFS=((__MEMORY *)(last_block[(idx__IFS)]));
- __tmp__MFS=(((__UINTEGER_32)(((__MEMORY *)blc__JFS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__JFS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__MFS=FALSE__;
- };
- if (__tmp__MFS) {
- idx__IFS=(__UINTEGER_32)(idx__IFS + 1);
- goto while_do__F3B__NFS;
- };
- };
- if ((idx__IFS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__OFS=((__POINTER )(NULL));
- cap__PFS= 33554432;
- do {
- cap__PFS=(__UINTEGER_32)(cap__PFS << 1);
- mem__OFS=((__POINTER )(malloc((cap__PFS))));
- if ((mem__OFS != (void *)NULL)) {
- free((mem__OFS));
- };
- } while ((! ((mem__OFS == (void *)NULL) || (cap__PFS == 2147483648LU))));
- if ((mem__OFS == (void *)NULL)) {
- cap__PFS=(__UINTEGER_32)(cap__PFS >> 1);
- };
- capacity_max__4KD=cap__PFS;
- begin_memory__XLB=((__POINTER )(malloc((cap__PFS))));
- };
- old_size__RFS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__RFS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__SFS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__RFS))));
- block__SFS->previous_linear__CZ= 4294967295LU;
- block__SFS->size_and_id__DZ= 67108858;
- block__SFS->next_free__EZ=first_free__2KG;
- block__SFS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__SFS;
- };
- first_free__2KG=block__SFS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__SFS);
- blc__JFS=block__SFS;
- };
- ((__MEMORY *)blc__JFS)->size_and_id__DZ=(__UINTEGER_32)(blc__JFS->size_and_id__DZ - 4096);
- Self__TFS=((__MEMORY *)blc__JFS);
- result__UFS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TFS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TFS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__JFS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__VFS=((__MEMORY *)blc__JFS);
- prev__WFS=Self__VFS->previous_free__FZ;
- next__XFS=Self__VFS->next_free__EZ;
- if (((void *)prev__WFS == (void *)NULL)) {
- first_free__2KG=next__XFS;
- } else {
- ((__MEMORY *)prev__WFS)->next_free__EZ=next__XFS;
- };
- if (((void *)next__XFS != (void *)NULL)) {
- ((__MEMORY *)next__XFS)->previous_free__FZ=prev__WFS;
- };
- pv__LFS=blc__JFS->previous_linear__CZ;
- if ((pv__LFS != 4294967295LU)) {
- prev__KFS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__LFS))));
- ((__MEMORY *)prev__KFS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__KFS->size_and_id__DZ + blc__JFS->size_and_id__DZ) + 8);
- last_block[(idx__IFS)] = (prev__KFS);
- };
- };
- ((__POINTER *)result__UFS)[ 0]=((__POINTER )new_size__KXR);
- next__I0R=(void *)((unsigned long)result__UFS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__I0R)[ 0]=NULL;
- ((__POINTER *)ptr_table__J0R)[ 0]=next__I0R;
- } else {
- ((__POINTER *)result__K0R)[ 0]=(void *)((unsigned long)((__POINTER *)next__I0R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K0R=next__I0R;
- };
- };
- ((__POINTER *)result__K0R)[ 0]=((__POINTER ) 3);
- result__DXR=(void *)((unsigned long)result__K0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__G4R=first_free__2KG;
- while ((((void *)result__G4R != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__G4R)->size_and_id__DZ & 4294967292LU) < new_size__GXR))) {
- result__G4R=result__G4R->next_free__EZ;
- };
- if (((void *)result__G4R == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__0BS=((__POINTER )(NULL));
- cap__1BS= 33554432;
- do {
- cap__1BS=(__UINTEGER_32)(cap__1BS << 1);
- mem__0BS=((__POINTER )(malloc((cap__1BS))));
- if ((mem__0BS != (void *)NULL)) {
- free((mem__0BS));
- };
- } while ((! ((mem__0BS == (void *)NULL) || (cap__1BS == 2147483648LU))));
- if ((mem__0BS == (void *)NULL)) {
- cap__1BS=(__UINTEGER_32)(cap__1BS >> 1);
- };
- capacity_max__4KD=cap__1BS;
- begin_memory__XLB=((__POINTER )(malloc((cap__1BS))));
- };
- old_size__3BS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__3BS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__4BS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__3BS))));
- block__4BS->previous_linear__CZ= 4294967295LU;
- block__4BS->size_and_id__DZ= 67108858;
- block__4BS->next_free__EZ=first_free__2KG;
- block__4BS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__4BS;
- };
- first_free__2KG=block__4BS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__4BS);
- result__G4R=block__4BS;
- };
- Self__J4R=((__MEMORY *)result__G4R);
- idx__K4R=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__G4R)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__L4R=NULL;
- prev__M4R=Self__J4R->previous_free__FZ;
- next__N4R=Self__J4R->next_free__EZ;
- if (((void *)prev__M4R == (void *)NULL)) {
- first_free__2KG=next__N4R;
- } else {
- ((__MEMORY *)prev__M4R)->next_free__EZ=next__N4R;
- };
- if (((void *)next__N4R != (void *)NULL)) {
- ((__MEMORY *)next__N4R)->previous_free__FZ=prev__M4R;
- };
- siz__O4R=Self__J4R->size_and_id__DZ;
- new_size__P4R=(__UINTEGER_32)(siz__O4R - new_size__GXR);
- if ((new_size__P4R > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__O4R=new_size__GXR;
- new__L4R=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__J4R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GXR))));
- ((__MEMORY *)new__L4R)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__J4R) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__L4R)->size_and_id__DZ=(__UINTEGER_32)(new_size__P4R - 8);
- Self__Q4R=((__MEMORY *)new__L4R);
- Self__Q4R->next_free__EZ=first_free__2KG;
- Self__Q4R->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__Q4R;
- };
- first_free__2KG=Self__Q4R;
- if (((__UINTEGER_32)(((__MEMORY *)new__L4R)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__K4R)] = (new__L4R);
- } else {
- Self__R4R=((__MEMORY *)new__L4R);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__R4R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__R4R->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__L4R)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__J4R->size_and_id__DZ=(__UINTEGER_32)(siz__O4R | 1);
- result__DXR=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__G4R)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__ESF=((__CHARACTER *)result__DXR);
- Self__GWH=(__INTEGER)(needed_capacity__NV - 1);
- while ((Self__GWH >= 0)) {
- Result__ESF[Self__GWH]='\0';
- Self__GWH=(__INTEGER)(Self__GWH - 1);
- };
- Self__CQC->storage__CNC=Result__ESF;
- Self__CQC->capacity__ES=needed_capacity__NV;
- };
- };
- Self__CQC->count__CS= 0;
- return(result__2Z);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__FPH(__POINTER p__HPH,__UINTEGER_32 old_sz__IPH,__UINTEGER_32 new_sz__JPH)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__UPH,*blc__0FS,*prev__1FS,*block__DGS,*Self__EGS;
- __MEMORY *Self__GGS,*prev__HGS,*next__IGS,*blc__LGS,*prev__MGS;
- __MEMORY *block__UGS,*Self__VGS,*Self__XGS,*prev__YGS,*next__ZGS;
- __MEMORY *result__S4R,*block__DCS,*Self__V4R,*new__X4R,*prev__Y4R;
- __MEMORY *next__Z4R,*Self__24R,*Self__34R,*Self__3UJ,*nxt__BVJ;
- __MEMORY *result__CVJ,*Self__30R,*new__20R,*prev__40R,*next__50R;
- __MEMORY *Self__D1R,*Self__F1R,*result__44R,*block__ICS,*Self__B5R;
- __MEMORY *new__D5R,*prev__E5R,*next__F5R,*Self__I5R,*Self__J5R;
- __MEMORY *next__GMK,*new_free__FMK,*prev__OWR,*next__PWR;
- __POINTER result__VPH,result__O0F,ptr_table__D0R,next__C0R;
- __POINTER result__E0R,mem__5FS,result__FGS,mem__QGS,result__WGS;
- __POINTER mem__5BS,p__TTJ,last__K5J,mem__ECS,src__NSJ,dst__OSJ;
- __UINTEGER_32 a__4VR,old_size__LPH,old_size2__OPH,a__CWR;
- __UINTEGER_32 new_size__RPH,a__LUR,new_size__I0F,new_size2__L0F;
- __UINTEGER_32 a__5WR,new_size__AXR,idx__ZFS,pv__2FS,cap__AGS;
- __UINTEGER_32 old_size__CGS,idx__KGS,pv__NGS,cap__RGS,old_size__TGS;
- __UINTEGER_32 cap__ACS,old_size__CCS,idx__W4R,siz__04R,new_size__14R;
- __UINTEGER_32 a__0HB,__tmp__GRH,sz__GVJ,old_size__DVJ,siz__A1R;
- __UINTEGER_32 new_size__C1R,cap__FCS,old_size__HCS,idx__C5R,siz__G5R;
- __UINTEGER_32 new_size__H5R,prev__HMK,new_size__KMK;
- __INTEGER siz__V0R,Self__00R,siz__SSJ,Self__32J;
- __BOOLEAN __tmp__3FS,__tmp__OGS;
- __POINTER *na_src__X0R,*na_dst__Z0R,*na_src__QSJ,*na_dst__RSJ;
- mem__UPH=NULL;
- result__VPH=((__POINTER )(NULL));
- a__4VR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__LPH=(__UINTEGER_32)((__UINTEGER_32)(old_sz__IPH + a__4VR) & (__UINTEGER_32)(~ a__4VR));
- old_size2__OPH=(__UINTEGER_32)(old_size__LPH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__CWR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RPH=(__UINTEGER_32)((__UINTEGER_32)(new_sz__JPH + a__CWR) & (__UINTEGER_32)(~ a__CWR));
- if ((old_size2__OPH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__O0F=((__POINTER )(NULL));
- a__LUR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__I0F=(__UINTEGER_32)((__UINTEGER_32)(new_size__RPH + a__LUR) & (__UINTEGER_32)(~ a__LUR));
- new_size2__L0F=(__UINTEGER_32)(new_size__I0F + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__L0F <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__5WR=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__AXR=(__UINTEGER_32)((__UINTEGER_32)(new_size2__L0F + a__5WR) & (__UINTEGER_32)(~ a__5WR));
- ptr_table__D0R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AXR / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__C0R=((__POINTER )(NULL));
- result__E0R=((__POINTER *)ptr_table__D0R)[ 0];
- if ((result__E0R == (void *)NULL)) {
- idx__ZFS= 0;
- blc__0FS=NULL;
- prev__1FS=NULL;
- pv__2FS= 0;
- while_do__F3B__4FS:
- {
- if ((idx__ZFS < nb_page__UYB)) {
- blc__0FS=((__MEMORY *)(last_block[(idx__ZFS)]));
- __tmp__3FS=(((__UINTEGER_32)(((__MEMORY *)blc__0FS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__0FS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__3FS=FALSE__;
- };
- if (__tmp__3FS) {
- idx__ZFS=(__UINTEGER_32)(idx__ZFS + 1);
- goto while_do__F3B__4FS;
- };
- };
- if ((idx__ZFS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__5FS=((__POINTER )(NULL));
- cap__AGS= 33554432;
- do {
- cap__AGS=(__UINTEGER_32)(cap__AGS << 1);
- mem__5FS=((__POINTER )(malloc((cap__AGS))));
- if ((mem__5FS != (void *)NULL)) {
- free((mem__5FS));
- };
- } while ((! ((mem__5FS == (void *)NULL) || (cap__AGS == 2147483648LU))));
- if ((mem__5FS == (void *)NULL)) {
- cap__AGS=(__UINTEGER_32)(cap__AGS >> 1);
- };
- capacity_max__4KD=cap__AGS;
- begin_memory__XLB=((__POINTER )(malloc((cap__AGS))));
- };
- old_size__CGS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__CGS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__DGS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__CGS))));
- block__DGS->previous_linear__CZ= 4294967295LU;
- block__DGS->size_and_id__DZ= 67108858;
- block__DGS->next_free__EZ=first_free__2KG;
- block__DGS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__DGS;
- };
- first_free__2KG=block__DGS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__DGS);
- blc__0FS=block__DGS;
- };
- ((__MEMORY *)blc__0FS)->size_and_id__DZ=(__UINTEGER_32)(blc__0FS->size_and_id__DZ - 4096);
- Self__EGS=((__MEMORY *)blc__0FS);
- result__FGS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__EGS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__EGS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__0FS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__GGS=((__MEMORY *)blc__0FS);
- prev__HGS=Self__GGS->previous_free__FZ;
- next__IGS=Self__GGS->next_free__EZ;
- if (((void *)prev__HGS == (void *)NULL)) {
- first_free__2KG=next__IGS;
- } else {
- ((__MEMORY *)prev__HGS)->next_free__EZ=next__IGS;
- };
- if (((void *)next__IGS != (void *)NULL)) {
- ((__MEMORY *)next__IGS)->previous_free__FZ=prev__HGS;
- };
- pv__2FS=blc__0FS->previous_linear__CZ;
- if ((pv__2FS != 4294967295LU)) {
- prev__1FS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__2FS))));
- ((__MEMORY *)prev__1FS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__1FS->size_and_id__DZ + blc__0FS->size_and_id__DZ) + 8);
- last_block[(idx__ZFS)] = (prev__1FS);
- };
- };
- ((__POINTER *)result__FGS)[ 0]=((__POINTER )new_size__AXR);
- result__E0R=(void *)((unsigned long)result__FGS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__C0R=(void *)((unsigned long)result__E0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AXR)));
- ((__POINTER *)next__C0R)[ 0]=NULL;
- ((__POINTER *)ptr_table__D0R)[ 0]=next__C0R;
- } else {
- next__C0R=((__POINTER *)result__E0R)[ 0];
- if ((next__C0R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E0R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__AXR << 1)) <= 4096)) {
- next__C0R=(void *)((unsigned long)result__E0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AXR)));
- } else {
- idx__KGS= 0;
- blc__LGS=NULL;
- prev__MGS=NULL;
- pv__NGS= 0;
- while_do__F3B__PGS:
- {
- if ((idx__KGS < nb_page__UYB)) {
- blc__LGS=((__MEMORY *)(last_block[(idx__KGS)]));
- __tmp__OGS=(((__UINTEGER_32)(((__MEMORY *)blc__LGS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__LGS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__OGS=FALSE__;
- };
- if (__tmp__OGS) {
- idx__KGS=(__UINTEGER_32)(idx__KGS + 1);
- goto while_do__F3B__PGS;
- };
- };
- if ((idx__KGS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__QGS=((__POINTER )(NULL));
- cap__RGS= 33554432;
- do {
- cap__RGS=(__UINTEGER_32)(cap__RGS << 1);
- mem__QGS=((__POINTER )(malloc((cap__RGS))));
- if ((mem__QGS != (void *)NULL)) {
- free((mem__QGS));
- };
- } while ((! ((mem__QGS == (void *)NULL) || (cap__RGS == 2147483648LU))));
- if ((mem__QGS == (void *)NULL)) {
- cap__RGS=(__UINTEGER_32)(cap__RGS >> 1);
- };
- capacity_max__4KD=cap__RGS;
- begin_memory__XLB=((__POINTER )(malloc((cap__RGS))));
- };
- old_size__TGS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__TGS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__UGS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__TGS))));
- block__UGS->previous_linear__CZ= 4294967295LU;
- block__UGS->size_and_id__DZ= 67108858;
- block__UGS->next_free__EZ=first_free__2KG;
- block__UGS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__UGS;
- };
- first_free__2KG=block__UGS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__UGS);
- blc__LGS=block__UGS;
- };
- ((__MEMORY *)blc__LGS)->size_and_id__DZ=(__UINTEGER_32)(blc__LGS->size_and_id__DZ - 4096);
- Self__VGS=((__MEMORY *)blc__LGS);
- result__WGS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__VGS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__VGS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__LGS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__XGS=((__MEMORY *)blc__LGS);
- prev__YGS=Self__XGS->previous_free__FZ;
- next__ZGS=Self__XGS->next_free__EZ;
- if (((void *)prev__YGS == (void *)NULL)) {
- first_free__2KG=next__ZGS;
- } else {
- ((__MEMORY *)prev__YGS)->next_free__EZ=next__ZGS;
- };
- if (((void *)next__ZGS != (void *)NULL)) {
- ((__MEMORY *)next__ZGS)->previous_free__FZ=prev__YGS;
- };
- pv__NGS=blc__LGS->previous_linear__CZ;
- if ((pv__NGS != 4294967295LU)) {
- prev__MGS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__NGS))));
- ((__MEMORY *)prev__MGS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__MGS->size_and_id__DZ + blc__LGS->size_and_id__DZ) + 8);
- last_block[(idx__KGS)] = (prev__MGS);
- };
- };
- ((__POINTER *)result__WGS)[ 0]=((__POINTER )new_size__AXR);
- next__C0R=(void *)((unsigned long)result__WGS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__C0R)[ 0]=NULL;
- ((__POINTER *)ptr_table__D0R)[ 0]=next__C0R;
- } else {
- ((__POINTER *)result__E0R)[ 0]=(void *)((unsigned long)((__POINTER *)next__C0R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__E0R=next__C0R;
- };
- };
- ((__POINTER *)result__E0R)[ 0]=((__POINTER ) 3);
- result__O0F=(void *)((unsigned long)result__E0R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__S4R=first_free__2KG;
- while ((((void *)result__S4R != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__S4R)->size_and_id__DZ & 4294967292LU) < new_size__I0F))) {
- result__S4R=result__S4R->next_free__EZ;
- };
- if (((void *)result__S4R == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__5BS=((__POINTER )(NULL));
- cap__ACS= 33554432;
- do {
- cap__ACS=(__UINTEGER_32)(cap__ACS << 1);
- mem__5BS=((__POINTER )(malloc((cap__ACS))));
- if ((mem__5BS != (void *)NULL)) {
- free((mem__5BS));
- };
- } while ((! ((mem__5BS == (void *)NULL) || (cap__ACS == 2147483648LU))));
- if ((mem__5BS == (void *)NULL)) {
- cap__ACS=(__UINTEGER_32)(cap__ACS >> 1);
- };
- capacity_max__4KD=cap__ACS;
- begin_memory__XLB=((__POINTER )(malloc((cap__ACS))));
- };
- old_size__CCS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__CCS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__DCS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__CCS))));
- block__DCS->previous_linear__CZ= 4294967295LU;
- block__DCS->size_and_id__DZ= 67108858;
- block__DCS->next_free__EZ=first_free__2KG;
- block__DCS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__DCS;
- };
- first_free__2KG=block__DCS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__DCS);
- result__S4R=block__DCS;
- };
- Self__V4R=((__MEMORY *)result__S4R);
- idx__W4R=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__S4R)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__X4R=NULL;
- prev__Y4R=Self__V4R->previous_free__FZ;
- next__Z4R=Self__V4R->next_free__EZ;
- if (((void *)prev__Y4R == (void *)NULL)) {
- first_free__2KG=next__Z4R;
- } else {
- ((__MEMORY *)prev__Y4R)->next_free__EZ=next__Z4R;
- };
- if (((void *)next__Z4R != (void *)NULL)) {
- ((__MEMORY *)next__Z4R)->previous_free__FZ=prev__Y4R;
- };
- siz__04R=Self__V4R->size_and_id__DZ;
- new_size__14R=(__UINTEGER_32)(siz__04R - new_size__I0F);
- if ((new_size__14R > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__04R=new_size__I0F;
- new__X4R=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__V4R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I0F))));
- ((__MEMORY *)new__X4R)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__V4R) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__X4R)->size_and_id__DZ=(__UINTEGER_32)(new_size__14R - 8);
- Self__24R=((__MEMORY *)new__X4R);
- Self__24R->next_free__EZ=first_free__2KG;
- Self__24R->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__24R;
- };
- first_free__2KG=Self__24R;
- if (((__UINTEGER_32)(((__MEMORY *)new__X4R)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__W4R)] = (new__X4R);
- } else {
- Self__34R=((__MEMORY *)new__X4R);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__34R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__34R->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__X4R)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__V4R->size_and_id__DZ=(__UINTEGER_32)(siz__04R | 1);
- result__O0F=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__S4R)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__VPH=result__O0F;
- siz__V0R=((__INTEGER )old_size__LPH);
- siz__V0R=(__INTEGER)(siz__V0R / ((__INTEGER )(sizeof(void *))));
- na_src__X0R=((__POINTER *)p__HPH);
- na_dst__Z0R=((__POINTER *)result__O0F);
- Self__00R=(__INTEGER)(siz__V0R - 1);
- while ((Self__00R >= 0)) {
- na_dst__Z0R[Self__00R]=na_src__X0R[Self__00R];
- Self__00R=(__INTEGER)(Self__00R - 1);
- };
- p__TTJ=(void *)((unsigned long)p__HPH - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__0HB=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__K5J=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__OPH + a__0HB) & (__UINTEGER_32)(~ a__0HB)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__TTJ)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__K5J)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__K5J)[ 0]=p__TTJ;
- } else {
- mem__UPH=((__MEMORY *)(void *)((unsigned long)p__HPH - (unsigned long)((__POINTER ) 8)));
- __tmp__GRH=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__HPH - (unsigned long)begin_memory__XLB)))) >> 26);
- Self__3UJ=((__MEMORY *)mem__UPH);
- nxt__BVJ=NULL;
- result__CVJ=NULL;
- sz__GVJ= 0;
- old_size__DVJ=(__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 4294967292LU);
- if ((new_size__RPH > old_size__DVJ)) {
- if ((! ((__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 2) != 0))) {
- nxt__BVJ=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__3UJ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 4294967292LU)))));
- sz__GVJ=(__UINTEGER_32)((__UINTEGER_32)(new_size__RPH - old_size__DVJ) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__BVJ)->size_and_id__DZ & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__BVJ)->size_and_id__DZ & 4294967292LU) >= sz__GVJ))) {
- Self__30R=((__MEMORY *)nxt__BVJ);
- new__20R=NULL;
- prev__40R=Self__30R->previous_free__FZ;
- next__50R=Self__30R->next_free__EZ;
- if (((void *)prev__40R == (void *)NULL)) {
- first_free__2KG=next__50R;
- } else {
- ((__MEMORY *)prev__40R)->next_free__EZ=next__50R;
- };
- if (((void *)next__50R != (void *)NULL)) {
- ((__MEMORY *)next__50R)->previous_free__FZ=prev__40R;
- };
- siz__A1R=Self__30R->size_and_id__DZ;
- new_size__C1R=(__UINTEGER_32)(siz__A1R - sz__GVJ);
- if ((new_size__C1R > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__A1R=sz__GVJ;
- new__20R=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__30R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__GVJ))));
- ((__MEMORY *)new__20R)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__30R) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__20R)->size_and_id__DZ=(__UINTEGER_32)(new_size__C1R - 8);
- Self__D1R=((__MEMORY *)new__20R);
- Self__D1R->next_free__EZ=first_free__2KG;
- Self__D1R->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__D1R;
- };
- first_free__2KG=Self__D1R;
- if (((__UINTEGER_32)(((__MEMORY *)new__20R)->size_and_id__DZ & 2) != 0)) {
- last_block[(__tmp__GRH)] = (new__20R);
- } else {
- Self__F1R=((__MEMORY *)new__20R);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__F1R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__F1R->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__20R)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__30R->size_and_id__DZ=(__UINTEGER_32)(siz__A1R | 1);
- Self__3UJ->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(Self__3UJ->size_and_id__DZ + (__UINTEGER_32)(nxt__BVJ->size_and_id__DZ & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 2) != 0)) {
- last_block[(__tmp__GRH)] = (Self__3UJ);
- } else {
- nxt__BVJ=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__3UJ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 4294967292LU)))));
- ((__MEMORY *)nxt__BVJ)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__3UJ) - (unsigned long)begin_memory__XLB))));
- };
- result__CVJ=Self__3UJ;
- };
- };
- if (((void *)result__CVJ == (void *)NULL)) {
- result__44R=first_free__2KG;
- while ((((void *)result__44R != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__44R)->size_and_id__DZ & 4294967292LU) < new_size__RPH))) {
- result__44R=result__44R->next_free__EZ;
- };
- if (((void *)result__44R == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__ECS=((__POINTER )(NULL));
- cap__FCS= 33554432;
- do {
- cap__FCS=(__UINTEGER_32)(cap__FCS << 1);
- mem__ECS=((__POINTER )(malloc((cap__FCS))));
- if ((mem__ECS != (void *)NULL)) {
- free((mem__ECS));
- };
- } while ((! ((mem__ECS == (void *)NULL) || (cap__FCS == 2147483648LU))));
- if ((mem__ECS == (void *)NULL)) {
- cap__FCS=(__UINTEGER_32)(cap__FCS >> 1);
- };
- capacity_max__4KD=cap__FCS;
- begin_memory__XLB=((__POINTER )(malloc((cap__FCS))));
- };
- old_size__HCS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__HCS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__ICS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__HCS))));
- block__ICS->previous_linear__CZ= 4294967295LU;
- block__ICS->size_and_id__DZ= 67108858;
- block__ICS->next_free__EZ=first_free__2KG;
- block__ICS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__ICS;
- };
- first_free__2KG=block__ICS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__ICS);
- result__44R=block__ICS;
- };
- Self__B5R=((__MEMORY *)result__44R);
- idx__C5R=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__44R)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__D5R=NULL;
- prev__E5R=Self__B5R->previous_free__FZ;
- next__F5R=Self__B5R->next_free__EZ;
- if (((void *)prev__E5R == (void *)NULL)) {
- first_free__2KG=next__F5R;
- } else {
- ((__MEMORY *)prev__E5R)->next_free__EZ=next__F5R;
- };
- if (((void *)next__F5R != (void *)NULL)) {
- ((__MEMORY *)next__F5R)->previous_free__FZ=prev__E5R;
- };
- siz__G5R=Self__B5R->size_and_id__DZ;
- new_size__H5R=(__UINTEGER_32)(siz__G5R - new_size__RPH);
- if ((new_size__H5R > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__G5R=new_size__RPH;
- new__D5R=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__B5R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RPH))));
- ((__MEMORY *)new__D5R)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__B5R) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__D5R)->size_and_id__DZ=(__UINTEGER_32)(new_size__H5R - 8);
- Self__I5R=((__MEMORY *)new__D5R);
- Self__I5R->next_free__EZ=first_free__2KG;
- Self__I5R->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__I5R;
- };
- first_free__2KG=Self__I5R;
- if (((__UINTEGER_32)(((__MEMORY *)new__D5R)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__C5R)] = (new__D5R);
- } else {
- Self__J5R=((__MEMORY *)new__D5R);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__J5R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__J5R->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__D5R)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__B5R->size_and_id__DZ=(__UINTEGER_32)(siz__G5R | 1);
- result__CVJ=result__44R;
- src__NSJ=(void *)((unsigned long)((__POINTER )Self__3UJ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__OSJ=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__44R)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__SSJ=((__INTEGER )old_size__DVJ);
- siz__SSJ=(__INTEGER)(siz__SSJ / ((__INTEGER )(sizeof(void *))));
- na_src__QSJ=((__POINTER *)src__NSJ);
- na_dst__RSJ=((__POINTER *)dst__OSJ);
- Self__32J=(__INTEGER)(siz__SSJ - 1);
- while ((Self__32J >= 0)) {
- na_dst__RSJ[Self__32J]=na_src__QSJ[Self__32J];
- Self__32J=(__INTEGER)(Self__32J - 1);
- };
- prev__HMK=Self__3UJ->previous_linear__CZ;
- next__GMK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__3UJ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 4294967292LU)))));
- new_free__FMK=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__HMK))));
- new_size__KMK=(__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 4294967294LU);
- if (((prev__HMK == 4294967295LU) || ((__UINTEGER_32)(new_free__FMK->size_and_id__DZ & 1) != 0))) {
- new_free__FMK=Self__3UJ;
- Self__3UJ->next_free__EZ=first_free__2KG;
- Self__3UJ->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__3UJ;
- };
- first_free__2KG=Self__3UJ;
- } else {
- new_size__KMK=(__UINTEGER_32)((__UINTEGER_32)(new_size__KMK + new_free__FMK->size_and_id__DZ) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 2) != 0)) && ((__UINTEGER_32)(next__GMK->size_and_id__DZ & 1) == 0))) {
- new_size__KMK=(__UINTEGER_32)((__UINTEGER_32)(new_size__KMK + next__GMK->size_and_id__DZ) + 8);
- prev__OWR=next__GMK->previous_free__FZ;
- next__PWR=next__GMK->next_free__EZ;
- if (((void *)prev__OWR == (void *)NULL)) {
- first_free__2KG=next__PWR;
- } else {
- ((__MEMORY *)prev__OWR)->next_free__EZ=next__PWR;
- };
- if (((void *)next__PWR != (void *)NULL)) {
- ((__MEMORY *)next__PWR)->previous_free__FZ=prev__OWR;
- };
- };
- new_free__FMK->size_and_id__DZ=new_size__KMK;
- if (((__UINTEGER_32)(new_free__FMK->size_and_id__DZ & 2) != 0)) {
- last_block[(__tmp__GRH)] = (new_free__FMK);
- } else {
- next__GMK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__3UJ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__3UJ->size_and_id__DZ & 4294967292LU)))));
- next__GMK->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__FMK) - (unsigned long)begin_memory__XLB))));
- };
- };
- } else {
- result__CVJ=Self__3UJ;
- };
- result__VPH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__CVJ)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__VPH);
-}
-
-static void print_format_c__GO(__REAL_64 Self__HO)
-// ({REAL_64}) VoidNo recursive, No inlinable.
-{
- __INTEGER old_count__AS,cap__BS,new_capacity__G1R,Self__E2R;
- __INTEGER __tmp__J1R,__tmp__L1R,Self__M1R,nb_elements__G2R,Self__S2R;
- __INTEGER __tmp__3SC,Self__OIH,new_capacity__P1R,Self__A3R,__tmp__S1R;
- __INTEGER __tmp__U1R,Self__V1R,__tmp__D3R,Self__E3R;
- __STRING *Self__OZR,*new__H1,*Self__ASC,*Self__BMC,*Self__TNC;
- __POINTER result__01R,ptr_table__A2R,next__B2R,result__C2R,mem__BHS;
- __POINTER result__HHS,mem__SHS,result__YHS,mem__JCS,ptr__NTG;
- __POINTER result__I2R,ptr_table__O2R,next__P2R,result__Q2R,mem__DIS;
- __POINTER result__JIS,mem__UIS,result__0IS,mem__OCS,result__W2R;
- __POINTER ptr_table__22R,next__32R,result__42R,mem__FJS,result__LJS;
- __POINTER mem__WJS,result__2JS,mem__40E;
- __UINTEGER_32 a__11R,new_size__21R,new_size2__31R,a__41R;
- __UINTEGER_32 new_size__51R,idx__1GS,pv__4GS,cap__CHS,old_size__EHS;
- __UINTEGER_32 idx__MHS,pv__PHS,cap__THS,old_size__VHS,cap__KCS;
- __UINTEGER_32 old_size__MCS,idx__O5R,siz__S5R,new_size__T5R,sz__H2R;
- __UINTEGER_32 a__J2R,new_size__K2R,new_size2__L2R,a__M2R;
- __UINTEGER_32 new_size__N2R,idx__3HS,pv__AIS,cap__EIS,old_size__GIS;
- __UINTEGER_32 idx__OIS,pv__RIS,cap__VIS,old_size__XIS,cap__PCS;
- __UINTEGER_32 old_size__RCS,idx__05R,siz__45R,new_size__55R,a__X2R;
- __UINTEGER_32 new_size__Y2R,new_size2__Z2R,a__02R,new_size__12R;
- __UINTEGER_32 idx__5IS,pv__CJS,cap__GJS,old_size__IJS,idx__QJS;
- __UINTEGER_32 pv__TJS,cap__XJS,old_size__ZJS,cap__10E,old_size__XKD;
- __UINTEGER_32 idx__GAS,siz__KAS,new_size__LAS;
- __MEMORY *blc__2GS,*prev__3GS,*block__FHS,*Self__GHS,*Self__IHS;
- __MEMORY *prev__JHS,*next__KHS,*blc__NHS,*prev__OHS,*block__WHS;
- __MEMORY *Self__XHS,*Self__ZHS,*prev__0HS,*next__1HS,*result__K5R;
- __MEMORY *block__NCS,*Self__N5R,*new__P5R,*prev__Q5R,*next__R5R;
- __MEMORY *Self__U5R,*Self__V5R,*blc__4HS,*prev__5HS,*block__HIS;
- __MEMORY *Self__IIS,*Self__KIS,*prev__LIS,*next__MIS,*blc__PIS;
- __MEMORY *prev__QIS,*block__YIS,*Self__ZIS,*Self__1IS,*prev__2IS;
- __MEMORY *next__3IS,*result__W5R,*block__SCS,*Self__Z5R,*new__15R;
- __MEMORY *prev__25R,*next__35R,*Self__AAS,*Self__BAS,*blc__AJS;
- __MEMORY *prev__BJS,*block__JJS,*Self__KJS,*Self__MJS,*prev__NJS;
- __MEMORY *next__OJS,*blc__RJS,*prev__SJS,*block__0JS,*Self__1JS;
- __MEMORY *Self__3JS,*prev__4JS,*next__5JS,*result__CAS,*block__3KD;
- __MEMORY *Self__FAS,*new__HAS,*prev__IAS,*next__JAS,*Self__MAS;
- __MEMORY *Self__NAS;
- void *s__C3R;
- __BOOLEAN __tmp__5GS,__tmp__QHS,__tmp__BIS,__tmp__SIS,__tmp__DJS;
- __BOOLEAN __tmp__UJS;
- __CHARACTER *Result__D2R,*__tmp__I1R,*new__K1R,*nc_buf__4R;
- __CHARACTER *Result__R2R,*__tmp__XSC,*__tmp__0SC,*Self__KXG;
- __CHARACTER *Result__52R,*__tmp__R1R,*new__T1R,*__tmp__BUR,*__tmp__H3R;
- ((__STRING *)string_tmp__JO)->count__CS= 0;
- old_count__AS=((__STRING *)string_tmp__JO)->count__CS;
- cap__BS=(__INTEGER)(((__STRING *)string_tmp__JO)->capacity__ES - old_count__AS);
- Self__OZR=((__STRING *)string_tmp__JO);
- if ((Self__OZR->capacity__ES > Self__OZR->count__CS)) {
- Self__OZR->count__CS=(__INTEGER)(Self__OZR->count__CS + 1);
- if ((((__CHARACTER *)Self__OZR->storage__CNC)[(__INTEGER)(Self__OZR->count__CS - 1)] != '\0')) {
- ((__CHARACTER *)Self__OZR->storage__CNC)[(__INTEGER)(Self__OZR->count__CS - 1)]='\0';
- };
- } else {
- new_capacity__G1R= 0;
- if ((Self__OZR->capacity__ES <= Self__OZR->count__CS)) {
- if ((Self__OZR->capacity__ES == 0)) {
- Self__OZR->capacity__ES= 32;
- result__01R=((__POINTER )(NULL));
- a__11R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__21R=(__UINTEGER_32)((__UINTEGER_32)( 32 + a__11R) & (__UINTEGER_32)(~ a__11R));
- new_size2__31R=(__UINTEGER_32)(new_size__21R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__31R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__41R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__51R=(__UINTEGER_32)((__UINTEGER_32)(new_size2__31R + a__41R) & (__UINTEGER_32)(~ a__41R));
- ptr_table__A2R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__51R / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__B2R=((__POINTER )(NULL));
- result__C2R=((__POINTER *)ptr_table__A2R)[ 0];
- if ((result__C2R == (void *)NULL)) {
- idx__1GS= 0;
- blc__2GS=NULL;
- prev__3GS=NULL;
- pv__4GS= 0;
- while_do__F3B__AHS:
- {
- if ((idx__1GS < nb_page__UYB)) {
- blc__2GS=((__MEMORY *)(last_block[(idx__1GS)]));
- __tmp__5GS=(((__UINTEGER_32)(((__MEMORY *)blc__2GS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__2GS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__5GS=FALSE__;
- };
- if (__tmp__5GS) {
- idx__1GS=(__UINTEGER_32)(idx__1GS + 1);
- goto while_do__F3B__AHS;
- };
- };
- if ((idx__1GS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__BHS=((__POINTER )(NULL));
- cap__CHS= 33554432;
- do {
- cap__CHS=(__UINTEGER_32)(cap__CHS << 1);
- mem__BHS=((__POINTER )(malloc((cap__CHS))));
- if ((mem__BHS != (void *)NULL)) {
- free((mem__BHS));
- };
- } while ((! ((mem__BHS == (void *)NULL) || (cap__CHS == 2147483648LU))));
- if ((mem__BHS == (void *)NULL)) {
- cap__CHS=(__UINTEGER_32)(cap__CHS >> 1);
- };
- capacity_max__4KD=cap__CHS;
- begin_memory__XLB=((__POINTER )(malloc((cap__CHS))));
- };
- old_size__EHS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__EHS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__FHS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__EHS))));
- block__FHS->previous_linear__CZ= 4294967295LU;
- block__FHS->size_and_id__DZ= 67108858;
- block__FHS->next_free__EZ=first_free__2KG;
- block__FHS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__FHS;
- };
- first_free__2KG=block__FHS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__FHS);
- blc__2GS=block__FHS;
- };
- ((__MEMORY *)blc__2GS)->size_and_id__DZ=(__UINTEGER_32)(blc__2GS->size_and_id__DZ - 4096);
- Self__GHS=((__MEMORY *)blc__2GS);
- result__HHS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__GHS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__GHS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__2GS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__IHS=((__MEMORY *)blc__2GS);
- prev__JHS=Self__IHS->previous_free__FZ;
- next__KHS=Self__IHS->next_free__EZ;
- if (((void *)prev__JHS == (void *)NULL)) {
- first_free__2KG=next__KHS;
- } else {
- ((__MEMORY *)prev__JHS)->next_free__EZ=next__KHS;
- };
- if (((void *)next__KHS != (void *)NULL)) {
- ((__MEMORY *)next__KHS)->previous_free__FZ=prev__JHS;
- };
- pv__4GS=blc__2GS->previous_linear__CZ;
- if ((pv__4GS != 4294967295LU)) {
- prev__3GS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__4GS))));
- ((__MEMORY *)prev__3GS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__3GS->size_and_id__DZ + blc__2GS->size_and_id__DZ) + 8);
- last_block[(idx__1GS)] = (prev__3GS);
- };
- };
- ((__POINTER *)result__HHS)[ 0]=((__POINTER )new_size__51R);
- result__C2R=(void *)((unsigned long)result__HHS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__B2R=(void *)((unsigned long)result__C2R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__51R)));
- ((__POINTER *)next__B2R)[ 0]=NULL;
- ((__POINTER *)ptr_table__A2R)[ 0]=next__B2R;
- } else {
- next__B2R=((__POINTER *)result__C2R)[ 0];
- if ((next__B2R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C2R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__51R << 1)) <= 4096)) {
- next__B2R=(void *)((unsigned long)result__C2R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__51R)));
- } else {
- idx__MHS= 0;
- blc__NHS=NULL;
- prev__OHS=NULL;
- pv__PHS= 0;
- while_do__F3B__RHS:
- {
- if ((idx__MHS < nb_page__UYB)) {
- blc__NHS=((__MEMORY *)(last_block[(idx__MHS)]));
- __tmp__QHS=(((__UINTEGER_32)(((__MEMORY *)blc__NHS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__NHS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__QHS=FALSE__;
- };
- if (__tmp__QHS) {
- idx__MHS=(__UINTEGER_32)(idx__MHS + 1);
- goto while_do__F3B__RHS;
- };
- };
- if ((idx__MHS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__SHS=((__POINTER )(NULL));
- cap__THS= 33554432;
- do {
- cap__THS=(__UINTEGER_32)(cap__THS << 1);
- mem__SHS=((__POINTER )(malloc((cap__THS))));
- if ((mem__SHS != (void *)NULL)) {
- free((mem__SHS));
- };
- } while ((! ((mem__SHS == (void *)NULL) || (cap__THS == 2147483648LU))));
- if ((mem__SHS == (void *)NULL)) {
- cap__THS=(__UINTEGER_32)(cap__THS >> 1);
- };
- capacity_max__4KD=cap__THS;
- begin_memory__XLB=((__POINTER )(malloc((cap__THS))));
- };
- old_size__VHS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__VHS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__WHS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__VHS))));
- block__WHS->previous_linear__CZ= 4294967295LU;
- block__WHS->size_and_id__DZ= 67108858;
- block__WHS->next_free__EZ=first_free__2KG;
- block__WHS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__WHS;
- };
- first_free__2KG=block__WHS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__WHS);
- blc__NHS=block__WHS;
- };
- ((__MEMORY *)blc__NHS)->size_and_id__DZ=(__UINTEGER_32)(blc__NHS->size_and_id__DZ - 4096);
- Self__XHS=((__MEMORY *)blc__NHS);
- result__YHS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__XHS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__XHS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__NHS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__ZHS=((__MEMORY *)blc__NHS);
- prev__0HS=Self__ZHS->previous_free__FZ;
- next__1HS=Self__ZHS->next_free__EZ;
- if (((void *)prev__0HS == (void *)NULL)) {
- first_free__2KG=next__1HS;
- } else {
- ((__MEMORY *)prev__0HS)->next_free__EZ=next__1HS;
- };
- if (((void *)next__1HS != (void *)NULL)) {
- ((__MEMORY *)next__1HS)->previous_free__FZ=prev__0HS;
- };
- pv__PHS=blc__NHS->previous_linear__CZ;
- if ((pv__PHS != 4294967295LU)) {
- prev__OHS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__PHS))));
- ((__MEMORY *)prev__OHS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__OHS->size_and_id__DZ + blc__NHS->size_and_id__DZ) + 8);
- last_block[(idx__MHS)] = (prev__OHS);
- };
- };
- ((__POINTER *)result__YHS)[ 0]=((__POINTER )new_size__51R);
- next__B2R=(void *)((unsigned long)result__YHS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__B2R)[ 0]=NULL;
- ((__POINTER *)ptr_table__A2R)[ 0]=next__B2R;
- } else {
- ((__POINTER *)result__C2R)[ 0]=(void *)((unsigned long)((__POINTER *)next__B2R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C2R=next__B2R;
- };
- };
- ((__POINTER *)result__C2R)[ 0]=((__POINTER ) 3);
- result__01R=(void *)((unsigned long)result__C2R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__K5R=first_free__2KG;
- while ((((void *)result__K5R != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__K5R)->size_and_id__DZ & 4294967292LU) < new_size__21R))) {
- result__K5R=result__K5R->next_free__EZ;
- };
- if (((void *)result__K5R == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__JCS=((__POINTER )(NULL));
- cap__KCS= 33554432;
- do {
- cap__KCS=(__UINTEGER_32)(cap__KCS << 1);
- mem__JCS=((__POINTER )(malloc((cap__KCS))));
- if ((mem__JCS != (void *)NULL)) {
- free((mem__JCS));
- };
- } while ((! ((mem__JCS == (void *)NULL) || (cap__KCS == 2147483648LU))));
- if ((mem__JCS == (void *)NULL)) {
- cap__KCS=(__UINTEGER_32)(cap__KCS >> 1);
- };
- capacity_max__4KD=cap__KCS;
- begin_memory__XLB=((__POINTER )(malloc((cap__KCS))));
- };
- old_size__MCS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__MCS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__NCS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__MCS))));
- block__NCS->previous_linear__CZ= 4294967295LU;
- block__NCS->size_and_id__DZ= 67108858;
- block__NCS->next_free__EZ=first_free__2KG;
- block__NCS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__NCS;
- };
- first_free__2KG=block__NCS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__NCS);
- result__K5R=block__NCS;
- };
- Self__N5R=((__MEMORY *)result__K5R);
- idx__O5R=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__K5R)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__P5R=NULL;
- prev__Q5R=Self__N5R->previous_free__FZ;
- next__R5R=Self__N5R->next_free__EZ;
- if (((void *)prev__Q5R == (void *)NULL)) {
- first_free__2KG=next__R5R;
- } else {
- ((__MEMORY *)prev__Q5R)->next_free__EZ=next__R5R;
- };
- if (((void *)next__R5R != (void *)NULL)) {
- ((__MEMORY *)next__R5R)->previous_free__FZ=prev__Q5R;
- };
- siz__S5R=Self__N5R->size_and_id__DZ;
- new_size__T5R=(__UINTEGER_32)(siz__S5R - new_size__21R);
- if ((new_size__T5R > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__S5R=new_size__21R;
- new__P5R=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__N5R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21R))));
- ((__MEMORY *)new__P5R)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__N5R) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__P5R)->size_and_id__DZ=(__UINTEGER_32)(new_size__T5R - 8);
- Self__U5R=((__MEMORY *)new__P5R);
- Self__U5R->next_free__EZ=first_free__2KG;
- Self__U5R->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__U5R;
- };
- first_free__2KG=Self__U5R;
- if (((__UINTEGER_32)(((__MEMORY *)new__P5R)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__O5R)] = (new__P5R);
- } else {
- Self__V5R=((__MEMORY *)new__P5R);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__V5R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__V5R->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__P5R)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__N5R->size_and_id__DZ=(__UINTEGER_32)(siz__S5R | 1);
- result__01R=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__K5R)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__D2R=((__CHARACTER *)result__01R);
- Self__E2R= 31;
- while ((Self__E2R >= 0)) {
- Result__D2R[Self__E2R]='\0';
- Self__E2R=(__INTEGER)(Self__E2R - 1);
- };
- Self__OZR->storage__CNC=Result__D2R;
- } else {
- new_capacity__G1R=(__INTEGER)(Self__OZR->capacity__ES << 1);
- __tmp__I1R=Self__OZR->storage__CNC;
- __tmp__J1R=Self__OZR->capacity__ES;
- new__K1R=((__CHARACTER *)realloc_dynamic__old_size__new_size__FPH(((__POINTER )((__CHARACTER *)__tmp__I1R)),((__UINTEGER_32 )__tmp__J1R),((__UINTEGER_32 )new_capacity__G1R)));
- __tmp__L1R=(__INTEGER)(new_capacity__G1R - 1);
- Self__M1R=__tmp__J1R;
- while ((Self__M1R <= __tmp__L1R)) {
- new__K1R[Self__M1R]='\0';
- Self__M1R=(__INTEGER)(Self__M1R + 1);
- };
- Self__OZR->storage__CNC=new__K1R;
- Self__OZR->capacity__ES=new_capacity__G1R;
- };
- };
- ((__CHARACTER *)Self__OZR->storage__CNC)[Self__OZR->count__CS]='\0';
- Self__OZR->count__CS=(__INTEGER)(Self__OZR->count__CS + 1);
- };
- Self__OZR->count__CS=(__INTEGER)(Self__OZR->count__CS - 1);
- ptr__NTG=((__POINTER )((__CHARACTER *)Self__OZR->storage__CNC));
- ptr__NTG=(void *)((unsigned long)ptr__NTG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_count__AS)));
- nc_buf__4R=((__CHARACTER *)ptr__NTG);
- new__H1=create__LV(((__STRING_CONSTANT *)(&__string_11))->count__JX);
- Self__ASC=((__STRING *)new__H1);
- Self__ASC->count__CS=((__STRING_CONSTANT *)(&__string_11))->count__JX;
- if ((Self__ASC->count__CS > 0)) {
- if ((Self__ASC->capacity__ES < Self__ASC->count__CS)) {
- nb_elements__G2R=Self__ASC->count__CS;
- sz__H2R=((__UINTEGER_32 )nb_elements__G2R);
- result__I2R=((__POINTER )(NULL));
- a__J2R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__K2R=(__UINTEGER_32)((__UINTEGER_32)(sz__H2R + a__J2R) & (__UINTEGER_32)(~ a__J2R));
- new_size2__L2R=(__UINTEGER_32)(new_size__K2R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__L2R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__M2R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__N2R=(__UINTEGER_32)((__UINTEGER_32)(new_size2__L2R + a__M2R) & (__UINTEGER_32)(~ a__M2R));
- ptr_table__O2R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__N2R / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__P2R=((__POINTER )(NULL));
- result__Q2R=((__POINTER *)ptr_table__O2R)[ 0];
- if ((result__Q2R == (void *)NULL)) {
- idx__3HS= 0;
- blc__4HS=NULL;
- prev__5HS=NULL;
- pv__AIS= 0;
- while_do__F3B__CIS:
- {
- if ((idx__3HS < nb_page__UYB)) {
- blc__4HS=((__MEMORY *)(last_block[(idx__3HS)]));
- __tmp__BIS=(((__UINTEGER_32)(((__MEMORY *)blc__4HS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__4HS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__BIS=FALSE__;
- };
- if (__tmp__BIS) {
- idx__3HS=(__UINTEGER_32)(idx__3HS + 1);
- goto while_do__F3B__CIS;
- };
- };
- if ((idx__3HS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__DIS=((__POINTER )(NULL));
- cap__EIS= 33554432;
- do {
- cap__EIS=(__UINTEGER_32)(cap__EIS << 1);
- mem__DIS=((__POINTER )(malloc((cap__EIS))));
- if ((mem__DIS != (void *)NULL)) {
- free((mem__DIS));
- };
- } while ((! ((mem__DIS == (void *)NULL) || (cap__EIS == 2147483648LU))));
- if ((mem__DIS == (void *)NULL)) {
- cap__EIS=(__UINTEGER_32)(cap__EIS >> 1);
- };
- capacity_max__4KD=cap__EIS;
- begin_memory__XLB=((__POINTER )(malloc((cap__EIS))));
- };
- old_size__GIS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__GIS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__HIS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__GIS))));
- block__HIS->previous_linear__CZ= 4294967295LU;
- block__HIS->size_and_id__DZ= 67108858;
- block__HIS->next_free__EZ=first_free__2KG;
- block__HIS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__HIS;
- };
- first_free__2KG=block__HIS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__HIS);
- blc__4HS=block__HIS;
- };
- ((__MEMORY *)blc__4HS)->size_and_id__DZ=(__UINTEGER_32)(blc__4HS->size_and_id__DZ - 4096);
- Self__IIS=((__MEMORY *)blc__4HS);
- result__JIS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__IIS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__IIS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__4HS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__KIS=((__MEMORY *)blc__4HS);
- prev__LIS=Self__KIS->previous_free__FZ;
- next__MIS=Self__KIS->next_free__EZ;
- if (((void *)prev__LIS == (void *)NULL)) {
- first_free__2KG=next__MIS;
- } else {
- ((__MEMORY *)prev__LIS)->next_free__EZ=next__MIS;
- };
- if (((void *)next__MIS != (void *)NULL)) {
- ((__MEMORY *)next__MIS)->previous_free__FZ=prev__LIS;
- };
- pv__AIS=blc__4HS->previous_linear__CZ;
- if ((pv__AIS != 4294967295LU)) {
- prev__5HS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__AIS))));
- ((__MEMORY *)prev__5HS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__5HS->size_and_id__DZ + blc__4HS->size_and_id__DZ) + 8);
- last_block[(idx__3HS)] = (prev__5HS);
- };
- };
- ((__POINTER *)result__JIS)[ 0]=((__POINTER )new_size__N2R);
- result__Q2R=(void *)((unsigned long)result__JIS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__P2R=(void *)((unsigned long)result__Q2R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N2R)));
- ((__POINTER *)next__P2R)[ 0]=NULL;
- ((__POINTER *)ptr_table__O2R)[ 0]=next__P2R;
- } else {
- next__P2R=((__POINTER *)result__Q2R)[ 0];
- if ((next__P2R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q2R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__N2R << 1)) <= 4096)) {
- next__P2R=(void *)((unsigned long)result__Q2R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N2R)));
- } else {
- idx__OIS= 0;
- blc__PIS=NULL;
- prev__QIS=NULL;
- pv__RIS= 0;
- while_do__F3B__TIS:
- {
- if ((idx__OIS < nb_page__UYB)) {
- blc__PIS=((__MEMORY *)(last_block[(idx__OIS)]));
- __tmp__SIS=(((__UINTEGER_32)(((__MEMORY *)blc__PIS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__PIS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__SIS=FALSE__;
- };
- if (__tmp__SIS) {
- idx__OIS=(__UINTEGER_32)(idx__OIS + 1);
- goto while_do__F3B__TIS;
- };
- };
- if ((idx__OIS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__UIS=((__POINTER )(NULL));
- cap__VIS= 33554432;
- do {
- cap__VIS=(__UINTEGER_32)(cap__VIS << 1);
- mem__UIS=((__POINTER )(malloc((cap__VIS))));
- if ((mem__UIS != (void *)NULL)) {
- free((mem__UIS));
- };
- } while ((! ((mem__UIS == (void *)NULL) || (cap__VIS == 2147483648LU))));
- if ((mem__UIS == (void *)NULL)) {
- cap__VIS=(__UINTEGER_32)(cap__VIS >> 1);
- };
- capacity_max__4KD=cap__VIS;
- begin_memory__XLB=((__POINTER )(malloc((cap__VIS))));
- };
- old_size__XIS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__XIS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__YIS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__XIS))));
- block__YIS->previous_linear__CZ= 4294967295LU;
- block__YIS->size_and_id__DZ= 67108858;
- block__YIS->next_free__EZ=first_free__2KG;
- block__YIS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__YIS;
- };
- first_free__2KG=block__YIS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__YIS);
- blc__PIS=block__YIS;
- };
- ((__MEMORY *)blc__PIS)->size_and_id__DZ=(__UINTEGER_32)(blc__PIS->size_and_id__DZ - 4096);
- Self__ZIS=((__MEMORY *)blc__PIS);
- result__0IS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ZIS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ZIS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__PIS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__1IS=((__MEMORY *)blc__PIS);
- prev__2IS=Self__1IS->previous_free__FZ;
- next__3IS=Self__1IS->next_free__EZ;
- if (((void *)prev__2IS == (void *)NULL)) {
- first_free__2KG=next__3IS;
- } else {
- ((__MEMORY *)prev__2IS)->next_free__EZ=next__3IS;
- };
- if (((void *)next__3IS != (void *)NULL)) {
- ((__MEMORY *)next__3IS)->previous_free__FZ=prev__2IS;
- };
- pv__RIS=blc__PIS->previous_linear__CZ;
- if ((pv__RIS != 4294967295LU)) {
- prev__QIS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__RIS))));
- ((__MEMORY *)prev__QIS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__QIS->size_and_id__DZ + blc__PIS->size_and_id__DZ) + 8);
- last_block[(idx__OIS)] = (prev__QIS);
- };
- };
- ((__POINTER *)result__0IS)[ 0]=((__POINTER )new_size__N2R);
- next__P2R=(void *)((unsigned long)result__0IS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__P2R)[ 0]=NULL;
- ((__POINTER *)ptr_table__O2R)[ 0]=next__P2R;
- } else {
- ((__POINTER *)result__Q2R)[ 0]=(void *)((unsigned long)((__POINTER *)next__P2R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q2R=next__P2R;
- };
- };
- ((__POINTER *)result__Q2R)[ 0]=((__POINTER ) 3);
- result__I2R=(void *)((unsigned long)result__Q2R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__W5R=first_free__2KG;
- while ((((void *)result__W5R != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__W5R)->size_and_id__DZ & 4294967292LU) < new_size__K2R))) {
- result__W5R=result__W5R->next_free__EZ;
- };
- if (((void *)result__W5R == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__OCS=((__POINTER )(NULL));
- cap__PCS= 33554432;
- do {
- cap__PCS=(__UINTEGER_32)(cap__PCS << 1);
- mem__OCS=((__POINTER )(malloc((cap__PCS))));
- if ((mem__OCS != (void *)NULL)) {
- free((mem__OCS));
- };
- } while ((! ((mem__OCS == (void *)NULL) || (cap__PCS == 2147483648LU))));
- if ((mem__OCS == (void *)NULL)) {
- cap__PCS=(__UINTEGER_32)(cap__PCS >> 1);
- };
- capacity_max__4KD=cap__PCS;
- begin_memory__XLB=((__POINTER )(malloc((cap__PCS))));
- };
- old_size__RCS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__RCS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__SCS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__RCS))));
- block__SCS->previous_linear__CZ= 4294967295LU;
- block__SCS->size_and_id__DZ= 67108858;
- block__SCS->next_free__EZ=first_free__2KG;
- block__SCS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__SCS;
- };
- first_free__2KG=block__SCS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__SCS);
- result__W5R=block__SCS;
- };
- Self__Z5R=((__MEMORY *)result__W5R);
- idx__05R=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__W5R)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__15R=NULL;
- prev__25R=Self__Z5R->previous_free__FZ;
- next__35R=Self__Z5R->next_free__EZ;
- if (((void *)prev__25R == (void *)NULL)) {
- first_free__2KG=next__35R;
- } else {
- ((__MEMORY *)prev__25R)->next_free__EZ=next__35R;
- };
- if (((void *)next__35R != (void *)NULL)) {
- ((__MEMORY *)next__35R)->previous_free__FZ=prev__25R;
- };
- siz__45R=Self__Z5R->size_and_id__DZ;
- new_size__55R=(__UINTEGER_32)(siz__45R - new_size__K2R);
- if ((new_size__55R > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__45R=new_size__K2R;
- new__15R=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__Z5R) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K2R))));
- ((__MEMORY *)new__15R)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__Z5R) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__15R)->size_and_id__DZ=(__UINTEGER_32)(new_size__55R - 8);
- Self__AAS=((__MEMORY *)new__15R);
- Self__AAS->next_free__EZ=first_free__2KG;
- Self__AAS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__AAS;
- };
- first_free__2KG=Self__AAS;
- if (((__UINTEGER_32)(((__MEMORY *)new__15R)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__05R)] = (new__15R);
- } else {
- Self__BAS=((__MEMORY *)new__15R);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__BAS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__BAS->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__15R)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__Z5R->size_and_id__DZ=(__UINTEGER_32)(siz__45R | 1);
- result__I2R=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__W5R)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__R2R=((__CHARACTER *)result__I2R);
- Self__S2R=(__INTEGER)(nb_elements__G2R - 1);
- while ((Self__S2R >= 0)) {
- Result__R2R[Self__S2R]='\0';
- Self__S2R=(__INTEGER)(Self__S2R - 1);
- };
- Self__ASC->storage__CNC=Result__R2R;
- Self__ASC->capacity__ES=Self__ASC->count__CS;
- };
- __tmp__XSC=Self__ASC->storage__CNC;
- __tmp__0SC=((__STRING_CONSTANT *)(&__string_11))->storage__ZZD;
- __tmp__3SC=(__INTEGER)(Self__ASC->count__CS - 1);
- Self__KXG=((__CHARACTER *)__tmp__XSC);
- Self__OIH=__tmp__3SC;
- while ((Self__OIH >= 0)) {
- Self__KXG[Self__OIH]=((__CHARACTER *)__tmp__0SC)[Self__OIH];
- Self__OIH=(__INTEGER)(Self__OIH - 1);
- };
- };
- Self__BMC=((__STRING *)new__H1);
- if ((Self__BMC->capacity__ES > Self__BMC->count__CS)) {
- Self__BMC->count__CS=(__INTEGER)(Self__BMC->count__CS + 1);
- if ((((__CHARACTER *)Self__BMC->storage__CNC)[(__INTEGER)(Self__BMC->count__CS - 1)] != '\0')) {
- ((__CHARACTER *)Self__BMC->storage__CNC)[(__INTEGER)(Self__BMC->count__CS - 1)]='\0';
- };
- } else {
- new_capacity__P1R= 0;
- if ((Self__BMC->capacity__ES <= Self__BMC->count__CS)) {
- if ((Self__BMC->capacity__ES == 0)) {
- Self__BMC->capacity__ES= 32;
- result__W2R=((__POINTER )(NULL));
- a__X2R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Y2R=(__UINTEGER_32)((__UINTEGER_32)( 32 + a__X2R) & (__UINTEGER_32)(~ a__X2R));
- new_size2__Z2R=(__UINTEGER_32)(new_size__Y2R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__Z2R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__02R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__12R=(__UINTEGER_32)((__UINTEGER_32)(new_size2__Z2R + a__02R) & (__UINTEGER_32)(~ a__02R));
- ptr_table__22R=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__12R / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__32R=((__POINTER )(NULL));
- result__42R=((__POINTER *)ptr_table__22R)[ 0];
- if ((result__42R == (void *)NULL)) {
- idx__5IS= 0;
- blc__AJS=NULL;
- prev__BJS=NULL;
- pv__CJS= 0;
- while_do__F3B__EJS:
- {
- if ((idx__5IS < nb_page__UYB)) {
- blc__AJS=((__MEMORY *)(last_block[(idx__5IS)]));
- __tmp__DJS=(((__UINTEGER_32)(((__MEMORY *)blc__AJS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__AJS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__DJS=FALSE__;
- };
- if (__tmp__DJS) {
- idx__5IS=(__UINTEGER_32)(idx__5IS + 1);
- goto while_do__F3B__EJS;
- };
- };
- if ((idx__5IS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__FJS=((__POINTER )(NULL));
- cap__GJS= 33554432;
- do {
- cap__GJS=(__UINTEGER_32)(cap__GJS << 1);
- mem__FJS=((__POINTER )(malloc((cap__GJS))));
- if ((mem__FJS != (void *)NULL)) {
- free((mem__FJS));
- };
- } while ((! ((mem__FJS == (void *)NULL) || (cap__GJS == 2147483648LU))));
- if ((mem__FJS == (void *)NULL)) {
- cap__GJS=(__UINTEGER_32)(cap__GJS >> 1);
- };
- capacity_max__4KD=cap__GJS;
- begin_memory__XLB=((__POINTER )(malloc((cap__GJS))));
- };
- old_size__IJS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__IJS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__JJS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__IJS))));
- block__JJS->previous_linear__CZ= 4294967295LU;
- block__JJS->size_and_id__DZ= 67108858;
- block__JJS->next_free__EZ=first_free__2KG;
- block__JJS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__JJS;
- };
- first_free__2KG=block__JJS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__JJS);
- blc__AJS=block__JJS;
- };
- ((__MEMORY *)blc__AJS)->size_and_id__DZ=(__UINTEGER_32)(blc__AJS->size_and_id__DZ - 4096);
- Self__KJS=((__MEMORY *)blc__AJS);
- result__LJS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__KJS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__KJS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__AJS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__MJS=((__MEMORY *)blc__AJS);
- prev__NJS=Self__MJS->previous_free__FZ;
- next__OJS=Self__MJS->next_free__EZ;
- if (((void *)prev__NJS == (void *)NULL)) {
- first_free__2KG=next__OJS;
- } else {
- ((__MEMORY *)prev__NJS)->next_free__EZ=next__OJS;
- };
- if (((void *)next__OJS != (void *)NULL)) {
- ((__MEMORY *)next__OJS)->previous_free__FZ=prev__NJS;
- };
- pv__CJS=blc__AJS->previous_linear__CZ;
- if ((pv__CJS != 4294967295LU)) {
- prev__BJS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__CJS))));
- ((__MEMORY *)prev__BJS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__BJS->size_and_id__DZ + blc__AJS->size_and_id__DZ) + 8);
- last_block[(idx__5IS)] = (prev__BJS);
- };
- };
- ((__POINTER *)result__LJS)[ 0]=((__POINTER )new_size__12R);
- result__42R=(void *)((unsigned long)result__LJS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- next__32R=(void *)((unsigned long)result__42R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__12R)));
- ((__POINTER *)next__32R)[ 0]=NULL;
- ((__POINTER *)ptr_table__22R)[ 0]=next__32R;
- } else {
- next__32R=((__POINTER *)result__42R)[ 0];
- if ((next__32R == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__42R - (unsigned long)begin_memory__XLB)))) & 4095) + (__UINTEGER_32)(new_size__12R << 1)) <= 4096)) {
- next__32R=(void *)((unsigned long)result__42R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__12R)));
- } else {
- idx__QJS= 0;
- blc__RJS=NULL;
- prev__SJS=NULL;
- pv__TJS= 0;
- while_do__F3B__VJS:
- {
- if ((idx__QJS < nb_page__UYB)) {
- blc__RJS=((__MEMORY *)(last_block[(idx__QJS)]));
- __tmp__UJS=(((__UINTEGER_32)(((__MEMORY *)blc__RJS)->size_and_id__DZ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__RJS)->size_and_id__DZ & 1) == 1));
- } else {
- __tmp__UJS=FALSE__;
- };
- if (__tmp__UJS) {
- idx__QJS=(__UINTEGER_32)(idx__QJS + 1);
- goto while_do__F3B__VJS;
- };
- };
- if ((idx__QJS >= nb_page__UYB)) {
- if ((capacity_max__4KD == 0)) {
- mem__WJS=((__POINTER )(NULL));
- cap__XJS= 33554432;
- do {
- cap__XJS=(__UINTEGER_32)(cap__XJS << 1);
- mem__WJS=((__POINTER )(malloc((cap__XJS))));
- if ((mem__WJS != (void *)NULL)) {
- free((mem__WJS));
- };
- } while ((! ((mem__WJS == (void *)NULL) || (cap__XJS == 2147483648LU))));
- if ((mem__WJS == (void *)NULL)) {
- cap__XJS=(__UINTEGER_32)(cap__XJS >> 1);
- };
- capacity_max__4KD=cap__XJS;
- begin_memory__XLB=((__POINTER )(malloc((cap__XJS))));
- };
- old_size__ZJS=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__ZJS + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__0JS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__ZJS))));
- block__0JS->previous_linear__CZ= 4294967295LU;
- block__0JS->size_and_id__DZ= 67108858;
- block__0JS->next_free__EZ=first_free__2KG;
- block__0JS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__0JS;
- };
- first_free__2KG=block__0JS;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__0JS);
- blc__RJS=block__0JS;
- };
- ((__MEMORY *)blc__RJS)->size_and_id__DZ=(__UINTEGER_32)(blc__RJS->size_and_id__DZ - 4096);
- Self__1JS=((__MEMORY *)blc__RJS);
- result__2JS=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1JS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1JS->size_and_id__DZ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__RJS)->size_and_id__DZ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__3JS=((__MEMORY *)blc__RJS);
- prev__4JS=Self__3JS->previous_free__FZ;
- next__5JS=Self__3JS->next_free__EZ;
- if (((void *)prev__4JS == (void *)NULL)) {
- first_free__2KG=next__5JS;
- } else {
- ((__MEMORY *)prev__4JS)->next_free__EZ=next__5JS;
- };
- if (((void *)next__5JS != (void *)NULL)) {
- ((__MEMORY *)next__5JS)->previous_free__FZ=prev__4JS;
- };
- pv__TJS=blc__RJS->previous_linear__CZ;
- if ((pv__TJS != 4294967295LU)) {
- prev__SJS=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__TJS))));
- ((__MEMORY *)prev__SJS)->size_and_id__DZ=(__UINTEGER_32)((__UINTEGER_32)(prev__SJS->size_and_id__DZ + blc__RJS->size_and_id__DZ) + 8);
- last_block[(idx__QJS)] = (prev__SJS);
- };
- };
- ((__POINTER *)result__2JS)[ 0]=((__POINTER )new_size__12R);
- next__32R=(void *)((unsigned long)result__2JS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- };
- ((__POINTER *)next__32R)[ 0]=NULL;
- ((__POINTER *)ptr_table__22R)[ 0]=next__32R;
- } else {
- ((__POINTER *)result__42R)[ 0]=(void *)((unsigned long)((__POINTER *)next__32R)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__42R=next__32R;
- };
- };
- ((__POINTER *)result__42R)[ 0]=((__POINTER ) 3);
- result__W2R=(void *)((unsigned long)result__42R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__CAS=first_free__2KG;
- while ((((void *)result__CAS != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__CAS)->size_and_id__DZ & 4294967292LU) < new_size__Y2R))) {
- result__CAS=result__CAS->next_free__EZ;
- };
- if (((void *)result__CAS == (void *)NULL)) {
- if ((capacity_max__4KD == 0)) {
- mem__40E=((__POINTER )(NULL));
- cap__10E= 33554432;
- do {
- cap__10E=(__UINTEGER_32)(cap__10E << 1);
- mem__40E=((__POINTER )(malloc((cap__10E))));
- if ((mem__40E != (void *)NULL)) {
- free((mem__40E));
- };
- } while ((! ((mem__40E == (void *)NULL) || (cap__10E == 2147483648LU))));
- if ((mem__40E == (void *)NULL)) {
- cap__10E=(__UINTEGER_32)(cap__10E >> 1);
- };
- capacity_max__4KD=cap__10E;
- begin_memory__XLB=((__POINTER )(malloc((cap__10E))));
- };
- old_size__XKD=(__UINTEGER_32)(nb_page__UYB << 26);
- nb_page__UYB=(__UINTEGER_32)(nb_page__UYB + 1);
- if (((__UINTEGER_32)(old_size__XKD + 67108864) > capacity_max__4KD)) {
- print__PO((&__string_1));
- exit(( 1));
- };
- block__3KD=((__MEMORY *)(void *)((unsigned long)begin_memory__XLB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__XKD))));
- block__3KD->previous_linear__CZ= 4294967295LU;
- block__3KD->size_and_id__DZ= 67108858;
- block__3KD->next_free__EZ=first_free__2KG;
- block__3KD->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=block__3KD;
- };
- first_free__2KG=block__3KD;
- last_block[((__UINTEGER_32)(nb_page__UYB - 1))] = (block__3KD);
- result__CAS=block__3KD;
- };
- Self__FAS=((__MEMORY *)result__CAS);
- idx__GAS=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__CAS)) - (unsigned long)begin_memory__XLB)))) >> 26);
- new__HAS=NULL;
- prev__IAS=Self__FAS->previous_free__FZ;
- next__JAS=Self__FAS->next_free__EZ;
- if (((void *)prev__IAS == (void *)NULL)) {
- first_free__2KG=next__JAS;
- } else {
- ((__MEMORY *)prev__IAS)->next_free__EZ=next__JAS;
- };
- if (((void *)next__JAS != (void *)NULL)) {
- ((__MEMORY *)next__JAS)->previous_free__FZ=prev__IAS;
- };
- siz__KAS=Self__FAS->size_and_id__DZ;
- new_size__LAS=(__UINTEGER_32)(siz__KAS - new_size__Y2R);
- if ((new_size__LAS > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__KAS=new_size__Y2R;
- new__HAS=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__FAS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y2R))));
- ((__MEMORY *)new__HAS)->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__FAS) - (unsigned long)begin_memory__XLB))));
- ((__MEMORY *)new__HAS)->size_and_id__DZ=(__UINTEGER_32)(new_size__LAS - 8);
- Self__MAS=((__MEMORY *)new__HAS);
- Self__MAS->next_free__EZ=first_free__2KG;
- Self__MAS->previous_free__FZ=NULL;
- if (((void *)first_free__2KG != (void *)NULL)) {
- ((__MEMORY *)first_free__2KG)->previous_free__FZ=Self__MAS;
- };
- first_free__2KG=Self__MAS;
- if (((__UINTEGER_32)(((__MEMORY *)new__HAS)->size_and_id__DZ & 2) != 0)) {
- last_block[(idx__GAS)] = (new__HAS);
- } else {
- Self__NAS=((__MEMORY *)new__HAS);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NAS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NAS->size_and_id__DZ & 4294967292LU)))))->previous_linear__CZ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__HAS)) - (unsigned long)begin_memory__XLB))));
- };
- };
- Self__FAS->size_and_id__DZ=(__UINTEGER_32)(siz__KAS | 1);
- result__W2R=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__CAS)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__52R=((__CHARACTER *)result__W2R);
- Self__A3R= 31;
- while ((Self__A3R >= 0)) {
- Result__52R[Self__A3R]='\0';
- Self__A3R=(__INTEGER)(Self__A3R - 1);
- };
- Self__BMC->storage__CNC=Result__52R;
- } else {
- new_capacity__P1R=(__INTEGER)(Self__BMC->capacity__ES << 1);
- __tmp__R1R=Self__BMC->storage__CNC;
- __tmp__S1R=Self__BMC->capacity__ES;
- new__T1R=((__CHARACTER *)realloc_dynamic__old_size__new_size__FPH(((__POINTER )((__CHARACTER *)__tmp__R1R)),((__UINTEGER_32 )__tmp__S1R),((__UINTEGER_32 )new_capacity__P1R)));
- __tmp__U1R=(__INTEGER)(new_capacity__P1R - 1);
- Self__V1R=__tmp__S1R;
- while ((Self__V1R <= __tmp__U1R)) {
- new__T1R[Self__V1R]='\0';
- Self__V1R=(__INTEGER)(Self__V1R + 1);
- };
- Self__BMC->storage__CNC=new__T1R;
- Self__BMC->capacity__ES=new_capacity__P1R;
- };
- };
- ((__CHARACTER *)Self__BMC->storage__CNC)[Self__BMC->count__CS]='\0';
- Self__BMC->count__CS=(__INTEGER)(Self__BMC->count__CS + 1);
- };
- Self__BMC->count__CS=(__INTEGER)(Self__BMC->count__CS - 1);
- snprintf((nc_buf__4R),(cap__BS),(Self__BMC->storage__CNC),(Self__HO));
- Self__TNC=((__STRING *)string_tmp__JO);
- Self__TNC->count__CS= 0;
- __tmp__BUR=Self__TNC->storage__CNC;
- while ((((__CHARACTER *)__tmp__BUR)[Self__TNC->count__CS] != '\0')) {
- Self__TNC->count__CS=(__INTEGER)(Self__TNC->count__CS + 1);
- };
- s__C3R=((__STRING *)string_tmp__JO);
- __tmp__D3R=((__STRING *)s__C3R)->count__CS;
- Self__E3R= 1;
- __tmp__H3R=((__STRING *)s__C3R)->storage__CNC;
- while ((Self__E3R <= __tmp__D3R)) {
- fputc((int)(((__CHARACTER *)__tmp__H3R)[(__INTEGER)(Self__E3R - 1)]),stdout);
- Self__E3R=(__INTEGER)(Self__E3R + 1);
- };
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/partial_sums/partial_sums_c.c b/example/shootout/partial_sums/partial_sums_c.c
deleted file mode 100644
index f06175c..0000000
--- a/example/shootout/partial_sums/partial_sums_c.c
+++ /dev/null
@@ -1,68 +0,0 @@
-// The Computer Language Shootout
-// http://shootout.alioth.debian.org/
-// contributed by Greg Buchholz
-//
-// compile with: -O3 -msse2 -lm
-
-#include<math.h>
-#include<stdio.h>
-
-typedef double v2df __attribute__ ((vector_size (16)));
-
-v2df make_vec(double a, double b)
-{
- v2df v;
- double *tmp;
- tmp = (double *)&v; *(tmp) = a; *(tmp+1) = b;
- return v;
-}
-
-double sum_vec(v2df x)
-{
- double *tmp = (double *)&x;
- return *(tmp) + *(tmp+1);
-}
-
-int main(int argc, char* argv[])
-{
- double twoThrd = 0, sqrts = 0, Flint = 0, Cookson = 0;
- v2df Harmonic, zeta, poly, alt, Gregory;
- v2df zero, one, two, init, m_one, kv, av;
-
- double k, k3, s, c;
- int n; n = atoi(argv[1]);
-
- zero = make_vec( 0.0, 0.0); one = make_vec( 1.0, 1.0);
- two = make_vec( 2.0, 2.0); m_one = make_vec(-1.0, -1.0);
- init = make_vec( 1.0, 2.0); av = make_vec( 1.0, -1.0);
-
- Harmonic = zeta = poly = alt = Gregory = zero;
-
- for (k=1; k<=n; k++)
- {
- twoThrd += pow(2.0/3.0, k-1);
- sqrts += 1.0/sqrt(k);
- k3 = k*k*k;
- s = sin(k); c = cos(k);
- Flint += 1.0/(k3 * s*s);
- Cookson += 1.0/(k3 * c*c);
- }
-
- for (kv=init; *(double *)(&kv)<=n; kv+=two)
- {
- poly += one /(kv*(kv+one));
- Harmonic+= one / kv;
- zeta += one /(kv*kv);
- alt += av / kv;
- Gregory += av /(two*kv - one);
- }
-
-#define psum(name,num) printf("%.9f\t%s\n",num,name)
- psum("(2/3)^k", twoThrd); psum("k^-0.5", sqrts);
- psum("1/k(k+1)", sum_vec(poly)); psum("Flint Hills", Flint);
- psum("Cookson Hills", Cookson); psum("Harmonic", sum_vec(Harmonic));
- psum("Riemann Zeta",sum_vec(zeta)); psum("Alternating Harmonic",sum_vec(alt));
- psum("Gregory", sum_vec(Gregory));
-
- return 0;
-}
diff --git a/example/shootout/pidigits/pidigits.c b/example/shootout/pidigits/pidigits.c
deleted file mode 100755
index 8537210..0000000
--- a/example/shootout/pidigits/pidigits.c
+++ /dev/null
@@ -1,1174 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// CTX
-#include <gmp.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM
-#include <time.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- unsigned long __id;
- __INTEGER count__UT;
- __INTEGER capacity__U1C;
- __CHARACTER *storage__31C;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__IJ;
- volatile __UINTEGER_32 size_and_id__JJ;
- __MEMORY *next_free__KJ;
- __MEMORY *previous_free__LJ;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 1
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER upper__V0C;
- __INTEGER capacity__U2C;
- void **storage__52C;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 2
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__TB;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// NUMERIC
-#define __NUMERIC__ 3
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- unsigned long __id;
- __INTEGER count__LDE;
- __CHARACTER *storage__JDE;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// CTX
-#define __CTX__ 5
-typedef struct CTX_struct __CTX;
-struct CTX_struct {
- void *Nothing;
-};
-__CTX CTX_;
-#define CTX__ (&CTX_)
-
-// MPZ
-typedef mpz_t __MPZ;
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// INTEGER_32
-typedef signed long __INTEGER_32;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[6];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__G;
-__POINTER begin_memory__GJB;
-__UINTEGER_32 nb_page__J5B;
-__UINTEGER_32 capacity_max__QZD;
-__MEMORY *first_free__IFH;
-__UINTEGER_32 clone_allocation_size__4I;
-__INTEGER n__LC;
-__INTEGER i__MC;
-void *digits__PC;
-__MPZ q__QC;
-__MPZ r__UC;
-__MPZ s__YC;
-__MPZ t__2C;
-__MPZ u__AD;
-__MPZ v__CD;
-__MPZ w__ED;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__X4B(__UINTEGER_32 t__Z4B);
-static void** create__EQG(__INTEGER nb_elements__GQG);
-static __STRING* create__WF(__INTEGER needed_capacity__YF);
-static void add_last__U4C(__STRING *Self__V4C,__CHARACTER ch__W4C);
-static __POINTER realloc_dynamic__old_size__new_size__VOI(__POINTER p__XOI,__UINTEGER_32 old_sz__YOI,__UINTEGER_32 new_sz__ZOI);
-static void put_string__OQD(void *s__QQD);
-static __MEMORY* new_page__GZD();
-static __MEMORY* search__FEH(__UINTEGER_32 new_size__HEH);
-static __CHARACTER* create__YLF(__INTEGER nb_elements__0LF);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__FF,*__tmp__IU;
- __INTEGER new_count__DH,typ_id__HK,Self__OH,limit_up__PH,idx__B3D;
- __INTEGER i__U4D,new_capacity__O5D,__tmp__SAE,__tmp__H5H,Self__YMM;
- __INTEGER n__Y,state__NZL,result__QZL,i__MZL,__tmp__XYS,__tmp__ZYS;
- __INTEGER y__JC,k__IC,i__1XB,j__2XB,br__DCB,__tmp__TE,__tmp__XE;
- __POINTER ptr__CK,ptr_table__I1S,next__H1S,result__J1S,ptr_table__MHB;
- __POINTER next__RHB,result__PHB;
- __UINTEGER_32 sz__EK,a__BWS,new_size__X1,t__A3,a__HWS,new_size__LHB;
- __UINTEGER_32 lab_type__NHB;
- __STRING *Self__S4D,*Self__KZL,*Self__5ME;
- __INTEGER_32 Self__QXB,val__YXB;
- __CHARACTER *arg__EF,*Self__V2D,*p__T4D,*__tmp__YYS;
- __FAST_ARRAYoSTRINGo *result__BK,*Self__L2C,*Self__M5D;
- void *result__DF;
- __BOOLEAN __tmp__25D,negative__PZL,__tmp__20L,result__ZEQ,__tmp__P1L;
- __BOOLEAN __tmp__E2L,result__QKP,__tmp__L3L,result__CLP,result__HWG;
- __BOOLEAN stop__KC;
- void **__tmp__RAE,**new__U4H;
- __CHARACTER cc__OZL,tmp__CNE;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoSTRINGo__->upper__V0C= 0;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__U2C= 0;
- ARRAYED_COLLECTIONoSTRINGo__->storage__52C=NULL;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__TB=(*ARRAYED_COLLECTIONoSTRINGo__);
- parent_numeric__G=NUMERIC__;
- clone_allocation_size__4I= 0;
- STRING_CONSTANT__->count__LDE=((__INTEGER )((0)));
- STRING__->count__UT= 0;
- STRING_CONSTANT__->storage__JDE=((__CHARACTER *)(NULL));
- STRING__->storage__31C=NULL;
- nb_page__J5B= 0;
- MEMORY__->size_and_id__JJ= 0;
- capacity_max__QZD= 0;
- begin_memory__GJB=((__POINTER )(NULL));
- MEMORY__->previous_linear__IJ= 0;
- first_free__IFH=NULL;
- MEMORY__->next_free__KJ=NULL;
- MEMORY__->previous_free__LJ=NULL;
- STRING__->capacity__U1C= 0;
- arg__EF=NULL;
- str__FF=NULL;
- new_count__DH=((__INTEGER )(arg_count));
- result__BK=NULL;
- ptr__CK=((__POINTER )(NULL));
- typ_id__HK= 0;
- sz__EK=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__EK == 0)) {
- result__BK=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__HK=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__4I=sz__EK;
- if ((typ_id__HK == (__INTEGER)(- 1))) {
- a__BWS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X1=(__UINTEGER_32)((__UINTEGER_32)(sz__EK + a__BWS) & (__UINTEGER_32)(~ a__BWS));
- ptr_table__I1S=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X1 / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__H1S=((__POINTER )(NULL));
- result__J1S=((__POINTER *)ptr_table__I1S)[ 0];
- if ((result__J1S == (void *)NULL)) {
- result__J1S=new_lab__X4B(new_size__X1);
- next__H1S=(void *)((unsigned long)result__J1S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X1)));
- ((__POINTER *)next__H1S)[ 0]=NULL;
- ((__POINTER *)ptr_table__I1S)[ 0]=next__H1S;
- } else {
- next__H1S=((__POINTER *)result__J1S)[ 0];
- if ((next__H1S == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J1S - (unsigned long)begin_memory__GJB)))) & 4095) + (__UINTEGER_32)(new_size__X1 << 1)) <= 4096)) {
- next__H1S=(void *)((unsigned long)result__J1S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X1)));
- } else {
- next__H1S=new_lab__X4B(new_size__X1);
- };
- ((__POINTER *)next__H1S)[ 0]=NULL;
- ((__POINTER *)ptr_table__I1S)[ 0]=next__H1S;
- } else {
- ((__POINTER *)result__J1S)[ 0]=(void *)((unsigned long)((__POINTER *)next__H1S)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__J1S=next__H1S;
- };
- };
- ptr__CK=result__J1S;
- } else {
- t__A3=((__UINTEGER_32 )typ_id__HK);
- a__HWS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LHB=(__UINTEGER_32)((__UINTEGER_32)(sz__EK + a__HWS) & (__UINTEGER_32)(~ a__HWS));
- ptr_table__MHB=((__POINTER )(&(table_type[(t__A3)])));
- lab_type__NHB=(__UINTEGER_32)(t__A3 | 1);
- next__RHB=((__POINTER )(NULL));
- result__PHB=((__POINTER *)ptr_table__MHB)[ 0];
- if ((result__PHB == (void *)NULL)) {
- result__PHB=new_lab__X4B(lab_type__NHB);
- next__RHB=(void *)((unsigned long)result__PHB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LHB)));
- ((__POINTER *)next__RHB)[ 0]=NULL;
- ((__POINTER *)ptr_table__MHB)[ 0]=next__RHB;
- } else {
- next__RHB=((__POINTER *)result__PHB)[ 0];
- if ((next__RHB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PHB - (unsigned long)begin_memory__GJB)))) & 4095) + (__UINTEGER_32)(new_size__LHB << 1)) <= 4096)) {
- next__RHB=(void *)((unsigned long)result__PHB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LHB)));
- } else {
- next__RHB=new_lab__X4B(lab_type__NHB);
- };
- ((__POINTER *)next__RHB)[ 0]=NULL;
- ((__POINTER *)ptr_table__MHB)[ 0]=next__RHB;
- } else {
- ((__POINTER *)result__PHB)[ 0]=(void *)((unsigned long)((__POINTER *)next__RHB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PHB=next__RHB;
- };
- };
- ptr__CK=result__PHB;
- };
- result__BK=((__FAST_ARRAYoSTRINGo *)ptr__CK);
- *(result__BK) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__L2C=((__FAST_ARRAYoSTRINGo *)result__BK);
- if ((Self__L2C->parent_arrayed_collection__TB.capacity__U2C < new_count__DH)) {
- Self__L2C->parent_arrayed_collection__TB.storage__52C=create__EQG(new_count__DH);
- Self__L2C->parent_arrayed_collection__TB.capacity__U2C=new_count__DH;
- };
- Self__L2C->parent_arrayed_collection__TB.upper__V0C=(__INTEGER)(- 1);
- result__DF=result__BK;
- Self__OH= 0;
- limit_up__PH=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__OH <= limit_up__PH)) {
- arg__EF=((__CHARACTER *)(arg_vector[(Self__OH)]));
- Self__V2D=((__CHARACTER *)arg__EF);
- idx__B3D= 0;
- while ((! ((idx__B3D > 1024) || ('\0' == Self__V2D[idx__B3D])))) {
- idx__B3D=(__INTEGER)(idx__B3D + 1);
- };
- str__FF=create__WF(idx__B3D);
- Self__S4D=((__STRING *)str__FF);
- p__T4D=arg__EF;
- i__U4D= 0;
- Self__S4D->count__UT= 0;
- while ((((__CHARACTER *)p__T4D)[i__U4D] != '\0')) {
- add_last__U4C(Self__S4D,((__CHARACTER *)p__T4D)[i__U4D]);
- i__U4D=(__INTEGER)(i__U4D + 1);
- };
- Self__M5D=((__FAST_ARRAYoSTRINGo *)result__DF);
- new_capacity__O5D= 0;
- if (((__INTEGER)(Self__M5D->parent_arrayed_collection__TB.upper__V0C + 1) <= (__INTEGER)(Self__M5D->parent_arrayed_collection__TB.capacity__U2C - 1))) {
- Self__M5D->parent_arrayed_collection__TB.upper__V0C=(__INTEGER)(Self__M5D->parent_arrayed_collection__TB.upper__V0C + 1);
- __tmp__25D=TRUE__;
- } else {
- __tmp__25D=FALSE__;
- };
- if ((! __tmp__25D)) {
- if ((Self__M5D->parent_arrayed_collection__TB.capacity__U2C == 0)) {
- Self__M5D->parent_arrayed_collection__TB.storage__52C=create__EQG( 2);
- Self__M5D->parent_arrayed_collection__TB.capacity__U2C= 2;
- Self__M5D->parent_arrayed_collection__TB.upper__V0C= 0;
- } else {
- new_capacity__O5D=(__INTEGER)(Self__M5D->parent_arrayed_collection__TB.capacity__U2C << 1);
- __tmp__RAE=Self__M5D->parent_arrayed_collection__TB.storage__52C;
- __tmp__SAE=Self__M5D->parent_arrayed_collection__TB.capacity__U2C;
- new__U4H=((void **)realloc_dynamic__old_size__new_size__VOI(((__POINTER )((void **)__tmp__RAE)),((__UINTEGER_32 )(__INTEGER)(__tmp__SAE * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__O5D * ((__INTEGER )(sizeof(void *)))))));
- __tmp__H5H=(__INTEGER)(new_capacity__O5D - 1);
- Self__YMM=__tmp__SAE;
- while ((Self__YMM <= __tmp__H5H)) {
- new__U4H[Self__YMM]=NULL;
- Self__YMM=(__INTEGER)(Self__YMM + 1);
- };
- Self__M5D->parent_arrayed_collection__TB.storage__52C=new__U4H;
- Self__M5D->parent_arrayed_collection__TB.capacity__U2C=new_capacity__O5D;
- Self__M5D->parent_arrayed_collection__TB.upper__V0C=(__INTEGER)(Self__M5D->parent_arrayed_collection__TB.upper__V0C + 1);
- };
- };
- ((void **)Self__M5D->parent_arrayed_collection__TB.storage__52C)[Self__M5D->parent_arrayed_collection__TB.upper__V0C]=str__FF;
- Self__OH=(__INTEGER)(Self__OH + 1);
- };
- n__LC= 0;
- i__MC= 0;
- digits__PC=NULL;
- ((/*;
- q__QC=((__MPZ )(n));
- r__UC=((__MPZ )(n));
- s__YC=((__MPZ )(n));
- t__2C=((__MPZ )(n));
- u__AD=((__MPZ )(n));
- v__CD=((__MPZ )(n));
- w__ED=((__MPZ )(*/NULL));
- n__Y= 0;
- if (((__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__BK)->parent_arrayed_collection__TB.upper__V0C + 1) > 1)) {
- Self__KZL=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__BK)->parent_arrayed_collection__TB.storage__52C)[ 1]);
- state__NZL= 0;
- cc__OZL='\0';
- negative__PZL=FALSE__;
- result__QZL= 0;
- i__MZL= 1;
- __tmp__XYS=Self__KZL->count__UT;
- __tmp__YYS=Self__KZL->storage__31C;
- __tmp__ZYS=Self__KZL->count__UT;
- while ((i__MZL <= __tmp__XYS)) {
- cc__OZL=((__CHARACTER *)__tmp__YYS)[(__INTEGER)(i__MZL - 1)];
- if ((state__NZL == 0)) {
- if ((((((((cc__OZL == ' ') || (cc__OZL == '\t')) || (cc__OZL == '\n')) || (cc__OZL == '\r')) || (cc__OZL == '\0')) || (cc__OZL == '\f')) || (cc__OZL == '\v'))) {
- __tmp__20L=TRUE__;
- } else {
- result__ZEQ=(cc__OZL == '+');
- if (result__ZEQ) {
- state__NZL= 1;
- };
- __tmp__20L=result__ZEQ;
- };
- if ((! __tmp__20L)) {
- if ((cc__OZL == '-')) {
- negative__PZL=TRUE__;
- state__NZL= 1;
- } else {
- result__QZL=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OZL)) - 48);
- state__NZL= 2;
- };
- };
- __tmp__P1L=TRUE__;
- } else {
- __tmp__P1L=FALSE__;
- };
- if (__tmp__P1L) {
- __tmp__E2L=TRUE__;
- } else {
- result__QKP=(state__NZL == 1);
- if (result__QKP) {
- result__QZL=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OZL)) - 48);
- if (negative__PZL) {
- result__QZL=(__INTEGER)(- result__QZL);
- };
- state__NZL= 2;
- };
- __tmp__E2L=result__QKP;
- };
- if (__tmp__E2L) {
- __tmp__L3L=TRUE__;
- } else {
- result__CLP=(state__NZL == 2);
- if (result__CLP) {
- result__HWG=FALSE__;
- if ((((__INTEGER_8 )cc__OZL) >= ((__INTEGER_8 )'0'))) {
- result__HWG=(((__INTEGER_8 )cc__OZL) <= ((__INTEGER_8 )'9'));
- };
- if (result__HWG) {
- if (negative__PZL) {
- result__QZL=(__INTEGER)((__INTEGER)( 10 * result__QZL) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OZL)) - 48));
- } else {
- result__QZL=(__INTEGER)((__INTEGER)( 10 * result__QZL) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__OZL)) - 48));
- };
- } else {
- state__NZL= 3;
- };
- };
- __tmp__L3L=result__CLP;
- };
- if ((! __tmp__L3L)) {
- if ((state__NZL == 3)) {
- i__MZL=__tmp__ZYS;
- };
- };
- i__MZL=(__INTEGER)(i__MZL + 1);
- };
- n__Y=result__QZL;
- } else {
- n__Y= 27;
- };
- y__JC= 0;
- stop__KC=FALSE__;
- k__IC= 1;
- n__LC=n__Y;
- i__MC= 0;
- digits__PC=create__WF( 20);
- mpz_init_set_ui((q__QC), ( 1));
- mpz_init_set_ui((r__UC), ( 0));
- mpz_init_set_ui((s__YC), ( 0));
- mpz_init_set_ui((t__2C), ( 1));
- mpz_init((u__AD));
- mpz_init((v__CD));
- mpz_init((w__ED));
- do {
- mpz_mul_ui((u__AD),(q__QC), ( 3));
- mpz_add((u__AD),(u__AD),(r__UC));
- mpz_mul_ui((v__CD),(s__YC), ( 3));
- mpz_add((v__CD),(v__CD),(t__2C));
- mpz_tdiv_q((w__ED),(u__AD),(v__CD));
- y__JC=((__INTEGER )(mpz_get_ui((w__ED))));
- mpz_mul_ui((u__AD),(q__QC), ( 4));
- mpz_add((u__AD),(u__AD),(r__UC));
- mpz_mul_ui((v__CD),(s__YC), ( 4));
- mpz_add((v__CD),(v__CD),(t__2C));
- mpz_tdiv_q((w__ED),(u__AD),(v__CD));
- if ((y__JC == ((__INTEGER )(mpz_get_ui((w__ED)))))) {
- add_last__U4C(digits__PC,((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )y__JC) + ((__INTEGER_8 )'0'))))));
- i__MC=(__INTEGER)(i__MC + 1);
- if (((((__STRING *)digits__PC)->count__UT == 10) || (i__MC == n__LC))) {
- add_last__U4C(digits__PC,'\t');
- add_last__U4C(digits__PC,':');
- __tmp__IU=digits__PC;
- Self__QXB=((__INTEGER_32 )i__MC);
- val__YXB= 0;
- i__1XB= 0;
- j__2XB= 0;
- if ((Self__QXB == 0)) {
- add_last__U4C(((__STRING *)digits__PC),'0');
- } else {
- if ((Self__QXB > 0)) {
- val__YXB=Self__QXB;
- } else {
- val__YXB=(__INTEGER_32)(- Self__QXB);
- add_last__U4C(((__STRING *)__tmp__IU),'-');
- };
- i__1XB=(__INTEGER)(((__STRING *)__tmp__IU)->count__UT + 1);
- while ((val__YXB != 0)) {
- add_last__U4C(((__STRING *)__tmp__IU),((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER_32)(val__YXB % 10)) + ((__INTEGER_8 )'0'))))));
- val__YXB=(__INTEGER_32)(val__YXB / 10);
- };
- j__2XB=((__STRING *)__tmp__IU)->count__UT;
- while ((i__1XB < j__2XB)) {
- Self__5ME=((__STRING *)__tmp__IU);
- tmp__CNE=((__CHARACTER *)Self__5ME->storage__31C)[(__INTEGER)(i__1XB - 1)];
- ((__CHARACTER *)Self__5ME->storage__31C)[(__INTEGER)(i__1XB - 1)]=((__CHARACTER *)Self__5ME->storage__31C)[(__INTEGER)(j__2XB - 1)];
- ((__CHARACTER *)Self__5ME->storage__31C)[(__INTEGER)(j__2XB - 1)]=tmp__CNE;
- j__2XB=(__INTEGER)(j__2XB - 1);
- i__1XB=(__INTEGER)(i__1XB + 1);
- };
- };
- add_last__U4C(digits__PC,'\n');
- put_string__OQD(((__STRING *)digits__PC));
- ((__STRING *)digits__PC)->count__UT= 0;
- };
- if ((i__MC == n__LC)) {
- stop__KC=TRUE__;
- } else {
- br__DCB=(__INTEGER)((__INTEGER)(- 10) * y__JC);
- mpz_mul_si((u__AD),(r__UC),( 0));
- mpz_mul_si((r__UC),(r__UC),( 10));
- mpz_mul_si((v__CD),(t__2C),(br__DCB));
- mpz_add((r__UC),(r__UC),(v__CD));
- mpz_mul_si((t__2C),(t__2C),( 1));
- mpz_add((t__2C),(t__2C),(u__AD));
- mpz_mul_si((s__YC),(s__YC),( 1));
- mpz_mul_si((u__AD),(q__QC),( 0));
- mpz_add((s__YC),(s__YC),(u__AD));
- mpz_mul_si((q__QC),(q__QC),( 10));
- };
- } else {
- __tmp__TE=(__INTEGER)((__INTEGER)(k__IC << 2) + 2);
- __tmp__XE=(__INTEGER)((__INTEGER)(k__IC << 1) + 1);
- mpz_mul_si((r__UC),(r__UC),(__tmp__XE));
- mpz_mul_si((u__AD),(q__QC),(__tmp__TE));
- mpz_add((r__UC),(r__UC),(u__AD));
- mpz_mul_si((u__AD),(t__2C),( 0));
- mpz_mul_si((t__2C),(t__2C),(__tmp__XE));
- mpz_mul_si((v__CD),(s__YC),(__tmp__TE));
- mpz_add((t__2C),(t__2C),(v__CD));
- mpz_mul_si((s__YC),(s__YC),(k__IC));
- mpz_add((s__YC),(s__YC),(u__AD));
- mpz_mul_si((q__QC),(q__QC),(k__IC));
- k__IC=(__INTEGER)(k__IC + 1);
- };
- } while ((! stop__KC));
- return( 0);
-}
-
-static __POINTER new_lab__X4B(__UINTEGER_32 t__Z4B)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__14B,pv__C5B;
- __MEMORY *blc__44B,*prev__54B,*Self__BIS,*Self__YUS,*prev__ZUS;
- __MEMORY *next__0US;
- __POINTER result__A5B;
- __BOOLEAN __tmp__CAC;
- idx__14B= 0;
- blc__44B=NULL;
- prev__54B=NULL;
- pv__C5B= 0;
- while_do__QEC:
- {
- if ((idx__14B < nb_page__J5B)) {
- blc__44B=((__MEMORY *)(last_block[(idx__14B)]));
- __tmp__CAC=(((__UINTEGER_32)(((__MEMORY *)blc__44B)->size_and_id__JJ & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__44B)->size_and_id__JJ & 1) == 1));
- } else {
- __tmp__CAC=FALSE__;
- };
- if (__tmp__CAC) {
- idx__14B=(__UINTEGER_32)(idx__14B + 1);
- goto while_do__QEC;
- };
- };
- if ((idx__14B >= nb_page__J5B)) {
- blc__44B=new_page__GZD();
- };
- ((__MEMORY *)blc__44B)->size_and_id__JJ=(__UINTEGER_32)(blc__44B->size_and_id__JJ - 4096);
- Self__BIS=((__MEMORY *)blc__44B);
- result__A5B=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__BIS) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__BIS->size_and_id__JJ & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__44B)->size_and_id__JJ & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__YUS=((__MEMORY *)blc__44B);
- prev__ZUS=Self__YUS->previous_free__LJ;
- next__0US=Self__YUS->next_free__KJ;
- if (((void *)prev__ZUS == (void *)NULL)) {
- first_free__IFH=next__0US;
- } else {
- ((__MEMORY *)prev__ZUS)->next_free__KJ=next__0US;
- };
- if (((void *)next__0US != (void *)NULL)) {
- ((__MEMORY *)next__0US)->previous_free__LJ=prev__ZUS;
- };
- pv__C5B=blc__44B->previous_linear__IJ;
- if ((pv__C5B != 4294967295LU)) {
- prev__54B=((__MEMORY *)(void *)((unsigned long)begin_memory__GJB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__C5B))));
- ((__MEMORY *)prev__54B)->size_and_id__JJ=(__UINTEGER_32)((__UINTEGER_32)(prev__54B->size_and_id__JJ + blc__44B->size_and_id__JJ) + 8);
- last_block[(idx__14B)] = (prev__54B);
- };
- };
- ((__POINTER *)result__A5B)[ 0]=((__POINTER )t__Z4B);
- return((void *)((unsigned long)result__A5B - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__EQG(__INTEGER nb_elements__GQG)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__RZS,a__QZS,new_size__SZS,new_size2__TZS,a__VZS;
- __UINTEGER_32 new_size__WZS;
- __POINTER result__PZS,ptr_table__K0S,next__J0S,result__L0S;
- __INTEGER Self__WXI;
- void **Result__VZG;
- sz__RZS=((__UINTEGER_32 )(__INTEGER)(nb_elements__GQG * ((__INTEGER )(sizeof(void *)))));
- result__PZS=((__POINTER )(NULL));
- a__QZS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SZS=(__UINTEGER_32)((__UINTEGER_32)(sz__RZS + a__QZS) & (__UINTEGER_32)(~ a__QZS));
- new_size2__TZS=(__UINTEGER_32)(new_size__SZS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__TZS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__VZS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WZS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__TZS + a__VZS) & (__UINTEGER_32)(~ a__VZS));
- ptr_table__K0S=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WZS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__J0S=((__POINTER )(NULL));
- result__L0S=((__POINTER *)ptr_table__K0S)[ 0];
- if ((result__L0S == (void *)NULL)) {
- result__L0S=new_lab__X4B(new_size__WZS);
- next__J0S=(void *)((unsigned long)result__L0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WZS)));
- ((__POINTER *)next__J0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__K0S)[ 0]=next__J0S;
- } else {
- next__J0S=((__POINTER *)result__L0S)[ 0];
- if ((next__J0S == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L0S - (unsigned long)begin_memory__GJB)))) & 4095) + (__UINTEGER_32)(new_size__WZS << 1)) <= 4096)) {
- next__J0S=(void *)((unsigned long)result__L0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WZS)));
- } else {
- next__J0S=new_lab__X4B(new_size__WZS);
- };
- ((__POINTER *)next__J0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__K0S)[ 0]=next__J0S;
- } else {
- ((__POINTER *)result__L0S)[ 0]=(void *)((unsigned long)((__POINTER *)next__J0S)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__L0S=next__J0S;
- };
- };
- ((__POINTER *)result__L0S)[ 0]=((__POINTER ) 3);
- result__PZS=(void *)((unsigned long)result__L0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__PZS=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__FEH(new_size__SZS))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__VZG=((void **)result__PZS);
- Self__WXI=(__INTEGER)(nb_elements__GQG - 1);
- while ((Self__WXI >= 0)) {
- Result__VZG[Self__WXI]=NULL;
- Self__WXI=(__INTEGER)(Self__WXI - 1);
- };
- return(Result__VZG);
-}
-
-static __STRING* create__WF(__INTEGER needed_capacity__YF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__KI,*Self__F1C;
- __POINTER ptr__LI,ptr_table__Q0S,next__P0S,result__R0S,ptr_table__W0S;
- __POINTER next__V0S,result__X0S;
- __INTEGER typ_id__QI;
- __UINTEGER_32 sz__NI,a__MWS,new_size__NWS,t__WWS,a__TWS,new_size__Z0S;
- __UINTEGER_32 lab_type__Y0S;
- result__KI=NULL;
- ptr__LI=((__POINTER )(NULL));
- typ_id__QI= 0;
- sz__NI=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__NI == 0)) {
- result__KI=STRING__;
- } else {
- typ_id__QI=-1;
- clone_allocation_size__4I=(__UINTEGER_32)(clone_allocation_size__4I + sz__NI);
- if ((typ_id__QI == (__INTEGER)(- 1))) {
- a__MWS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NWS=(__UINTEGER_32)((__UINTEGER_32)(sz__NI + a__MWS) & (__UINTEGER_32)(~ a__MWS));
- ptr_table__Q0S=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NWS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__P0S=((__POINTER )(NULL));
- result__R0S=((__POINTER *)ptr_table__Q0S)[ 0];
- if ((result__R0S == (void *)NULL)) {
- result__R0S=new_lab__X4B(new_size__NWS);
- next__P0S=(void *)((unsigned long)result__R0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NWS)));
- ((__POINTER *)next__P0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__Q0S)[ 0]=next__P0S;
- } else {
- next__P0S=((__POINTER *)result__R0S)[ 0];
- if ((next__P0S == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R0S - (unsigned long)begin_memory__GJB)))) & 4095) + (__UINTEGER_32)(new_size__NWS << 1)) <= 4096)) {
- next__P0S=(void *)((unsigned long)result__R0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NWS)));
- } else {
- next__P0S=new_lab__X4B(new_size__NWS);
- };
- ((__POINTER *)next__P0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__Q0S)[ 0]=next__P0S;
- } else {
- ((__POINTER *)result__R0S)[ 0]=(void *)((unsigned long)((__POINTER *)next__P0S)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__R0S=next__P0S;
- };
- };
- ptr__LI=result__R0S;
- } else {
- t__WWS=((__UINTEGER_32 )typ_id__QI);
- a__TWS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Z0S=(__UINTEGER_32)((__UINTEGER_32)(sz__NI + a__TWS) & (__UINTEGER_32)(~ a__TWS));
- ptr_table__W0S=((__POINTER )(&(table_type[(t__WWS)])));
- lab_type__Y0S=(__UINTEGER_32)(t__WWS | 1);
- next__V0S=((__POINTER )(NULL));
- result__X0S=((__POINTER *)ptr_table__W0S)[ 0];
- if ((result__X0S == (void *)NULL)) {
- result__X0S=new_lab__X4B(lab_type__Y0S);
- next__V0S=(void *)((unsigned long)result__X0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z0S)));
- ((__POINTER *)next__V0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__W0S)[ 0]=next__V0S;
- } else {
- next__V0S=((__POINTER *)result__X0S)[ 0];
- if ((next__V0S == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X0S - (unsigned long)begin_memory__GJB)))) & 4095) + (__UINTEGER_32)(new_size__Z0S << 1)) <= 4096)) {
- next__V0S=(void *)((unsigned long)result__X0S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z0S)));
- } else {
- next__V0S=new_lab__X4B(lab_type__Y0S);
- };
- ((__POINTER *)next__V0S)[ 0]=NULL;
- ((__POINTER *)ptr_table__W0S)[ 0]=next__V0S;
- } else {
- ((__POINTER *)result__X0S)[ 0]=(void *)((unsigned long)((__POINTER *)next__V0S)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__X0S=next__V0S;
- };
- };
- ptr__LI=result__X0S;
- };
- result__KI=((__STRING *)ptr__LI);
- *(result__KI) = *(STRING__);
- };
- Self__F1C=((__STRING *)result__KI);
- if ((needed_capacity__YF > 0)) {
- if ((Self__F1C->capacity__U1C < needed_capacity__YF)) {
- Self__F1C->storage__31C=create__YLF(needed_capacity__YF);
- Self__F1C->capacity__U1C=needed_capacity__YF;
- };
- };
- Self__F1C->count__UT= 0;
- return(result__KI);
-}
-
-static void add_last__U4C(__STRING *Self__V4C,__CHARACTER ch__W4C)
-// ({STRING},{CHARACTER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__X4C,__tmp__Q5C,__tmp__40H,Self__ZKM;
- __CHARACTER *__tmp__P5C,*new__L0H;
- new_capacity__X4C= 0;
- if ((Self__V4C->capacity__U1C <= Self__V4C->count__UT)) {
- if ((Self__V4C->capacity__U1C == 0)) {
- Self__V4C->capacity__U1C= 32;
- Self__V4C->storage__31C=create__YLF( 32);
- } else {
- new_capacity__X4C=(__INTEGER)(Self__V4C->capacity__U1C << 1);
- __tmp__P5C=Self__V4C->storage__31C;
- __tmp__Q5C=Self__V4C->capacity__U1C;
- new__L0H=((__CHARACTER *)realloc_dynamic__old_size__new_size__VOI(((__POINTER )((__CHARACTER *)__tmp__P5C)),((__UINTEGER_32 )__tmp__Q5C),((__UINTEGER_32 )new_capacity__X4C)));
- __tmp__40H=(__INTEGER)(new_capacity__X4C - 1);
- Self__ZKM=__tmp__Q5C;
- while ((Self__ZKM <= __tmp__40H)) {
- new__L0H[Self__ZKM]='\0';
- Self__ZKM=(__INTEGER)(Self__ZKM + 1);
- };
- Self__V4C->storage__31C=new__L0H;
- Self__V4C->capacity__U1C=new_capacity__X4C;
- };
- };
- ((__CHARACTER *)Self__V4C->storage__31C)[Self__V4C->count__UT]=ch__W4C;
- Self__V4C->count__UT=(__INTEGER)(Self__V4C->count__UT + 1);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__VOI(__POINTER p__XOI,__UINTEGER_32 old_sz__YOI,__UINTEGER_32 new_sz__ZOI)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__EPI,*Self__QYK,*nxt__UYK,*result__VYK,*Self__W1S;
- __MEMORY *new__V1S,*prev__X1S,*next__Y1S,*Self__21S,*Self__41S;
- __MEMORY *next__0RL,*new_free__ZRL,*prev__JXS,*next__KXS;
- __POINTER result__FPI,result__OJG,ptr_table__20S,next__10S;
- __POINTER result__30S,p__GXK,last__UEL,src__AWK,dst__BWK;
- __UINTEGER_32 a__ZWS,old_size__1OI,old_size2__4OI,a__3WS;
- __UINTEGER_32 new_size__BPI,a__SUS,new_size__IJG,new_size2__LJG;
- __UINTEGER_32 a__2XS,new_size__3XS,a__JFB,__tmp__WQI,sz__ZYK;
- __UINTEGER_32 old_size__WYK,siz__Z1S,new_size__11S,prev__1RL;
- __UINTEGER_32 new_size__4RL;
- __INTEGER siz__O1S,Self__T1S,siz__FWK,Self__HCL;
- __POINTER *na_src__Q1S,*na_dst__S1S,*na_src__DWK,*na_dst__EWK;
- mem__EPI=NULL;
- result__FPI=((__POINTER )(NULL));
- a__ZWS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__1OI=(__UINTEGER_32)((__UINTEGER_32)(old_sz__YOI + a__ZWS) & (__UINTEGER_32)(~ a__ZWS));
- old_size2__4OI=(__UINTEGER_32)(old_size__1OI + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__3WS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BPI=(__UINTEGER_32)((__UINTEGER_32)(new_sz__ZOI + a__3WS) & (__UINTEGER_32)(~ a__3WS));
- if ((old_size2__4OI <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__OJG=((__POINTER )(NULL));
- a__SUS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IJG=(__UINTEGER_32)((__UINTEGER_32)(new_size__BPI + a__SUS) & (__UINTEGER_32)(~ a__SUS));
- new_size2__LJG=(__UINTEGER_32)(new_size__IJG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__LJG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__2XS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3XS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LJG + a__2XS) & (__UINTEGER_32)(~ a__2XS));
- ptr_table__20S=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3XS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__10S=((__POINTER )(NULL));
- result__30S=((__POINTER *)ptr_table__20S)[ 0];
- if ((result__30S == (void *)NULL)) {
- result__30S=new_lab__X4B(new_size__3XS);
- next__10S=(void *)((unsigned long)result__30S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XS)));
- ((__POINTER *)next__10S)[ 0]=NULL;
- ((__POINTER *)ptr_table__20S)[ 0]=next__10S;
- } else {
- next__10S=((__POINTER *)result__30S)[ 0];
- if ((next__10S == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__30S - (unsigned long)begin_memory__GJB)))) & 4095) + (__UINTEGER_32)(new_size__3XS << 1)) <= 4096)) {
- next__10S=(void *)((unsigned long)result__30S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XS)));
- } else {
- next__10S=new_lab__X4B(new_size__3XS);
- };
- ((__POINTER *)next__10S)[ 0]=NULL;
- ((__POINTER *)ptr_table__20S)[ 0]=next__10S;
- } else {
- ((__POINTER *)result__30S)[ 0]=(void *)((unsigned long)((__POINTER *)next__10S)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__30S=next__10S;
- };
- };
- ((__POINTER *)result__30S)[ 0]=((__POINTER ) 3);
- result__OJG=(void *)((unsigned long)result__30S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__OJG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__FEH(new_size__IJG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__FPI=result__OJG;
- siz__O1S=((__INTEGER )old_size__1OI);
- siz__O1S=(__INTEGER)(siz__O1S / ((__INTEGER )(sizeof(void *))));
- na_src__Q1S=((__POINTER *)p__XOI);
- na_dst__S1S=((__POINTER *)result__OJG);
- Self__T1S=(__INTEGER)(siz__O1S - 1);
- while ((Self__T1S >= 0)) {
- na_dst__S1S[Self__T1S]=na_src__Q1S[Self__T1S];
- Self__T1S=(__INTEGER)(Self__T1S - 1);
- };
- p__GXK=(void *)((unsigned long)p__XOI - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__JFB=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__UEL=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__4OI + a__JFB) & (__UINTEGER_32)(~ a__JFB)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__GXK)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__UEL)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__UEL)[ 0]=p__GXK;
- } else {
- mem__EPI=((__MEMORY *)(void *)((unsigned long)p__XOI - (unsigned long)((__POINTER ) 8)));
- __tmp__WQI=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__XOI - (unsigned long)begin_memory__GJB)))) >> 26);
- Self__QYK=((__MEMORY *)mem__EPI);
- nxt__UYK=NULL;
- result__VYK=NULL;
- sz__ZYK= 0;
- old_size__WYK=(__UINTEGER_32)(Self__QYK->size_and_id__JJ & 4294967292LU);
- if ((new_size__BPI > old_size__WYK)) {
- if ((! ((__UINTEGER_32)(Self__QYK->size_and_id__JJ & 2) != 0))) {
- nxt__UYK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__QYK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__QYK->size_and_id__JJ & 4294967292LU)))));
- sz__ZYK=(__UINTEGER_32)((__UINTEGER_32)(new_size__BPI - old_size__WYK) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__UYK)->size_and_id__JJ & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__UYK)->size_and_id__JJ & 4294967292LU) >= sz__ZYK))) {
- Self__W1S=((__MEMORY *)nxt__UYK);
- new__V1S=NULL;
- prev__X1S=Self__W1S->previous_free__LJ;
- next__Y1S=Self__W1S->next_free__KJ;
- if (((void *)prev__X1S == (void *)NULL)) {
- first_free__IFH=next__Y1S;
- } else {
- ((__MEMORY *)prev__X1S)->next_free__KJ=next__Y1S;
- };
- if (((void *)next__Y1S != (void *)NULL)) {
- ((__MEMORY *)next__Y1S)->previous_free__LJ=prev__X1S;
- };
- siz__Z1S=Self__W1S->size_and_id__JJ;
- new_size__11S=(__UINTEGER_32)(siz__Z1S - sz__ZYK);
- if ((new_size__11S > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__Z1S=sz__ZYK;
- new__V1S=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__W1S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__ZYK))));
- ((__MEMORY *)new__V1S)->previous_linear__IJ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__W1S) - (unsigned long)begin_memory__GJB))));
- ((__MEMORY *)new__V1S)->size_and_id__JJ=(__UINTEGER_32)(new_size__11S - 8);
- Self__21S=((__MEMORY *)new__V1S);
- Self__21S->next_free__KJ=first_free__IFH;
- Self__21S->previous_free__LJ=NULL;
- if (((void *)first_free__IFH != (void *)NULL)) {
- ((__MEMORY *)first_free__IFH)->previous_free__LJ=Self__21S;
- };
- first_free__IFH=Self__21S;
- if (((__UINTEGER_32)(((__MEMORY *)new__V1S)->size_and_id__JJ & 2) != 0)) {
- last_block[(__tmp__WQI)] = (new__V1S);
- } else {
- Self__41S=((__MEMORY *)new__V1S);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__41S) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__41S->size_and_id__JJ & 4294967292LU)))))->previous_linear__IJ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__V1S)) - (unsigned long)begin_memory__GJB))));
- };
- };
- Self__W1S->size_and_id__JJ=(__UINTEGER_32)(siz__Z1S | 1);
- Self__QYK->size_and_id__JJ=(__UINTEGER_32)((__UINTEGER_32)(Self__QYK->size_and_id__JJ + (__UINTEGER_32)(nxt__UYK->size_and_id__JJ & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__QYK->size_and_id__JJ & 2) != 0)) {
- last_block[(__tmp__WQI)] = (Self__QYK);
- } else {
- nxt__UYK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__QYK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__QYK->size_and_id__JJ & 4294967292LU)))));
- ((__MEMORY *)nxt__UYK)->previous_linear__IJ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__QYK) - (unsigned long)begin_memory__GJB))));
- };
- result__VYK=Self__QYK;
- };
- };
- if (((void *)result__VYK == (void *)NULL)) {
- result__VYK=search__FEH(new_size__BPI);
- src__AWK=(void *)((unsigned long)((__POINTER )Self__QYK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__BWK=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__VYK)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__FWK=((__INTEGER )old_size__WYK);
- siz__FWK=(__INTEGER)(siz__FWK / ((__INTEGER )(sizeof(void *))));
- na_src__DWK=((__POINTER *)src__AWK);
- na_dst__EWK=((__POINTER *)dst__BWK);
- Self__HCL=(__INTEGER)(siz__FWK - 1);
- while ((Self__HCL >= 0)) {
- na_dst__EWK[Self__HCL]=na_src__DWK[Self__HCL];
- Self__HCL=(__INTEGER)(Self__HCL - 1);
- };
- prev__1RL=Self__QYK->previous_linear__IJ;
- next__0RL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__QYK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__QYK->size_and_id__JJ & 4294967292LU)))));
- new_free__ZRL=((__MEMORY *)(void *)((unsigned long)begin_memory__GJB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__1RL))));
- new_size__4RL=(__UINTEGER_32)(Self__QYK->size_and_id__JJ & 4294967294LU);
- if (((prev__1RL == 4294967295LU) || ((__UINTEGER_32)(new_free__ZRL->size_and_id__JJ & 1) != 0))) {
- new_free__ZRL=Self__QYK;
- Self__QYK->next_free__KJ=first_free__IFH;
- Self__QYK->previous_free__LJ=NULL;
- if (((void *)first_free__IFH != (void *)NULL)) {
- ((__MEMORY *)first_free__IFH)->previous_free__LJ=Self__QYK;
- };
- first_free__IFH=Self__QYK;
- } else {
- new_size__4RL=(__UINTEGER_32)((__UINTEGER_32)(new_size__4RL + new_free__ZRL->size_and_id__JJ) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__QYK->size_and_id__JJ & 2) != 0)) && ((__UINTEGER_32)(next__0RL->size_and_id__JJ & 1) == 0))) {
- new_size__4RL=(__UINTEGER_32)((__UINTEGER_32)(new_size__4RL + next__0RL->size_and_id__JJ) + 8);
- prev__JXS=next__0RL->previous_free__LJ;
- next__KXS=next__0RL->next_free__KJ;
- if (((void *)prev__JXS == (void *)NULL)) {
- first_free__IFH=next__KXS;
- } else {
- ((__MEMORY *)prev__JXS)->next_free__KJ=next__KXS;
- };
- if (((void *)next__KXS != (void *)NULL)) {
- ((__MEMORY *)next__KXS)->previous_free__LJ=prev__JXS;
- };
- };
- new_free__ZRL->size_and_id__JJ=new_size__4RL;
- if (((__UINTEGER_32)(new_free__ZRL->size_and_id__JJ & 2) != 0)) {
- last_block[(__tmp__WQI)] = (new_free__ZRL);
- } else {
- next__0RL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__QYK) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__QYK->size_and_id__JJ & 4294967292LU)))));
- next__0RL->previous_linear__IJ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__ZRL) - (unsigned long)begin_memory__GJB))));
- };
- };
- } else {
- result__VYK=Self__QYK;
- };
- result__FPI=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__VYK)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__FPI);
-}
-
-static void put_string__OQD(void *s__QQD)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__DRD,Self__DYD,limit_up__EYD;
- __CHARACTER *__tmp__OXS,*__tmp__PXS;
- __CHARACTER __tmp__KRD;
- if (((struct ___OBJ *)s__QQD)->__id==__STRING_CONSTANT__) {
- };
- if (((struct ___OBJ *)s__QQD)->__id==__STRING_CONSTANT__) {
- __tmp__DRD=((__STRING_CONSTANT *)s__QQD)->count__LDE;
- } else {
- __tmp__DRD=((__STRING *)s__QQD)->count__UT;
- };
- Self__DYD= 1;
- limit_up__EYD=__tmp__DRD;
- __tmp__OXS=((__STRING_CONSTANT *)s__QQD)->storage__JDE;
- __tmp__PXS=((__STRING *)s__QQD)->storage__31C;
- while ((Self__DYD <= limit_up__EYD)) {
- if (((struct ___OBJ *)s__QQD)->__id==__STRING_CONSTANT__) {
- __tmp__KRD=((__CHARACTER *)__tmp__OXS)[(__INTEGER)(Self__DYD - 1)];
- } else {
- __tmp__KRD=((__CHARACTER *)__tmp__PXS)[(__INTEGER)(Self__DYD - 1)];
- };
- fputc((int)(__tmp__KRD),stdout);
- Self__DYD=(__INTEGER)(Self__DYD + 1);
- };
-}
-
-static __MEMORY* new_page__GZD()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__XQF;
- __UINTEGER_32 cap__UQF,old_size__JZD;
- __MEMORY *block__PZD;
- if ((capacity_max__QZD == 0)) {
- mem__XQF=((__POINTER )(NULL));
- cap__UQF= 33554432;
- do {
- cap__UQF=(__UINTEGER_32)(cap__UQF << 1);
- mem__XQF=((__POINTER )(malloc((cap__UQF))));
- if ((mem__XQF != (void *)NULL)) {
- free((mem__XQF));
- };
- } while ((! ((mem__XQF == (void *)NULL) || (cap__UQF == 2147483648LU))));
- if ((mem__XQF == (void *)NULL)) {
- cap__UQF=(__UINTEGER_32)(cap__UQF >> 1);
- };
- capacity_max__QZD=cap__UQF;
- begin_memory__GJB=((__POINTER )(malloc((cap__UQF))));
- };
- old_size__JZD=(__UINTEGER_32)(nb_page__J5B << 26);
- nb_page__J5B=(__UINTEGER_32)(nb_page__J5B + 1);
- if (((__UINTEGER_32)(old_size__JZD + 67108864) > capacity_max__QZD)) {
- put_string__OQD((&__string_1));
- exit(( 1));
- };
- block__PZD=((__MEMORY *)(void *)((unsigned long)begin_memory__GJB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__JZD))));
- block__PZD->previous_linear__IJ= 4294967295LU;
- block__PZD->size_and_id__JJ= 67108858;
- block__PZD->next_free__KJ=first_free__IFH;
- block__PZD->previous_free__LJ=NULL;
- if (((void *)first_free__IFH != (void *)NULL)) {
- ((__MEMORY *)first_free__IFH)->previous_free__LJ=block__PZD;
- };
- first_free__IFH=block__PZD;
- last_block[((__UINTEGER_32)(nb_page__J5B - 1))] = (block__PZD);
- return(block__PZD);
-}
-
-static __MEMORY* search__FEH(__UINTEGER_32 new_size__HEH)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__JEH,*Self__RCI,*new__0CI,*prev__41I,*next__51I;
- __MEMORY *Self__UXH,*Self__HES;
- __UINTEGER_32 idx__TCI,siz__UCI,new_size__XCI;
- result__JEH=first_free__IFH;
- while ((((void *)result__JEH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__JEH)->size_and_id__JJ & 4294967292LU) < new_size__HEH))) {
- result__JEH=result__JEH->next_free__KJ;
- };
- if (((void *)result__JEH == (void *)NULL)) {
- result__JEH=new_page__GZD();
- };
- Self__RCI=((__MEMORY *)result__JEH);
- idx__TCI=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__JEH)) - (unsigned long)begin_memory__GJB)))) >> 26);
- new__0CI=NULL;
- prev__41I=Self__RCI->previous_free__LJ;
- next__51I=Self__RCI->next_free__KJ;
- if (((void *)prev__41I == (void *)NULL)) {
- first_free__IFH=next__51I;
- } else {
- ((__MEMORY *)prev__41I)->next_free__KJ=next__51I;
- };
- if (((void *)next__51I != (void *)NULL)) {
- ((__MEMORY *)next__51I)->previous_free__LJ=prev__41I;
- };
- siz__UCI=Self__RCI->size_and_id__JJ;
- new_size__XCI=(__UINTEGER_32)(siz__UCI - new_size__HEH);
- if ((new_size__XCI > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__UCI=new_size__HEH;
- new__0CI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__RCI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEH))));
- ((__MEMORY *)new__0CI)->previous_linear__IJ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__RCI) - (unsigned long)begin_memory__GJB))));
- ((__MEMORY *)new__0CI)->size_and_id__JJ=(__UINTEGER_32)(new_size__XCI - 8);
- Self__UXH=((__MEMORY *)new__0CI);
- Self__UXH->next_free__KJ=first_free__IFH;
- Self__UXH->previous_free__LJ=NULL;
- if (((void *)first_free__IFH != (void *)NULL)) {
- ((__MEMORY *)first_free__IFH)->previous_free__LJ=Self__UXH;
- };
- first_free__IFH=Self__UXH;
- if (((__UINTEGER_32)(((__MEMORY *)new__0CI)->size_and_id__JJ & 2) != 0)) {
- last_block[(idx__TCI)] = (new__0CI);
- } else {
- Self__HES=((__MEMORY *)new__0CI);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__HES) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__HES->size_and_id__JJ & 4294967292LU)))))->previous_linear__IJ=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__0CI)) - (unsigned long)begin_memory__GJB))));
- };
- };
- Self__RCI->size_and_id__JJ=(__UINTEGER_32)(siz__UCI | 1);
- return(result__JEH);
-}
-
-static __CHARACTER* create__YLF(__INTEGER nb_elements__0LF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__CYS,a__BYS,new_size__DYS,new_size2__EYS,a__GYS;
- __UINTEGER_32 new_size__HYS;
- __POINTER result__AYS,ptr_table__C1S,next__B1S,result__D1S;
- __INTEGER Self__NSI;
- __CHARACTER *Result__01F;
- sz__CYS=((__UINTEGER_32 )nb_elements__0LF);
- result__AYS=((__POINTER )(NULL));
- a__BYS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DYS=(__UINTEGER_32)((__UINTEGER_32)(sz__CYS + a__BYS) & (__UINTEGER_32)(~ a__BYS));
- new_size2__EYS=(__UINTEGER_32)(new_size__DYS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__EYS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GYS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HYS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__EYS + a__GYS) & (__UINTEGER_32)(~ a__GYS));
- ptr_table__C1S=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HYS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__B1S=((__POINTER )(NULL));
- result__D1S=((__POINTER *)ptr_table__C1S)[ 0];
- if ((result__D1S == (void *)NULL)) {
- result__D1S=new_lab__X4B(new_size__HYS);
- next__B1S=(void *)((unsigned long)result__D1S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HYS)));
- ((__POINTER *)next__B1S)[ 0]=NULL;
- ((__POINTER *)ptr_table__C1S)[ 0]=next__B1S;
- } else {
- next__B1S=((__POINTER *)result__D1S)[ 0];
- if ((next__B1S == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D1S - (unsigned long)begin_memory__GJB)))) & 4095) + (__UINTEGER_32)(new_size__HYS << 1)) <= 4096)) {
- next__B1S=(void *)((unsigned long)result__D1S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HYS)));
- } else {
- next__B1S=new_lab__X4B(new_size__HYS);
- };
- ((__POINTER *)next__B1S)[ 0]=NULL;
- ((__POINTER *)ptr_table__C1S)[ 0]=next__B1S;
- } else {
- ((__POINTER *)result__D1S)[ 0]=(void *)((unsigned long)((__POINTER *)next__B1S)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__D1S=next__B1S;
- };
- };
- ((__POINTER *)result__D1S)[ 0]=((__POINTER ) 3);
- result__AYS=(void *)((unsigned long)result__D1S - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__AYS=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__FEH(new_size__DYS))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__01F=((__CHARACTER *)result__AYS);
- Self__NSI=(__INTEGER)(nb_elements__0LF - 1);
- while ((Self__NSI >= 0)) {
- Result__01F[Self__NSI]='\0';
- Self__NSI=(__INTEGER)(Self__NSI - 1);
- };
- return(Result__01F);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/pidigits/pidigits_c.c b/example/shootout/pidigits/pidigits_c.c
deleted file mode 100644
index 89c7287..0000000
--- a/example/shootout/pidigits/pidigits_c.c
+++ /dev/null
@@ -1,105 +0,0 @@
-/*
-** The Computer Language Shootout
-** http://shootout.alioth.debian.org/
-** contributed by Mike Pall
-**
-** gcc -O3 -fomit-frame-pointer -o pidigits pidigits.c -lgmp
-*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <gmp.h>
-
-typedef struct ctx_s {
- mpz_t q, r, s, t; /* Transformation matrix components. */
- mpz_t u, v, w; /* Temporary numbers. */
- int d, i, n; /* Counters. */
- char digits[10+1]; /* Accumulated digits for one line. */
-} ctx_t;
-
-/* Compose matrix with numbers on the right. */
-static void compose_r(ctx_t *c, int bq, int br, int bs, int bt)
-{
- mpz_mul_si(c->u, c->r, bs);
- mpz_mul_si(c->r, c->r, bq);
- mpz_mul_si(c->v, c->t, br);
- mpz_add(c->r, c->r, c->v);
- mpz_mul_si(c->t, c->t, bt);
- mpz_add(c->t, c->t, c->u);
- mpz_mul_si(c->s, c->s, bt);
- mpz_mul_si(c->u, c->q, bs);
- mpz_add(c->s, c->s, c->u);
- mpz_mul_si(c->q, c->q, bq);
-}
-
-/* Compose matrix with numbers on the left. */
-static void compose_l(ctx_t *c, int bq, int br, int bs, int bt)
-{
- mpz_mul_si(c->r, c->r, bt);
- mpz_mul_si(c->u, c->q, br);
- mpz_add(c->r, c->r, c->u);
- mpz_mul_si(c->u, c->t, bs);
- mpz_mul_si(c->t, c->t, bt);
- mpz_mul_si(c->v, c->s, br);
- mpz_add(c->t, c->t, c->v);
- mpz_mul_si(c->s, c->s, bq);
- mpz_add(c->s, c->s, c->u);
- mpz_mul_si(c->q, c->q, bq);
-}
-
-/* Extract one digit. */
-static int extract(ctx_t *c, unsigned int j)
-{
- mpz_mul_ui(c->u, c->q, j);
- mpz_add(c->u, c->u, c->r);
- mpz_mul_ui(c->v, c->s, j);
- mpz_add(c->v, c->v, c->t);
- mpz_tdiv_q(c->w, c->u, c->v);
- return mpz_get_ui(c->w);
-}
-
-/* Print one digit. Returns 1 for the last digit. */
-static int prdigit(ctx_t *c, int y)
-{
- c->digits[c->d++] = '0'+y;
- if (++c->i % 10 == 0 || c->i == c->n) {
- c->digits[c->d] = '\0';
- printf("%-10s\t:%d\n", c->digits, c->i);
- c->d = 0;
- }
- return c->i == c->n;
-}
-
-/* Generate successive digits of PI. */
-static void pidigits(ctx_t *c)
-{
- int k = 1;
- c->d = 0;
- c->i = 0;
- mpz_init_set_ui(c->q, 1);
- mpz_init_set_ui(c->r, 0);
- mpz_init_set_ui(c->s, 0);
- mpz_init_set_ui(c->t, 1);
- mpz_init(c->u);
- mpz_init(c->v);
- mpz_init(c->w);
- for (;;) {
- int y = extract(c, 3);
- if (y == extract(c, 4)) {
- if (prdigit(c, y)) return;
- compose_r(c, 10, -10*y, 0, 1);
- } else {
- compose_l(c, k, 4*k+2, 0, 2*k+1);
- k++;
- }
- }
-}
-
-int main(int argc, char **argv)
-{
- ctx_t c;
- c.n = argc > 1 ? atoi(argv[1]) : 27;
- pidigits(&c);
- return 0;
-}
-
diff --git a/example/shootout/recursive/recursive_c.c b/example/shootout/recursive/recursive_c.c
deleted file mode 100644
index dd4057a..0000000
--- a/example/shootout/recursive/recursive_c.c
+++ /dev/null
@@ -1,55 +0,0 @@
-/*
- * The Computer Language Shootout
- * http://shootout.alioth.debian.org/
-
- * contributed by bearophile, Jan 24 2006
- * modified by wolfjb, Feb 28 2007
- */
-#include <stdio.h>
-
-int ack(int x, int y) {
- if (x == 0) {
- return y + 1;
- }
-
- return ack(x - 1, ((y | 0) ? ack(x, y - 1) : 1));
-}
-
-int fib(int n) {
- if (n < 2) {
- return 1;
- }
- return fib(n - 2) + fib(n - 1);
-}
-
-double fibFP(double n) {
- if (n < 2.0) {
- return 1.0;
- }
- return fibFP(n - 2.0) + fibFP(n - 1.0);
-}
-
-int tak(int x, int y, int z) {
- if (y < x) {
- return tak(tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y));
- }
- return z;
-}
-
-double takFP(double x, double y, double z) {
- if (y < x)
- return takFP( takFP(x-1.0, y, z), takFP(y-1.0, z, x), takFP(z-1.0, x, y) );
- return z;
-}
-
-int main(int argc, char ** argv) {
- int n = atoi(argv[1]) - 1;
-
- printf("Ack(3,%d): %d\n", n + 1, ack(3, n+1));
- printf("Fib(%.1f): %.1f\n", 28.0 + n, fibFP(28.0+n));
- printf("Tak(%d,%d,%d): %d\n", 3 * n, 2 * n, n, tak(3*n, 2*n, n));
- printf("Fib(3): %d\n", fib(3));
- printf("Tak(3.0,2.0,1.0): %.1f\n", takFP(3.0, 2.0, 1.0));
-
- return 0;
-}
diff --git a/example/shootout/regex-dna/regexdna.c b/example/shootout/regex-dna/regexdna.c
deleted file mode 100755
index 1b145e4..0000000
--- a/example/shootout/regex-dna/regexdna.c
+++ /dev/null
@@ -1,1680 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// REGEXDNA
-
-#define __USE_STRING_INLINES
-#include <pcre.h>
-pcre *re;
-pcre_extra *re_ex;
-int re_eo;
-const char *re_e;
-
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM
-#include <time.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__DK;
- volatile __UINTEGER_32 size_and_id__EK;
- __MEMORY *next_free__FK;
- __MEMORY *previous_free__GK;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 1
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__ZWF;
- __CHARACTER *storage__YM;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// ARRAYED_COLLECTION[STRING_CONSTANT]
-#define __ARRAYED_COLLECTIONoSTRING_CONSTANTo__ 2
-typedef struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct __ARRAYED_COLLECTIONoSTRING_CONSTANTo;
-struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct {
- __INTEGER upper__GC;
- __INTEGER capacity__LGD;
- void **storage__HHD;
-};
-__ARRAYED_COLLECTIONoSTRING_CONSTANTo ARRAYED_COLLECTIONoSTRING_CONSTANTo_;
-#define ARRAYED_COLLECTIONoSTRING_CONSTANTo__ (&ARRAYED_COLLECTIONoSTRING_CONSTANTo_)
-
-// FAST_ARRAY[STRING_CONSTANT]
-#define __FAST_ARRAYoSTRING_CONSTANTo__ 3
-typedef struct FAST_ARRAYoSTRING_CONSTANTo_struct __FAST_ARRAYoSTRING_CONSTANTo;
-struct FAST_ARRAYoSTRING_CONSTANTo_struct {
- __ARRAYED_COLLECTIONoSTRING_CONSTANTo parent_arrayed_collection__5B;
-};
-__FAST_ARRAYoSTRING_CONSTANTo FAST_ARRAYoSTRING_CONSTANTo_;
-#define FAST_ARRAYoSTRING_CONSTANTo__ (&FAST_ARRAYoSTRING_CONSTANTo_)
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__SB;
- __INTEGER capacity__1E;
- __CHARACTER *storage__JF;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 5
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER upper__24C;
- __INTEGER capacity__44C;
- void **storage__05C;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 6
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__AB;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// NUMERIC
-#define __NUMERIC__ 7
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 8
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// REGEXDNA
-#define __REGEXDNA__ 9
-typedef struct REGEXDNA_struct __REGEXDNA;
-struct REGEXDNA_struct {
- void *Nothing;
-};
-__REGEXDNA REGEXDNA_;
-#define REGEXDNA__ (®EXDNA_)
-
-// FALSE
-#define FALSE__ 0
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-// TRUE
-#define TRUE__ 1
-
-// INTEGER_32
-typedef signed long __INTEGER_32;
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-
-void *table_type[10];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-__POINTER begin_memory__5SB;
-__UINTEGER_32 nb_page__YFC;
-__MEMORY *first_free__22E;
-__UINTEGER_32 capacity_max__V4E;
-void *parent_numeric__H;
-__UINTEGER_32 clone_allocation_size__ZJ;
-void *string_tmp__OC;
-__INTEGER *mem__IG;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={17,"agggtaaa|tttaccct"};
-__STRING_CONSTANT __string_2={25,"[cgt]gggtaaa|tttaccc[acg]"};
-__STRING_CONSTANT __string_3={25,"a[act]ggtaaa|tttacc[agt]t"};
-__STRING_CONSTANT __string_4={25,"ag[act]gtaaa|tttac[agt]ct"};
-__STRING_CONSTANT __string_5={25,"agg[act]taaa|ttta[agt]cct"};
-__STRING_CONSTANT __string_6={25,"aggg[acg]aaa|ttt[cgt]ccct"};
-__STRING_CONSTANT __string_7={25,"agggt[cgt]aa|tt[acg]accct"};
-__STRING_CONSTANT __string_8={25,"agggta[cgt]a|t[acg]taccct"};
-__STRING_CONSTANT __string_9={25,"agggtaa[cgt]|[acg]ttaccct"};
-__STRING_CONSTANT __string_10={1,"B"};
-__STRING_CONSTANT __string_11={7,"(c|g|t)"};
-__STRING_CONSTANT __string_12={1,"D"};
-__STRING_CONSTANT __string_13={7,"(a|g|t)"};
-__STRING_CONSTANT __string_14={1,"H"};
-__STRING_CONSTANT __string_15={7,"(a|c|t)"};
-__STRING_CONSTANT __string_16={1,"K"};
-__STRING_CONSTANT __string_17={5,"(g|t)"};
-__STRING_CONSTANT __string_18={1,"M"};
-__STRING_CONSTANT __string_19={5,"(a|c)"};
-__STRING_CONSTANT __string_20={1,"N"};
-__STRING_CONSTANT __string_21={9,"(a|c|g|t)"};
-__STRING_CONSTANT __string_22={1,"R"};
-__STRING_CONSTANT __string_23={5,"(a|g)"};
-__STRING_CONSTANT __string_24={1,"S"};
-__STRING_CONSTANT __string_25={5,"(c|g)"};
-__STRING_CONSTANT __string_26={1,"V"};
-__STRING_CONSTANT __string_27={7,"(a|c|g)"};
-__STRING_CONSTANT __string_28={1,"W"};
-__STRING_CONSTANT __string_29={5,"(a|t)"};
-__STRING_CONSTANT __string_30={1,"Y"};
-__STRING_CONSTANT __string_31={5,"(c|t)"};
-__STRING_CONSTANT __string_32={5,">.*|\n"};
-__STRING_CONSTANT __string_33={0,""};
-__STRING_CONSTANT __string_34={19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__GFC(__UINTEGER_32 t__IFC);
-static __MEMORY* search__Z1E(__UINTEGER_32 new_size__11E);
-static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__VN(__INTEGER new_count__XN);
-static void add_last__GGD(__FAST_ARRAYoSTRING_CONSTANTo *Self__HGD,void *element__IGD);
-static __STRING* create__LE(__INTEGER needed_capacity__NE);
-static void** create__KOG();
-static void add_last__Y4C(__FAST_ARRAYoSTRINGo *Self__Z4C,void *element__04C);
-static __CHARACTER* create__UQG(__INTEGER nb_elements__WQG);
-static __POINTER realloc_dynamic__old_size__new_size__V0K(__POINTER p__X0K,__UINTEGER_32 old_sz__Y0K,__UINTEGER_32 new_sz__Z0K);
-static __INTEGER fb_subst__YF(void *dst__0F,void *src__1F,void *p__2F,void *r__3F);
-static void append__PFF(__STRING *Self__QFF,void *other__RFF);
-static void append_in__WI(__INTEGER Self__XI,void *buffer__YI);
-static __MEMORY* new_page__L4E();
-static void** create__RRG(__INTEGER nb_elements__TRG);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __UINTEGER_32 sz__2JB,a__4VW,new_size__4JB,new_size2__BKB,a__U1W;
- __UINTEGER_32 new_size__V1W,sz__IJ,a__PXW,new_size__KFB,t__Z1W,a__Y1W;
- __UINTEGER_32 new_size__ERB,lab_type__GRB;
- __POINTER result__EKB,ptr_table__D5W,next__C5W,result__E5W,ptr__EJ;
- __POINTER ptr_table__I5W,next__H5W,result__J5W,ptr_table__FRB;
- __POINTER next__KRB,result__IRB,ptr__S5O;
- __INTEGER Self__DLE,slen__EB,typ_id__LJ,n__VE,cap__WE;
- __INTEGER old_nb_elts__5AX,__tmp__CBX,Self__DBX,__tmp__LF,ilen__CB;
- __INTEGER clen__DB,Self__TH,limit_up__UH,new_capacity__F3W;
- __INTEGER old_nb_elts__GBX,__tmp__JBX,Self__KBX,count__EHF,pos__DHF;
- __INTEGER __tmp__BXW,new_capacity__I3W,old_nb_elts__NBX,__tmp__QBX;
- __INTEGER Self__RBX,flip__FB,Self__GI,limit_up__HI,new_capacity__L3W;
- __INTEGER old_nb_elts__UBX,__tmp__XBX,Self__YBX,new_capacity__O3W;
- __INTEGER old_nb_elts__1BX,__tmp__4BX,Self__5BX,new_capacity__R3W;
- __INTEGER old_nb_elts__CCX,__tmp__FCX,Self__GCX,new_capacity__U3W;
- __INTEGER old_nb_elts__I4J,__tmp__S5J,Self__AUP;
- void *str__TE,*__tmp__VC;
- __STRING *Self__WJP,*Self__G3W,*Self__J3W,*Self__M3W,*Self__P3W;
- __STRING *Self__S3W,*Self__1DD;
- void *__tmp__YC;
- __INTEGER *Result__1BB;
- void *result__NH,*result__BI;
- __FAST_ARRAYoSTRINGo *result__DJ,*Self__HED;
- void *seq__BB;
- __CHARACTER *Self__4AX,*new__BBX,*__tmp__KF,*Self__FBX,*new__IBX;
- __CHARACTER *__tmp__AXW,*Self__MBX,*new__PBX,*Self__TBX,*new__WBX;
- __CHARACTER *Self__0BX,*new__3BX,*Self__BCX,*new__ECX,*Self__H4J;
- __CHARACTER *new__54J;
- arg_count = argc;
- arg_vector = argv;
- ARRAYED_COLLECTIONoSTRINGo__->upper__24C= 0;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__44C= 0;
- ARRAYED_COLLECTIONoSTRINGo__->storage__05C=NULL;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__AB=(*ARRAYED_COLLECTIONoSTRINGo__);
- parent_numeric__H=NUMERIC__;
- clone_allocation_size__ZJ= 0;
- STRING_CONSTANT__->count__ZWF=((__INTEGER )((0)));
- STRING_CONSTANT__->storage__YM=((__CHARACTER *)(NULL));
- nb_page__YFC= 0;
- MEMORY__->size_and_id__EK= 0;
- capacity_max__V4E= 0;
- begin_memory__5SB=((__POINTER )(NULL));
- MEMORY__->previous_linear__DK= 0;
- first_free__22E=NULL;
- MEMORY__->next_free__FK=NULL;
- MEMORY__->previous_free__GK=NULL;
- STRING__->capacity__1E= 0;
- STRING__->storage__JF=NULL;
- STRING__->count__SB= 0;
- sz__2JB=((__UINTEGER_32 )(__INTEGER)( 3 * sizeof(__INTEGER)));
- result__EKB=((__POINTER )(NULL));
- a__4VW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4JB=(__UINTEGER_32)((__UINTEGER_32)(sz__2JB + a__4VW) & (__UINTEGER_32)(~ a__4VW));
- new_size2__BKB=(__UINTEGER_32)(new_size__4JB + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__BKB <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__U1W=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__V1W=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BKB + a__U1W) & (__UINTEGER_32)(~ a__U1W));
- ptr_table__D5W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__V1W / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__C5W=((__POINTER )(NULL));
- result__E5W=((__POINTER *)ptr_table__D5W)[ 0];
- if ((result__E5W == (void *)NULL)) {
- result__E5W=new_lab__GFC(new_size__V1W);
- next__C5W=(void *)((unsigned long)result__E5W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V1W)));
- ((__POINTER *)next__C5W)[ 0]=NULL;
- ((__POINTER *)ptr_table__D5W)[ 0]=next__C5W;
- } else {
- next__C5W=((__POINTER *)result__E5W)[ 0];
- if ((next__C5W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E5W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__V1W << 1)) <= 4096)) {
- next__C5W=(void *)((unsigned long)result__E5W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V1W)));
- } else {
- next__C5W=new_lab__GFC(new_size__V1W);
- };
- ((__POINTER *)next__C5W)[ 0]=NULL;
- ((__POINTER *)ptr_table__D5W)[ 0]=next__C5W;
- } else {
- ((__POINTER *)result__E5W)[ 0]=(void *)((unsigned long)((__POINTER *)next__C5W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__E5W=next__C5W;
- };
- };
- ((__POINTER *)result__E5W)[ 0]=((__POINTER ) 3);
- result__EKB=(void *)((unsigned long)result__E5W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__EKB=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Z1E(new_size__4JB))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__1BB=((__INTEGER *)result__EKB);
- Self__DLE= 2;
- while ((Self__DLE >= 0)) {
- Result__1BB[Self__DLE]= 0;
- Self__DLE=(__INTEGER)(Self__DLE - 1);
- };
- mem__IG=Result__1BB;
- ARRAYED_COLLECTIONoSTRING_CONSTANTo__->upper__GC= 0;
- ARRAYED_COLLECTIONoSTRING_CONSTANTo__->capacity__LGD= 0;
- ARRAYED_COLLECTIONoSTRING_CONSTANTo__->storage__HHD=NULL;
- FAST_ARRAYoSTRING_CONSTANTo__->parent_arrayed_collection__5B=(*ARRAYED_COLLECTIONoSTRING_CONSTANTo__);
- result__NH=create_with_capacity__VN( 9);
- add_last__GGD(result__NH,(&__string_1));
- add_last__GGD(result__NH,(&__string_2));
- add_last__GGD(result__NH,(&__string_3));
- add_last__GGD(result__NH,(&__string_4));
- add_last__GGD(result__NH,(&__string_5));
- add_last__GGD(result__NH,(&__string_6));
- add_last__GGD(result__NH,(&__string_7));
- add_last__GGD(result__NH,(&__string_8));
- add_last__GGD(result__NH,(&__string_9));
- string_tmp__OC=create__LE( 512);
- result__BI=create_with_capacity__VN( 22);
- add_last__GGD(result__BI,(&__string_10));
- add_last__GGD(result__BI,(&__string_11));
- add_last__GGD(result__BI,(&__string_12));
- add_last__GGD(result__BI,(&__string_13));
- add_last__GGD(result__BI,(&__string_14));
- add_last__GGD(result__BI,(&__string_15));
- add_last__GGD(result__BI,(&__string_16));
- add_last__GGD(result__BI,(&__string_17));
- add_last__GGD(result__BI,(&__string_18));
- add_last__GGD(result__BI,(&__string_19));
- add_last__GGD(result__BI,(&__string_20));
- add_last__GGD(result__BI,(&__string_21));
- add_last__GGD(result__BI,(&__string_22));
- add_last__GGD(result__BI,(&__string_23));
- add_last__GGD(result__BI,(&__string_24));
- add_last__GGD(result__BI,(&__string_25));
- add_last__GGD(result__BI,(&__string_26));
- add_last__GGD(result__BI,(&__string_27));
- add_last__GGD(result__BI,(&__string_28));
- add_last__GGD(result__BI,(&__string_29));
- add_last__GGD(result__BI,(&__string_30));
- add_last__GGD(result__BI,(&__string_31));
- slen__EB= 0;
- result__DJ=NULL;
- ptr__EJ=((__POINTER )(NULL));
- typ_id__LJ= 0;
- sz__IJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__IJ == 0)) {
- result__DJ=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__LJ=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__ZJ=(__UINTEGER_32)(clone_allocation_size__ZJ + sz__IJ);
- if ((typ_id__LJ == (__INTEGER)(- 1))) {
- a__PXW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KFB=(__UINTEGER_32)((__UINTEGER_32)(sz__IJ + a__PXW) & (__UINTEGER_32)(~ a__PXW));
- ptr_table__I5W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KFB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__H5W=((__POINTER )(NULL));
- result__J5W=((__POINTER *)ptr_table__I5W)[ 0];
- if ((result__J5W == (void *)NULL)) {
- result__J5W=new_lab__GFC(new_size__KFB);
- next__H5W=(void *)((unsigned long)result__J5W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFB)));
- ((__POINTER *)next__H5W)[ 0]=NULL;
- ((__POINTER *)ptr_table__I5W)[ 0]=next__H5W;
- } else {
- next__H5W=((__POINTER *)result__J5W)[ 0];
- if ((next__H5W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J5W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__KFB << 1)) <= 4096)) {
- next__H5W=(void *)((unsigned long)result__J5W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFB)));
- } else {
- next__H5W=new_lab__GFC(new_size__KFB);
- };
- ((__POINTER *)next__H5W)[ 0]=NULL;
- ((__POINTER *)ptr_table__I5W)[ 0]=next__H5W;
- } else {
- ((__POINTER *)result__J5W)[ 0]=(void *)((unsigned long)((__POINTER *)next__H5W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__J5W=next__H5W;
- };
- };
- ptr__EJ=result__J5W;
- } else {
- t__Z1W=((__UINTEGER_32 )typ_id__LJ);
- a__Y1W=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ERB=(__UINTEGER_32)((__UINTEGER_32)(sz__IJ + a__Y1W) & (__UINTEGER_32)(~ a__Y1W));
- ptr_table__FRB=((__POINTER )(&(table_type[(t__Z1W)])));
- lab_type__GRB=(__UINTEGER_32)(t__Z1W | 1);
- next__KRB=((__POINTER )(NULL));
- result__IRB=((__POINTER *)ptr_table__FRB)[ 0];
- if ((result__IRB == (void *)NULL)) {
- result__IRB=new_lab__GFC(lab_type__GRB);
- next__KRB=(void *)((unsigned long)result__IRB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ERB)));
- ((__POINTER *)next__KRB)[ 0]=NULL;
- ((__POINTER *)ptr_table__FRB)[ 0]=next__KRB;
- } else {
- next__KRB=((__POINTER *)result__IRB)[ 0];
- if ((next__KRB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IRB - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__ERB << 1)) <= 4096)) {
- next__KRB=(void *)((unsigned long)result__IRB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ERB)));
- } else {
- next__KRB=new_lab__GFC(lab_type__GRB);
- };
- ((__POINTER *)next__KRB)[ 0]=NULL;
- ((__POINTER *)ptr_table__FRB)[ 0]=next__KRB;
- } else {
- ((__POINTER *)result__IRB)[ 0]=(void *)((unsigned long)((__POINTER *)next__KRB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IRB=next__KRB;
- };
- };
- ptr__EJ=result__IRB;
- };
- result__DJ=((__FAST_ARRAYoSTRINGo *)ptr__EJ);
- *(result__DJ) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__HED=((__FAST_ARRAYoSTRINGo *)result__DJ);
- if ((Self__HED->parent_arrayed_collection__AB.capacity__44C < 2)) {
- Self__HED->parent_arrayed_collection__AB.storage__05C=create__KOG();
- Self__HED->parent_arrayed_collection__AB.capacity__44C= 2;
- };
- Self__HED->parent_arrayed_collection__AB.upper__24C=(__INTEGER)(- 1);
- seq__BB=result__DJ;
- add_last__Y4C(result__DJ,create__LE( 5242880));
- add_last__Y4C(result__DJ,create__LE( 5242880));
- str__TE=((void **)((__FAST_ARRAYoSTRINGo *)result__DJ)->parent_arrayed_collection__AB.storage__05C)[ 0];
- n__VE= 0;
- cap__WE= 0;
- do {
- cap__WE=((__STRING *)str__TE)->capacity__1E;
- if (((__INTEGER)(cap__WE - ((__STRING *)str__TE)->count__SB) < 1024)) {
- cap__WE=(__INTEGER)(cap__WE << 1);
- Self__WJP=((__STRING *)str__TE);
- if ((cap__WE > Self__WJP->capacity__1E)) {
- if ((Self__WJP->capacity__1E == 0)) {
- Self__WJP->storage__JF=create__UQG(cap__WE);
- } else {
- Self__4AX=((__CHARACTER *)Self__WJP->storage__JF);
- old_nb_elts__5AX=Self__WJP->capacity__1E;
- new__BBX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__4AX),((__UINTEGER_32 )old_nb_elts__5AX),((__UINTEGER_32 )cap__WE)));
- __tmp__CBX=(__INTEGER)(cap__WE - 1);
- Self__DBX=old_nb_elts__5AX;
- while ((Self__DBX <= __tmp__CBX)) {
- new__BBX[Self__DBX]='\0';
- Self__DBX=(__INTEGER)(Self__DBX + 1);
- };
- Self__WJP->storage__JF=new__BBX;
- };
- Self__WJP->capacity__1E=cap__WE;
- };
- };
- __tmp__KF=((__STRING *)str__TE)->storage__JF;
- __tmp__LF=((__STRING *)str__TE)->count__SB;
- ptr__S5O=((__POINTER )((__CHARACTER *)__tmp__KF));
- ptr__S5O=(void *)((unsigned long)ptr__S5O - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )__tmp__LF)));
- n__VE=((__INTEGER )(fread((((__CHARACTER *)ptr__S5O)),1,(cap__WE),stdin)));
- ((__STRING *)str__TE)->count__SB=(__INTEGER)(((__STRING *)str__TE)->count__SB + n__VE);
- } while ((n__VE != 0));
- ilen__CB=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__DJ)->parent_arrayed_collection__AB.storage__05C)[ 0])->count__SB;
- clen__DB=fb_subst__YF(((void **)((__FAST_ARRAYoSTRINGo *)result__DJ)->parent_arrayed_collection__AB.storage__05C)[ 1],((void **)((__FAST_ARRAYoSTRINGo *)result__DJ)->parent_arrayed_collection__AB.storage__05C)[ 0],(&__string_32),(&__string_33));
- Self__TH= 0;
- limit_up__UH=((__FAST_ARRAYoSTRING_CONSTANTo *)result__NH)->parent_arrayed_collection__5B.upper__GC;
- while ((Self__TH <= limit_up__UH)) {
- append__PFF(string_tmp__OC,((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__NH)->parent_arrayed_collection__5B.storage__HHD)[Self__TH]);
- Self__G3W=((__STRING *)string_tmp__OC);
- new_capacity__F3W= 0;
- if ((Self__G3W->capacity__1E <= Self__G3W->count__SB)) {
- if ((Self__G3W->capacity__1E == 0)) {
- Self__G3W->capacity__1E= 32;
- Self__G3W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__F3W=(__INTEGER)(Self__G3W->capacity__1E << 1);
- Self__FBX=((__CHARACTER *)Self__G3W->storage__JF);
- old_nb_elts__GBX=Self__G3W->capacity__1E;
- new__IBX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__FBX),((__UINTEGER_32 )old_nb_elts__GBX),((__UINTEGER_32 )new_capacity__F3W)));
- __tmp__JBX=(__INTEGER)(new_capacity__F3W - 1);
- Self__KBX=old_nb_elts__GBX;
- while ((Self__KBX <= __tmp__JBX)) {
- new__IBX[Self__KBX]='\0';
- Self__KBX=(__INTEGER)(Self__KBX + 1);
- };
- Self__G3W->storage__JF=new__IBX;
- Self__G3W->capacity__1E=new_capacity__F3W;
- };
- };
- ((__CHARACTER *)Self__G3W->storage__JF)[Self__G3W->count__SB]=' ';
- Self__G3W->count__SB=(__INTEGER)(Self__G3W->count__SB + 1);
- __tmp__VC=((void **)((__FAST_ARRAYoSTRINGo *)seq__BB)->parent_arrayed_collection__AB.storage__05C)[ 1];
- __tmp__YC=((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__NH)->parent_arrayed_collection__5B.storage__HHD)[Self__TH];
- count__EHF= 0;
- re = pcre_compile((((__STRING_CONSTANT *)__tmp__YC)->storage__YM), PCRE_CASELESS, &re_e, &re_eo, NULL);
- re_ex = pcre_study(re, 0, &re_e);
- pos__DHF= 1;
- __tmp__AXW=((__STRING *)__tmp__VC)->storage__JF;
- __tmp__BXW=((__STRING *)__tmp__VC)->count__SB;
- while ((((__INTEGER )(pcre_exec(re, re_ex, (__tmp__AXW), (__tmp__BXW), (pos__DHF)-1, 0, (Result__1BB), 3))) >= 0)) {
- pos__DHF=(__INTEGER)(Result__1BB[ 1] + 1);
- count__EHF=(__INTEGER)(count__EHF + 1);
- };
- append_in__WI(count__EHF,string_tmp__OC);
- Self__J3W=((__STRING *)string_tmp__OC);
- new_capacity__I3W= 0;
- if ((Self__J3W->capacity__1E <= Self__J3W->count__SB)) {
- if ((Self__J3W->capacity__1E == 0)) {
- Self__J3W->capacity__1E= 32;
- Self__J3W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__I3W=(__INTEGER)(Self__J3W->capacity__1E << 1);
- Self__MBX=((__CHARACTER *)Self__J3W->storage__JF);
- old_nb_elts__NBX=Self__J3W->capacity__1E;
- new__PBX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__MBX),((__UINTEGER_32 )old_nb_elts__NBX),((__UINTEGER_32 )new_capacity__I3W)));
- __tmp__QBX=(__INTEGER)(new_capacity__I3W - 1);
- Self__RBX=old_nb_elts__NBX;
- while ((Self__RBX <= __tmp__QBX)) {
- new__PBX[Self__RBX]='\0';
- Self__RBX=(__INTEGER)(Self__RBX + 1);
- };
- Self__J3W->storage__JF=new__PBX;
- Self__J3W->capacity__1E=new_capacity__I3W;
- };
- };
- ((__CHARACTER *)Self__J3W->storage__JF)[Self__J3W->count__SB]='\n';
- Self__J3W->count__SB=(__INTEGER)(Self__J3W->count__SB + 1);
- Self__TH=(__INTEGER)(Self__TH + 1);
- };
- flip__FB= 1;
- Self__GI= 0;
- limit_up__HI=((__FAST_ARRAYoSTRING_CONSTANTo *)result__BI)->parent_arrayed_collection__5B.upper__GC;
- while ((Self__GI <= limit_up__HI)) {
- slen__EB=fb_subst__YF(((void **)((__FAST_ARRAYoSTRINGo *)seq__BB)->parent_arrayed_collection__AB.storage__05C)[(__INTEGER)( 1 - flip__FB)],((void **)((__FAST_ARRAYoSTRINGo *)seq__BB)->parent_arrayed_collection__AB.storage__05C)[flip__FB],((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__BI)->parent_arrayed_collection__5B.storage__HHD)[Self__GI],((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__BI)->parent_arrayed_collection__5B.storage__HHD)[(__INTEGER)(Self__GI + 1)]);
- flip__FB=(__INTEGER)( 1 - flip__FB);
- Self__GI=(__INTEGER)(Self__GI + 2);
- };
- Self__M3W=((__STRING *)string_tmp__OC);
- new_capacity__L3W= 0;
- if ((Self__M3W->capacity__1E <= Self__M3W->count__SB)) {
- if ((Self__M3W->capacity__1E == 0)) {
- Self__M3W->capacity__1E= 32;
- Self__M3W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__L3W=(__INTEGER)(Self__M3W->capacity__1E << 1);
- Self__TBX=((__CHARACTER *)Self__M3W->storage__JF);
- old_nb_elts__UBX=Self__M3W->capacity__1E;
- new__WBX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__TBX),((__UINTEGER_32 )old_nb_elts__UBX),((__UINTEGER_32 )new_capacity__L3W)));
- __tmp__XBX=(__INTEGER)(new_capacity__L3W - 1);
- Self__YBX=old_nb_elts__UBX;
- while ((Self__YBX <= __tmp__XBX)) {
- new__WBX[Self__YBX]='\0';
- Self__YBX=(__INTEGER)(Self__YBX + 1);
- };
- Self__M3W->storage__JF=new__WBX;
- Self__M3W->capacity__1E=new_capacity__L3W;
- };
- };
- ((__CHARACTER *)Self__M3W->storage__JF)[Self__M3W->count__SB]='\n';
- Self__M3W->count__SB=(__INTEGER)(Self__M3W->count__SB + 1);
- append_in__WI(ilen__CB,string_tmp__OC);
- Self__P3W=((__STRING *)string_tmp__OC);
- new_capacity__O3W= 0;
- if ((Self__P3W->capacity__1E <= Self__P3W->count__SB)) {
- if ((Self__P3W->capacity__1E == 0)) {
- Self__P3W->capacity__1E= 32;
- Self__P3W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__O3W=(__INTEGER)(Self__P3W->capacity__1E << 1);
- Self__0BX=((__CHARACTER *)Self__P3W->storage__JF);
- old_nb_elts__1BX=Self__P3W->capacity__1E;
- new__3BX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__0BX),((__UINTEGER_32 )old_nb_elts__1BX),((__UINTEGER_32 )new_capacity__O3W)));
- __tmp__4BX=(__INTEGER)(new_capacity__O3W - 1);
- Self__5BX=old_nb_elts__1BX;
- while ((Self__5BX <= __tmp__4BX)) {
- new__3BX[Self__5BX]='\0';
- Self__5BX=(__INTEGER)(Self__5BX + 1);
- };
- Self__P3W->storage__JF=new__3BX;
- Self__P3W->capacity__1E=new_capacity__O3W;
- };
- };
- ((__CHARACTER *)Self__P3W->storage__JF)[Self__P3W->count__SB]='\n';
- Self__P3W->count__SB=(__INTEGER)(Self__P3W->count__SB + 1);
- append_in__WI(clen__DB,string_tmp__OC);
- Self__S3W=((__STRING *)string_tmp__OC);
- new_capacity__R3W= 0;
- if ((Self__S3W->capacity__1E <= Self__S3W->count__SB)) {
- if ((Self__S3W->capacity__1E == 0)) {
- Self__S3W->capacity__1E= 32;
- Self__S3W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__R3W=(__INTEGER)(Self__S3W->capacity__1E << 1);
- Self__BCX=((__CHARACTER *)Self__S3W->storage__JF);
- old_nb_elts__CCX=Self__S3W->capacity__1E;
- new__ECX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__BCX),((__UINTEGER_32 )old_nb_elts__CCX),((__UINTEGER_32 )new_capacity__R3W)));
- __tmp__FCX=(__INTEGER)(new_capacity__R3W - 1);
- Self__GCX=old_nb_elts__CCX;
- while ((Self__GCX <= __tmp__FCX)) {
- new__ECX[Self__GCX]='\0';
- Self__GCX=(__INTEGER)(Self__GCX + 1);
- };
- Self__S3W->storage__JF=new__ECX;
- Self__S3W->capacity__1E=new_capacity__R3W;
- };
- };
- ((__CHARACTER *)Self__S3W->storage__JF)[Self__S3W->count__SB]='\n';
- Self__S3W->count__SB=(__INTEGER)(Self__S3W->count__SB + 1);
- append_in__WI(slen__EB,string_tmp__OC);
- Self__1DD=((__STRING *)string_tmp__OC);
- if ((Self__1DD->capacity__1E > Self__1DD->count__SB)) {
- ((__CHARACTER *)Self__1DD->storage__JF)[Self__1DD->count__SB]='\0';
- } else {
- new_capacity__U3W= 0;
- if ((Self__1DD->capacity__1E <= Self__1DD->count__SB)) {
- if ((Self__1DD->capacity__1E == 0)) {
- Self__1DD->capacity__1E= 32;
- Self__1DD->storage__JF=create__UQG( 32);
- } else {
- new_capacity__U3W=(__INTEGER)(Self__1DD->capacity__1E << 1);
- Self__H4J=((__CHARACTER *)Self__1DD->storage__JF);
- old_nb_elts__I4J=Self__1DD->capacity__1E;
- new__54J=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__H4J),((__UINTEGER_32 )old_nb_elts__I4J),((__UINTEGER_32 )new_capacity__U3W)));
- __tmp__S5J=(__INTEGER)(new_capacity__U3W - 1);
- Self__AUP=old_nb_elts__I4J;
- while ((Self__AUP <= __tmp__S5J)) {
- new__54J[Self__AUP]='\0';
- Self__AUP=(__INTEGER)(Self__AUP + 1);
- };
- Self__1DD->storage__JF=new__54J;
- Self__1DD->capacity__1E=new_capacity__U3W;
- };
- };
- ((__CHARACTER *)Self__1DD->storage__JF)[Self__1DD->count__SB]='\0';
- Self__1DD->count__SB=(__INTEGER)(Self__1DD->count__SB + 1);
- Self__1DD->count__SB=(__INTEGER)(Self__1DD->count__SB - 1);
- };
- puts((((__CHARACTER *)Self__1DD->storage__JF)));
- return( 0);
-}
-
-static __POINTER new_lab__GFC(__UINTEGER_32 t__IFC)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__KFC,pv__RFC;
- __MEMORY *blc__NFC,*prev__OFC,*Self__DKV,*Self__WVW,*prev__XVW;
- __MEMORY *next__YVW;
- __POINTER result__PFC;
- __BOOLEAN __tmp__RGC;
- idx__KFC= 0;
- blc__NFC=NULL;
- prev__OFC=NULL;
- pv__RFC= 0;
- while_do__2NC:
- {
- if ((idx__KFC < nb_page__YFC)) {
- blc__NFC=((__MEMORY *)(last_block[(idx__KFC)]));
- __tmp__RGC=(((__UINTEGER_32)(((__MEMORY *)blc__NFC)->size_and_id__EK & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__NFC)->size_and_id__EK & 1) == 1));
- } else {
- __tmp__RGC=FALSE__;
- };
- if (__tmp__RGC) {
- idx__KFC=(__UINTEGER_32)(idx__KFC + 1);
- goto while_do__2NC;
- };
- };
- if ((idx__KFC >= nb_page__YFC)) {
- blc__NFC=new_page__L4E();
- };
- ((__MEMORY *)blc__NFC)->size_and_id__EK=(__UINTEGER_32)(blc__NFC->size_and_id__EK - 4096);
- Self__DKV=((__MEMORY *)blc__NFC);
- result__PFC=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__DKV) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__DKV->size_and_id__EK & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__NFC)->size_and_id__EK & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__WVW=((__MEMORY *)blc__NFC);
- prev__XVW=Self__WVW->previous_free__GK;
- next__YVW=Self__WVW->next_free__FK;
- if (((void *)prev__XVW == (void *)NULL)) {
- first_free__22E=next__YVW;
- } else {
- ((__MEMORY *)prev__XVW)->next_free__FK=next__YVW;
- };
- if (((void *)next__YVW != (void *)NULL)) {
- ((__MEMORY *)next__YVW)->previous_free__GK=prev__XVW;
- };
- pv__RFC=blc__NFC->previous_linear__DK;
- if ((pv__RFC != 4294967295LU)) {
- prev__OFC=((__MEMORY *)(void *)((unsigned long)begin_memory__5SB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__RFC))));
- ((__MEMORY *)prev__OFC)->size_and_id__EK=(__UINTEGER_32)((__UINTEGER_32)(prev__OFC->size_and_id__EK + blc__NFC->size_and_id__EK) + 8);
- last_block[(idx__KFC)] = (prev__OFC);
- };
- };
- ((__POINTER *)result__PFC)[ 0]=((__POINTER )t__IFC);
- return((void *)((unsigned long)result__PFC - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static __MEMORY* search__Z1E(__UINTEGER_32 new_size__11E)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__31E,*Self__JCX,*new__ICX,*prev__KCX,*next__LCX;
- __MEMORY *Self__PCX,*Self__RCX;
- __UINTEGER_32 idx__QCX,siz__MCX,new_size__OCX;
- result__31E=first_free__22E;
- while ((((void *)result__31E != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__31E)->size_and_id__EK & 4294967292LU) < new_size__11E))) {
- result__31E=result__31E->next_free__FK;
- };
- if (((void *)result__31E == (void *)NULL)) {
- result__31E=new_page__L4E();
- };
- Self__JCX=((__MEMORY *)result__31E);
- idx__QCX=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__31E)) - (unsigned long)begin_memory__5SB)))) >> 26);
- new__ICX=NULL;
- prev__KCX=Self__JCX->previous_free__GK;
- next__LCX=Self__JCX->next_free__FK;
- if (((void *)prev__KCX == (void *)NULL)) {
- first_free__22E=next__LCX;
- } else {
- ((__MEMORY *)prev__KCX)->next_free__FK=next__LCX;
- };
- if (((void *)next__LCX != (void *)NULL)) {
- ((__MEMORY *)next__LCX)->previous_free__GK=prev__KCX;
- };
- siz__MCX=Self__JCX->size_and_id__EK;
- new_size__OCX=(__UINTEGER_32)(siz__MCX - new_size__11E);
- if ((new_size__OCX > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__MCX=new_size__11E;
- new__ICX=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__JCX) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__11E))));
- ((__MEMORY *)new__ICX)->previous_linear__DK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__JCX) - (unsigned long)begin_memory__5SB))));
- ((__MEMORY *)new__ICX)->size_and_id__EK=(__UINTEGER_32)(new_size__OCX - 8);
- Self__PCX=((__MEMORY *)new__ICX);
- Self__PCX->next_free__FK=first_free__22E;
- Self__PCX->previous_free__GK=NULL;
- if (((void *)first_free__22E != (void *)NULL)) {
- ((__MEMORY *)first_free__22E)->previous_free__GK=Self__PCX;
- };
- first_free__22E=Self__PCX;
- if (((__UINTEGER_32)(((__MEMORY *)new__ICX)->size_and_id__EK & 2) != 0)) {
- last_block[(idx__QCX)] = (new__ICX);
- } else {
- Self__RCX=((__MEMORY *)new__ICX);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__RCX) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__RCX->size_and_id__EK & 4294967292LU)))))->previous_linear__DK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__ICX)) - (unsigned long)begin_memory__5SB))));
- };
- };
- Self__JCX->size_and_id__EK=(__UINTEGER_32)(siz__MCX | 1);
- return(result__31E);
-}
-
-static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__VN(__INTEGER new_count__XN)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__AU,ptr_table__Y3W,next__X3W,result__Z3W,ptr_table__33W;
- __POINTER next__23W,result__43W;
- __INTEGER typ_id__FU;
- __UINTEGER_32 sz__CU,a__VXW,new_size__WXW,t__A2W,a__51W,new_size__A4W;
- __UINTEGER_32 lab_type__53W;
- __FAST_ARRAYoSTRING_CONSTANTo *result__5T,*Self__5JD;
- result__5T=NULL;
- ptr__AU=((__POINTER )(NULL));
- typ_id__FU= 0;
- sz__CU=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRING_CONSTANTo));
- if ((sz__CU == 0)) {
- result__5T=FAST_ARRAYoSTRING_CONSTANTo__;
- } else {
- typ_id__FU=__FAST_ARRAYoSTRING_CONSTANTo__;
- clone_allocation_size__ZJ=(__UINTEGER_32)(clone_allocation_size__ZJ + sz__CU);
- if ((typ_id__FU == (__INTEGER)(- 1))) {
- a__VXW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WXW=(__UINTEGER_32)((__UINTEGER_32)(sz__CU + a__VXW) & (__UINTEGER_32)(~ a__VXW));
- ptr_table__Y3W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WXW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__X3W=((__POINTER )(NULL));
- result__Z3W=((__POINTER *)ptr_table__Y3W)[ 0];
- if ((result__Z3W == (void *)NULL)) {
- result__Z3W=new_lab__GFC(new_size__WXW);
- next__X3W=(void *)((unsigned long)result__Z3W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WXW)));
- ((__POINTER *)next__X3W)[ 0]=NULL;
- ((__POINTER *)ptr_table__Y3W)[ 0]=next__X3W;
- } else {
- next__X3W=((__POINTER *)result__Z3W)[ 0];
- if ((next__X3W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z3W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__WXW << 1)) <= 4096)) {
- next__X3W=(void *)((unsigned long)result__Z3W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WXW)));
- } else {
- next__X3W=new_lab__GFC(new_size__WXW);
- };
- ((__POINTER *)next__X3W)[ 0]=NULL;
- ((__POINTER *)ptr_table__Y3W)[ 0]=next__X3W;
- } else {
- ((__POINTER *)result__Z3W)[ 0]=(void *)((unsigned long)((__POINTER *)next__X3W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Z3W=next__X3W;
- };
- };
- ptr__AU=result__Z3W;
- } else {
- t__A2W=((__UINTEGER_32 )typ_id__FU);
- a__51W=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__A4W=(__UINTEGER_32)((__UINTEGER_32)(sz__CU + a__51W) & (__UINTEGER_32)(~ a__51W));
- ptr_table__33W=((__POINTER )(&(table_type[(t__A2W)])));
- lab_type__53W=(__UINTEGER_32)(t__A2W | 1);
- next__23W=((__POINTER )(NULL));
- result__43W=((__POINTER *)ptr_table__33W)[ 0];
- if ((result__43W == (void *)NULL)) {
- result__43W=new_lab__GFC(lab_type__53W);
- next__23W=(void *)((unsigned long)result__43W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A4W)));
- ((__POINTER *)next__23W)[ 0]=NULL;
- ((__POINTER *)ptr_table__33W)[ 0]=next__23W;
- } else {
- next__23W=((__POINTER *)result__43W)[ 0];
- if ((next__23W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__43W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__A4W << 1)) <= 4096)) {
- next__23W=(void *)((unsigned long)result__43W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A4W)));
- } else {
- next__23W=new_lab__GFC(lab_type__53W);
- };
- ((__POINTER *)next__23W)[ 0]=NULL;
- ((__POINTER *)ptr_table__33W)[ 0]=next__23W;
- } else {
- ((__POINTER *)result__43W)[ 0]=(void *)((unsigned long)((__POINTER *)next__23W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__43W=next__23W;
- };
- };
- ptr__AU=result__43W;
- };
- result__5T=((__FAST_ARRAYoSTRING_CONSTANTo *)ptr__AU);
- *(result__5T) = *(FAST_ARRAYoSTRING_CONSTANTo__);
- };
- Self__5JD=((__FAST_ARRAYoSTRING_CONSTANTo *)result__5T);
- if ((Self__5JD->parent_arrayed_collection__5B.capacity__LGD < new_count__XN)) {
- Self__5JD->parent_arrayed_collection__5B.storage__HHD=create__RRG(new_count__XN);
- Self__5JD->parent_arrayed_collection__5B.capacity__LGD=new_count__XN;
- };
- Self__5JD->parent_arrayed_collection__5B.upper__GC=(__INTEGER)(- 1);
- return(result__5T);
-}
-
-static void add_last__GGD(__FAST_ARRAYoSTRING_CONSTANTo *Self__HGD,void *element__IGD)
-// ({FAST_ARRAYoSTRING_CONSTANTo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__JGD,__tmp__RHD,__tmp__FBK,Self__5VP;
- __BOOLEAN __tmp__YGD;
- void **__tmp__QHD,**new__SAK;
- new_capacity__JGD= 0;
- if (((__INTEGER)(Self__HGD->parent_arrayed_collection__5B.upper__GC + 1) <= (__INTEGER)(Self__HGD->parent_arrayed_collection__5B.capacity__LGD - 1))) {
- Self__HGD->parent_arrayed_collection__5B.upper__GC=(__INTEGER)(Self__HGD->parent_arrayed_collection__5B.upper__GC + 1);
- __tmp__YGD=TRUE__;
- } else {
- __tmp__YGD=FALSE__;
- };
- if ((! __tmp__YGD)) {
- if ((Self__HGD->parent_arrayed_collection__5B.capacity__LGD == 0)) {
- Self__HGD->parent_arrayed_collection__5B.storage__HHD=create__RRG( 2);
- Self__HGD->parent_arrayed_collection__5B.capacity__LGD= 2;
- Self__HGD->parent_arrayed_collection__5B.upper__GC= 0;
- } else {
- new_capacity__JGD=(__INTEGER)(Self__HGD->parent_arrayed_collection__5B.capacity__LGD << 1);
- __tmp__QHD=Self__HGD->parent_arrayed_collection__5B.storage__HHD;
- __tmp__RHD=Self__HGD->parent_arrayed_collection__5B.capacity__LGD;
- new__SAK=((void **)realloc_dynamic__old_size__new_size__V0K(((__POINTER )((void **)__tmp__QHD)),((__UINTEGER_32 )(__INTEGER)(__tmp__RHD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__JGD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__FBK=(__INTEGER)(new_capacity__JGD - 1);
- Self__5VP=__tmp__RHD;
- while ((Self__5VP <= __tmp__FBK)) {
- new__SAK[Self__5VP]=NULL;
- Self__5VP=(__INTEGER)(Self__5VP + 1);
- };
- Self__HGD->parent_arrayed_collection__5B.storage__HHD=new__SAK;
- Self__HGD->parent_arrayed_collection__5B.capacity__LGD=new_capacity__JGD;
- Self__HGD->parent_arrayed_collection__5B.upper__GC=(__INTEGER)(Self__HGD->parent_arrayed_collection__5B.upper__GC + 1);
- };
- };
- ((void **)Self__HGD->parent_arrayed_collection__5B.storage__HHD)[Self__HGD->parent_arrayed_collection__5B.upper__GC]=element__IGD;
-}
-
-static __STRING* create__LE(__INTEGER needed_capacity__NE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__AL,*Self__LFD;
- __POINTER ptr__BL,ptr_table__C4W,next__B4W,result__D4W,ptr_table__H4W;
- __POINTER next__G4W,result__I4W;
- __INTEGER typ_id__GL;
- __UINTEGER_32 sz__DL,a__ZXW,new_size__0XW,t__TGB,a__3XW,new_size__K4W;
- __UINTEGER_32 lab_type__J4W;
- result__AL=NULL;
- ptr__BL=((__POINTER )(NULL));
- typ_id__GL= 0;
- sz__DL=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__DL == 0)) {
- result__AL=STRING__;
- } else {
- typ_id__GL=__STRING__;
- clone_allocation_size__ZJ=(__UINTEGER_32)(clone_allocation_size__ZJ + sz__DL);
- if ((typ_id__GL == (__INTEGER)(- 1))) {
- a__ZXW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0XW=(__UINTEGER_32)((__UINTEGER_32)(sz__DL + a__ZXW) & (__UINTEGER_32)(~ a__ZXW));
- ptr_table__C4W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0XW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__B4W=((__POINTER )(NULL));
- result__D4W=((__POINTER *)ptr_table__C4W)[ 0];
- if ((result__D4W == (void *)NULL)) {
- result__D4W=new_lab__GFC(new_size__0XW);
- next__B4W=(void *)((unsigned long)result__D4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0XW)));
- ((__POINTER *)next__B4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__C4W)[ 0]=next__B4W;
- } else {
- next__B4W=((__POINTER *)result__D4W)[ 0];
- if ((next__B4W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D4W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__0XW << 1)) <= 4096)) {
- next__B4W=(void *)((unsigned long)result__D4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0XW)));
- } else {
- next__B4W=new_lab__GFC(new_size__0XW);
- };
- ((__POINTER *)next__B4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__C4W)[ 0]=next__B4W;
- } else {
- ((__POINTER *)result__D4W)[ 0]=(void *)((unsigned long)((__POINTER *)next__B4W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__D4W=next__B4W;
- };
- };
- ptr__BL=result__D4W;
- } else {
- t__TGB=((__UINTEGER_32 )typ_id__GL);
- a__3XW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__K4W=(__UINTEGER_32)((__UINTEGER_32)(sz__DL + a__3XW) & (__UINTEGER_32)(~ a__3XW));
- ptr_table__H4W=((__POINTER )(&(table_type[(t__TGB)])));
- lab_type__J4W=(__UINTEGER_32)(t__TGB | 1);
- next__G4W=((__POINTER )(NULL));
- result__I4W=((__POINTER *)ptr_table__H4W)[ 0];
- if ((result__I4W == (void *)NULL)) {
- result__I4W=new_lab__GFC(lab_type__J4W);
- next__G4W=(void *)((unsigned long)result__I4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K4W)));
- ((__POINTER *)next__G4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__H4W)[ 0]=next__G4W;
- } else {
- next__G4W=((__POINTER *)result__I4W)[ 0];
- if ((next__G4W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I4W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__K4W << 1)) <= 4096)) {
- next__G4W=(void *)((unsigned long)result__I4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K4W)));
- } else {
- next__G4W=new_lab__GFC(lab_type__J4W);
- };
- ((__POINTER *)next__G4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__H4W)[ 0]=next__G4W;
- } else {
- ((__POINTER *)result__I4W)[ 0]=(void *)((unsigned long)((__POINTER *)next__G4W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__I4W=next__G4W;
- };
- };
- ptr__BL=result__I4W;
- };
- result__AL=((__STRING *)ptr__BL);
- *(result__AL) = *(STRING__);
- };
- Self__LFD=((__STRING *)result__AL);
- if ((needed_capacity__NE > 0)) {
- if ((Self__LFD->capacity__1E < needed_capacity__NE)) {
- Self__LFD->storage__JF=create__UQG(needed_capacity__NE);
- Self__LFD->capacity__1E=needed_capacity__NE;
- };
- };
- Self__LFD->count__SB= 0;
- return(result__AL);
-}
-
-static void** create__KOG()
-// () With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__VTW,a__BYW,new_size__WTW,new_size2__XTW,a__FYW;
- __UINTEGER_32 new_size__GYW;
- __POINTER result__UTW,ptr_table__M4W,next__L4W,result__N4W;
- __INTEGER Self__5EL;
- void **Result__THH;
- sz__VTW=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) << 1));
- result__UTW=((__POINTER )(NULL));
- a__BYW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WTW=(__UINTEGER_32)((__UINTEGER_32)(sz__VTW + a__BYW) & (__UINTEGER_32)(~ a__BYW));
- new_size2__XTW=(__UINTEGER_32)(new_size__WTW + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__XTW <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__FYW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GYW=(__UINTEGER_32)((__UINTEGER_32)(new_size2__XTW + a__FYW) & (__UINTEGER_32)(~ a__FYW));
- ptr_table__M4W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GYW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__L4W=((__POINTER )(NULL));
- result__N4W=((__POINTER *)ptr_table__M4W)[ 0];
- if ((result__N4W == (void *)NULL)) {
- result__N4W=new_lab__GFC(new_size__GYW);
- next__L4W=(void *)((unsigned long)result__N4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GYW)));
- ((__POINTER *)next__L4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__M4W)[ 0]=next__L4W;
- } else {
- next__L4W=((__POINTER *)result__N4W)[ 0];
- if ((next__L4W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N4W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__GYW << 1)) <= 4096)) {
- next__L4W=(void *)((unsigned long)result__N4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GYW)));
- } else {
- next__L4W=new_lab__GFC(new_size__GYW);
- };
- ((__POINTER *)next__L4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__M4W)[ 0]=next__L4W;
- } else {
- ((__POINTER *)result__N4W)[ 0]=(void *)((unsigned long)((__POINTER *)next__L4W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__N4W=next__L4W;
- };
- };
- ((__POINTER *)result__N4W)[ 0]=((__POINTER ) 3);
- result__UTW=(void *)((unsigned long)result__N4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__UTW=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Z1E(new_size__WTW))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__THH=((void **)result__UTW);
- Self__5EL= 1;
- while ((Self__5EL >= 0)) {
- Result__THH[Self__5EL]=NULL;
- Self__5EL=(__INTEGER)(Self__5EL - 1);
- };
- return(Result__THH);
-}
-
-static void add_last__Y4C(__FAST_ARRAYoSTRINGo *Self__Z4C,void *element__04C)
-// ({FAST_ARRAYoSTRINGo},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__14C,__tmp__EAD,__tmp__53J,Self__BSP;
- __BOOLEAN __tmp__L5C;
- void **__tmp__DAD,**new__M3J;
- new_capacity__14C= 0;
- if (((__INTEGER)(Self__Z4C->parent_arrayed_collection__AB.upper__24C + 1) <= (__INTEGER)(Self__Z4C->parent_arrayed_collection__AB.capacity__44C - 1))) {
- Self__Z4C->parent_arrayed_collection__AB.upper__24C=(__INTEGER)(Self__Z4C->parent_arrayed_collection__AB.upper__24C + 1);
- __tmp__L5C=TRUE__;
- } else {
- __tmp__L5C=FALSE__;
- };
- if ((! __tmp__L5C)) {
- if ((Self__Z4C->parent_arrayed_collection__AB.capacity__44C == 0)) {
- Self__Z4C->parent_arrayed_collection__AB.storage__05C=create__KOG();
- Self__Z4C->parent_arrayed_collection__AB.capacity__44C= 2;
- Self__Z4C->parent_arrayed_collection__AB.upper__24C= 0;
- } else {
- new_capacity__14C=(__INTEGER)(Self__Z4C->parent_arrayed_collection__AB.capacity__44C << 1);
- __tmp__DAD=Self__Z4C->parent_arrayed_collection__AB.storage__05C;
- __tmp__EAD=Self__Z4C->parent_arrayed_collection__AB.capacity__44C;
- new__M3J=((void **)realloc_dynamic__old_size__new_size__V0K(((__POINTER )((void **)__tmp__DAD)),((__UINTEGER_32 )(__INTEGER)(__tmp__EAD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__14C * ((__INTEGER )(sizeof(void *)))))));
- __tmp__53J=(__INTEGER)(new_capacity__14C - 1);
- Self__BSP=__tmp__EAD;
- while ((Self__BSP <= __tmp__53J)) {
- new__M3J[Self__BSP]=NULL;
- Self__BSP=(__INTEGER)(Self__BSP + 1);
- };
- Self__Z4C->parent_arrayed_collection__AB.storage__05C=new__M3J;
- Self__Z4C->parent_arrayed_collection__AB.capacity__44C=new_capacity__14C;
- Self__Z4C->parent_arrayed_collection__AB.upper__24C=(__INTEGER)(Self__Z4C->parent_arrayed_collection__AB.upper__24C + 1);
- };
- };
- ((void **)Self__Z4C->parent_arrayed_collection__AB.storage__05C)[Self__Z4C->parent_arrayed_collection__AB.upper__24C]=element__04C;
-}
-
-static __CHARACTER* create__UQG(__INTEGER nb_elements__WQG)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__ZTW,a__CPB,new_size__0TW,new_size2__1TW,a__MYW;
- __UINTEGER_32 new_size__NYW;
- __POINTER result__YTW,ptr_table__R4W,next__Q4W,result__S4W;
- __INTEGER Self__GGL;
- __CHARACTER *Result__ALH;
- sz__ZTW=((__UINTEGER_32 )nb_elements__WQG);
- result__YTW=((__POINTER )(NULL));
- a__CPB=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0TW=(__UINTEGER_32)((__UINTEGER_32)(sz__ZTW + a__CPB) & (__UINTEGER_32)(~ a__CPB));
- new_size2__1TW=(__UINTEGER_32)(new_size__0TW + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__1TW <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__MYW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NYW=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1TW + a__MYW) & (__UINTEGER_32)(~ a__MYW));
- ptr_table__R4W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NYW / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Q4W=((__POINTER )(NULL));
- result__S4W=((__POINTER *)ptr_table__R4W)[ 0];
- if ((result__S4W == (void *)NULL)) {
- result__S4W=new_lab__GFC(new_size__NYW);
- next__Q4W=(void *)((unsigned long)result__S4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NYW)));
- ((__POINTER *)next__Q4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__R4W)[ 0]=next__Q4W;
- } else {
- next__Q4W=((__POINTER *)result__S4W)[ 0];
- if ((next__Q4W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S4W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__NYW << 1)) <= 4096)) {
- next__Q4W=(void *)((unsigned long)result__S4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NYW)));
- } else {
- next__Q4W=new_lab__GFC(new_size__NYW);
- };
- ((__POINTER *)next__Q4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__R4W)[ 0]=next__Q4W;
- } else {
- ((__POINTER *)result__S4W)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q4W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__S4W=next__Q4W;
- };
- };
- ((__POINTER *)result__S4W)[ 0]=((__POINTER ) 3);
- result__YTW=(void *)((unsigned long)result__S4W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__YTW=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Z1E(new_size__0TW))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__ALH=((__CHARACTER *)result__YTW);
- Self__GGL=(__INTEGER)(nb_elements__WQG - 1);
- while ((Self__GGL >= 0)) {
- Result__ALH[Self__GGL]='\0';
- Self__GGL=(__INTEGER)(Self__GGL - 1);
- };
- return(Result__ALH);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__V0K(__POINTER p__X0K,__UINTEGER_32 old_sz__Y0K,__UINTEGER_32 new_sz__Z0K)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__E1K,*Self__X2N,*nxt__12N,*result__22N,*Self__PWJ;
- __MEMORY *new__YWJ,*prev__K0W,*next__L0W,*Self__UZJ,*Self__LQJ;
- __MEMORY *next__UXO,*new_free__TXO,*prev__3SK,*next__4SK;
- __POINTER result__F1K,result__FVW,ptr_table__44W,next__34W;
- __POINTER result__54W,p__N1N,last__RKO,src__H0N,dst__I0N;
- __UINTEGER_32 a__5UW,old_size__10K,old_size2__40K,a__DVW;
- __UINTEGER_32 new_size__B1K,a__LVW,new_size__HVW,new_size2__IVW;
- __UINTEGER_32 a__Y0W,new_size__Z0W,a__PVW,__tmp__W2K,sz__A3N;
- __UINTEGER_32 old_size__32N,siz__SWJ,new_size__VWJ,prev__VXO;
- __UINTEGER_32 new_size__YXO;
- __INTEGER siz__XAX,Self__2AX,siz__M0N,Self__EIO;
- __POINTER *na_src__ZAX,*na_dst__1AX,*na_src__K0N,*na_dst__L0N;
- mem__E1K=NULL;
- result__F1K=((__POINTER )(NULL));
- a__5UW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__10K=(__UINTEGER_32)((__UINTEGER_32)(old_sz__Y0K + a__5UW) & (__UINTEGER_32)(~ a__5UW));
- old_size2__40K=(__UINTEGER_32)(old_size__10K + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__DVW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__B1K=(__UINTEGER_32)((__UINTEGER_32)(new_sz__Z0K + a__DVW) & (__UINTEGER_32)(~ a__DVW));
- if ((old_size2__40K <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__FVW=((__POINTER )(NULL));
- a__LVW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HVW=(__UINTEGER_32)((__UINTEGER_32)(new_size__B1K + a__LVW) & (__UINTEGER_32)(~ a__LVW));
- new_size2__IVW=(__UINTEGER_32)(new_size__HVW + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__IVW <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__Y0W=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Z0W=(__UINTEGER_32)((__UINTEGER_32)(new_size2__IVW + a__Y0W) & (__UINTEGER_32)(~ a__Y0W));
- ptr_table__44W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Z0W / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__34W=((__POINTER )(NULL));
- result__54W=((__POINTER *)ptr_table__44W)[ 0];
- if ((result__54W == (void *)NULL)) {
- result__54W=new_lab__GFC(new_size__Z0W);
- next__34W=(void *)((unsigned long)result__54W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z0W)));
- ((__POINTER *)next__34W)[ 0]=NULL;
- ((__POINTER *)ptr_table__44W)[ 0]=next__34W;
- } else {
- next__34W=((__POINTER *)result__54W)[ 0];
- if ((next__34W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__54W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__Z0W << 1)) <= 4096)) {
- next__34W=(void *)((unsigned long)result__54W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z0W)));
- } else {
- next__34W=new_lab__GFC(new_size__Z0W);
- };
- ((__POINTER *)next__34W)[ 0]=NULL;
- ((__POINTER *)ptr_table__44W)[ 0]=next__34W;
- } else {
- ((__POINTER *)result__54W)[ 0]=(void *)((unsigned long)((__POINTER *)next__34W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__54W=next__34W;
- };
- };
- ((__POINTER *)result__54W)[ 0]=((__POINTER ) 3);
- result__FVW=(void *)((unsigned long)result__54W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__FVW=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Z1E(new_size__HVW))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__F1K=result__FVW;
- siz__XAX=((__INTEGER )old_size__10K);
- siz__XAX=(__INTEGER)(siz__XAX / ((__INTEGER )(sizeof(void *))));
- na_src__ZAX=((__POINTER *)p__X0K);
- na_dst__1AX=((__POINTER *)result__FVW);
- Self__2AX=(__INTEGER)(siz__XAX - 1);
- while ((Self__2AX >= 0)) {
- na_dst__1AX[Self__2AX]=na_src__ZAX[Self__2AX];
- Self__2AX=(__INTEGER)(Self__2AX - 1);
- };
- p__N1N=(void *)((unsigned long)p__X0K - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__PVW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__RKO=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__40K + a__PVW) & (__UINTEGER_32)(~ a__PVW)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__N1N)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__RKO)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__RKO)[ 0]=p__N1N;
- } else {
- mem__E1K=((__MEMORY *)(void *)((unsigned long)p__X0K - (unsigned long)((__POINTER ) 8)));
- __tmp__W2K=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__X0K - (unsigned long)begin_memory__5SB)))) >> 26);
- Self__X2N=((__MEMORY *)mem__E1K);
- nxt__12N=NULL;
- result__22N=NULL;
- sz__A3N= 0;
- old_size__32N=(__UINTEGER_32)(Self__X2N->size_and_id__EK & 4294967292LU);
- if ((new_size__B1K > old_size__32N)) {
- if ((! ((__UINTEGER_32)(Self__X2N->size_and_id__EK & 2) != 0))) {
- nxt__12N=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__X2N) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__X2N->size_and_id__EK & 4294967292LU)))));
- sz__A3N=(__UINTEGER_32)((__UINTEGER_32)(new_size__B1K - old_size__32N) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__12N)->size_and_id__EK & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__12N)->size_and_id__EK & 4294967292LU) >= sz__A3N))) {
- Self__PWJ=((__MEMORY *)nxt__12N);
- new__YWJ=NULL;
- prev__K0W=Self__PWJ->previous_free__GK;
- next__L0W=Self__PWJ->next_free__FK;
- if (((void *)prev__K0W == (void *)NULL)) {
- first_free__22E=next__L0W;
- } else {
- ((__MEMORY *)prev__K0W)->next_free__FK=next__L0W;
- };
- if (((void *)next__L0W != (void *)NULL)) {
- ((__MEMORY *)next__L0W)->previous_free__GK=prev__K0W;
- };
- siz__SWJ=Self__PWJ->size_and_id__EK;
- new_size__VWJ=(__UINTEGER_32)(siz__SWJ - sz__A3N);
- if ((new_size__VWJ > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__SWJ=sz__A3N;
- new__YWJ=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PWJ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__A3N))));
- ((__MEMORY *)new__YWJ)->previous_linear__DK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__PWJ) - (unsigned long)begin_memory__5SB))));
- ((__MEMORY *)new__YWJ)->size_and_id__EK=(__UINTEGER_32)(new_size__VWJ - 8);
- Self__UZJ=((__MEMORY *)new__YWJ);
- Self__UZJ->next_free__FK=first_free__22E;
- Self__UZJ->previous_free__GK=NULL;
- if (((void *)first_free__22E != (void *)NULL)) {
- ((__MEMORY *)first_free__22E)->previous_free__GK=Self__UZJ;
- };
- first_free__22E=Self__UZJ;
- if (((__UINTEGER_32)(((__MEMORY *)new__YWJ)->size_and_id__EK & 2) != 0)) {
- last_block[(__tmp__W2K)] = (new__YWJ);
- } else {
- Self__LQJ=((__MEMORY *)new__YWJ);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LQJ) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LQJ->size_and_id__EK & 4294967292LU)))))->previous_linear__DK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__YWJ)) - (unsigned long)begin_memory__5SB))));
- };
- };
- Self__PWJ->size_and_id__EK=(__UINTEGER_32)(siz__SWJ | 1);
- Self__X2N->size_and_id__EK=(__UINTEGER_32)((__UINTEGER_32)(Self__X2N->size_and_id__EK + (__UINTEGER_32)(nxt__12N->size_and_id__EK & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__X2N->size_and_id__EK & 2) != 0)) {
- last_block[(__tmp__W2K)] = (Self__X2N);
- } else {
- nxt__12N=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__X2N) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__X2N->size_and_id__EK & 4294967292LU)))));
- ((__MEMORY *)nxt__12N)->previous_linear__DK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__X2N) - (unsigned long)begin_memory__5SB))));
- };
- result__22N=Self__X2N;
- };
- };
- if (((void *)result__22N == (void *)NULL)) {
- result__22N=search__Z1E(new_size__B1K);
- src__H0N=(void *)((unsigned long)((__POINTER )Self__X2N) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__I0N=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__22N)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__M0N=((__INTEGER )old_size__32N);
- siz__M0N=(__INTEGER)(siz__M0N / ((__INTEGER )(sizeof(void *))));
- na_src__K0N=((__POINTER *)src__H0N);
- na_dst__L0N=((__POINTER *)dst__I0N);
- Self__EIO=(__INTEGER)(siz__M0N - 1);
- while ((Self__EIO >= 0)) {
- na_dst__L0N[Self__EIO]=na_src__K0N[Self__EIO];
- Self__EIO=(__INTEGER)(Self__EIO - 1);
- };
- prev__VXO=Self__X2N->previous_linear__DK;
- next__UXO=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__X2N) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__X2N->size_and_id__EK & 4294967292LU)))));
- new_free__TXO=((__MEMORY *)(void *)((unsigned long)begin_memory__5SB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__VXO))));
- new_size__YXO=(__UINTEGER_32)(Self__X2N->size_and_id__EK & 4294967294LU);
- if (((prev__VXO == 4294967295LU) || ((__UINTEGER_32)(new_free__TXO->size_and_id__EK & 1) != 0))) {
- new_free__TXO=Self__X2N;
- Self__X2N->next_free__FK=first_free__22E;
- Self__X2N->previous_free__GK=NULL;
- if (((void *)first_free__22E != (void *)NULL)) {
- ((__MEMORY *)first_free__22E)->previous_free__GK=Self__X2N;
- };
- first_free__22E=Self__X2N;
- } else {
- new_size__YXO=(__UINTEGER_32)((__UINTEGER_32)(new_size__YXO + new_free__TXO->size_and_id__EK) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__X2N->size_and_id__EK & 2) != 0)) && ((__UINTEGER_32)(next__UXO->size_and_id__EK & 1) == 0))) {
- new_size__YXO=(__UINTEGER_32)((__UINTEGER_32)(new_size__YXO + next__UXO->size_and_id__EK) + 8);
- prev__3SK=next__UXO->previous_free__GK;
- next__4SK=next__UXO->next_free__FK;
- if (((void *)prev__3SK == (void *)NULL)) {
- first_free__22E=next__4SK;
- } else {
- ((__MEMORY *)prev__3SK)->next_free__FK=next__4SK;
- };
- if (((void *)next__4SK != (void *)NULL)) {
- ((__MEMORY *)next__4SK)->previous_free__GK=prev__3SK;
- };
- };
- new_free__TXO->size_and_id__EK=new_size__YXO;
- if (((__UINTEGER_32)(new_free__TXO->size_and_id__EK & 2) != 0)) {
- last_block[(__tmp__W2K)] = (new_free__TXO);
- } else {
- next__UXO=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__X2N) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__X2N->size_and_id__EK & 4294967292LU)))));
- next__UXO->previous_linear__DK=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__TXO) - (unsigned long)begin_memory__5SB))));
- };
- };
- } else {
- result__22N=Self__X2N;
- };
- result__F1K=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__22N)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__F1K);
-}
-
-static __INTEGER fb_subst__YF(void *dst__0F,void *src__1F,void *p__2F,void *r__3F)
-// ({NULLxSTRING},{NULLxSTRING},{NULLxSTRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER pos__5F,Self__VIF,limit_up__WIF,new_capacity__V4W;
- __INTEGER old_nb_elts__N5W,__tmp__Q5W,Self__R5W,Self__IN,limit_up__JN;
- __INTEGER new_capacity__XCD,old_nb_elts__U5W,__tmp__X5W,Self__Y5W;
- __STRING *Self__W4W,*Self__VCD;
- __CHARACTER ch__X4W,ch__WCD;
- __CHARACTER *Self__M5W,*new__P5W,*Self__T5W,*new__W5W;
- re = pcre_compile((((__STRING_CONSTANT *)p__2F)->storage__YM), PCRE_CASELESS, &re_e, &re_eo, NULL);
- re_ex = pcre_study(re, 0, &re_e);
- ((__STRING *)dst__0F)->count__SB= 0;
- pos__5F= 1;
- while ((((__INTEGER )(pcre_exec(re, re_ex, (((__STRING *)src__1F)->storage__JF), (((__STRING *)src__1F)->count__SB), (pos__5F)-1, 0, (mem__IG), 3))) >= 0)) {
- Self__VIF=pos__5F;
- limit_up__WIF=mem__IG[ 0];
- while ((Self__VIF <= limit_up__WIF)) {
- Self__W4W=((__STRING *)dst__0F);
- ch__X4W=((__CHARACTER *)((__STRING *)src__1F)->storage__JF)[(__INTEGER)(Self__VIF - 1)];
- new_capacity__V4W= 0;
- if ((Self__W4W->capacity__1E <= Self__W4W->count__SB)) {
- if ((Self__W4W->capacity__1E == 0)) {
- Self__W4W->capacity__1E= 32;
- Self__W4W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__V4W=(__INTEGER)(Self__W4W->capacity__1E << 1);
- Self__M5W=((__CHARACTER *)Self__W4W->storage__JF);
- old_nb_elts__N5W=Self__W4W->capacity__1E;
- new__P5W=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__M5W),((__UINTEGER_32 )old_nb_elts__N5W),((__UINTEGER_32 )new_capacity__V4W)));
- __tmp__Q5W=(__INTEGER)(new_capacity__V4W - 1);
- Self__R5W=old_nb_elts__N5W;
- while ((Self__R5W <= __tmp__Q5W)) {
- new__P5W[Self__R5W]='\0';
- Self__R5W=(__INTEGER)(Self__R5W + 1);
- };
- Self__W4W->storage__JF=new__P5W;
- Self__W4W->capacity__1E=new_capacity__V4W;
- };
- };
- ((__CHARACTER *)Self__W4W->storage__JF)[Self__W4W->count__SB]=ch__X4W;
- Self__W4W->count__SB=(__INTEGER)(Self__W4W->count__SB + 1);
- Self__VIF=(__INTEGER)(Self__VIF + 1);
- };
- append__PFF(dst__0F,r__3F);
- pos__5F=(__INTEGER)(mem__IG[ 1] + 1);
- };
- Self__IN=pos__5F;
- limit_up__JN=((__STRING *)src__1F)->count__SB;
- while ((Self__IN <= limit_up__JN)) {
- Self__VCD=((__STRING *)dst__0F);
- ch__WCD=((__CHARACTER *)((__STRING *)src__1F)->storage__JF)[(__INTEGER)(Self__IN - 1)];
- new_capacity__XCD= 0;
- if ((Self__VCD->capacity__1E <= Self__VCD->count__SB)) {
- if ((Self__VCD->capacity__1E == 0)) {
- Self__VCD->capacity__1E= 32;
- Self__VCD->storage__JF=create__UQG( 32);
- } else {
- new_capacity__XCD=(__INTEGER)(Self__VCD->capacity__1E << 1);
- Self__T5W=((__CHARACTER *)Self__VCD->storage__JF);
- old_nb_elts__U5W=Self__VCD->capacity__1E;
- new__W5W=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__T5W),((__UINTEGER_32 )old_nb_elts__U5W),((__UINTEGER_32 )new_capacity__XCD)));
- __tmp__X5W=(__INTEGER)(new_capacity__XCD - 1);
- Self__Y5W=old_nb_elts__U5W;
- while ((Self__Y5W <= __tmp__X5W)) {
- new__W5W[Self__Y5W]='\0';
- Self__Y5W=(__INTEGER)(Self__Y5W + 1);
- };
- Self__VCD->storage__JF=new__W5W;
- Self__VCD->capacity__1E=new_capacity__XCD;
- };
- };
- ((__CHARACTER *)Self__VCD->storage__JF)[Self__VCD->count__SB]=ch__WCD;
- Self__VCD->count__SB=(__INTEGER)(Self__VCD->count__SB + 1);
- Self__IN=(__INTEGER)(Self__IN + 1);
- };
- return(((__STRING *)dst__0F)->count__SB);
-}
-
-static void append__PFF(__STRING *Self__QFF,void *other__RFF)
-// ({STRING},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER other_count__SFF,needed_capacity__TFF,old_nb_elts__15W;
- __INTEGER __tmp__45W,Self__55W,__tmp__2GF,i2__O1J,i1__N1J;
- __CHARACTER *Self__05W,*new__35W,*__tmp__YGF,*__tmp__1GF,*Self__10J;
- other_count__SFF=((__STRING_CONSTANT *)other__RFF)->count__ZWF;
- needed_capacity__TFF=(__INTEGER)(Self__QFF->count__SB + other_count__SFF);
- if ((Self__QFF->capacity__1E < needed_capacity__TFF)) {
- if ((Self__QFF->capacity__1E == 0)) {
- Self__QFF->capacity__1E=needed_capacity__TFF;
- Self__QFF->storage__JF=create__UQG(needed_capacity__TFF);
- } else {
- Self__05W=((__CHARACTER *)Self__QFF->storage__JF);
- old_nb_elts__15W=Self__QFF->capacity__1E;
- new__35W=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__05W),((__UINTEGER_32 )old_nb_elts__15W),((__UINTEGER_32 )needed_capacity__TFF)));
- __tmp__45W=(__INTEGER)(needed_capacity__TFF - 1);
- Self__55W=old_nb_elts__15W;
- while ((Self__55W <= __tmp__45W)) {
- new__35W[Self__55W]='\0';
- Self__55W=(__INTEGER)(Self__55W + 1);
- };
- Self__QFF->storage__JF=new__35W;
- Self__QFF->capacity__1E=needed_capacity__TFF;
- };
- };
- __tmp__YGF=Self__QFF->storage__JF;
- __tmp__1GF=((__STRING_CONSTANT *)other__RFF)->storage__YM;
- __tmp__2GF=Self__QFF->count__SB;
- Self__10J=((__CHARACTER *)__tmp__YGF);
- i2__O1J= 0;
- i1__N1J=__tmp__2GF;
- while ((i2__O1J != other_count__SFF)) {
- Self__10J[i1__N1J]=((__CHARACTER *)__tmp__1GF)[i2__O1J];
- i2__O1J=(__INTEGER)(i2__O1J + 1);
- i1__N1J=(__INTEGER)(i1__N1J + 1);
- };
- Self__QFF->count__SB=needed_capacity__TFF;
-}
-
-static void append_in__WI(__INTEGER Self__XI,void *buffer__YI)
-// ({INTEGER},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER_32 Self__3O,val__FP;
- __INTEGER i__IP,j__JP,new_capacity__22W,old_nb_elts__CAX,__tmp__FAX;
- __INTEGER Self__GAX,new_capacity__52W,old_nb_elts__JAX,__tmp__MAX;
- __INTEGER Self__NAX,new_capacity__C3W,old_nb_elts__QAX,__tmp__TAX;
- __INTEGER Self__UAX;
- __STRING *Self__32W,*Self__A3W,*Self__D3W,*Self__1JF;
- __CHARACTER *Self__BAX,*new__EAX,*Self__IAX,*new__LAX,*Self__PAX;
- __CHARACTER *new__SAX;
- __CHARACTER ch__E3W,tmp__4JF;
- Self__3O=((__INTEGER_32 )Self__XI);
- val__FP= 0;
- i__IP= 0;
- j__JP= 0;
- if ((Self__3O == 0)) {
- Self__32W=((__STRING *)buffer__YI);
- new_capacity__22W= 0;
- if ((Self__32W->capacity__1E <= Self__32W->count__SB)) {
- if ((Self__32W->capacity__1E == 0)) {
- Self__32W->capacity__1E= 32;
- Self__32W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__22W=(__INTEGER)(Self__32W->capacity__1E << 1);
- Self__BAX=((__CHARACTER *)Self__32W->storage__JF);
- old_nb_elts__CAX=Self__32W->capacity__1E;
- new__EAX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__BAX),((__UINTEGER_32 )old_nb_elts__CAX),((__UINTEGER_32 )new_capacity__22W)));
- __tmp__FAX=(__INTEGER)(new_capacity__22W - 1);
- Self__GAX=old_nb_elts__CAX;
- while ((Self__GAX <= __tmp__FAX)) {
- new__EAX[Self__GAX]='\0';
- Self__GAX=(__INTEGER)(Self__GAX + 1);
- };
- Self__32W->storage__JF=new__EAX;
- Self__32W->capacity__1E=new_capacity__22W;
- };
- };
- ((__CHARACTER *)Self__32W->storage__JF)[Self__32W->count__SB]='0';
- Self__32W->count__SB=(__INTEGER)(Self__32W->count__SB + 1);
- } else {
- if ((Self__3O > 0)) {
- val__FP=Self__3O;
- } else {
- val__FP=(__INTEGER_32)(- Self__3O);
- Self__A3W=((__STRING *)buffer__YI);
- new_capacity__52W= 0;
- if ((Self__A3W->capacity__1E <= Self__A3W->count__SB)) {
- if ((Self__A3W->capacity__1E == 0)) {
- Self__A3W->capacity__1E= 32;
- Self__A3W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__52W=(__INTEGER)(Self__A3W->capacity__1E << 1);
- Self__IAX=((__CHARACTER *)Self__A3W->storage__JF);
- old_nb_elts__JAX=Self__A3W->capacity__1E;
- new__LAX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__IAX),((__UINTEGER_32 )old_nb_elts__JAX),((__UINTEGER_32 )new_capacity__52W)));
- __tmp__MAX=(__INTEGER)(new_capacity__52W - 1);
- Self__NAX=old_nb_elts__JAX;
- while ((Self__NAX <= __tmp__MAX)) {
- new__LAX[Self__NAX]='\0';
- Self__NAX=(__INTEGER)(Self__NAX + 1);
- };
- Self__A3W->storage__JF=new__LAX;
- Self__A3W->capacity__1E=new_capacity__52W;
- };
- };
- ((__CHARACTER *)Self__A3W->storage__JF)[Self__A3W->count__SB]='-';
- Self__A3W->count__SB=(__INTEGER)(Self__A3W->count__SB + 1);
- };
- i__IP=(__INTEGER)(((__STRING *)buffer__YI)->count__SB + 1);
- while ((val__FP != 0)) {
- Self__D3W=((__STRING *)buffer__YI);
- ch__E3W=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER_32)(val__FP % 10)) + ((__INTEGER_8 )'0')))));
- new_capacity__C3W= 0;
- if ((Self__D3W->capacity__1E <= Self__D3W->count__SB)) {
- if ((Self__D3W->capacity__1E == 0)) {
- Self__D3W->capacity__1E= 32;
- Self__D3W->storage__JF=create__UQG( 32);
- } else {
- new_capacity__C3W=(__INTEGER)(Self__D3W->capacity__1E << 1);
- Self__PAX=((__CHARACTER *)Self__D3W->storage__JF);
- old_nb_elts__QAX=Self__D3W->capacity__1E;
- new__SAX=((__CHARACTER *)realloc_dynamic__old_size__new_size__V0K(((__POINTER )Self__PAX),((__UINTEGER_32 )old_nb_elts__QAX),((__UINTEGER_32 )new_capacity__C3W)));
- __tmp__TAX=(__INTEGER)(new_capacity__C3W - 1);
- Self__UAX=old_nb_elts__QAX;
- while ((Self__UAX <= __tmp__TAX)) {
- new__SAX[Self__UAX]='\0';
- Self__UAX=(__INTEGER)(Self__UAX + 1);
- };
- Self__D3W->storage__JF=new__SAX;
- Self__D3W->capacity__1E=new_capacity__C3W;
- };
- };
- ((__CHARACTER *)Self__D3W->storage__JF)[Self__D3W->count__SB]=ch__E3W;
- Self__D3W->count__SB=(__INTEGER)(Self__D3W->count__SB + 1);
- val__FP=(__INTEGER_32)(val__FP / 10);
- };
- j__JP=((__STRING *)buffer__YI)->count__SB;
- while ((i__IP < j__JP)) {
- Self__1JF=((__STRING *)buffer__YI);
- tmp__4JF=((__CHARACTER *)Self__1JF->storage__JF)[(__INTEGER)(i__IP - 1)];
- ((__CHARACTER *)Self__1JF->storage__JF)[(__INTEGER)(i__IP - 1)]=((__CHARACTER *)Self__1JF->storage__JF)[(__INTEGER)(j__JP - 1)];
- ((__CHARACTER *)Self__1JF->storage__JF)[(__INTEGER)(j__JP - 1)]=tmp__4JF;
- j__JP=(__INTEGER)(j__JP - 1);
- i__IP=(__INTEGER)(i__IP + 1);
- };
- };
-}
-
-static __MEMORY* new_page__L4E()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__G5G;
- __UINTEGER_32 cap__D5G,old_size__O4E;
- __INTEGER Self__SPI,limit_up__TPI;
- __MEMORY *block__U4E;
- __CHARACTER *__tmp__F0W;
- if ((capacity_max__V4E == 0)) {
- mem__G5G=((__POINTER )(NULL));
- cap__D5G= 33554432;
- do {
- cap__D5G=(__UINTEGER_32)(cap__D5G << 1);
- mem__G5G=((__POINTER )(malloc((cap__D5G))));
- if ((mem__G5G != (void *)NULL)) {
- free((mem__G5G));
- };
- } while ((! ((mem__G5G == (void *)NULL) || (cap__D5G == 2147483648LU))));
- if ((mem__G5G == (void *)NULL)) {
- cap__D5G=(__UINTEGER_32)(cap__D5G >> 1);
- };
- capacity_max__V4E=cap__D5G;
- begin_memory__5SB=((__POINTER )(malloc((cap__D5G))));
- };
- old_size__O4E=(__UINTEGER_32)(nb_page__YFC << 26);
- nb_page__YFC=(__UINTEGER_32)(nb_page__YFC + 1);
- if (((__UINTEGER_32)(old_size__O4E + 67108864) > capacity_max__V4E)) {
- Self__SPI= 1;
- limit_up__TPI=((__STRING_CONSTANT *)(&__string_34))->count__ZWF;
- __tmp__F0W=((__STRING_CONSTANT *)(&__string_34))->storage__YM;
- while ((Self__SPI <= limit_up__TPI)) {
- fputc((int)(((__CHARACTER *)__tmp__F0W)[(__INTEGER)(Self__SPI - 1)]),stdout);
- Self__SPI=(__INTEGER)(Self__SPI + 1);
- };
- exit(( 1));
- };
- block__U4E=((__MEMORY *)(void *)((unsigned long)begin_memory__5SB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__O4E))));
- block__U4E->previous_linear__DK= 4294967295LU;
- block__U4E->size_and_id__EK= 67108858;
- block__U4E->next_free__FK=first_free__22E;
- block__U4E->previous_free__GK=NULL;
- if (((void *)first_free__22E != (void *)NULL)) {
- ((__MEMORY *)first_free__22E)->previous_free__GK=block__U4E;
- };
- first_free__22E=block__U4E;
- last_block[((__UINTEGER_32)(nb_page__YFC - 1))] = (block__U4E);
- return(block__U4E);
-}
-
-static void** create__RRG(__INTEGER nb_elements__TRG)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__WUW,a__1UW,new_size__XUW,new_size2__YUW,a__R0W;
- __UINTEGER_32 new_size__S0W;
- __POINTER result__VUW,ptr_table__Z4W,next__Y4W,result__04W;
- __INTEGER Self__YHL;
- void **Result__MNH;
- sz__WUW=((__UINTEGER_32 )(__INTEGER)(nb_elements__TRG * ((__INTEGER )(sizeof(void *)))));
- result__VUW=((__POINTER )(NULL));
- a__1UW=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XUW=(__UINTEGER_32)((__UINTEGER_32)(sz__WUW + a__1UW) & (__UINTEGER_32)(~ a__1UW));
- new_size2__YUW=(__UINTEGER_32)(new_size__XUW + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__YUW <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__R0W=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__S0W=(__UINTEGER_32)((__UINTEGER_32)(new_size2__YUW + a__R0W) & (__UINTEGER_32)(~ a__R0W));
- ptr_table__Z4W=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__S0W / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Y4W=((__POINTER )(NULL));
- result__04W=((__POINTER *)ptr_table__Z4W)[ 0];
- if ((result__04W == (void *)NULL)) {
- result__04W=new_lab__GFC(new_size__S0W);
- next__Y4W=(void *)((unsigned long)result__04W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0W)));
- ((__POINTER *)next__Y4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z4W)[ 0]=next__Y4W;
- } else {
- next__Y4W=((__POINTER *)result__04W)[ 0];
- if ((next__Y4W == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__04W - (unsigned long)begin_memory__5SB)))) & 4095) + (__UINTEGER_32)(new_size__S0W << 1)) <= 4096)) {
- next__Y4W=(void *)((unsigned long)result__04W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0W)));
- } else {
- next__Y4W=new_lab__GFC(new_size__S0W);
- };
- ((__POINTER *)next__Y4W)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z4W)[ 0]=next__Y4W;
- } else {
- ((__POINTER *)result__04W)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y4W)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__04W=next__Y4W;
- };
- };
- ((__POINTER *)result__04W)[ 0]=((__POINTER ) 3);
- result__VUW=(void *)((unsigned long)result__04W - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__VUW=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__Z1E(new_size__XUW))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__MNH=((void **)result__VUW);
- Self__YHL=(__INTEGER)(nb_elements__TRG - 1);
- while ((Self__YHL >= 0)) {
- Result__MNH[Self__YHL]=NULL;
- Self__YHL=(__INTEGER)(Self__YHL - 1);
- };
- return(Result__MNH);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/regex-dna/regexdna_c.c b/example/shootout/regex-dna/regexdna_c.c
deleted file mode 100644
index 2d55e21..0000000
--- a/example/shootout/regex-dna/regexdna_c.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/*
-** The Computer Language Shootout
-** http://shootout.alioth.debian.org/
-** contributed by Mike Pall
-**
-** regex-dna benchmark using PCRE
-**
-** compile with:
-** gcc -O3 -fomit-frame-pointer -o regexdna regexdna.c -lpcre
-*/
-
-#define __USE_STRING_INLINES
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include <pcre.h>
-
-typedef struct fbuf {
- char *buf;
- size_t size, len;
-} fbuf_t;
-
-static void fb_init(fbuf_t *b)
-{
- b->buf = NULL;
- b->len = b->size = 0;
-}
-
-static char *fb_need(fbuf_t *b, size_t need)
-{
- need += b->len;
- if (need > b->size) {
- if (b->size == 0) b->size = need;
- else while (need > b->size) b->size += b->size;
- if (!(b->buf = realloc(b->buf, b->size))) exit(1);
- }
- return b->buf+b->len;
-}
-
-#define FB_MINREAD (3<<16)
-
-/* Read all of a stdio stream into dst buffer. */
-static size_t fb_readall(fbuf_t *dst, FILE *fp)
-{
- char *dp;
- int n;
- for (dp = fb_need(dst, FB_MINREAD);
- (n = fread(dp, 1, dst->size-dst->len, fp)) > 0;
- dp = fb_need(dst, FB_MINREAD)) dst->len += n;
- if (ferror(fp)) exit(1);
- return dst->len;
-}
-
-/* Substitute pattern p with replacement r, copying from src to dst buffer. */
-static size_t fb_subst(fbuf_t *dst, fbuf_t *src, const char *p, const char *r)
-{
- pcre *re;
- pcre_extra *re_ex;
- const char *re_e;
- char *dp;
- int re_eo, m[3], pos, rlen, clen;
- if (!(re = pcre_compile(p, PCRE_CASELESS, &re_e, &re_eo, NULL))) exit(1);
- re_ex = pcre_study(re, 0, &re_e);
- for (dst->len = 0, rlen = strlen(r), pos = 0;
- pcre_exec(re, re_ex, src->buf, src->len, pos, 0, m, 3) >= 0;
- pos = m[1]) {
- clen = m[0]-pos;
- dp = fb_need(dst, clen+rlen);
- dst->len += clen+rlen;
- memcpy(dp, src->buf+pos, clen);
- memcpy(dp+clen, r, rlen);
- }
- clen = src->len-pos;
- dp = fb_need(dst, clen);
- dst->len += clen;
- memcpy(dp, src->buf+pos, clen);
- return dst->len;
-}
-
-/* Count all matches with pattern p in src buffer. */
-static int fb_countmatches(fbuf_t *src, const char *p)
-{
- pcre *re;
- pcre_extra *re_ex;
- const char *re_e;
- int re_eo, m[3], pos, count;
- if (!(re = pcre_compile(p, PCRE_CASELESS, &re_e, &re_eo, NULL))) exit(1);
- re_ex = pcre_study(re, 0, &re_e);
- for (count = 0, pos = 0;
- pcre_exec(re, re_ex, src->buf, src->len, pos, 0, m, 3) >= 0;
- pos = m[1]) count++;
- return count;
-}
-
-static const char *variants[] = {
- "agggtaaa|tttaccct", "[cgt]gggtaaa|tttaccc[acg]",
- "a[act]ggtaaa|tttacc[agt]t", "ag[act]gtaaa|tttac[agt]ct",
- "agg[act]taaa|ttta[agt]cct", "aggg[acg]aaa|ttt[cgt]ccct",
- "agggt[cgt]aa|tt[acg]accct", "agggta[cgt]a|t[acg]taccct",
- "agggtaa[cgt]|[acg]ttaccct", NULL
-};
-
-static const char *subst[] = {
- "B", "(c|g|t)", "D", "(a|g|t)", "H", "(a|c|t)", "K", "(g|t)",
- "M", "(a|c)", "N", "(a|c|g|t)", "R", "(a|g)", "S", "(c|g)",
- "V", "(a|c|g)", "W", "(a|t)", "Y", "(c|t)", NULL
-};
-
-int main(int argc, char **argv)
-{
- fbuf_t seq[2];
- const char **pp;
- size_t ilen, clen, slen;
- int flip;
- fb_init(&seq[0]);
- fb_init(&seq[1]);
- ilen = fb_readall(&seq[0], stdin);
- clen = fb_subst(&seq[1], &seq[0], ">.*|\n", "");
- for (pp = variants; *pp; pp++)
- printf("%s %d\n", *pp, fb_countmatches(&seq[1], *pp));
- for (slen = 0, flip = 1, pp = subst; *pp; pp += 2, flip = 1-flip)
- slen = fb_subst(&seq[1-flip], &seq[flip], *pp, pp[1]);
- printf("\n%zu\n%zu\n%zu\n", ilen, clen, slen);
- return 0;
-}
-
diff --git a/example/shootout/reverse_complement/reverse_complement.c b/example/shootout/reverse_complement/reverse_complement.c
deleted file mode 100755
index 1142272..0000000
--- a/example/shootout/reverse_complement/reverse_complement.c
+++ /dev/null
@@ -1,757 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// FS_MIN
-#include <unistd.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM
-#include <time.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// INTEGER
-typedef int __INTEGER;
-
-// STRING
-#define __STRING__ 0
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__MUB;
- __INTEGER capacity__GWB;
- __CHARACTER *storage__PVB;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// MEMORY
-#define __MEMORY__ 1
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__LG;
- volatile __UINTEGER_32 size_and_id__MG;
- __MEMORY *next_free__NG;
- __MEMORY *previous_free__OG;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// NUMERIC
-#define __NUMERIC__ 2
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 3
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__TND;
- __CHARACTER *storage__Z4D;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// FALSE
-#define FALSE__ 0
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[4];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__0V;
-__UINTEGER_32 nb_page__NDB;
-__UINTEGER_32 capacity_max__MPC;
-__MEMORY *first_free__VCE;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={26,"\0TVGH\0\000CD\0\0M\0KN\0\0\0YSAABW\0R"};
-__STRING_CONSTANT __string_2={19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER new_lab__1CB(__UINTEGER_32 t__3CB);
-static __CHARACTER* create__JOD(__INTEGER nb_elements__LOD);
-static __CHARACTER* to_external__TWB(__STRING *Self__UWB);
-static __MEMORY* new_page__CPC();
-static __MEMORY* search__SBE(__UINTEGER_32 new_size__UBE);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __INTEGER j__5,end__AB,typ_id__TF,result__VE,i__4;
- __STRING *result__LF,*Self__XVB,*Self__0XB,*Self__CUB;
- __POINTER ptr__MF,ptr_table__2SL,next__1SL,result__3SL,ptr_table__AU;
- __POINTER next__FU,result__DU,f__QE;
- __UINTEGER_32 sz__QF,a__3R,new_size__1N,t__EP,a__TNL,new_size__5T;
- __UINTEGER_32 lab_type__BU;
- __CHARACTER tmp__BB;
- __CHARACTER *ptr__UE,*__tmp__0QL,*__tmp__1QL,*__tmp__2QL,*__tmp__3QL;
- __CHARACTER *__tmp__4QL,*__tmp__5QL,*__tmp__ARL,*__tmp__BRL;
- __CHARACTER *__tmp__CRL,*__tmp__OSL,*__tmp__CTL;
- arg_count = argc;
- arg_vector = argv;
- parent_numeric__H=NUMERIC__;
- STRING_CONSTANT__->count__TND=((__INTEGER )((0)));
- STRING_CONSTANT__->storage__Z4D=((__CHARACTER *)(NULL));
- nb_page__NDB= 0;
- MEMORY__->size_and_id__MG= 0;
- capacity_max__MPC= 0;
- begin_memory__0V=((__POINTER )(NULL));
- MEMORY__->previous_linear__LG= 0;
- first_free__VCE=NULL;
- MEMORY__->next_free__NG=NULL;
- MEMORY__->previous_free__OG=NULL;
- STRING__->capacity__GWB= 0;
- STRING__->storage__PVB=NULL;
- STRING__->count__MUB= 0;
- j__5= 0;
- end__AB= 0;
- tmp__BB='\0';
- result__LF=NULL;
- ptr__MF=((__POINTER )(NULL));
- typ_id__TF= 0;
- sz__QF=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__QF == 0)) {
- result__LF=STRING__;
- } else {
- typ_id__TF=__STRING__;
- if ((typ_id__TF == (__INTEGER)(- 1))) {
- a__3R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1N=(__UINTEGER_32)((__UINTEGER_32)(sz__QF + a__3R) & (__UINTEGER_32)(~ a__3R));
- ptr_table__2SL=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1N / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__1SL=((__POINTER )(NULL));
- result__3SL=((__POINTER *)ptr_table__2SL)[ 0];
- if ((result__3SL == (void *)NULL)) {
- result__3SL=new_lab__1CB(new_size__1N);
- next__1SL=(void *)((unsigned long)result__3SL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1N)));
- ((__POINTER *)next__1SL)[ 0]=NULL;
- ((__POINTER *)ptr_table__2SL)[ 0]=next__1SL;
- } else {
- next__1SL=((__POINTER *)result__3SL)[ 0];
- if ((next__1SL == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3SL - (unsigned long)begin_memory__0V)))) & 4095) + (__UINTEGER_32)(new_size__1N << 1)) <= 4096)) {
- next__1SL=(void *)((unsigned long)result__3SL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1N)));
- } else {
- next__1SL=new_lab__1CB(new_size__1N);
- };
- ((__POINTER *)next__1SL)[ 0]=NULL;
- ((__POINTER *)ptr_table__2SL)[ 0]=next__1SL;
- } else {
- ((__POINTER *)result__3SL)[ 0]=(void *)((unsigned long)((__POINTER *)next__1SL)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3SL=next__1SL;
- };
- };
- ptr__MF=result__3SL;
- } else {
- t__EP=((__UINTEGER_32 )typ_id__TF);
- a__TNL=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5T=(__UINTEGER_32)((__UINTEGER_32)(sz__QF + a__TNL) & (__UINTEGER_32)(~ a__TNL));
- ptr_table__AU=((__POINTER )(&(table_type[(t__EP)])));
- lab_type__BU=(__UINTEGER_32)(t__EP | 1);
- next__FU=((__POINTER )(NULL));
- result__DU=((__POINTER *)ptr_table__AU)[ 0];
- if ((result__DU == (void *)NULL)) {
- result__DU=new_lab__1CB(lab_type__BU);
- next__FU=(void *)((unsigned long)result__DU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5T)));
- ((__POINTER *)next__FU)[ 0]=NULL;
- ((__POINTER *)ptr_table__AU)[ 0]=next__FU;
- } else {
- next__FU=((__POINTER *)result__DU)[ 0];
- if ((next__FU == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DU - (unsigned long)begin_memory__0V)))) & 4095) + (__UINTEGER_32)(new_size__5T << 1)) <= 4096)) {
- next__FU=(void *)((unsigned long)result__DU - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5T)));
- } else {
- next__FU=new_lab__1CB(lab_type__BU);
- };
- ((__POINTER *)next__FU)[ 0]=NULL;
- ((__POINTER *)ptr_table__AU)[ 0]=next__FU;
- } else {
- ((__POINTER *)result__DU)[ 0]=(void *)((unsigned long)((__POINTER *)next__FU)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__DU=next__FU;
- };
- };
- ptr__MF=result__DU;
- };
- result__LF=((__STRING *)ptr__MF);
- *(result__LF) = *(STRING__);
- };
- Self__XVB=((__STRING *)result__LF);
- if ((Self__XVB->capacity__GWB < 25416746)) {
- Self__XVB->storage__PVB=create__JOD( 25416746);
- Self__XVB->capacity__GWB= 25416746;
- };
- Self__XVB->count__MUB= 0;
- f__QE=((__POINTER )(stdin));
- ptr__UE=to_external__TWB(result__LF);
- result__VE=((__INTEGER )(fread((void *)((ptr__UE)),(size_t)(1), (size_t)(( 25416745)),(FILE*)((f__QE)))));
- ((__CHARACTER *)ptr__UE)[ 25416745]='\0';
- Self__0XB=((__STRING *)result__LF);
- Self__0XB->count__MUB= 0;
- while ((((__CHARACTER *)ptr__UE)[Self__0XB->count__MUB] != '\0')) {
- Self__0XB->count__MUB=(__INTEGER)(Self__0XB->count__MUB + 1);
- };
- if (((void *)Self__0XB->storage__PVB != (void *)ptr__UE)) {
- Self__0XB->storage__PVB=ptr__UE;
- Self__0XB->capacity__GWB=(__INTEGER)(Self__0XB->count__MUB + 1);
- };
- i__4= 1;
- __tmp__0QL=((__STRING *)result__LF)->storage__PVB;
- __tmp__1QL=((__STRING *)result__LF)->storage__PVB;
- __tmp__2QL=((__STRING *)result__LF)->storage__PVB;
- __tmp__3QL=((__STRING *)result__LF)->storage__PVB;
- __tmp__4QL=((__STRING *)result__LF)->storage__PVB;
- __tmp__5QL=((__STRING_CONSTANT *)(&__string_1))->storage__Z4D;
- __tmp__ARL=((__STRING *)result__LF)->storage__PVB;
- __tmp__BRL=((__STRING_CONSTANT *)(&__string_1))->storage__Z4D;
- __tmp__CRL=((__STRING *)result__LF)->storage__PVB;
- __tmp__OSL=((__STRING *)result__LF)->storage__PVB;
- __tmp__CTL=((__STRING *)result__LF)->storage__PVB;
- while ((i__4 <= result__VE)) {
- while ((((__CHARACTER *)__tmp__0QL)[(__INTEGER)(i__4 - 1)] != '\n')) {
- i__4=(__INTEGER)(i__4 + 1);
- };
- i__4=(__INTEGER)(i__4 + 1);
- j__5=i__4;
- while (((((__CHARACTER *)__tmp__1QL)[(__INTEGER)(j__5 - 1)] != '>') && (((__CHARACTER *)__tmp__2QL)[(__INTEGER)(j__5 - 1)] != 0))) {
- j__5=(__INTEGER)(j__5 + 1);
- };
- end__AB=j__5;
- j__5=(__INTEGER)(j__5 - 1);
- while ((i__4 < j__5)) {
- if ((((__CHARACTER *)__tmp__3QL)[(__INTEGER)(i__4 - 1)] == '\n')) {
- i__4=(__INTEGER)(i__4 + 1);
- };
- if ((((__CHARACTER *)__tmp__4QL)[(__INTEGER)(j__5 - 1)] == '\n')) {
- j__5=(__INTEGER)(j__5 - 1);
- };
- tmp__BB=((__CHARACTER *)__tmp__5QL)[(__INTEGER)((__INTEGER)((__INTEGER)(((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__ARL)[(__INTEGER)(i__4 - 1)])) & 31) + 1) - 1)];
- ((__CHARACTER *)__tmp__CTL)[(__INTEGER)(i__4 - 1)]=((__CHARACTER *)__tmp__BRL)[(__INTEGER)((__INTEGER)((__INTEGER)(((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__CRL)[(__INTEGER)(j__5 - 1)])) & 31) + 1) - 1)];
- ((__CHARACTER *)__tmp__OSL)[(__INTEGER)(j__5 - 1)]=tmp__BB;
- i__4=(__INTEGER)(i__4 + 1);
- j__5=(__INTEGER)(j__5 - 1);
- };
- i__4=end__AB;
- };
- Self__CUB=((__STRING *)result__LF);
- if (( 1 > Self__CUB->count__MUB)) {
- Self__CUB->count__MUB= 0;
- } else {
- Self__CUB->count__MUB=(__INTEGER)(Self__CUB->count__MUB - 1);
- };
- puts((((__CHARACTER *)to_external__TWB(((__STRING *)result__LF)))));
- return( 0);
-}
-
-static __POINTER new_lab__1CB(__UINTEGER_32 t__3CB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__5CB,pv__GDB;
- __MEMORY *blc__CDB,*prev__DDB,*Self__TOE,*Self__4PL,*prev__5PL;
- __MEMORY *next__AQL;
- __POINTER result__EDB;
- __BOOLEAN __tmp__GEB;
- idx__5CB= 0;
- blc__CDB=NULL;
- prev__DDB=NULL;
- pv__GDB= 0;
- while_do__4HB:
- {
- if ((idx__5CB < nb_page__NDB)) {
- blc__CDB=((__MEMORY *)(last_block[(idx__5CB)]));
- __tmp__GEB=(((__UINTEGER_32)(((__MEMORY *)blc__CDB)->size_and_id__MG & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__CDB)->size_and_id__MG & 1) == 1));
- } else {
- __tmp__GEB=FALSE__;
- };
- if (__tmp__GEB) {
- idx__5CB=(__UINTEGER_32)(idx__5CB + 1);
- goto while_do__4HB;
- };
- };
- if ((idx__5CB >= nb_page__NDB)) {
- blc__CDB=new_page__CPC();
- };
- ((__MEMORY *)blc__CDB)->size_and_id__MG=(__UINTEGER_32)(blc__CDB->size_and_id__MG - 4096);
- Self__TOE=((__MEMORY *)blc__CDB);
- result__EDB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TOE) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TOE->size_and_id__MG & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__CDB)->size_and_id__MG & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__4PL=((__MEMORY *)blc__CDB);
- prev__5PL=Self__4PL->previous_free__OG;
- next__AQL=Self__4PL->next_free__NG;
- if (((void *)prev__5PL == (void *)NULL)) {
- first_free__VCE=next__AQL;
- } else {
- ((__MEMORY *)prev__5PL)->next_free__NG=next__AQL;
- };
- if (((void *)next__AQL != (void *)NULL)) {
- ((__MEMORY *)next__AQL)->previous_free__OG=prev__5PL;
- };
- pv__GDB=blc__CDB->previous_linear__LG;
- if ((pv__GDB != 4294967295LU)) {
- prev__DDB=((__MEMORY *)(void *)((unsigned long)begin_memory__0V - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__GDB))));
- ((__MEMORY *)prev__DDB)->size_and_id__MG=(__UINTEGER_32)((__UINTEGER_32)(prev__DDB->size_and_id__MG + blc__CDB->size_and_id__MG) + 8);
- last_block[(idx__5CB)] = (prev__DDB);
- };
- };
- ((__POINTER *)result__EDB)[ 0]=((__POINTER )t__3CB);
- return((void *)((unsigned long)result__EDB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static __CHARACTER* create__JOD(__INTEGER nb_elements__LOD)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__NPL,a__PPL,new_size__QPL,new_size2__RPL,a__SRL;
- __UINTEGER_32 new_size__URL;
- __POINTER result__LPL,ptr_table__QSL,next__PSL,result__RSL;
- __INTEGER Self__FDF;
- __CHARACTER *Result__3SD;
- sz__NPL=((__UINTEGER_32 )nb_elements__LOD);
- result__LPL=((__POINTER )(NULL));
- a__PPL=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QPL=(__UINTEGER_32)((__UINTEGER_32)(sz__NPL + a__PPL) & (__UINTEGER_32)(~ a__PPL));
- new_size2__RPL=(__UINTEGER_32)(new_size__QPL + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__RPL <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__SRL=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__URL=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RPL + a__SRL) & (__UINTEGER_32)(~ a__SRL));
- ptr_table__QSL=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__URL / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PSL=((__POINTER )(NULL));
- result__RSL=((__POINTER *)ptr_table__QSL)[ 0];
- if ((result__RSL == (void *)NULL)) {
- result__RSL=new_lab__1CB(new_size__URL);
- next__PSL=(void *)((unsigned long)result__RSL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__URL)));
- ((__POINTER *)next__PSL)[ 0]=NULL;
- ((__POINTER *)ptr_table__QSL)[ 0]=next__PSL;
- } else {
- next__PSL=((__POINTER *)result__RSL)[ 0];
- if ((next__PSL == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RSL - (unsigned long)begin_memory__0V)))) & 4095) + (__UINTEGER_32)(new_size__URL << 1)) <= 4096)) {
- next__PSL=(void *)((unsigned long)result__RSL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__URL)));
- } else {
- next__PSL=new_lab__1CB(new_size__URL);
- };
- ((__POINTER *)next__PSL)[ 0]=NULL;
- ((__POINTER *)ptr_table__QSL)[ 0]=next__PSL;
- } else {
- ((__POINTER *)result__RSL)[ 0]=(void *)((unsigned long)((__POINTER *)next__PSL)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RSL=next__PSL;
- };
- };
- ((__POINTER *)result__RSL)[ 0]=((__POINTER ) 3);
- result__LPL=(void *)((unsigned long)result__RSL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__LPL=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__SBE(new_size__QPL))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__3SD=((__CHARACTER *)result__LPL);
- Self__FDF=(__INTEGER)(nb_elements__LOD - 1);
- while ((Self__FDF >= 0)) {
- Result__3SD[Self__FDF]='\0';
- Self__FDF=(__INTEGER)(Self__FDF - 1);
- };
- return(Result__3SD);
-}
-
-static __CHARACTER* to_external__TWB(__STRING *Self__UWB)
-// ({STRING}) With resultNo recursive, No inlinable.
-{
- __INTEGER new_capacity__ASC,__tmp__ZSC,siz__ETL,Self__JTL,siz__APG;
- __INTEGER Self__20G,__tmp__EUE,Self__C2H;
- __POINTER old_ptr__STE,result__35E,result__FXD,ptr_table__WSL;
- __POINTER next__VSL,result__XSL,p__BQG,last__J3G,src__1OG,dst__2OG;
- __UINTEGER_32 __tmp__4TE,__tmp__AUE,a__4LL,old_size__T5E;
- __UINTEGER_32 old_size2__W5E,a__CML,new_size__Z5E,a__JNL;
- __UINTEGER_32 new_size__5WD,new_size2__CXD,a__4RL,new_size__ASL;
- __UINTEGER_32 a__GML,__tmp__OBF,sz__URG,old_size__RRG,siz__PTL;
- __UINTEGER_32 new_size__RTL,prev__ULH,new_size__XLH;
- __MEMORY *mem__25E,*Self__LRG,*nxt__PRG,*result__QRG,*Self__MTL;
- __MEMORY *new__LTL,*prev__NTL,*next__OTL,*Self__STL,*Self__UTL;
- __MEMORY *next__TLH,*new_free__SLH,*prev__ZPL,*next__0PL;
- __CHARACTER *__tmp__YSC,*new__RTE;
- __POINTER *na_src__GTL,*na_dst__ITL,*na_src__4OG,*na_dst__5OG;
- if ((Self__UWB->capacity__GWB > Self__UWB->count__MUB)) {
- ((__CHARACTER *)Self__UWB->storage__PVB)[Self__UWB->count__MUB]='\0';
- } else {
- new_capacity__ASC= 0;
- if ((Self__UWB->capacity__GWB <= Self__UWB->count__MUB)) {
- if ((Self__UWB->capacity__GWB == 0)) {
- Self__UWB->capacity__GWB= 32;
- Self__UWB->storage__PVB=create__JOD( 32);
- } else {
- new_capacity__ASC=(__INTEGER)(Self__UWB->capacity__GWB << 1);
- __tmp__YSC=Self__UWB->storage__PVB;
- __tmp__ZSC=Self__UWB->capacity__GWB;
- old_ptr__STE=((__POINTER )((__CHARACTER *)__tmp__YSC));
- __tmp__4TE=((__UINTEGER_32 )__tmp__ZSC);
- __tmp__AUE=((__UINTEGER_32 )new_capacity__ASC);
- mem__25E=NULL;
- result__35E=((__POINTER )(NULL));
- a__4LL=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__T5E=(__UINTEGER_32)((__UINTEGER_32)(__tmp__4TE + a__4LL) & (__UINTEGER_32)(~ a__4LL));
- old_size2__W5E=(__UINTEGER_32)(old_size__T5E + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__CML=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Z5E=(__UINTEGER_32)((__UINTEGER_32)(__tmp__AUE + a__CML) & (__UINTEGER_32)(~ a__CML));
- if ((old_size2__W5E <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__FXD=((__POINTER )(NULL));
- a__JNL=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5WD=(__UINTEGER_32)((__UINTEGER_32)(new_size__Z5E + a__JNL) & (__UINTEGER_32)(~ a__JNL));
- new_size2__CXD=(__UINTEGER_32)(new_size__5WD + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__CXD <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__4RL=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ASL=(__UINTEGER_32)((__UINTEGER_32)(new_size2__CXD + a__4RL) & (__UINTEGER_32)(~ a__4RL));
- ptr_table__WSL=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ASL / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__VSL=((__POINTER )(NULL));
- result__XSL=((__POINTER *)ptr_table__WSL)[ 0];
- if ((result__XSL == (void *)NULL)) {
- result__XSL=new_lab__1CB(new_size__ASL);
- next__VSL=(void *)((unsigned long)result__XSL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASL)));
- ((__POINTER *)next__VSL)[ 0]=NULL;
- ((__POINTER *)ptr_table__WSL)[ 0]=next__VSL;
- } else {
- next__VSL=((__POINTER *)result__XSL)[ 0];
- if ((next__VSL == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XSL - (unsigned long)begin_memory__0V)))) & 4095) + (__UINTEGER_32)(new_size__ASL << 1)) <= 4096)) {
- next__VSL=(void *)((unsigned long)result__XSL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASL)));
- } else {
- next__VSL=new_lab__1CB(new_size__ASL);
- };
- ((__POINTER *)next__VSL)[ 0]=NULL;
- ((__POINTER *)ptr_table__WSL)[ 0]=next__VSL;
- } else {
- ((__POINTER *)result__XSL)[ 0]=(void *)((unsigned long)((__POINTER *)next__VSL)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XSL=next__VSL;
- };
- };
- ((__POINTER *)result__XSL)[ 0]=((__POINTER ) 3);
- result__FXD=(void *)((unsigned long)result__XSL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__FXD=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__SBE(new_size__5WD))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__35E=result__FXD;
- siz__ETL=((__INTEGER )old_size__T5E);
- siz__ETL=(__INTEGER)(siz__ETL / ((__INTEGER )(sizeof(void *))));
- na_src__GTL=((__POINTER *)old_ptr__STE);
- na_dst__ITL=((__POINTER *)result__FXD);
- Self__JTL=(__INTEGER)(siz__ETL - 1);
- while ((Self__JTL >= 0)) {
- na_dst__ITL[Self__JTL]=na_src__GTL[Self__JTL];
- Self__JTL=(__INTEGER)(Self__JTL - 1);
- };
- p__BQG=(void *)((unsigned long)old_ptr__STE - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__GML=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__J3G=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__W5E + a__GML) & (__UINTEGER_32)(~ a__GML)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__BQG)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__J3G)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__J3G)[ 0]=p__BQG;
- } else {
- mem__25E=((__MEMORY *)(void *)((unsigned long)old_ptr__STE - (unsigned long)((__POINTER ) 8)));
- __tmp__OBF=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)old_ptr__STE - (unsigned long)begin_memory__0V)))) >> 26);
- Self__LRG=((__MEMORY *)mem__25E);
- nxt__PRG=NULL;
- result__QRG=NULL;
- sz__URG= 0;
- old_size__RRG=(__UINTEGER_32)(Self__LRG->size_and_id__MG & 4294967292LU);
- if ((new_size__Z5E > old_size__RRG)) {
- if ((! ((__UINTEGER_32)(Self__LRG->size_and_id__MG & 2) != 0))) {
- nxt__PRG=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LRG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LRG->size_and_id__MG & 4294967292LU)))));
- sz__URG=(__UINTEGER_32)((__UINTEGER_32)(new_size__Z5E - old_size__RRG) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__PRG)->size_and_id__MG & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__PRG)->size_and_id__MG & 4294967292LU) >= sz__URG))) {
- Self__MTL=((__MEMORY *)nxt__PRG);
- new__LTL=NULL;
- prev__NTL=Self__MTL->previous_free__OG;
- next__OTL=Self__MTL->next_free__NG;
- if (((void *)prev__NTL == (void *)NULL)) {
- first_free__VCE=next__OTL;
- } else {
- ((__MEMORY *)prev__NTL)->next_free__NG=next__OTL;
- };
- if (((void *)next__OTL != (void *)NULL)) {
- ((__MEMORY *)next__OTL)->previous_free__OG=prev__NTL;
- };
- siz__PTL=Self__MTL->size_and_id__MG;
- new_size__RTL=(__UINTEGER_32)(siz__PTL - sz__URG);
- if ((new_size__RTL > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__PTL=sz__URG;
- new__LTL=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__MTL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__URG))));
- ((__MEMORY *)new__LTL)->previous_linear__LG=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__MTL) - (unsigned long)begin_memory__0V))));
- ((__MEMORY *)new__LTL)->size_and_id__MG=(__UINTEGER_32)(new_size__RTL - 8);
- Self__STL=((__MEMORY *)new__LTL);
- Self__STL->next_free__NG=first_free__VCE;
- Self__STL->previous_free__OG=NULL;
- if (((void *)first_free__VCE != (void *)NULL)) {
- ((__MEMORY *)first_free__VCE)->previous_free__OG=Self__STL;
- };
- first_free__VCE=Self__STL;
- if (((__UINTEGER_32)(((__MEMORY *)new__LTL)->size_and_id__MG & 2) != 0)) {
- last_block[(__tmp__OBF)] = (new__LTL);
- } else {
- Self__UTL=((__MEMORY *)new__LTL);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__UTL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__UTL->size_and_id__MG & 4294967292LU)))))->previous_linear__LG=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__LTL)) - (unsigned long)begin_memory__0V))));
- };
- };
- Self__MTL->size_and_id__MG=(__UINTEGER_32)(siz__PTL | 1);
- Self__LRG->size_and_id__MG=(__UINTEGER_32)((__UINTEGER_32)(Self__LRG->size_and_id__MG + (__UINTEGER_32)(nxt__PRG->size_and_id__MG & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__LRG->size_and_id__MG & 2) != 0)) {
- last_block[(__tmp__OBF)] = (Self__LRG);
- } else {
- nxt__PRG=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LRG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LRG->size_and_id__MG & 4294967292LU)))));
- ((__MEMORY *)nxt__PRG)->previous_linear__LG=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__LRG) - (unsigned long)begin_memory__0V))));
- };
- result__QRG=Self__LRG;
- };
- };
- if (((void *)result__QRG == (void *)NULL)) {
- result__QRG=search__SBE(new_size__Z5E);
- src__1OG=(void *)((unsigned long)((__POINTER )Self__LRG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__2OG=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__QRG)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__APG=((__INTEGER )old_size__RRG);
- siz__APG=(__INTEGER)(siz__APG / ((__INTEGER )(sizeof(void *))));
- na_src__4OG=((__POINTER *)src__1OG);
- na_dst__5OG=((__POINTER *)dst__2OG);
- Self__20G=(__INTEGER)(siz__APG - 1);
- while ((Self__20G >= 0)) {
- na_dst__5OG[Self__20G]=na_src__4OG[Self__20G];
- Self__20G=(__INTEGER)(Self__20G - 1);
- };
- prev__ULH=Self__LRG->previous_linear__LG;
- next__TLH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LRG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LRG->size_and_id__MG & 4294967292LU)))));
- new_free__SLH=((__MEMORY *)(void *)((unsigned long)begin_memory__0V - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__ULH))));
- new_size__XLH=(__UINTEGER_32)(Self__LRG->size_and_id__MG & 4294967294LU);
- if (((prev__ULH == 4294967295LU) || ((__UINTEGER_32)(new_free__SLH->size_and_id__MG & 1) != 0))) {
- new_free__SLH=Self__LRG;
- Self__LRG->next_free__NG=first_free__VCE;
- Self__LRG->previous_free__OG=NULL;
- if (((void *)first_free__VCE != (void *)NULL)) {
- ((__MEMORY *)first_free__VCE)->previous_free__OG=Self__LRG;
- };
- first_free__VCE=Self__LRG;
- } else {
- new_size__XLH=(__UINTEGER_32)((__UINTEGER_32)(new_size__XLH + new_free__SLH->size_and_id__MG) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__LRG->size_and_id__MG & 2) != 0)) && ((__UINTEGER_32)(next__TLH->size_and_id__MG & 1) == 0))) {
- new_size__XLH=(__UINTEGER_32)((__UINTEGER_32)(new_size__XLH + next__TLH->size_and_id__MG) + 8);
- prev__ZPL=next__TLH->previous_free__OG;
- next__0PL=next__TLH->next_free__NG;
- if (((void *)prev__ZPL == (void *)NULL)) {
- first_free__VCE=next__0PL;
- } else {
- ((__MEMORY *)prev__ZPL)->next_free__NG=next__0PL;
- };
- if (((void *)next__0PL != (void *)NULL)) {
- ((__MEMORY *)next__0PL)->previous_free__OG=prev__ZPL;
- };
- };
- new_free__SLH->size_and_id__MG=new_size__XLH;
- if (((__UINTEGER_32)(new_free__SLH->size_and_id__MG & 2) != 0)) {
- last_block[(__tmp__OBF)] = (new_free__SLH);
- } else {
- next__TLH=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__LRG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__LRG->size_and_id__MG & 4294967292LU)))));
- next__TLH->previous_linear__LG=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__SLH) - (unsigned long)begin_memory__0V))));
- };
- };
- } else {
- result__QRG=Self__LRG;
- };
- result__35E=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__QRG)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- new__RTE=((__CHARACTER *)result__35E);
- __tmp__EUE=(__INTEGER)(new_capacity__ASC - 1);
- Self__C2H=__tmp__ZSC;
- while ((Self__C2H <= __tmp__EUE)) {
- new__RTE[Self__C2H]='\0';
- Self__C2H=(__INTEGER)(Self__C2H + 1);
- };
- Self__UWB->storage__PVB=new__RTE;
- Self__UWB->capacity__GWB=new_capacity__ASC;
- };
- };
- ((__CHARACTER *)Self__UWB->storage__PVB)[Self__UWB->count__MUB]='\0';
- Self__UWB->count__MUB=(__INTEGER)(Self__UWB->count__MUB + 1);
- Self__UWB->count__MUB=(__INTEGER)(Self__UWB->count__MUB - 1);
- };
- return(Self__UWB->storage__PVB);
-}
-
-static __MEMORY* new_page__CPC()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__IBD;
- __UINTEGER_32 cap__FBD,old_size__FPC;
- __INTEGER Self__YND,limit_up__ZND;
- __MEMORY *block__LPC;
- __CHARACTER *__tmp__HQL;
- if ((capacity_max__MPC == 0)) {
- mem__IBD=((__POINTER )(NULL));
- cap__FBD= 33554432;
- do {
- cap__FBD=(__UINTEGER_32)(cap__FBD << 1);
- mem__IBD=((__POINTER )(malloc((cap__FBD))));
- if ((mem__IBD != (void *)NULL)) {
- free((mem__IBD));
- };
- } while ((! ((mem__IBD == (void *)NULL) || (cap__FBD == 2147483648LU))));
- if ((mem__IBD == (void *)NULL)) {
- cap__FBD=(__UINTEGER_32)(cap__FBD >> 1);
- };
- capacity_max__MPC=cap__FBD;
- begin_memory__0V=((__POINTER )(malloc((cap__FBD))));
- };
- old_size__FPC=(__UINTEGER_32)(nb_page__NDB << 26);
- nb_page__NDB=(__UINTEGER_32)(nb_page__NDB + 1);
- if (((__UINTEGER_32)(old_size__FPC + 67108864) > capacity_max__MPC)) {
- Self__YND= 1;
- limit_up__ZND=((__STRING_CONSTANT *)(&__string_2))->count__TND;
- __tmp__HQL=((__STRING_CONSTANT *)(&__string_2))->storage__Z4D;
- while ((Self__YND <= limit_up__ZND)) {
- fputc((int)(((__CHARACTER *)__tmp__HQL)[(__INTEGER)(Self__YND - 1)]),stdout);
- Self__YND=(__INTEGER)(Self__YND + 1);
- };
- exit(( 1));
- };
- block__LPC=((__MEMORY *)(void *)((unsigned long)begin_memory__0V - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__FPC))));
- block__LPC->previous_linear__LG= 4294967295LU;
- block__LPC->size_and_id__MG= 67108858;
- block__LPC->next_free__NG=first_free__VCE;
- block__LPC->previous_free__OG=NULL;
- if (((void *)first_free__VCE != (void *)NULL)) {
- ((__MEMORY *)first_free__VCE)->previous_free__OG=block__LPC;
- };
- first_free__VCE=block__LPC;
- last_block[((__UINTEGER_32)(nb_page__NDB - 1))] = (block__LPC);
- return(block__LPC);
-}
-
-static __MEMORY* search__SBE(__UINTEGER_32 new_size__UBE)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__WBE,*Self__0WE,*new__DXE,*prev__NHF,*next__OHF;
- __MEMORY *Self__3QE,*Self__RDL;
- __UINTEGER_32 idx__2WE,siz__3WE,new_size__AXE;
- result__WBE=first_free__VCE;
- while ((((void *)result__WBE != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__WBE)->size_and_id__MG & 4294967292LU) < new_size__UBE))) {
- result__WBE=result__WBE->next_free__NG;
- };
- if (((void *)result__WBE == (void *)NULL)) {
- result__WBE=new_page__CPC();
- };
- Self__0WE=((__MEMORY *)result__WBE);
- idx__2WE=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__WBE)) - (unsigned long)begin_memory__0V)))) >> 26);
- new__DXE=NULL;
- prev__NHF=Self__0WE->previous_free__OG;
- next__OHF=Self__0WE->next_free__NG;
- if (((void *)prev__NHF == (void *)NULL)) {
- first_free__VCE=next__OHF;
- } else {
- ((__MEMORY *)prev__NHF)->next_free__NG=next__OHF;
- };
- if (((void *)next__OHF != (void *)NULL)) {
- ((__MEMORY *)next__OHF)->previous_free__OG=prev__NHF;
- };
- siz__3WE=Self__0WE->size_and_id__MG;
- new_size__AXE=(__UINTEGER_32)(siz__3WE - new_size__UBE);
- if ((new_size__AXE > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__3WE=new_size__UBE;
- new__DXE=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__0WE) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UBE))));
- ((__MEMORY *)new__DXE)->previous_linear__LG=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__0WE) - (unsigned long)begin_memory__0V))));
- ((__MEMORY *)new__DXE)->size_and_id__MG=(__UINTEGER_32)(new_size__AXE - 8);
- Self__3QE=((__MEMORY *)new__DXE);
- Self__3QE->next_free__NG=first_free__VCE;
- Self__3QE->previous_free__OG=NULL;
- if (((void *)first_free__VCE != (void *)NULL)) {
- ((__MEMORY *)first_free__VCE)->previous_free__OG=Self__3QE;
- };
- first_free__VCE=Self__3QE;
- if (((__UINTEGER_32)(((__MEMORY *)new__DXE)->size_and_id__MG & 2) != 0)) {
- last_block[(idx__2WE)] = (new__DXE);
- } else {
- Self__RDL=((__MEMORY *)new__DXE);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__RDL) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__RDL->size_and_id__MG & 4294967292LU)))))->previous_linear__LG=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__DXE)) - (unsigned long)begin_memory__0V))));
- };
- };
- Self__0WE->size_and_id__MG=(__UINTEGER_32)(siz__3WE | 1);
- return(result__WBE);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/reverse_complement/reverse_complement_c.c b/example/shootout/reverse_complement/reverse_complement_c.c
deleted file mode 100644
index 0a68fc4..0000000
--- a/example/shootout/reverse_complement/reverse_complement_c.c
+++ /dev/null
@@ -1,70 +0,0 @@
-/* ------------------------------------------------------------------ */
-/* The Computer Language Shootout */
-/* http://shootout.alioth.debian.org/ */
-/* */
-/* Contributed by Anthony Borla */
-/* Modified by Vaclav Haisman */
-/* Changed to match style of Perl example: Greg Buchholz */
-/* ------------------------------------------------------------------ */
-
-#include <cctype>
-#include <string>
-#include <algorithm>
-#include <iterator>
-#include <iostream>
-using namespace std;
-
-const int LINELENGTH = 60;
-
-typedef string Header;
-typedef string Segment;
-
-inline char complement(char element)
-{
- static const char charMap[] =
- {
- 'T', 'V', 'G', 'H', '\0', '\0', 'C', 'D', '\0', '\0', 'M', '\0', 'K',
- 'N', '\0', '\0', '\0', 'Y', 'S', 'A', 'A', 'B', 'W', '\0', 'R', '\0'
- };
-
- return charMap[toupper(element) - 'A'];
-}
-
-void print_revcomp(Header const& header, Segment const& seg, ostream& out = std::cout)
-{
- out << header << "\n";
-
- Segment comp(seg.rbegin(),seg.rend());
- transform(comp.begin(),comp.end(), comp.begin(), complement);
-
- size_t i = 0;
- size_t stop = comp.length()/LINELENGTH + ((comp.length()%LINELENGTH)?1:0);
-
- while(i < stop)
- out << comp.substr(i++*LINELENGTH,LINELENGTH) << "\n";
-}
-
-int main ()
-{
- ios_base::sync_with_stdio(false);
-
- Segment line, segment;
- Header header;
-
- while (getline(cin, line))
- {
- if (line[0] == '>')
- {
- if (! segment.empty())
- print_revcomp(header, segment);
- header = line;
- segment.clear();
- }
- else
- segment += line;
- }
- print_revcomp(header, segment);
-
- return 0;
-}
-
diff --git a/example/shootout/spectral_norm/spectral_norm.c b/example/shootout/spectral_norm/spectral_norm.c
deleted file mode 100755
index 84054e2..0000000
--- a/example/shootout/spectral_norm/spectral_norm.c
+++ /dev/null
@@ -1,1056 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// FLOAT_REAL
-#include <math.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// SYSTEM
-#include <time.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- unsigned long __id;
- __INTEGER count__ZO;
- __INTEGER capacity__1O;
- __CHARACTER *storage__EHC;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__PF;
- volatile __UINTEGER_32 size_and_id__QF;
- __MEMORY *next_free__RF;
- __MEMORY *previous_free__SF;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// REAL_64
-typedef double __REAL_64;
-
-// NUMERIC
-#define __NUMERIC__ 1
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 2
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER upper__SE;
- __INTEGER capacity__QIC;
- void **storage__1IC;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 3
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__PE;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// OBJECT
-#define __OBJECT__ 4
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- unsigned long __id;
- __INTEGER count__24;
- __CHARACTER *storage__A1D;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// TRUE
-#define TRUE__ 1
-
-// FALSE
-#define FALSE__ 0
-
-// SPECTRAL_NORM
-#define __SPECTRAL_NORM__ 5
-typedef struct SPECTRAL_NORM_struct __SPECTRAL_NORM;
-struct SPECTRAL_NORM_struct {
- void *Nothing;
-};
-__SPECTRAL_NORM SPECTRAL_NORM_;
-#define SPECTRAL_NORM__ (&SPECTRAL_NORM_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-// REAL
-typedef float __REAL;
-
-
-void *table_type[6];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__BJB;
-__UINTEGER_32 nb_page__QTB;
-__MEMORY *first_free__CBD;
-__UINTEGER_32 capacity_max__WID;
-void *string_tmp__EI;
-__UINTEGER_32 clone_allocation_size__UW;
-__INTEGER n__XB;
-__REAL_64 *vtmp__CC;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,5,"%.9f\n"};
-__STRING_CONSTANT __string_2={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER micro_alloc__table__lab__EHB(__UINTEGER_32 new_size__GHB,__POINTER ptr_table__HHB,__UINTEGER_32 lab_type__IHB);
-static void** create__JYF(__INTEGER nb_elements__LYF);
-static __STRING* create__LV(__INTEGER needed_capacity__NV);
-static void add_last__5SD(__STRING *Self__ATD,__CHARACTER ch__BTD);
-static __POINTER realloc_dynamic__old_size__new_size__JXH(__POINTER p__LXH,__UINTEGER_32 old_sz__MXH,__UINTEGER_32 new_sz__NXH);
-static __MEMORY* search__55C(__UINTEGER_32 new_size__BAD);
-static void eval_ata_times_u__XLD(__REAL_64 *u__ZLD,__REAL_64 *atau__0LD);
-static __CHARACTER* create__BVF(__INTEGER nb_elements__DVF);
-static void put_string__FUC(void *s__HUC);
-static __POINTER new_lab__4SB(__UINTEGER_32 t__ATB);
-static void copy__to__size__ZZJ(__POINTER src__1ZJ,__POINTER dst__2ZJ,__UINTEGER_32 sz__3ZJ);
-static void to_busy__index__YZG(__MEMORY *Self__ZZG,__UINTEGER_32 sz__0ZG,__UINTEGER_32 idx__1ZG);
-static __MEMORY* new_page__MID();
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__PI;
- __INTEGER new_count__KP,typ_id__GW,Self__RP,limit_up__SP,idx__WUD;
- __INTEGER i__JWD,new_capacity__DXD,__tmp__HYD,__tmp__PFH,Self__3ML;
- __INTEGER state__Q0K,result__T0K,i__P0K,__tmp__OFS,__tmp__QFS;
- __INTEGER Self__EG,limit_up__FG,Self__TG,Self__CH,limit_up__DH;
- __INTEGER old_count__XO,cap__YO,__tmp__FNC,Self__ZPH;
- __POINTER ptr__BW,result__O5R,result__W5R,result__35R,ptr__2VG;
- __UINTEGER_32 sz__DW,a__BFS,new_size__CFS,t__FDB,a__2AS,sz__Q5R;
- __UINTEGER_32 a__S5R,new_size__T5R,new_size2__U5R,a__UFS;
- __UINTEGER_32 new_size__VFS,sz__Y5R,a__05R,new_size__15R;
- __UINTEGER_32 new_size2__25R,a__4FS,new_size__5FS,sz__55R,a__BAS;
- __UINTEGER_32 new_size__CAS,new_size2__DAS,a__WAS,new_size__2BB;
- __STRING *Self__HWD,*Self__N0K,*Self__3GS,*new__K2,*Self__HMC;
- __STRING *Self__DGC,*Self__VHC;
- __REAL_64 vbv__BB,vv__EB,Self__CI;
- __CHARACTER *arg__OI,*Self__KUD,*p__IWD,*__tmp__PFS,*nc_buf__VO;
- __CHARACTER *__tmp__5MC,*__tmp__CNC,*Self__L3G,*__tmp__TAS;
- __FAST_ARRAYoSTRINGo *result__AW,*Self__HIC,*Self__BXD;
- void *result__NI;
- __BOOLEAN __tmp__RXD,negative__S0K,__tmp__51K,result__BSP,__tmp__S2K;
- __BOOLEAN __tmp__H3K,result__4FO,__tmp__O4K,result__QGO,result__XZO;
- void **__tmp__GYD,**new__2EH;
- __CHARACTER cc__R0K;
- __REAL_64 *u__JB,*v__KB;
- arg_count = argc;
- arg_vector = argv;
- parent_numeric__H=NUMERIC__;
- ARRAYED_COLLECTIONoSTRINGo__->upper__SE= 0;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__QIC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->storage__1IC=NULL;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__PE=(*ARRAYED_COLLECTIONoSTRINGo__);
- clone_allocation_size__UW= 0;
- STRING_CONSTANT__->count__24=((__INTEGER )((0)));
- STRING__->count__ZO= 0;
- STRING_CONSTANT__->storage__A1D=((__CHARACTER *)(NULL));
- STRING__->storage__EHC=NULL;
- nb_page__QTB= 0;
- MEMORY__->size_and_id__QF= 0;
- capacity_max__WID= 0;
- begin_memory__BJB=((__POINTER )(NULL));
- MEMORY__->previous_linear__PF= 0;
- first_free__CBD=NULL;
- MEMORY__->next_free__RF=NULL;
- MEMORY__->previous_free__SF=NULL;
- STRING__->capacity__1O= 0;
- arg__OI=NULL;
- str__PI=NULL;
- new_count__KP=((__INTEGER )(arg_count));
- result__AW=NULL;
- ptr__BW=((__POINTER )(NULL));
- typ_id__GW= 0;
- sz__DW=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__DW == 0)) {
- result__AW=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__GW=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__UW=sz__DW;
- if ((typ_id__GW == (__INTEGER)(- 1))) {
- a__BFS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CFS=(__UINTEGER_32)((__UINTEGER_32)(sz__DW + a__BFS) & (__UINTEGER_32)(~ a__BFS));
- ptr__BW=micro_alloc__table__lab__EHB(new_size__CFS,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CFS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__CFS);
- } else {
- t__FDB=((__UINTEGER_32 )typ_id__GW);
- a__2AS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- ptr__BW=micro_alloc__table__lab__EHB((__UINTEGER_32)((__UINTEGER_32)(sz__DW + a__2AS) & (__UINTEGER_32)(~ a__2AS)),((__POINTER )(&(table_type[(t__FDB)]))),(__UINTEGER_32)(t__FDB | 1));
- };
- result__AW=((__FAST_ARRAYoSTRINGo *)ptr__BW);
- *(result__AW) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__HIC=((__FAST_ARRAYoSTRINGo *)result__AW);
- if ((Self__HIC->parent_arrayed_collection__PE.capacity__QIC < new_count__KP)) {
- Self__HIC->parent_arrayed_collection__PE.storage__1IC=create__JYF(new_count__KP);
- Self__HIC->parent_arrayed_collection__PE.capacity__QIC=new_count__KP;
- };
- Self__HIC->parent_arrayed_collection__PE.upper__SE=(__INTEGER)(- 1);
- result__NI=result__AW;
- Self__RP= 0;
- limit_up__SP=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__RP <= limit_up__SP)) {
- arg__OI=((__CHARACTER *)(arg_vector[(Self__RP)]));
- Self__KUD=((__CHARACTER *)arg__OI);
- idx__WUD= 0;
- while ((! ((idx__WUD > 1024) || ('\0' == Self__KUD[idx__WUD])))) {
- idx__WUD=(__INTEGER)(idx__WUD + 1);
- };
- str__PI=create__LV(idx__WUD);
- Self__HWD=((__STRING *)str__PI);
- p__IWD=arg__OI;
- i__JWD= 0;
- Self__HWD->count__ZO= 0;
- while ((((__CHARACTER *)p__IWD)[i__JWD] != '\0')) {
- add_last__5SD(Self__HWD,((__CHARACTER *)p__IWD)[i__JWD]);
- i__JWD=(__INTEGER)(i__JWD + 1);
- };
- Self__BXD=((__FAST_ARRAYoSTRINGo *)result__NI);
- new_capacity__DXD= 0;
- if (((__INTEGER)(Self__BXD->parent_arrayed_collection__PE.upper__SE + 1) <= (__INTEGER)(Self__BXD->parent_arrayed_collection__PE.capacity__QIC - 1))) {
- Self__BXD->parent_arrayed_collection__PE.upper__SE=(__INTEGER)(Self__BXD->parent_arrayed_collection__PE.upper__SE + 1);
- __tmp__RXD=TRUE__;
- } else {
- __tmp__RXD=FALSE__;
- };
- if ((! __tmp__RXD)) {
- if ((Self__BXD->parent_arrayed_collection__PE.capacity__QIC == 0)) {
- Self__BXD->parent_arrayed_collection__PE.storage__1IC=create__JYF( 2);
- Self__BXD->parent_arrayed_collection__PE.capacity__QIC= 2;
- Self__BXD->parent_arrayed_collection__PE.upper__SE= 0;
- } else {
- new_capacity__DXD=(__INTEGER)(Self__BXD->parent_arrayed_collection__PE.capacity__QIC << 1);
- __tmp__GYD=Self__BXD->parent_arrayed_collection__PE.storage__1IC;
- __tmp__HYD=Self__BXD->parent_arrayed_collection__PE.capacity__QIC;
- new__2EH=((void **)realloc_dynamic__old_size__new_size__JXH(((__POINTER )((void **)__tmp__GYD)),((__UINTEGER_32 )(__INTEGER)(__tmp__HYD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__DXD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__PFH=(__INTEGER)(new_capacity__DXD - 1);
- Self__3ML=__tmp__HYD;
- while ((Self__3ML <= __tmp__PFH)) {
- new__2EH[Self__3ML]=NULL;
- Self__3ML=(__INTEGER)(Self__3ML + 1);
- };
- Self__BXD->parent_arrayed_collection__PE.storage__1IC=new__2EH;
- Self__BXD->parent_arrayed_collection__PE.capacity__QIC=new_capacity__DXD;
- Self__BXD->parent_arrayed_collection__PE.upper__SE=(__INTEGER)(Self__BXD->parent_arrayed_collection__PE.upper__SE + 1);
- };
- };
- ((void **)Self__BXD->parent_arrayed_collection__PE.storage__1IC)[Self__BXD->parent_arrayed_collection__PE.upper__SE]=str__PI;
- Self__RP=(__INTEGER)(Self__RP + 1);
- };
- n__XB= 0;
- vtmp__CC=NULL;
- string_tmp__EI=create__LV( 32);
- vbv__BB=((__REAL_64 ) 0);
- vv__EB=((__REAL_64 ) 0);
- if ((result__AW->parent_arrayed_collection__PE.upper__SE == 1)) {
- Self__N0K=((__STRING *)((void **)((__FAST_ARRAYoSTRINGo *)result__AW)->parent_arrayed_collection__PE.storage__1IC)[ 1]);
- state__Q0K= 0;
- cc__R0K='\0';
- negative__S0K=FALSE__;
- result__T0K= 0;
- i__P0K= 1;
- __tmp__OFS=Self__N0K->count__ZO;
- __tmp__PFS=Self__N0K->storage__EHC;
- __tmp__QFS=Self__N0K->count__ZO;
- while ((i__P0K <= __tmp__OFS)) {
- cc__R0K=((__CHARACTER *)__tmp__PFS)[(__INTEGER)(i__P0K - 1)];
- if ((state__Q0K == 0)) {
- if ((((((((cc__R0K == ' ') || (cc__R0K == '\t')) || (cc__R0K == '\n')) || (cc__R0K == '\r')) || (cc__R0K == '\0')) || (cc__R0K == '\f')) || (cc__R0K == '\v'))) {
- __tmp__51K=TRUE__;
- } else {
- result__BSP=(cc__R0K == '+');
- if (result__BSP) {
- state__Q0K= 1;
- };
- __tmp__51K=result__BSP;
- };
- if ((! __tmp__51K)) {
- if ((cc__R0K == '-')) {
- negative__S0K=TRUE__;
- state__Q0K= 1;
- } else {
- result__T0K=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__R0K)) - 48);
- state__Q0K= 2;
- };
- };
- __tmp__S2K=TRUE__;
- } else {
- __tmp__S2K=FALSE__;
- };
- if (__tmp__S2K) {
- __tmp__H3K=TRUE__;
- } else {
- result__4FO=(state__Q0K == 1);
- if (result__4FO) {
- result__T0K=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__R0K)) - 48);
- if (negative__S0K) {
- result__T0K=(__INTEGER)(- result__T0K);
- };
- state__Q0K= 2;
- };
- __tmp__H3K=result__4FO;
- };
- if (__tmp__H3K) {
- __tmp__O4K=TRUE__;
- } else {
- result__QGO=(state__Q0K == 2);
- if (result__QGO) {
- result__XZO=FALSE__;
- if ((((__INTEGER_8 )cc__R0K) >= ((__INTEGER_8 )'0'))) {
- result__XZO=(((__INTEGER_8 )cc__R0K) <= ((__INTEGER_8 )'9'));
- };
- if (result__XZO) {
- if (negative__S0K) {
- result__T0K=(__INTEGER)((__INTEGER)( 10 * result__T0K) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__R0K)) - 48));
- } else {
- result__T0K=(__INTEGER)((__INTEGER)( 10 * result__T0K) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__R0K)) - 48));
- };
- } else {
- state__Q0K= 3;
- };
- };
- __tmp__O4K=result__QGO;
- };
- if ((! __tmp__O4K)) {
- if ((state__Q0K == 3)) {
- i__P0K=__tmp__QFS;
- };
- };
- i__P0K=(__INTEGER)(i__P0K + 1);
- };
- n__XB=result__T0K;
- } else {
- n__XB= 2000;
- };
- sz__Q5R=((__UINTEGER_32 )(__INTEGER)(n__XB * sizeof(__REAL_64)));
- result__O5R=((__POINTER )(NULL));
- a__S5R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__T5R=(__UINTEGER_32)((__UINTEGER_32)(sz__Q5R + a__S5R) & (__UINTEGER_32)(~ a__S5R));
- new_size2__U5R=(__UINTEGER_32)(new_size__T5R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__U5R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__UFS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VFS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__U5R + a__UFS) & (__UINTEGER_32)(~ a__UFS));
- result__O5R=micro_alloc__table__lab__EHB(new_size__VFS,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VFS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__VFS);
- ((__POINTER *)result__O5R)[ 0]=((__POINTER ) 3);
- result__O5R=(void *)((unsigned long)result__O5R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__O5R=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__55C(new_size__T5R))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- u__JB=((__REAL_64 *)result__O5R);
- sz__Y5R=((__UINTEGER_32 )(__INTEGER)(n__XB * sizeof(__REAL_64)));
- result__W5R=((__POINTER )(NULL));
- a__05R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__15R=(__UINTEGER_32)((__UINTEGER_32)(sz__Y5R + a__05R) & (__UINTEGER_32)(~ a__05R));
- new_size2__25R=(__UINTEGER_32)(new_size__15R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__25R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__4FS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5FS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__25R + a__4FS) & (__UINTEGER_32)(~ a__4FS));
- result__W5R=micro_alloc__table__lab__EHB(new_size__5FS,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5FS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__5FS);
- ((__POINTER *)result__W5R)[ 0]=((__POINTER ) 3);
- result__W5R=(void *)((unsigned long)result__W5R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__W5R=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__55C(new_size__15R))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- vtmp__CC=((__REAL_64 *)result__W5R);
- sz__55R=((__UINTEGER_32 )(__INTEGER)(n__XB * sizeof(__REAL_64)));
- result__35R=((__POINTER )(NULL));
- a__BAS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CAS=(__UINTEGER_32)((__UINTEGER_32)(sz__55R + a__BAS) & (__UINTEGER_32)(~ a__BAS));
- new_size2__DAS=(__UINTEGER_32)(new_size__CAS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__DAS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__WAS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2BB=(__UINTEGER_32)((__UINTEGER_32)(new_size2__DAS + a__WAS) & (__UINTEGER_32)(~ a__WAS));
- result__35R=micro_alloc__table__lab__EHB(new_size__2BB,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2BB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__2BB);
- ((__POINTER *)result__35R)[ 0]=((__POINTER ) 3);
- result__35R=(void *)((unsigned long)result__35R - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__35R=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__55C(new_size__CAS))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- v__KB=((__REAL_64 *)result__35R);
- n__XB=(__INTEGER)(n__XB - 1);
- Self__EG= 0;
- limit_up__FG=n__XB;
- while ((Self__EG <= limit_up__FG)) {
- u__JB[Self__EG]=((__REAL_64 ) 1);
- Self__EG=(__INTEGER)(Self__EG + 1);
- };
- Self__TG= 0;
- while ((Self__TG <= 9)) {
- eval_ata_times_u__XLD(u__JB,v__KB);
- eval_ata_times_u__XLD(v__KB,u__JB);
- Self__TG=(__INTEGER)(Self__TG + 1);
- };
- Self__CH= 0;
- limit_up__DH=n__XB;
- while ((Self__CH <= limit_up__DH)) {
- vbv__BB=((__REAL_64 )((vbv__BB) + ((__REAL_64)(u__JB[Self__CH] * v__KB[Self__CH]))));
- vv__EB=((__REAL_64 )((vv__EB) + ((__REAL_64)(v__KB[Self__CH] * v__KB[Self__CH]))));
- Self__CH=(__INTEGER)(Self__CH + 1);
- };
- Self__CI=((__REAL_64 )(sqrt(((__REAL_64)(vbv__BB / vv__EB)))));
- ((__STRING *)string_tmp__EI)->count__ZO= 0;
- old_count__XO=((__STRING *)string_tmp__EI)->count__ZO;
- cap__YO=(__INTEGER)(((__STRING *)string_tmp__EI)->capacity__1O - old_count__XO);
- Self__3GS=((__STRING *)string_tmp__EI);
- if ((Self__3GS->capacity__1O > Self__3GS->count__ZO)) {
- Self__3GS->count__ZO=(__INTEGER)(Self__3GS->count__ZO + 1);
- if ((((__CHARACTER *)Self__3GS->storage__EHC)[(__INTEGER)(Self__3GS->count__ZO - 1)] != '\0')) {
- ((__CHARACTER *)Self__3GS->storage__EHC)[(__INTEGER)(Self__3GS->count__ZO - 1)]='\0';
- };
- } else {
- add_last__5SD(Self__3GS,'\0');
- };
- Self__3GS->count__ZO=(__INTEGER)(Self__3GS->count__ZO - 1);
- ptr__2VG=((__POINTER )((__CHARACTER *)Self__3GS->storage__EHC));
- ptr__2VG=(void *)((unsigned long)ptr__2VG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_count__XO)));
- nc_buf__VO=((__CHARACTER *)ptr__2VG);
- new__K2=create__LV(((__STRING_CONSTANT *)(&__string_1))->count__24);
- Self__HMC=((__STRING *)new__K2);
- Self__HMC->count__ZO=((__STRING_CONSTANT *)(&__string_1))->count__24;
- if ((Self__HMC->count__ZO > 0)) {
- if ((Self__HMC->capacity__1O < Self__HMC->count__ZO)) {
- Self__HMC->storage__EHC=create__BVF(Self__HMC->count__ZO);
- Self__HMC->capacity__1O=Self__HMC->count__ZO;
- };
- __tmp__5MC=Self__HMC->storage__EHC;
- __tmp__CNC=((__STRING_CONSTANT *)(&__string_1))->storage__A1D;
- __tmp__FNC=(__INTEGER)(Self__HMC->count__ZO - 1);
- Self__L3G=((__CHARACTER *)__tmp__5MC);
- Self__ZPH=__tmp__FNC;
- while ((Self__ZPH >= 0)) {
- Self__L3G[Self__ZPH]=((__CHARACTER *)__tmp__CNC)[Self__ZPH];
- Self__ZPH=(__INTEGER)(Self__ZPH - 1);
- };
- };
- Self__DGC=((__STRING *)new__K2);
- if ((Self__DGC->capacity__1O > Self__DGC->count__ZO)) {
- Self__DGC->count__ZO=(__INTEGER)(Self__DGC->count__ZO + 1);
- if ((((__CHARACTER *)Self__DGC->storage__EHC)[(__INTEGER)(Self__DGC->count__ZO - 1)] != '\0')) {
- ((__CHARACTER *)Self__DGC->storage__EHC)[(__INTEGER)(Self__DGC->count__ZO - 1)]='\0';
- };
- } else {
- add_last__5SD(Self__DGC,'\0');
- };
- Self__DGC->count__ZO=(__INTEGER)(Self__DGC->count__ZO - 1);
- snprintf((nc_buf__VO),(cap__YO),(Self__DGC->storage__EHC),(Self__CI));
- Self__VHC=((__STRING *)string_tmp__EI);
- Self__VHC->count__ZO= 0;
- __tmp__TAS=Self__VHC->storage__EHC;
- while ((((__CHARACTER *)__tmp__TAS)[Self__VHC->count__ZO] != '\0')) {
- Self__VHC->count__ZO=(__INTEGER)(Self__VHC->count__ZO + 1);
- };
- put_string__FUC(((__STRING *)string_tmp__EI));
- return( 0);
-}
-
-static __POINTER micro_alloc__table__lab__EHB(__UINTEGER_32 new_size__GHB,__POINTER ptr_table__HHB,__UINTEGER_32 lab_type__IHB)
-// ({UINTEGER_32},{POINTER},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __POINTER next__MHB,result__KHB;
- next__MHB=((__POINTER )(NULL));
- result__KHB=((__POINTER *)ptr_table__HHB)[ 0];
- if ((result__KHB == (void *)NULL)) {
- result__KHB=new_lab__4SB(lab_type__IHB);
- next__MHB=(void *)((unsigned long)result__KHB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GHB)));
- ((__POINTER *)next__MHB)[ 0]=NULL;
- ((__POINTER *)ptr_table__HHB)[ 0]=next__MHB;
- } else {
- next__MHB=((__POINTER *)result__KHB)[ 0];
- if ((next__MHB == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KHB - (unsigned long)begin_memory__BJB)))) & 4095) + (__UINTEGER_32)(new_size__GHB << 1)) <= 4096)) {
- next__MHB=(void *)((unsigned long)result__KHB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GHB)));
- } else {
- next__MHB=new_lab__4SB(lab_type__IHB);
- };
- ((__POINTER *)next__MHB)[ 0]=NULL;
- ((__POINTER *)ptr_table__HHB)[ 0]=next__MHB;
- } else {
- ((__POINTER *)result__KHB)[ 0]=(void *)((unsigned long)((__POINTER *)next__MHB)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KHB=next__MHB;
- };
- };
- return(result__KHB);
-}
-
-static void** create__JYF(__INTEGER nb_elements__LYF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__ABS,a__CBS,new_size__DBS,new_size2__EBS,a__IBS;
- __UINTEGER_32 new_size__JBS;
- __POINTER result__4AS;
- __INTEGER Self__R5H;
- void **Result__EBG;
- sz__ABS=((__UINTEGER_32 )(__INTEGER)(nb_elements__LYF * ((__INTEGER )(sizeof(void *)))));
- result__4AS=((__POINTER )(NULL));
- a__CBS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DBS=(__UINTEGER_32)((__UINTEGER_32)(sz__ABS + a__CBS) & (__UINTEGER_32)(~ a__CBS));
- new_size2__EBS=(__UINTEGER_32)(new_size__DBS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__EBS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__IBS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JBS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__EBS + a__IBS) & (__UINTEGER_32)(~ a__IBS));
- result__4AS=micro_alloc__table__lab__EHB(new_size__JBS,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JBS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__JBS);
- ((__POINTER *)result__4AS)[ 0]=((__POINTER ) 3);
- result__4AS=(void *)((unsigned long)result__4AS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__4AS=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__55C(new_size__DBS))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__EBG=((void **)result__4AS);
- Self__R5H=(__INTEGER)(nb_elements__LYF - 1);
- while ((Self__R5H >= 0)) {
- Result__EBG[Self__R5H]=NULL;
- Self__R5H=(__INTEGER)(Self__R5H - 1);
- };
- return(Result__EBG);
-}
-
-static __STRING* create__LV(__INTEGER needed_capacity__NV)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__50,*Self__4KC;
- __POINTER ptr__A1;
- __INTEGER typ_id__F1;
- __UINTEGER_32 sz__C1,a__PBS,new_size__QBS,t__ZBS,a__WBS;
- result__50=NULL;
- ptr__A1=((__POINTER )(NULL));
- typ_id__F1= 0;
- sz__C1=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__C1 == 0)) {
- result__50=STRING__;
- } else {
- typ_id__F1=-1;
- clone_allocation_size__UW=(__UINTEGER_32)(clone_allocation_size__UW + sz__C1);
- if ((typ_id__F1 == (__INTEGER)(- 1))) {
- a__PBS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QBS=(__UINTEGER_32)((__UINTEGER_32)(sz__C1 + a__PBS) & (__UINTEGER_32)(~ a__PBS));
- ptr__A1=micro_alloc__table__lab__EHB(new_size__QBS,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QBS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__QBS);
- } else {
- t__ZBS=((__UINTEGER_32 )typ_id__F1);
- a__WBS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- ptr__A1=micro_alloc__table__lab__EHB((__UINTEGER_32)((__UINTEGER_32)(sz__C1 + a__WBS) & (__UINTEGER_32)(~ a__WBS)),((__POINTER )(&(table_type[(t__ZBS)]))),(__UINTEGER_32)(t__ZBS | 1));
- };
- result__50=((__STRING *)ptr__A1);
- *(result__50) = *(STRING__);
- };
- Self__4KC=((__STRING *)result__50);
- if ((needed_capacity__NV > 0)) {
- if ((Self__4KC->capacity__1O < needed_capacity__NV)) {
- Self__4KC->storage__EHC=create__BVF(needed_capacity__NV);
- Self__4KC->capacity__1O=needed_capacity__NV;
- };
- };
- Self__4KC->count__ZO= 0;
- return(result__50);
-}
-
-static void add_last__5SD(__STRING *Self__ATD,__CHARACTER ch__BTD)
-// ({STRING},{CHARACTER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__CTD,__tmp__1TD,__tmp__YDH,Self__4KL;
- __CHARACTER *__tmp__0TD,*new__FDH;
- new_capacity__CTD= 0;
- if ((Self__ATD->capacity__1O <= Self__ATD->count__ZO)) {
- if ((Self__ATD->capacity__1O == 0)) {
- Self__ATD->capacity__1O= 32;
- Self__ATD->storage__EHC=create__BVF( 32);
- } else {
- new_capacity__CTD=(__INTEGER)(Self__ATD->capacity__1O << 1);
- __tmp__0TD=Self__ATD->storage__EHC;
- __tmp__1TD=Self__ATD->capacity__1O;
- new__FDH=((__CHARACTER *)realloc_dynamic__old_size__new_size__JXH(((__POINTER )((__CHARACTER *)__tmp__0TD)),((__UINTEGER_32 )__tmp__1TD),((__UINTEGER_32 )new_capacity__CTD)));
- __tmp__YDH=(__INTEGER)(new_capacity__CTD - 1);
- Self__4KL=__tmp__1TD;
- while ((Self__4KL <= __tmp__YDH)) {
- new__FDH[Self__4KL]='\0';
- Self__4KL=(__INTEGER)(Self__4KL + 1);
- };
- Self__ATD->storage__EHC=new__FDH;
- Self__ATD->capacity__1O=new_capacity__CTD;
- };
- };
- ((__CHARACTER *)Self__ATD->storage__EHC)[Self__ATD->count__ZO]=ch__BTD;
- Self__ATD->count__ZO=(__INTEGER)(Self__ATD->count__ZO + 1);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__JXH(__POINTER p__LXH,__UINTEGER_32 old_sz__MXH,__UINTEGER_32 new_sz__NXH)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *mem__YXH,*Self__L2J,*nxt__P2J,*result__Q2J,*next__3SK;
- __MEMORY *new_free__2SK,*prev__0CS,*next__1CS;
- __POINTER result__ZXH,result__CCS,p__B1J,last__JGK;
- __UINTEGER_32 a__2BS,old_size__PXH,old_size2__SXH,a__ACS;
- __UINTEGER_32 new_size__VXH,a__GCS,new_size__HCS,new_size2__ICS;
- __UINTEGER_32 a__MCS,new_size__NCS,a__UT,__tmp__KZH,sz__U2J;
- __UINTEGER_32 old_size__R2J,prev__4SK,new_size__BTK;
- mem__YXH=NULL;
- result__ZXH=((__POINTER )(NULL));
- a__2BS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__PXH=(__UINTEGER_32)((__UINTEGER_32)(old_sz__MXH + a__2BS) & (__UINTEGER_32)(~ a__2BS));
- old_size2__SXH=(__UINTEGER_32)(old_size__PXH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__ACS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VXH=(__UINTEGER_32)((__UINTEGER_32)(new_sz__NXH + a__ACS) & (__UINTEGER_32)(~ a__ACS));
- if ((old_size2__SXH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__CCS=((__POINTER )(NULL));
- a__GCS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HCS=(__UINTEGER_32)((__UINTEGER_32)(new_size__VXH + a__GCS) & (__UINTEGER_32)(~ a__GCS));
- new_size2__ICS=(__UINTEGER_32)(new_size__HCS + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__ICS <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__MCS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NCS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ICS + a__MCS) & (__UINTEGER_32)(~ a__MCS));
- result__CCS=micro_alloc__table__lab__EHB(new_size__NCS,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NCS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__NCS);
- ((__POINTER *)result__CCS)[ 0]=((__POINTER ) 3);
- result__CCS=(void *)((unsigned long)result__CCS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__CCS=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__55C(new_size__HCS))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__ZXH=result__CCS;
- copy__to__size__ZZJ(p__LXH,result__CCS,old_size__PXH);
- p__B1J=(void *)((unsigned long)p__LXH - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__UT=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__JGK=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__SXH + a__UT) & (__UINTEGER_32)(~ a__UT)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__B1J)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__JGK)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__JGK)[ 0]=p__B1J;
- } else {
- mem__YXH=((__MEMORY *)(void *)((unsigned long)p__LXH - (unsigned long)((__POINTER ) 8)));
- __tmp__KZH=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__LXH - (unsigned long)begin_memory__BJB)))) >> 26);
- Self__L2J=((__MEMORY *)mem__YXH);
- nxt__P2J=NULL;
- result__Q2J=NULL;
- sz__U2J= 0;
- old_size__R2J=(__UINTEGER_32)(Self__L2J->size_and_id__QF & 4294967292LU);
- if ((new_size__VXH > old_size__R2J)) {
- if ((! ((__UINTEGER_32)(Self__L2J->size_and_id__QF & 2) != 0))) {
- nxt__P2J=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__L2J) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__L2J->size_and_id__QF & 4294967292LU)))));
- sz__U2J=(__UINTEGER_32)((__UINTEGER_32)(new_size__VXH - old_size__R2J) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__P2J)->size_and_id__QF & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__P2J)->size_and_id__QF & 4294967292LU) >= sz__U2J))) {
- to_busy__index__YZG(nxt__P2J,sz__U2J,__tmp__KZH);
- Self__L2J->size_and_id__QF=(__UINTEGER_32)((__UINTEGER_32)(Self__L2J->size_and_id__QF + (__UINTEGER_32)(nxt__P2J->size_and_id__QF & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__L2J->size_and_id__QF & 2) != 0)) {
- last_block[(__tmp__KZH)] = (Self__L2J);
- } else {
- nxt__P2J=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__L2J) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__L2J->size_and_id__QF & 4294967292LU)))));
- ((__MEMORY *)nxt__P2J)->previous_linear__PF=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__L2J) - (unsigned long)begin_memory__BJB))));
- };
- result__Q2J=Self__L2J;
- };
- };
- if (((void *)result__Q2J == (void *)NULL)) {
- result__Q2J=search__55C(new_size__VXH);
- copy__to__size__ZZJ((void *)((unsigned long)((__POINTER )Self__L2J) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))),(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Q2J)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))),old_size__R2J);
- prev__4SK=Self__L2J->previous_linear__PF;
- next__3SK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__L2J) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__L2J->size_and_id__QF & 4294967292LU)))));
- new_free__2SK=((__MEMORY *)(void *)((unsigned long)begin_memory__BJB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__4SK))));
- new_size__BTK=(__UINTEGER_32)(Self__L2J->size_and_id__QF & 4294967294LU);
- if (((prev__4SK == 4294967295LU) || ((__UINTEGER_32)(new_free__2SK->size_and_id__QF & 1) != 0))) {
- new_free__2SK=Self__L2J;
- Self__L2J->next_free__RF=first_free__CBD;
- Self__L2J->previous_free__SF=NULL;
- if (((void *)first_free__CBD != (void *)NULL)) {
- ((__MEMORY *)first_free__CBD)->previous_free__SF=Self__L2J;
- };
- first_free__CBD=Self__L2J;
- } else {
- new_size__BTK=(__UINTEGER_32)((__UINTEGER_32)(new_size__BTK + new_free__2SK->size_and_id__QF) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__L2J->size_and_id__QF & 2) != 0)) && ((__UINTEGER_32)(next__3SK->size_and_id__QF & 1) == 0))) {
- new_size__BTK=(__UINTEGER_32)((__UINTEGER_32)(new_size__BTK + next__3SK->size_and_id__QF) + 8);
- prev__0CS=next__3SK->previous_free__SF;
- next__1CS=next__3SK->next_free__RF;
- if (((void *)prev__0CS == (void *)NULL)) {
- first_free__CBD=next__1CS;
- } else {
- ((__MEMORY *)prev__0CS)->next_free__RF=next__1CS;
- };
- if (((void *)next__1CS != (void *)NULL)) {
- ((__MEMORY *)next__1CS)->previous_free__SF=prev__0CS;
- };
- };
- new_free__2SK->size_and_id__QF=new_size__BTK;
- if (((__UINTEGER_32)(new_free__2SK->size_and_id__QF & 2) != 0)) {
- last_block[(__tmp__KZH)] = (new_free__2SK);
- } else {
- next__3SK=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__L2J) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__L2J->size_and_id__QF & 4294967292LU)))));
- next__3SK->previous_linear__PF=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__2SK) - (unsigned long)begin_memory__BJB))));
- };
- };
- } else {
- result__Q2J=Self__L2J;
- };
- result__ZXH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Q2J)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__ZXH);
-}
-
-static __MEMORY* search__55C(__UINTEGER_32 new_size__BAD)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__DAD;
- result__DAD=first_free__CBD;
- while ((((void *)result__DAD != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__DAD)->size_and_id__QF & 4294967292LU) < new_size__BAD))) {
- result__DAD=result__DAD->next_free__RF;
- };
- if (((void *)result__DAD == (void *)NULL)) {
- result__DAD=new_page__MID();
- };
- to_busy__index__YZG(result__DAD,new_size__BAD,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__DAD)) - (unsigned long)begin_memory__BJB)))) >> 26));
- return(result__DAD);
-}
-
-static void eval_ata_times_u__XLD(__REAL_64 *u__ZLD,__REAL_64 *atau__0LD)
-// ({NATIVE_ARRAYoExpanded_REAL_64o},{NATIVE_ARRAYoExpanded_REAL_64o}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__GDE,Self__VWE,i__KDE,__tmp__ODE,Self__J2F,__tmp__CEE;
- __INTEGER Self__EXE,i__GEE,__tmp__KEE,Self__Z2F;
- __REAL_64 *__tmp__3LD,*u__AEE;
- __tmp__3LD=vtmp__CC;
- __tmp__GDE=n__XB;
- Self__VWE= 0;
- while ((Self__VWE <= __tmp__GDE)) {
- i__KDE=Self__VWE;
- ((__REAL_64 *)__tmp__3LD)[Self__VWE]=((__REAL_64 ) 0);
- __tmp__ODE=n__XB;
- Self__J2F= 0;
- while ((Self__J2F <= __tmp__ODE)) {
- ((__REAL_64 *)__tmp__3LD)[i__KDE]=((__REAL_64 )((((__REAL_64 *)__tmp__3LD)[i__KDE]) + ((__REAL_64)(((__REAL_64 )(__REAL)(1.0 / ((__REAL )(__INTEGER)((__INTEGER)((__INTEGER)((__INTEGER)((__INTEGER)(i__KDE + Self__J2F) * (__INTEGER)((__INTEGER)(i__KDE + Self__J2F) + 1)) >> 1) + i__KDE) + 1)))) * u__ZLD[Self__J2F]))));
- Self__J2F=(__INTEGER)(Self__J2F + 1);
- };
- Self__VWE=(__INTEGER)(Self__VWE + 1);
- };
- u__AEE=vtmp__CC;
- __tmp__CEE=n__XB;
- Self__EXE= 0;
- while ((Self__EXE <= __tmp__CEE)) {
- i__GEE=Self__EXE;
- atau__0LD[Self__EXE]=((__REAL_64 ) 0);
- __tmp__KEE=n__XB;
- Self__Z2F= 0;
- while ((Self__Z2F <= __tmp__KEE)) {
- atau__0LD[i__GEE]=((__REAL_64 )((atau__0LD[i__GEE]) + ((__REAL_64)(((__REAL_64 )(__REAL)(1.0 / ((__REAL )(__INTEGER)((__INTEGER)((__INTEGER)((__INTEGER)((__INTEGER)(Self__Z2F + i__GEE) * (__INTEGER)((__INTEGER)(Self__Z2F + i__GEE) + 1)) >> 1) + Self__Z2F) + 1)))) * ((__REAL_64 *)u__AEE)[Self__Z2F]))));
- Self__Z2F=(__INTEGER)(Self__Z2F + 1);
- };
- Self__EXE=(__INTEGER)(Self__EXE + 1);
- };
-}
-
-static __CHARACTER* create__BVF(__INTEGER nb_elements__DVF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__ML,a__Z4R,new_size__OL,new_size2__RL,a__XDS;
- __UINTEGER_32 new_size__YDS;
- __POINTER result__UL;
- __INTEGER Self__K4H;
- __CHARACTER *Result__D4F;
- sz__ML=((__UINTEGER_32 )nb_elements__DVF);
- result__UL=((__POINTER )(NULL));
- a__Z4R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OL=(__UINTEGER_32)((__UINTEGER_32)(sz__ML + a__Z4R) & (__UINTEGER_32)(~ a__Z4R));
- new_size2__RL=(__UINTEGER_32)(new_size__OL + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__RL <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__XDS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YDS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RL + a__XDS) & (__UINTEGER_32)(~ a__XDS));
- result__UL=micro_alloc__table__lab__EHB(new_size__YDS,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YDS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__YDS);
- ((__POINTER *)result__UL)[ 0]=((__POINTER ) 3);
- result__UL=(void *)((unsigned long)result__UL - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__UL=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__55C(new_size__OL))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__D4F=((__CHARACTER *)result__UL);
- Self__K4H=(__INTEGER)(nb_elements__DVF - 1);
- while ((Self__K4H >= 0)) {
- Result__D4F[Self__K4H]='\0';
- Self__K4H=(__INTEGER)(Self__K4H - 1);
- };
- return(Result__D4F);
-}
-
-static void put_string__FUC(void *s__HUC)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__ZUC,Self__Q5C,limit_up__R5C;
- __CHARACTER *__tmp__4DS,*__tmp__5DS;
- __CHARACTER __tmp__AVC;
- if (((struct ___OBJ *)s__HUC)->__id==__STRING_CONSTANT__) {
- };
- if (((struct ___OBJ *)s__HUC)->__id==__STRING_CONSTANT__) {
- __tmp__ZUC=((__STRING_CONSTANT *)s__HUC)->count__24;
- } else {
- __tmp__ZUC=((__STRING *)s__HUC)->count__ZO;
- };
- Self__Q5C= 1;
- limit_up__R5C=__tmp__ZUC;
- __tmp__4DS=((__STRING_CONSTANT *)s__HUC)->storage__A1D;
- __tmp__5DS=((__STRING *)s__HUC)->storage__EHC;
- while ((Self__Q5C <= limit_up__R5C)) {
- if (((struct ___OBJ *)s__HUC)->__id==__STRING_CONSTANT__) {
- __tmp__AVC=((__CHARACTER *)__tmp__4DS)[(__INTEGER)(Self__Q5C - 1)];
- } else {
- __tmp__AVC=((__CHARACTER *)__tmp__5DS)[(__INTEGER)(Self__Q5C - 1)];
- };
- fputc((int)(__tmp__AVC),stdout);
- Self__Q5C=(__INTEGER)(Self__Q5C + 1);
- };
-}
-
-static __POINTER new_lab__4SB(__UINTEGER_32 t__ATB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__CTB,pv__JTB;
- __MEMORY *blc__FTB,*prev__GTB,*Self__4UR,*Self__14R,*prev__24R;
- __MEMORY *next__34R;
- __POINTER result__HTB;
- __BOOLEAN __tmp__JUB;
- idx__CTB= 0;
- blc__FTB=NULL;
- prev__GTB=NULL;
- pv__JTB= 0;
- while_do__BYB:
- {
- if ((idx__CTB < nb_page__QTB)) {
- blc__FTB=((__MEMORY *)(last_block[(idx__CTB)]));
- __tmp__JUB=(((__UINTEGER_32)(((__MEMORY *)blc__FTB)->size_and_id__QF & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__FTB)->size_and_id__QF & 1) == 1));
- } else {
- __tmp__JUB=FALSE__;
- };
- if (__tmp__JUB) {
- idx__CTB=(__UINTEGER_32)(idx__CTB + 1);
- goto while_do__BYB;
- };
- };
- if ((idx__CTB >= nb_page__QTB)) {
- blc__FTB=new_page__MID();
- };
- ((__MEMORY *)blc__FTB)->size_and_id__QF=(__UINTEGER_32)(blc__FTB->size_and_id__QF - 4096);
- Self__4UR=((__MEMORY *)blc__FTB);
- result__HTB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__4UR) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__4UR->size_and_id__QF & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__FTB)->size_and_id__QF & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__14R=((__MEMORY *)blc__FTB);
- prev__24R=Self__14R->previous_free__SF;
- next__34R=Self__14R->next_free__RF;
- if (((void *)prev__24R == (void *)NULL)) {
- first_free__CBD=next__34R;
- } else {
- ((__MEMORY *)prev__24R)->next_free__RF=next__34R;
- };
- if (((void *)next__34R != (void *)NULL)) {
- ((__MEMORY *)next__34R)->previous_free__SF=prev__24R;
- };
- pv__JTB=blc__FTB->previous_linear__PF;
- if ((pv__JTB != 4294967295LU)) {
- prev__GTB=((__MEMORY *)(void *)((unsigned long)begin_memory__BJB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__JTB))));
- ((__MEMORY *)prev__GTB)->size_and_id__QF=(__UINTEGER_32)((__UINTEGER_32)(prev__GTB->size_and_id__QF + blc__FTB->size_and_id__QF) + 8);
- last_block[(idx__CTB)] = (prev__GTB);
- };
- };
- ((__POINTER *)result__HTB)[ 0]=((__POINTER )t__ATB);
- return((void *)((unsigned long)result__HTB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void copy__to__size__ZZJ(__POINTER src__1ZJ,__POINTER dst__2ZJ,__UINTEGER_32 sz__3ZJ)
-// ({POINTER},{POINTER},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __INTEGER siz__A0J,Self__2DK;
- __POINTER *na_src__4ZJ,*na_dst__5ZJ;
- siz__A0J=((__INTEGER )sz__3ZJ);
- siz__A0J=(__INTEGER)(siz__A0J / ((__INTEGER )(sizeof(void *))));
- na_src__4ZJ=((__POINTER *)src__1ZJ);
- na_dst__5ZJ=((__POINTER *)dst__2ZJ);
- Self__2DK=(__INTEGER)(siz__A0J - 1);
- while ((Self__2DK >= 0)) {
- na_dst__5ZJ[Self__2DK]=na_src__4ZJ[Self__2DK];
- Self__2DK=(__INTEGER)(Self__2DK - 1);
- };
-}
-
-static void to_busy__index__YZG(__MEMORY *Self__ZZG,__UINTEGER_32 sz__0ZG,__UINTEGER_32 idx__1ZG)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __MEMORY *new__C0G,*prev__TMH,*next__UMH,*Self__C4G,*Self__DRR;
- __UINTEGER_32 siz__2ZG,new_size__5ZG;
- new__C0G=NULL;
- prev__TMH=Self__ZZG->previous_free__SF;
- next__UMH=Self__ZZG->next_free__RF;
- if (((void *)prev__TMH == (void *)NULL)) {
- first_free__CBD=next__UMH;
- } else {
- ((__MEMORY *)prev__TMH)->next_free__RF=next__UMH;
- };
- if (((void *)next__UMH != (void *)NULL)) {
- ((__MEMORY *)next__UMH)->previous_free__SF=prev__TMH;
- };
- siz__2ZG=Self__ZZG->size_and_id__QF;
- new_size__5ZG=(__UINTEGER_32)(siz__2ZG - sz__0ZG);
- if ((new_size__5ZG > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__2ZG=sz__0ZG;
- new__C0G=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ZZG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__0ZG))));
- ((__MEMORY *)new__C0G)->previous_linear__PF=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__ZZG) - (unsigned long)begin_memory__BJB))));
- ((__MEMORY *)new__C0G)->size_and_id__QF=(__UINTEGER_32)(new_size__5ZG - 8);
- Self__C4G=((__MEMORY *)new__C0G);
- Self__C4G->next_free__RF=first_free__CBD;
- Self__C4G->previous_free__SF=NULL;
- if (((void *)first_free__CBD != (void *)NULL)) {
- ((__MEMORY *)first_free__CBD)->previous_free__SF=Self__C4G;
- };
- first_free__CBD=Self__C4G;
- if (((__UINTEGER_32)(((__MEMORY *)new__C0G)->size_and_id__QF & 2) != 0)) {
- last_block[(idx__1ZG)] = (new__C0G);
- } else {
- Self__DRR=((__MEMORY *)new__C0G);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__DRR) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__DRR->size_and_id__QF & 4294967292LU)))))->previous_linear__PF=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__C0G)) - (unsigned long)begin_memory__BJB))));
- };
- };
- Self__ZZG->size_and_id__QF=(__UINTEGER_32)(siz__2ZG | 1);
-}
-
-static __MEMORY* new_page__MID()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__ECF;
- __UINTEGER_32 cap__BCF,old_size__PID;
- __MEMORY *block__VID;
- if ((capacity_max__WID == 0)) {
- mem__ECF=((__POINTER )(NULL));
- cap__BCF= 33554432;
- do {
- cap__BCF=(__UINTEGER_32)(cap__BCF << 1);
- mem__ECF=((__POINTER )(malloc((cap__BCF))));
- if ((mem__ECF != (void *)NULL)) {
- free((mem__ECF));
- };
- } while ((! ((mem__ECF == (void *)NULL) || (cap__BCF == 2147483648LU))));
- if ((mem__ECF == (void *)NULL)) {
- cap__BCF=(__UINTEGER_32)(cap__BCF >> 1);
- };
- capacity_max__WID=cap__BCF;
- begin_memory__BJB=((__POINTER )(malloc((cap__BCF))));
- };
- old_size__PID=(__UINTEGER_32)(nb_page__QTB << 26);
- nb_page__QTB=(__UINTEGER_32)(nb_page__QTB + 1);
- if (((__UINTEGER_32)(old_size__PID + 67108864) > capacity_max__WID)) {
- put_string__FUC((&__string_2));
- exit(( 1));
- };
- block__VID=((__MEMORY *)(void *)((unsigned long)begin_memory__BJB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__PID))));
- block__VID->previous_linear__PF= 4294967295LU;
- block__VID->size_and_id__QF= 67108858;
- block__VID->next_free__RF=first_free__CBD;
- block__VID->previous_free__SF=NULL;
- if (((void *)first_free__CBD != (void *)NULL)) {
- ((__MEMORY *)first_free__CBD)->previous_free__SF=block__VID;
- };
- first_free__CBD=block__VID;
- last_block[((__UINTEGER_32)(nb_page__QTB - 1))] = (block__VID);
- return(block__VID);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/spectral_norm/spectral_norm_c.c b/example/shootout/spectral_norm/spectral_norm_c.c
deleted file mode 100644
index 8727c9b..0000000
--- a/example/shootout/spectral_norm/spectral_norm_c.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* -*- mode: c -*-
- *
- * The Great Computer Language Shootout
- * http://shootout.alioth.debian.org/
- *
- * Contributed by Sebastien Loisel
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <math.h>
-
-double eval_A(int i, int j) { return 1.0/((i+j)*(i+j+1)/2+i+1); }
-
-void eval_A_times_u(int N, const double u[], double Au[])
-{
- int i,j;
- for(i=0;i<N;i++)
- {
- Au[i]=0;
- for(j=0;j<N;j++) Au[i]+=eval_A(i,j)*u[j];
- }
-}
-
-void eval_At_times_u(int N, const double u[], double Au[])
-{
- int i,j;
- for(i=0;i<N;i++)
- {
- Au[i]=0;
- for(j=0;j<N;j++) Au[i]+=eval_A(j,i)*u[j];
- }
-}
-
-void eval_AtA_times_u(int N, const double u[], double AtAu[])
-{ double v[N]; eval_A_times_u(N,u,v); eval_At_times_u(N,v,AtAu); }
-
-int main(int argc, char *argv[])
-{
- int i;
- int N = ((argc == 2) ? atoi(argv[1]) : 2000);
- double u[N],v[N],vBv,vv;
- for(i=0;i<N;i++) u[i]=1;
- for(i=0;i<10;i++)
- {
- eval_AtA_times_u(N,u,v);
- eval_AtA_times_u(N,v,u);
- }
- vBv=vv=0;
- for(i=0;i<N;i++) { vBv+=u[i]*v[i]; vv+=v[i]*v[i]; }
- printf("%0.9f\n",sqrt(vBv/vv));
- return 0;
-}
-
diff --git a/example/shootout/startup/startup_c.c b/example/shootout/startup/startup_c.c
deleted file mode 100644
index 465f8ef..0000000
--- a/example/shootout/startup/startup_c.c
+++ /dev/null
@@ -1,12 +0,0 @@
-/* -*- mode: c -*-
- * $Id: hello-gcc.code,v 1.41 2007-05-19 00:42:42 igouy-guest Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-#include <stdio.h>
-
-int main() {
- fputs("hello world\n", stdout);
- return(0);
-}
-
diff --git a/example/shootout/sum_file/sum_file.c b/example/shootout/sum_file/sum_file.c
deleted file mode 100755
index 76e74eb..0000000
--- a/example/shootout/sum_file/sum_file.c
+++ /dev/null
@@ -1,745 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// FLOAT_REAL
-#include <math.h>
-// SYSTEM
-#include <time.h>
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// INTEGER
-typedef int __INTEGER;
-
-// MEMORY
-#define __MEMORY__ 0
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 previous_linear__NL;
- volatile __UINTEGER_32 size_and_id__OL;
- __MEMORY *next_free__PL;
- __MEMORY *previous_free__QL;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// STRING
-#define __STRING__ 1
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- __INTEGER count__XZB;
- __INTEGER capacity__I1B;
- __CHARACTER *storage__R1B;
-};
-__STRING STRING_;
-#define STRING__ (&STRING_)
-
-// NUMERIC
-#define __NUMERIC__ 2
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// STD_INPUT
-#define __STD_INPUT__ 3
-typedef struct STD_INPUT_struct __STD_INPUT;
-struct STD_INPUT_struct {
- void *Nothing;
-};
-__STD_INPUT STD_INPUT_;
-#define STD_INPUT__ (&STD_INPUT_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 4
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- __INTEGER count__FGD;
- __CHARACTER *storage__TKE;
-};
-__STRING_CONSTANT STRING_CONSTANT_;
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// INPUT_STREAM
-#define __INPUT_STREAM__ 5
-typedef struct INPUT_STREAM_struct __INPUT_STREAM;
-struct INPUT_STREAM_struct {
- void *Nothing;
-};
-__INPUT_STREAM INPUT_STREAM_;
-#define INPUT_STREAM__ (&INPUT_STREAM_)
-
-// FALSE
-#define FALSE__ 0
-
-// TRUE
-#define TRUE__ 1
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-
-void *table_type[6];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__H;
-__POINTER begin_memory__I1;
-__UINTEGER_32 nb_page__1IB;
-__UINTEGER_32 capacity_max__LGC;
-__MEMORY *first_free__UVD;
-__CHARACTER memory__YE;
-void *last_string__OB;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={19,"Not enough memory.\n"};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __POINTER micro_alloc__table__lab__LZ(__UINTEGER_32 new_size__NZ,__POINTER ptr_table__OZ,__UINTEGER_32 lab_type__PZ);
-static __CHARACTER* create__D2D(__INTEGER nb_elements__F2D);
-static void read_line__XB();
-static void print_positif__Y3D(__INTEGER Self__Z3D);
-static __POINTER new_lab__JIB(__UINTEGER_32 t__LIB);
-static __MEMORY* search__NOF(__UINTEGER_32 new_size__POF);
-static void extend__ZEC(__STRING *Self__0EC,__CHARACTER c__1EC);
-static __MEMORY* new_page__BGC();
-static void to_busy__index__4QG(__MEMORY *Self__5QG,__UINTEGER_32 sz__ARG,__UINTEGER_32 idx__BRG);
-static void copy__to__size__JDI(__POINTER src__LDI,__POINTER dst__MDI,__UINTEGER_32 sz__NDI);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- __STRING *result__NK,*Self__Z0B,*Self__XIC;
- __POINTER ptr__OK;
- __INTEGER typ_id__VK,sum__Z,state__0IC,result__3IC,i__ZIC,__tmp__D3M;
- __INTEGER __tmp__F3M;
- __UINTEGER_32 sz__SK,a__LX,new_size__JT,t__SU,a__W1M;
- __CHARACTER cc__1IC;
- __BOOLEAN negative__2IC,__tmp__JKC,result__43K,__tmp__2KC,__tmp__RLC;
- __BOOLEAN result__4GE,__tmp__YMC,result__QHE,result__MEG,__tmp__XC;
- __CHARACTER *__tmp__E3M;
- arg_count = argc;
- arg_vector = argv;
- parent_numeric__H=NUMERIC__;
- memory__YE='\0';
- STRING_CONSTANT__->count__FGD=((__INTEGER )((0)));
- STRING_CONSTANT__->storage__TKE=((__CHARACTER *)(NULL));
- nb_page__1IB= 0;
- MEMORY__->size_and_id__OL= 0;
- capacity_max__LGC= 0;
- begin_memory__I1=((__POINTER )(NULL));
- MEMORY__->previous_linear__NL= 0;
- first_free__UVD=NULL;
- MEMORY__->next_free__PL=NULL;
- MEMORY__->previous_free__QL=NULL;
- STRING__->capacity__I1B= 0;
- STRING__->storage__R1B=NULL;
- STRING__->count__XZB= 0;
- result__NK=NULL;
- ptr__OK=((__POINTER )(NULL));
- typ_id__VK= 0;
- sz__SK=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__SK == 0)) {
- result__NK=STRING__;
- } else {
- typ_id__VK=__STRING__;
- if ((typ_id__VK == (__INTEGER)(- 1))) {
- a__LX=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JT=(__UINTEGER_32)((__UINTEGER_32)(sz__SK + a__LX) & (__UINTEGER_32)(~ a__LX));
- ptr__OK=micro_alloc__table__lab__LZ(new_size__JT,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JT / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__JT);
- } else {
- t__SU=((__UINTEGER_32 )typ_id__VK);
- a__W1M=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- ptr__OK=micro_alloc__table__lab__LZ((__UINTEGER_32)((__UINTEGER_32)(sz__SK + a__W1M) & (__UINTEGER_32)(~ a__W1M)),((__POINTER )(&(table_type[(t__SU)]))),(__UINTEGER_32)(t__SU | 1));
- };
- result__NK=((__STRING *)ptr__OK);
- *(result__NK) = *(STRING__);
- };
- Self__Z0B=((__STRING *)result__NK);
- if ((Self__Z0B->capacity__I1B < 1024)) {
- Self__Z0B->storage__R1B=create__D2D( 1024);
- Self__Z0B->capacity__I1B= 1024;
- };
- Self__Z0B->count__XZB= 0;
- last_string__OB=result__NK;
- sum__Z= 0;
- read_line__XB();
- while ((memory__YE != ((__CHARACTER )(EOF)))) {
- Self__XIC=((__STRING *)last_string__OB);
- state__0IC= 0;
- cc__1IC='\0';
- negative__2IC=FALSE__;
- result__3IC= 0;
- i__ZIC= 1;
- __tmp__D3M=Self__XIC->count__XZB;
- __tmp__E3M=Self__XIC->storage__R1B;
- __tmp__F3M=Self__XIC->count__XZB;
- while ((i__ZIC <= __tmp__D3M)) {
- cc__1IC=((__CHARACTER *)__tmp__E3M)[(__INTEGER)(i__ZIC - 1)];
- if ((state__0IC == 0)) {
- if ((((((((cc__1IC == ' ') || (cc__1IC == '\t')) || (cc__1IC == '\n')) || (cc__1IC == '\r')) || (cc__1IC == '\0')) || (cc__1IC == '\f')) || (cc__1IC == '\v'))) {
- __tmp__JKC=TRUE__;
- } else {
- result__43K=(cc__1IC == '+');
- if (result__43K) {
- state__0IC= 1;
- };
- __tmp__JKC=result__43K;
- };
- if ((! __tmp__JKC)) {
- if ((cc__1IC == '-')) {
- negative__2IC=TRUE__;
- state__0IC= 1;
- } else {
- result__3IC=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__1IC)) - 48);
- state__0IC= 2;
- };
- };
- __tmp__2KC=TRUE__;
- } else {
- __tmp__2KC=FALSE__;
- };
- if (__tmp__2KC) {
- __tmp__RLC=TRUE__;
- } else {
- result__4GE=(state__0IC == 1);
- if (result__4GE) {
- result__3IC=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__1IC)) - 48);
- if (negative__2IC) {
- result__3IC=(__INTEGER)(- result__3IC);
- };
- state__0IC= 2;
- };
- __tmp__RLC=result__4GE;
- };
- if (__tmp__RLC) {
- __tmp__YMC=TRUE__;
- } else {
- result__QHE=(state__0IC == 2);
- if (result__QHE) {
- result__MEG=FALSE__;
- if ((((__INTEGER_8 )cc__1IC) >= ((__INTEGER_8 )'0'))) {
- result__MEG=(((__INTEGER_8 )cc__1IC) <= ((__INTEGER_8 )'9'));
- };
- if (result__MEG) {
- if (negative__2IC) {
- result__3IC=(__INTEGER)((__INTEGER)( 10 * result__3IC) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__1IC)) - 48));
- } else {
- result__3IC=(__INTEGER)((__INTEGER)( 10 * result__3IC) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__1IC)) - 48));
- };
- } else {
- state__0IC= 3;
- };
- };
- __tmp__YMC=result__QHE;
- };
- if ((! __tmp__YMC)) {
- if ((state__0IC == 3)) {
- i__ZIC=__tmp__F3M;
- };
- };
- i__ZIC=(__INTEGER)(i__ZIC + 1);
- };
- sum__Z=(__INTEGER)(sum__Z + result__3IC);
- read_line__XB();
- };
- if ((sum__Z == 0)) {
- fputc((int)('0'),stdout);
- __tmp__XC=TRUE__;
- } else {
- __tmp__XC=FALSE__;
- };
- if ((! __tmp__XC)) {
- if ((sum__Z < 0)) {
- fputc((int)('-'),stdout);
- print_positif__Y3D((__INTEGER)(- sum__Z));
- } else {
- print_positif__Y3D(sum__Z);
- };
- };
- fputc((int)('\n'),stdout);
- return( 0);
-}
-
-static __POINTER micro_alloc__table__lab__LZ(__UINTEGER_32 new_size__NZ,__POINTER ptr_table__OZ,__UINTEGER_32 lab_type__PZ)
-// ({UINTEGER_32},{POINTER},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __POINTER next__TZ,result__RZ;
- next__TZ=((__POINTER )(NULL));
- result__RZ=((__POINTER *)ptr_table__OZ)[ 0];
- if ((result__RZ == (void *)NULL)) {
- result__RZ=new_lab__JIB(lab_type__PZ);
- next__TZ=(void *)((unsigned long)result__RZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NZ)));
- ((__POINTER *)next__TZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__OZ)[ 0]=next__TZ;
- } else {
- next__TZ=((__POINTER *)result__RZ)[ 0];
- if ((next__TZ == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RZ - (unsigned long)begin_memory__I1)))) & 4095) + (__UINTEGER_32)(new_size__NZ << 1)) <= 4096)) {
- next__TZ=(void *)((unsigned long)result__RZ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NZ)));
- } else {
- next__TZ=new_lab__JIB(lab_type__PZ);
- };
- ((__POINTER *)next__TZ)[ 0]=NULL;
- ((__POINTER *)ptr_table__OZ)[ 0]=next__TZ;
- } else {
- ((__POINTER *)result__RZ)[ 0]=(void *)((unsigned long)((__POINTER *)next__TZ)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RZ=next__TZ;
- };
- };
- return(result__RZ);
-}
-
-static __CHARACTER* create__D2D(__INTEGER nb_elements__F2D)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__XUE,a__XZM,new_size__ZUE,new_size2__2UE,a__V3M;
- __UINTEGER_32 new_size__X3M;
- __POINTER result__5UE;
- __INTEGER Self__4XG;
- __CHARACTER *Result__IEE;
- sz__XUE=((__UINTEGER_32 )nb_elements__F2D);
- result__5UE=((__POINTER )(NULL));
- a__XZM=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZUE=(__UINTEGER_32)((__UINTEGER_32)(sz__XUE + a__XZM) & (__UINTEGER_32)(~ a__XZM));
- new_size2__2UE=(__UINTEGER_32)(new_size__ZUE + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__2UE <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__V3M=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X3M=(__UINTEGER_32)((__UINTEGER_32)(new_size2__2UE + a__V3M) & (__UINTEGER_32)(~ a__V3M));
- result__5UE=micro_alloc__table__lab__LZ(new_size__X3M,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X3M / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__X3M);
- ((__POINTER *)result__5UE)[ 0]=((__POINTER ) 3);
- result__5UE=(void *)((unsigned long)result__5UE - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__5UE=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__NOF(new_size__ZUE))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__IEE=((__CHARACTER *)result__5UE);
- Self__4XG=(__INTEGER)(nb_elements__F2D - 1);
- while ((Self__4XG >= 0)) {
- Result__IEE[Self__4XG]='\0';
- Self__4XG=(__INTEGER)(Self__4XG - 1);
- };
- return(Result__IEE);
-}
-
-static void read_line__XB()
-// () VoidNo recursive, No inlinable.
-{
- __CHARACTER mem__QE;
- ((__STRING *)last_string__OB)->count__XZB= 0;
- mem__QE='\0';
- memory__YE=((__CHARACTER )(fgetc(stdin)));
- if (((memory__YE != '\n') && (memory__YE != ((__CHARACTER )(EOF))))) {
- extend__ZEC(last_string__OB,memory__YE);
- mem__QE=((__CHARACTER )(fgetc(stdin)));
- while ((! ((mem__QE == ((__CHARACTER )(EOF))) || (mem__QE == '\n')))) {
- extend__ZEC(last_string__OB,mem__QE);
- mem__QE=((__CHARACTER )(fgetc(stdin)));
- };
- memory__YE=mem__QE;
- };
-}
-
-static void print_positif__Y3D(__INTEGER Self__Z3D)
-// ({INTEGER}) VoidRecursive, No inlinable.
-{
- __INTEGER val__C4D;
- __CHARACTER Result__2NE;
- Result__2NE=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__Z3D % 10)) + ((__INTEGER_8 )'0')))));
- val__C4D=(__INTEGER)(Self__Z3D / 10);
- if ((val__C4D != 0)) {
- print_positif__Y3D(val__C4D);
- };
- fputc((int)(Result__2NE),stdout);
-}
-
-static __POINTER new_lab__JIB(__UINTEGER_32 t__LIB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__NIB,pv__UIB;
- __MEMORY *blc__QIB,*prev__RIB,*Self__OZM,*Self__B2M,*prev__C2M;
- __MEMORY *next__D2M;
- __POINTER result__SIB;
- __BOOLEAN __tmp__UJB;
- idx__NIB= 0;
- blc__QIB=NULL;
- prev__RIB=NULL;
- pv__UIB= 0;
- while_do__MNB:
- {
- if ((idx__NIB < nb_page__1IB)) {
- blc__QIB=((__MEMORY *)(last_block[(idx__NIB)]));
- __tmp__UJB=(((__UINTEGER_32)(((__MEMORY *)blc__QIB)->size_and_id__OL & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__QIB)->size_and_id__OL & 1) == 1));
- } else {
- __tmp__UJB=FALSE__;
- };
- if (__tmp__UJB) {
- idx__NIB=(__UINTEGER_32)(idx__NIB + 1);
- goto while_do__MNB;
- };
- };
- if ((idx__NIB >= nb_page__1IB)) {
- blc__QIB=new_page__BGC();
- };
- ((__MEMORY *)blc__QIB)->size_and_id__OL=(__UINTEGER_32)(blc__QIB->size_and_id__OL - 4096);
- Self__OZM=((__MEMORY *)blc__QIB);
- result__SIB=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__OZM) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__OZM->size_and_id__OL & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__QIB)->size_and_id__OL & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__B2M=((__MEMORY *)blc__QIB);
- prev__C2M=Self__B2M->previous_free__QL;
- next__D2M=Self__B2M->next_free__PL;
- if (((void *)prev__C2M == (void *)NULL)) {
- first_free__UVD=next__D2M;
- } else {
- ((__MEMORY *)prev__C2M)->next_free__PL=next__D2M;
- };
- if (((void *)next__D2M != (void *)NULL)) {
- ((__MEMORY *)next__D2M)->previous_free__QL=prev__C2M;
- };
- pv__UIB=blc__QIB->previous_linear__NL;
- if ((pv__UIB != 4294967295LU)) {
- prev__RIB=((__MEMORY *)(void *)((unsigned long)begin_memory__I1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__UIB))));
- ((__MEMORY *)prev__RIB)->size_and_id__OL=(__UINTEGER_32)((__UINTEGER_32)(prev__RIB->size_and_id__OL + blc__QIB->size_and_id__OL) + 8);
- last_block[(idx__NIB)] = (prev__RIB);
- };
- };
- ((__POINTER *)result__SIB)[ 0]=((__POINTER )t__LIB);
- return((void *)((unsigned long)result__SIB - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static __MEMORY* search__NOF(__UINTEGER_32 new_size__POF)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __MEMORY *result__ROF;
- result__ROF=first_free__UVD;
- while ((((void *)result__ROF != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__ROF)->size_and_id__OL & 4294967292LU) < new_size__POF))) {
- result__ROF=result__ROF->next_free__PL;
- };
- if (((void *)result__ROF == (void *)NULL)) {
- result__ROF=new_page__BGC();
- };
- to_busy__index__4QG(result__ROF,new_size__POF,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__ROF)) - (unsigned long)begin_memory__I1)))) >> 26));
- return(result__ROF);
-}
-
-static void extend__ZEC(__STRING *Self__0EC,__CHARACTER c__1EC)
-// ({STRING},{CHARACTER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__VNC,__tmp__OOC,__tmp__TNG,Self__OKJ;
- __POINTER old_ptr__BNG,result__L1G,result__B0M,p__REI,last__EPI;
- __UINTEGER_32 __tmp__NNG,__tmp__PNG,a__1ZM,old_size__B1G;
- __UINTEGER_32 old_size2__E1G,a__5ZM,new_size__H1G,a__F0M;
- __UINTEGER_32 new_size__G0M,new_size2__H0M,a__13M,new_size__33M;
- __UINTEGER_32 a__K0M,__tmp__22G,sz__EGI,old_size__BGI,prev__M1I;
- __UINTEGER_32 new_size__P1I;
- __MEMORY *mem__K1G,*Self__1FI,*nxt__5FI,*result__AGI,*next__L1I;
- __MEMORY *new_free__K1I,*prev__SZD,*next__TZD;
- __CHARACTER *__tmp__NOC,*new__ANG;
- new_capacity__VNC= 0;
- if ((Self__0EC->capacity__I1B <= Self__0EC->count__XZB)) {
- if ((Self__0EC->capacity__I1B == 0)) {
- Self__0EC->capacity__I1B= 32;
- Self__0EC->storage__R1B=create__D2D( 32);
- } else {
- new_capacity__VNC=(__INTEGER)(Self__0EC->capacity__I1B << 1);
- __tmp__NOC=Self__0EC->storage__R1B;
- __tmp__OOC=Self__0EC->capacity__I1B;
- old_ptr__BNG=((__POINTER )((__CHARACTER *)__tmp__NOC));
- __tmp__NNG=((__UINTEGER_32 )__tmp__OOC);
- __tmp__PNG=((__UINTEGER_32 )new_capacity__VNC);
- mem__K1G=NULL;
- result__L1G=((__POINTER )(NULL));
- a__1ZM=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__B1G=(__UINTEGER_32)((__UINTEGER_32)(__tmp__NNG + a__1ZM) & (__UINTEGER_32)(~ a__1ZM));
- old_size2__E1G=(__UINTEGER_32)(old_size__B1G + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__5ZM=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__H1G=(__UINTEGER_32)((__UINTEGER_32)(__tmp__PNG + a__5ZM) & (__UINTEGER_32)(~ a__5ZM));
- if ((old_size2__E1G <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__B0M=((__POINTER )(NULL));
- a__F0M=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__G0M=(__UINTEGER_32)((__UINTEGER_32)(new_size__H1G + a__F0M) & (__UINTEGER_32)(~ a__F0M));
- new_size2__H0M=(__UINTEGER_32)(new_size__G0M + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__H0M <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__13M=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__33M=(__UINTEGER_32)((__UINTEGER_32)(new_size2__H0M + a__13M) & (__UINTEGER_32)(~ a__13M));
- result__B0M=micro_alloc__table__lab__LZ(new_size__33M,((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__33M / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))),new_size__33M);
- ((__POINTER *)result__B0M)[ 0]=((__POINTER ) 3);
- result__B0M=(void *)((unsigned long)result__B0M - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__B0M=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__NOF(new_size__G0M))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__L1G=result__B0M;
- copy__to__size__JDI(old_ptr__BNG,result__B0M,old_size__B1G);
- p__REI=(void *)((unsigned long)old_ptr__BNG - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__K0M=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__EPI=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__E1G + a__K0M) & (__UINTEGER_32)(~ a__K0M)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)p__REI)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__EPI)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
- ((__POINTER *)last__EPI)[ 0]=p__REI;
- } else {
- mem__K1G=((__MEMORY *)(void *)((unsigned long)old_ptr__BNG - (unsigned long)((__POINTER ) 8)));
- __tmp__22G=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)old_ptr__BNG - (unsigned long)begin_memory__I1)))) >> 26);
- Self__1FI=((__MEMORY *)mem__K1G);
- nxt__5FI=NULL;
- result__AGI=NULL;
- sz__EGI= 0;
- old_size__BGI=(__UINTEGER_32)(Self__1FI->size_and_id__OL & 4294967292LU);
- if ((new_size__H1G > old_size__BGI)) {
- if ((! ((__UINTEGER_32)(Self__1FI->size_and_id__OL & 2) != 0))) {
- nxt__5FI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1FI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1FI->size_and_id__OL & 4294967292LU)))));
- sz__EGI=(__UINTEGER_32)((__UINTEGER_32)(new_size__H1G - old_size__BGI) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__5FI)->size_and_id__OL & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__5FI)->size_and_id__OL & 4294967292LU) >= sz__EGI))) {
- to_busy__index__4QG(nxt__5FI,sz__EGI,__tmp__22G);
- Self__1FI->size_and_id__OL=(__UINTEGER_32)((__UINTEGER_32)(Self__1FI->size_and_id__OL + (__UINTEGER_32)(nxt__5FI->size_and_id__OL & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__1FI->size_and_id__OL & 2) != 0)) {
- last_block[(__tmp__22G)] = (Self__1FI);
- } else {
- nxt__5FI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1FI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1FI->size_and_id__OL & 4294967292LU)))));
- ((__MEMORY *)nxt__5FI)->previous_linear__NL=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__1FI) - (unsigned long)begin_memory__I1))));
- };
- result__AGI=Self__1FI;
- };
- };
- if (((void *)result__AGI == (void *)NULL)) {
- result__AGI=search__NOF(new_size__H1G);
- copy__to__size__JDI((void *)((unsigned long)((__POINTER )Self__1FI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))),(void *)((unsigned long)((__POINTER )((__MEMORY *)result__AGI)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))),old_size__BGI);
- prev__M1I=Self__1FI->previous_linear__NL;
- next__L1I=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1FI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1FI->size_and_id__OL & 4294967292LU)))));
- new_free__K1I=((__MEMORY *)(void *)((unsigned long)begin_memory__I1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__M1I))));
- new_size__P1I=(__UINTEGER_32)(Self__1FI->size_and_id__OL & 4294967294LU);
- if (((prev__M1I == 4294967295LU) || ((__UINTEGER_32)(new_free__K1I->size_and_id__OL & 1) != 0))) {
- new_free__K1I=Self__1FI;
- Self__1FI->next_free__PL=first_free__UVD;
- Self__1FI->previous_free__QL=NULL;
- if (((void *)first_free__UVD != (void *)NULL)) {
- ((__MEMORY *)first_free__UVD)->previous_free__QL=Self__1FI;
- };
- first_free__UVD=Self__1FI;
- } else {
- new_size__P1I=(__UINTEGER_32)((__UINTEGER_32)(new_size__P1I + new_free__K1I->size_and_id__OL) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__1FI->size_and_id__OL & 2) != 0)) && ((__UINTEGER_32)(next__L1I->size_and_id__OL & 1) == 0))) {
- new_size__P1I=(__UINTEGER_32)((__UINTEGER_32)(new_size__P1I + next__L1I->size_and_id__OL) + 8);
- prev__SZD=next__L1I->previous_free__QL;
- next__TZD=next__L1I->next_free__PL;
- if (((void *)prev__SZD == (void *)NULL)) {
- first_free__UVD=next__TZD;
- } else {
- ((__MEMORY *)prev__SZD)->next_free__PL=next__TZD;
- };
- if (((void *)next__TZD != (void *)NULL)) {
- ((__MEMORY *)next__TZD)->previous_free__QL=prev__SZD;
- };
- };
- new_free__K1I->size_and_id__OL=new_size__P1I;
- if (((__UINTEGER_32)(new_free__K1I->size_and_id__OL & 2) != 0)) {
- last_block[(__tmp__22G)] = (new_free__K1I);
- } else {
- next__L1I=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__1FI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__1FI->size_and_id__OL & 4294967292LU)))));
- next__L1I->previous_linear__NL=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__K1I) - (unsigned long)begin_memory__I1))));
- };
- };
- } else {
- result__AGI=Self__1FI;
- };
- result__L1G=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__AGI)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- new__ANG=((__CHARACTER *)result__L1G);
- __tmp__TNG=(__INTEGER)(new_capacity__VNC - 1);
- Self__OKJ=__tmp__OOC;
- while ((Self__OKJ <= __tmp__TNG)) {
- new__ANG[Self__OKJ]='\0';
- Self__OKJ=(__INTEGER)(Self__OKJ + 1);
- };
- Self__0EC->storage__R1B=new__ANG;
- Self__0EC->capacity__I1B=new_capacity__VNC;
- };
- };
- ((__CHARACTER *)Self__0EC->storage__R1B)[Self__0EC->count__XZB]=c__1EC;
- Self__0EC->count__XZB=(__INTEGER)(Self__0EC->count__XZB + 1);
-}
-
-static __MEMORY* new_page__BGC()
-// () With resultNo recursive, No inlinable.
-{
- __POINTER mem__D2C;
- __UINTEGER_32 cap__A2C,old_size__EGC;
- __INTEGER Self__KGD,limit_up__LGD;
- __MEMORY *block__KGC;
- __CHARACTER *__tmp__22M;
- if ((capacity_max__LGC == 0)) {
- mem__D2C=((__POINTER )(NULL));
- cap__A2C= 33554432;
- do {
- cap__A2C=(__UINTEGER_32)(cap__A2C << 1);
- mem__D2C=((__POINTER )(malloc((cap__A2C))));
- if ((mem__D2C != (void *)NULL)) {
- free((mem__D2C));
- };
- } while ((! ((mem__D2C == (void *)NULL) || (cap__A2C == 2147483648LU))));
- if ((mem__D2C == (void *)NULL)) {
- cap__A2C=(__UINTEGER_32)(cap__A2C >> 1);
- };
- capacity_max__LGC=cap__A2C;
- begin_memory__I1=((__POINTER )(malloc((cap__A2C))));
- };
- old_size__EGC=(__UINTEGER_32)(nb_page__1IB << 26);
- nb_page__1IB=(__UINTEGER_32)(nb_page__1IB + 1);
- if (((__UINTEGER_32)(old_size__EGC + 67108864) > capacity_max__LGC)) {
- Self__KGD= 1;
- limit_up__LGD=((__STRING_CONSTANT *)(&__string_1))->count__FGD;
- __tmp__22M=((__STRING_CONSTANT *)(&__string_1))->storage__TKE;
- while ((Self__KGD <= limit_up__LGD)) {
- fputc((int)(((__CHARACTER *)__tmp__22M)[(__INTEGER)(Self__KGD - 1)]),stdout);
- Self__KGD=(__INTEGER)(Self__KGD + 1);
- };
- exit(( 1));
- };
- block__KGC=((__MEMORY *)(void *)((unsigned long)begin_memory__I1 - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__EGC))));
- block__KGC->previous_linear__NL= 4294967295LU;
- block__KGC->size_and_id__OL= 67108858;
- block__KGC->next_free__PL=first_free__UVD;
- block__KGC->previous_free__QL=NULL;
- if (((void *)first_free__UVD != (void *)NULL)) {
- ((__MEMORY *)first_free__UVD)->previous_free__QL=block__KGC;
- };
- first_free__UVD=block__KGC;
- last_block[((__UINTEGER_32)(nb_page__1IB - 1))] = (block__KGC);
- return(block__KGC);
-}
-
-static void to_busy__index__4QG(__MEMORY *Self__5QG,__UINTEGER_32 sz__ARG,__UINTEGER_32 idx__BRG)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __MEMORY *new__IRG,*prev__P1M,*next__Q1M,*Self__TVD,*Self__YUM;
- __UINTEGER_32 siz__CRG,new_size__FRG;
- new__IRG=NULL;
- prev__P1M=Self__5QG->previous_free__QL;
- next__Q1M=Self__5QG->next_free__PL;
- if (((void *)prev__P1M == (void *)NULL)) {
- first_free__UVD=next__Q1M;
- } else {
- ((__MEMORY *)prev__P1M)->next_free__PL=next__Q1M;
- };
- if (((void *)next__Q1M != (void *)NULL)) {
- ((__MEMORY *)next__Q1M)->previous_free__QL=prev__P1M;
- };
- siz__CRG=Self__5QG->size_and_id__OL;
- new_size__FRG=(__UINTEGER_32)(siz__CRG - sz__ARG);
- if ((new_size__FRG > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__CRG=sz__ARG;
- new__IRG=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__5QG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__ARG))));
- ((__MEMORY *)new__IRG)->previous_linear__NL=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__5QG) - (unsigned long)begin_memory__I1))));
- ((__MEMORY *)new__IRG)->size_and_id__OL=(__UINTEGER_32)(new_size__FRG - 8);
- Self__TVD=((__MEMORY *)new__IRG);
- Self__TVD->next_free__PL=first_free__UVD;
- Self__TVD->previous_free__QL=NULL;
- if (((void *)first_free__UVD != (void *)NULL)) {
- ((__MEMORY *)first_free__UVD)->previous_free__QL=Self__TVD;
- };
- first_free__UVD=Self__TVD;
- if (((__UINTEGER_32)(((__MEMORY *)new__IRG)->size_and_id__OL & 2) != 0)) {
- last_block[(idx__BRG)] = (new__IRG);
- } else {
- Self__YUM=((__MEMORY *)new__IRG);
- ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__YUM) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__YUM->size_and_id__OL & 4294967292LU)))))->previous_linear__NL=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__IRG)) - (unsigned long)begin_memory__I1))));
- };
- };
- Self__5QG->size_and_id__OL=(__UINTEGER_32)(siz__CRG | 1);
-}
-
-static void copy__to__size__JDI(__POINTER src__LDI,__POINTER dst__MDI,__UINTEGER_32 sz__NDI)
-// ({POINTER},{POINTER},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- __INTEGER siz__QDI,Self__XMI;
- __POINTER *na_src__ODI,*na_dst__PDI;
- siz__QDI=((__INTEGER )sz__NDI);
- siz__QDI=(__INTEGER)(siz__QDI / ((__INTEGER )(sizeof(void *))));
- na_src__ODI=((__POINTER *)src__LDI);
- na_dst__PDI=((__POINTER *)dst__MDI);
- Self__XMI=(__INTEGER)(siz__QDI - 1);
- while ((Self__XMI >= 0)) {
- na_dst__PDI[Self__XMI]=na_src__ODI[Self__XMI];
- Self__XMI=(__INTEGER)(Self__XMI - 1);
- };
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
diff --git a/example/shootout/sum_file/sum_file_c.c b/example/shootout/sum_file/sum_file_c.c
deleted file mode 100644
index 40b1236..0000000
--- a/example/shootout/sum_file/sum_file_c.c
+++ /dev/null
@@ -1,21 +0,0 @@
-/* -*- mode: c -*-
- * $Id: sumcol-gcc.code,v 1.42 2007-05-19 00:42:43 igouy-guest Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-#define MAXLINELEN 128
-
-int
-main() {
- int sum = 0;
- char line[MAXLINELEN];
-
- while (fgets(line, MAXLINELEN, stdin)) {
- sum += atoi(line);
- }
- printf("%d\n", sum);
- return(0);
-}
diff --git a/example/shootout/thread-ring/threadring_c.c b/example/shootout/thread-ring/threadring_c.c
deleted file mode 100644
index 625fdae..0000000
--- a/example/shootout/thread-ring/threadring_c.c
+++ /dev/null
@@ -1,73 +0,0 @@
-/*
-* The Computer Language Benchmarks Game
-* http://shootout.alioth.debian.org/
-
-* contributed by Premysl Hruby
-*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <pthread.h>
-#include <string.h>
-#include <limits.h>
-
-#define THREADS (503)
-
-
-struct stack {
- char x[PTHREAD_STACK_MIN];
-};
-
-
-/* staticaly initialize mutex[0] mutex */
-static pthread_mutex_t mutex[THREADS];
-static int data[THREADS];
-static struct stack stacks[THREADS];
-/* stacks must be defined staticaly, or my i386 box run of virtual memory for this
- * process while creating thread +- #400 */
-
-static void* thread(void *num)
-{
- int l = (int)num;
- int r = (l+1) % THREADS;
- int token;
-
- while(1) {
- pthread_mutex_lock(mutex + l);
- token = data[l];
- if (token) {
- data[r] = token - 1;
- pthread_mutex_unlock(mutex + r);
- }
- else {
- printf("%i\n", l+1);
- exit(0);
- }
- }
-}
-
-
-
-int main(int argc, char **argv)
-{
- int i;
- pthread_t cthread;
- pthread_attr_t stack_attr;
-
- if (argc != 2)
- exit(255);
- data[0] = atoi(argv[1]);
-
- pthread_attr_init(&stack_attr);
-
- for (i = 0; i < THREADS; i++) {
- pthread_mutex_init(mutex + i, NULL);
- pthread_mutex_lock(mutex + i);
-
- pthread_attr_setstack(&stack_attr, &stacks[i], sizeof(struct stack));
- pthread_create(&cthread, &stack_attr, thread, (void*)i);
- }
-
- pthread_mutex_unlock(mutex + 0);
- pthread_join(cthread, NULL);
-}
--
Lisaac compiler
More information about the Lisaac-commits
mailing list