Diff [e5d92746a45efa56d2837baffcca4e904b5555a3:015925aa27a2898e2c8dc848bc56a9000843accf] for / – Cforall

benchmark/plot.py

-              re5d9274
+              r015925a
 class Field:
         def __init__(self, unit, _min, _log, _name=None):
+        def __init__(self, unit, _min, _log):
                 self.unit = unit
                 self.min  = _min
                 self.log  = _log
-                self.name = _name
 field_names = {
 …
         "Ops per procs"         : Field('Ops'   , 0, False),
         "Ops per threads"       : Field('Ops'   , 0, False),
         "ns per ops/procs"      : Field(''    , 0, False, _name = "Latency (ns $/$ (Processor $\\times$ Operation))" ),
+        "ns per ops/procs"      : Field('ns'    , 0, False),
         "Number of threads"     : Field(''      , 1, False),
         "Total Operations(ops)" : Field('Ops'   , 0, False),
         "Ops/sec/procs"         : Field('Ops'   , 0, False),
         "Total blocks"          : Field('Blocks', 0, False),
         "Ops per second"        : Field(''   , 0, False),
+        "Ops per second"        : Field('Ops'   , 0, False),
         "Cycle size (# thrds)"  : Field('thrd'  , 1, False),
         "Duration (ms)"         : Field('ms'    , 0, False),
 …
+}
 def plot(in_data, x, y, options):
+def plot(in_data, x, y, out):
         fig, ax = plt.subplots()
         colors = itertools.cycle(['#0095e3','#006cb4','#69df00','#0aa000','#fb0300','#e30002','#fd8f00','#ff7f00','#8f00d6','#4b009a','#ffff00','#b13f00'])
 …
         print("Finishing Plots")
         plt.ylabel(field_names[y].name if field_names[y].name else y)
+        plt.ylabel(y)
         # plt.xticks(range(1, math.ceil(mx) + 1))
         plt.xlabel(field_names[x].name if field_names[x].name else x)
+        plt.xlabel(x)
         plt.grid(b = True)
         ax.xaxis.set_major_formatter( EngFormatter(unit=field_names[x].unit) )
+        if options.logx:
+                ax.set_xscale('log')
+        elif field_names[x].log:
+        if field_names[x].log:
                 ax.set_xscale('log')
         else:
 …
         ax.yaxis.set_major_formatter( EngFormatter(unit=field_names[y].unit) )
+        if options.logy:
+                ax.set_yscale('log')
+        elif field_names[y].log:
+        if field_names[y].log:
                 ax.set_yscale('log')
         else:
                 plt.ylim(field_names[y].min, options.MaxY if options.MaxY else my*1.2)
+                plt.ylim(field_names[y].min, my*1.2)
         plt.legend(loc='upper left')
         print("Results Ready")
         if options.out:
                 plt.savefig(options.out, bbox_inches='tight')
+        if out:
+                plt.savefig(out)
         else:
                 plt.show()
 …
         parser.add_argument('-y', nargs='?', type=str, default="", help="Which field to use as the Y axis")
         parser.add_argument('-x', nargs='?', type=str, default="", help="Which field to use as the X axis")
-        parser.add_argument('--logx', action='store_true', help="if set, makes the x-axis logscale")
-        parser.add_argument('--logy', action='store_true', help="if set, makes the y-axis logscale")
-        parser.add_argument('--MaxY', nargs='?', type=int, help="maximum value of the y-axis")
         options =  parser.parse_args()
 …
         plot(data, wantx, wanty, options)
+        plot(data, wantx, wanty, options.out)

doc/theses/mubeen_zulfiqar_MMath/allocator.tex

-              re5d9274
+              r015925a
 llheap's design was reviewed and changed multiple times throughout the thesis.
 Some of the rejected designs are discussed because they show the path to the final design (see discussion in \VRef{s:MultipleHeaps}).
 Note, a few simple tests for a design choice were compared with the current best allocators to determine the viability of a design.
+Note, a few simples tests for a design choice were compared with the current best allocators to determine the viability of a design.
 …
 These designs look at the allocation/free \newterm{fastpath}, \ie when an allocation can immediately return free storage or returned storage is not coalesced.
 \paragraph{T:1 model}
 \VRef[Figure]{f:T1SharedBuckets} shows one heap accessed by multiple kernel threads (KTs) using a bucket array, where smaller bucket sizes are shared among N KTs.
 This design leverages the fact that usually the allocation requests are less than 1024 bytes and there are only a few different request sizes.
+\VRef[Figure]{f:T1SharedBuckets} shows one heap accessed by multiple kernel threads (KTs) using a bucket array, where smaller bucket sizes are N-shared across KTs.
+This design leverages the fact that 95\% of allocation requests are less than 1024 bytes and there are only 3--5 different request sizes.
 When KTs $\le$ N, the common bucket sizes are uncontented;
 when KTs $>$ N, the free buckets are contented and latency increases significantly.
 …
 \paragraph{T:H model}
 \VRef[Figure]{f:THSharedHeaps} shows a fixed number of heaps (N), each a local free pool, where the heaps are sharded (distributed) across the KTs.
+\VRef[Figure]{f:THSharedHeaps} shows a fixed number of heaps (N), each a local free pool, where the heaps are sharded across the KTs.
 A KT can point directly to its assigned heap or indirectly through the corresponding heap bucket.
 When KT $\le$ N, the heaps might be uncontented;
+When KT $\le$ N, the heaps are uncontented;
 when KTs $>$ N, the heaps are contented.
 In all cases, a KT must acquire/release a lock, contented or uncontented along the fast allocation path because a heap is shared.
 By increasing N, this approach reduces contention but increases storage (time versus space);
+By adjusting N upwards, this approach reduces contention but increases storage (time versus space);
 however, picking N is workload specific.
 …
 Need to prevent preemption during a dynamic memory operation because of the \newterm{serially-reusable problem}.
 \begin{quote}
 A sequence of code that is guaranteed to run to completion before being invoked to accept another input is called serially-reusable code.~\cite{SeriallyReusable}\label{p:SeriallyReusable}
+A sequence of code that is guaranteed to run to completion before being invoked to accept another input is called serially-reusable code.~\cite{SeriallyReusable}
 \end{quote}
 If a KT is preempted during an allocation operation, the operating system can schedule another KT on the same CPU, which can begin an allocation operation before the previous operation associated with this CPU has completed, invalidating heap correctness.
 …
 (See \VRef[Figure]{f:THSharedHeaps} but with a heap bucket per KT and no bucket or local-pool lock.)
 Hence, immediately after a KT starts, its heap is created and just before a KT terminates, its heap is (logically) deleted.
 Heaps are uncontended for a KTs memory operations as every KT has its own thread-local heap, modulo operations on the global pool and ownership.
+Heaps are uncontended for a KTs memory operations to its heap (modulo operations on the global pool and ownership).
 Problems:
 \begin{itemize}
 \item
 Need to know when a KT starts/terminates to create/delete its heap.
+Need to know when a KT is starts/terminates to create/delete its heap.
 \noindent
 …
 \noindent
 In many concurrent applications, good performance is achieved with the number of KTs proportional to the number of CPUs.
 Since the number of CPUs is relatively small, and a heap is also relatively small, $\approx$10K bytes (not including any associated freed storage), the worst-case external fragmentation is still small compared to the RAM available on large servers with many CPUs.
+Since the number of CPUs is relatively small, >~1024, and a heap relatively small, $\approx$10K bytes (not including any associated freed storage), the worst-case external fragmentation is still small compared to the RAM available on large servers with many CPUs.
 \item
 There is the same serially-reusable problem with UTs migrating across KTs.
 …
 \noindent
 The conclusion from this design exercise is: any atomic fence, atomic instruction (lock free), or lock along the allocation fastpath produces significant slowdown.
 For the T:1 and T:H models, locking must exist along the allocation fastpath because the buckets or heaps might be shared by multiple threads, even when KTs $\le$ N.
+For the T:1 and T:H models, locking must exist along the allocation fastpath because the buckets or heaps maybe shared by multiple threads, even when KTs $\le$ N.
 For the T:H=CPU and 1:1 models, locking is eliminated along the allocation fastpath.
 However, T:H=CPU has poor operating-system support to determine the CPU id (heap id) and prevent the serially-reusable problem for KTs.
 More operating system support is required to make this model viable, but there is still the serially-reusable problem with user-level threading.
 So the 1:1 model had no atomic actions along the fastpath and no special operating-system support requirements.
+Leaving the 1:1 model with no atomic actions along the fastpath and no special operating-system support required.
 The 1:1 model still has the serially-reusable problem with user-level threading, which is addressed in \VRef{s:UserlevelThreadingSupport}, and the greatest potential for heap blowup for certain allocation patterns.
 …
 Ideally latency is $O(1)$ with a small constant.
 To obtain $O(1)$ internal latency means no searching on the allocation fastpath and largely prohibits coalescing, which leads to external fragmentation.
+To obtain $O(1)$ internal latency means no searching on the allocation fastpath, largely prohibits coalescing, which leads to external fragmentation.
 The mitigating factor is that most programs have well behaved allocation patterns, where the majority of allocation operations can be $O(1)$, and heap blowup does not occur without coalescing (although the allocation footprint may be slightly larger).
 …
 llheap starts by creating an array of $N$ global heaps from storage obtained using @mmap@, where $N$ is the number of computer cores, that persists for program duration.
 There is a global bump-pointer to the next free heap in the array.
 When this array is exhausted, another array of heaps is allocated.
 There is a global top pointer for a intrusive linked-list to chain free heaps from terminated threads.
 When statistics are turned on, there is a global top pointer for a intrusive linked-list to chain \emph{all} the heaps, which is traversed to accumulate statistics counters across heaps using @malloc_stats@.
+When this array is exhausted, another array is allocated.
+There is a global top pointer for a heap intrusive link to chain free heaps from terminated threads.
+When statistics are turned on, there is a global top pointer for a heap intrusive link to chain \emph{all} the heaps, which is traversed to accumulate statistics counters across heaps using @malloc_stats@.
 When a KT starts, a heap is allocated from the current array for exclusive use by the KT.
 When a KT terminates, its heap is chained onto the heap free-list for reuse by a new KT, which prevents unbounded growth of number of heaps.
 The free heaps are stored on stack so hot storage is reused first.
 Preserving all heaps, created during the program lifetime, solves the storage lifetime problem when ownership is used.
+When a KT terminates, its heap is chained onto the heap free-list for reuse by a new KT, which prevents unbounded growth of heaps.
+The free heaps is a stack so hot storage is reused first.
+Preserving all heaps created during the program lifetime, solves the storage lifetime problem, when ownership is used.
 This approach wastes storage if a large number of KTs are created/terminated at program start and then the program continues sequentially.
 llheap can be configured with object ownership, where an object is freed to the heap from which it is allocated, or object no-ownership, where an object is freed to the KT's current heap.
 Each heap uses segregated free-buckets that have free objects distributed across 91 different sizes from 16 to 4M.
-All objects in a bucket are of the same size.
 The number of buckets used is determined dynamically depending on the crossover point from @sbrk@ to @mmap@ allocation using @mallopt( M_MMAP_THRESHOLD )@, \ie small objects managed by the program and large objects managed by the operating system.
 Each free bucket of a specific size has the following two lists:
 …
 Quantizing is performed using a binary search over the ordered bucket array.
 An optional optimization is fast lookup $O(1)$ for sizes < 64K from a 64K array of type @char@, where each element has an index to the corresponding bucket.
+The @char@ type restricts the number of bucket sizes to 256.
+(Type @char@ restricts the number of bucket sizes to 256.)
 For $S$ > 64K, a binary search is used.
 Then, the allocation storage is obtained from the following locations (in order), with increasing latency.
 …
 Then the corresponding bucket of the owner thread is computed for the deallocating thread, and the allocation is pushed onto the deallocating thread's bucket.
 Finally, the llheap design funnels \label{p:FunnelRoutine} all allocation/deallocation operations through the @malloc@ and @free@ routines, which are the only routines to directly access and manage the internal data structures of the heap.
+Finally, the llheap design funnels \label{p:FunnelRoutine} all allocation/deallocation operations through routines @malloc@/@free@, which are the only routines to directly access and manage the internal data structures of the heap.
 Other allocation operations, \eg @calloc@, @memalign@, and @realloc@, are composed of calls to @malloc@ and possibly @free@, and may manipulate header information after storage is allocated.
 This design simplifies heap-management code during development and maintenance.
 …
 \subsection{Alignment}
 Most dynamic memory allocations have a minimum storage alignment for the contained object(s).
+All dynamic memory allocations must have a minimum storage alignment for the contained object(s).
 Often the minimum memory alignment, M, is the bus width (32 or 64-bit) or the largest register (double, long double) or largest atomic instruction (DCAS) or vector data (MMMX).
 In general, the minimum storage alignment is 8/16-byte boundary on 32/64-bit computers.
 For consistency, the object header is normally aligned at this same boundary.
 Larger alignments must be a power of 2, such as page alignment (4/8K).
+Larger alignments must be a power of 2, such page alignment (4/8K).
 Any alignment request, N, $\le$ the minimum alignment is handled as a normal allocation with minimal alignment.
 …
 \end{center}
 The storage between @E@ and @H@ is chained onto the appropriate free list for future allocations.
 The same approach is used for sufficiently large free blocks, where @E@ is the start of the free block, and any unused storage before @H@ or after the allocated object becomes free storage.
+This approach is also valid within any sufficiently large free block, where @E@ is the start of the free block, and any unused storage before @H@ or after the allocated object becomes free storage.
 In this approach, the aligned address @A@ is the same as the allocated storage address @P@, \ie @P@ $=$ @A@ for all allocation routines, which simplifies deallocation.
 However, if there are a large number of aligned requests, this approach leads to memory fragmentation from the small free areas around the aligned object.
 …
 Finally, this approach is incompatible with allocator designs that funnel allocation requests through @malloc@ as it directly manipulates management information within the allocator to optimize the space/time of a request.
 Instead, llheap alignment is accomplished by making a \emph{pessimistic} allocation request for sufficient storage to ensure that \emph{both} the alignment and size request are satisfied, \eg:
+Instead, llheap alignment is accomplished by making a \emph{pessimistically} allocation request for sufficient storage to ensure that \emph{both} the alignment and size request are satisfied, \eg:
 \begin{center}
 \input{Alignment2}
 …
 \input{Alignment2Impl}
 \end{center}
 Since @malloc@ has a minimum alignment of @M@, @P@ $\neq$ @A@ only holds for alignments greater than @M@.
+Since @malloc@ has a minimum alignment of @M@, @P@ $\neq$ @A@ only holds for alignments of @M@ or greater.
 When @P@ $\neq$ @A@, the minimum distance between @P@ and @A@ is @M@ bytes, due to the pessimistic storage-allocation.
 Therefore, there is always room for an @M@-byte fake header before @A@.
 …
 \label{s:ReallocStickyProperties}
 The allocation routine @realloc@ provides a memory-management pattern for shrinking/enlarging an existing allocation, while maintaining some or all of the object data, rather than performing the following steps manually.
+Allocation routine @realloc@ provides a memory-management pattern for shrinking/enlarging an existing allocation, while maintaining some or all of the object data, rather than performing the following steps manually.
 \begin{flushleft}
 \begin{tabular}{ll}
 …
 The realloc pattern leverages available storage at the end of an allocation due to bucket sizes, possibly eliminating a new allocation and copying.
 This pattern is not used enough to reduce storage management costs.
 In fact, if @oaddr@ is @nullptr@, @realloc@ does a @malloc@, so even the initial @malloc@ can be a @realloc@ for consistency in the allocation pattern.
+In fact, if @oaddr@ is @nullptr@, @realloc@ does a @malloc@, so even the initial @malloc@ can be a @realloc@ for consistency in the pattern.
 The hidden problem for this pattern is the effect of zero fill and alignment with respect to reallocation.
 Are these properties transient or persistent (``sticky'')?
 For example, when memory is initially allocated by @calloc@ or @memalign@ with zero fill or alignment properties, respectively, what happens when those allocations are given to @realloc@ to change size?
 That is, if @realloc@ logically extends storage into unused bucket space or allocates new storage to satisfy a size change, are initial allocation properties preserved?
+For example, when memory is initially allocated by @calloc@ or @memalign@ with zero fill or alignment properties, respectively, what happens when those allocations are given to @realloc@ to change size.
+That is, if @realloc@ logically extends storage into unused bucket space or allocates new storage to satisfy a size change, are initial allocation properties preserve?
 Currently, allocation properties are not preserved, so subsequent use of @realloc@ storage may cause inefficient execution or errors due to lack of zero fill or alignment.
 This silent problem is unintuitive to programmers and difficult to locate because it is transient.
 …
 To preserve allocation properties requires storing additional information with an allocation,
 The best available option is the header, where \VRef[Figure]{f:llheapNormalHeader} shows the llheap storage layout.
+The only available location is the header, where \VRef[Figure]{f:llheapNormalHeader} shows the llheap storage layout.
 The header has two data field sized appropriately for 32/64-bit alignment requirements.
 The first field is a union of three values:
 …
 \end{description}
 The second field remembers the request size versus the allocation (bucket) size, \eg request 42 bytes which is rounded up to 64 bytes.
 Since programmers think in request sizes rather than allocation sizes, the request size allows better generation of statistics or errors and also helps in memory management.
+Since programmers think in request sizes rather than allocation sizes, the request size allows better generation of statistics or errors.
 \begin{figure}
 …
 \end{figure}
 The low-order 3-bits of the first field are \emph{unused} for any stored values as these values are 16-byte aligned by default, whereas the second field may use all of its bits.
+The low-order 3-bits of the first field are \emph{unused} for any stored values, whereas the second field may use all of its bits.
 The 3 unused bits are used to represent mapped allocation, zero filled, and alignment, respectively.
 Note, the alignment bit is not used in the normal header and the zero-filled/mapped bits are not used in the fake header.
 …
 If no bits are on, it implies a basic allocation, which is handled quickly;
 otherwise, the bits are analysed and appropriate actions are taken for the complex cases.
 Since most allocations are basic, they will take significantly less time as the memory operations will be done along the allocation and free fastpath.
+Since most allocations are basic, this implementation results in a significant performance gain along the allocation and free fastpath.
 …
 To locate all statistic counters, heaps are linked together in statistics mode, and this list is locked and traversed to sum all counters across heaps.
 Note, the list is locked to prevent errors traversing an active list;
 the statistics counters are not locked and can flicker during accumulation.
+the statistics counters are not locked and can flicker during accumulation, which is not an issue with atomic read/write.
 \VRef[Figure]{f:StatiticsOutput} shows an example of statistics output, which covers all allocation operations and information about deallocating storage not owned by a thread.
 No other memory allocator studied provides as comprehensive statistical information.
 Finally, these statistics were invaluable during the development of this thesis for debugging and verifying correctness and should be equally valuable to application developers.
+Finally, these statistics were invaluable during the development of this thesis for debugging and verifying correctness, and hence, should be equally valuable to application developers.
 \begin{figure}
 …
 Nevertheless, the checks detect many allocation problems.
 There is an unfortunate problem in detecting unfreed storage because some library routines assume their allocations have life-time duration, and hence, do not free their storage.
 For example, @printf@ allocates a 1024-byte buffer on the first call and never deletes this buffer.
+For example, @printf@ allocates a 1024 buffer on first call and never deletes this buffer.
 To prevent a false positive for unfreed storage, it is possible to specify an amount of storage that is never freed (see @malloc_unfreed@ \VPageref{p:malloc_unfreed}), and it is subtracted from the total allocate/free difference.
 Determining the amount of never-freed storage is annoying, but once done, any warnings of unfreed storage are application related.
 Tests indicate only a 30\% performance decrease when statistics \emph{and} debugging are enabled, and the latency cost for accumulating statistic is mitigated by limited calls, often only one at the end of the program.
+Tests indicate only a 30\% performance increase when statistics \emph{and} debugging are enabled, and the latency cost for accumulating statistic is mitigated by limited calls, often only one at the end of the program.
 …
 \label{s:UserlevelThreadingSupport}
 The serially-reusable problem (see \VPageref{p:SeriallyReusable}) occurs for kernel threads in the ``T:H model, H = number of CPUs'' model and for user threads in the ``1:1'' model, where llheap uses the ``1:1'' model.
 The solution is to prevent interrupts that can result in a CPU or KT change during operations that are logically critical sections such as starting a memory operation on one KT and completing it on another.
+The serially-reusable problem (see \VRef{s:AllocationFastpath}) occurs for kernel threads in the ``T:H model, H = number of CPUs'' model and for user threads in the ``1:1'' model, where llheap uses the ``1:1'' model.
+The solution is to prevent interrupts that can result in CPU or KT change during operations that are logically critical sections.
 Locking these critical sections negates any attempt for a quick fastpath and results in high contention.
 For user-level threading, the serially-reusable problem appears with time slicing for preemptable scheduling, as the signal handler context switches to another user-level thread.
 Without time slicing, a user thread performing a long computation can prevent the execution of (starve) other threads.
 To prevent starvation for a memory-allocation-intensive thread, \ie the time slice always triggers in an allocation critical-section for one thread so the thread never gets time sliced, a thread-local \newterm{rollforward} flag is set in the signal handler when it aborts a time slice.
+Without time slicing, a user thread performing a long computation can prevent execution (starve) other threads.
+To prevent starvation for an allocation-active thread, \ie the time slice always triggers in an allocation critical-section for one thread, a thread-local \newterm{rollforward} flag is set in the signal handler when it aborts a time slice.
 The rollforward flag is tested at the end of each allocation funnel routine (see \VPageref{p:FunnelRoutine}), and if set, it is reset and a volunteer yield (context switch) is performed to allow other threads to execute.
 llheap uses two techniques to detect when execution is in an allocation operation or routine called from allocation operation, to abort any time slice during this period.
 On the slowpath when executing expensive operations, like @sbrk@ or @mmap@, interrupts are disabled/enabled by setting kernel-thread-local flags so the signal handler aborts immediately.
 On the fastpath, disabling/enabling interrupts is too expensive as accessing kernel-thread-local storage can be expensive and not user-thread-safe.
+llheap uses two techniques to detect when execution is in a allocation operation or routine called from allocation operation, to abort any time slice during this period.
+On the slowpath when executing expensive operations, like @sbrk@ or @mmap@, interrupts are disabled/enabled by setting thread-local flags so the signal handler aborts immediately.
+On the fastpath, disabling/enabling interrupts is too expensive as accessing thread-local storage can be expensive and not thread-safe.
 For example, the ARM processor stores the thread-local pointer in a coprocessor register that cannot perform atomic base-displacement addressing.
 Hence, there is a window between loading the kernel-thread-local pointer from the coprocessor register into a normal register and adding the displacement when a time slice can move a thread.
 The fast technique (with lower run time cost) is to define a special code section and places all non-interruptible routines in this section.
+Hence, there is a window between loading the thread-local pointer from the coprocessor register into a normal register and adding the displacement when a time slice can move a thread.
+The fast technique defines a special code section and places all non-interruptible routines in this section.
 The linker places all code in this section into a contiguous block of memory, but the order of routines within the block is unspecified.
 Then, the signal handler compares the program counter at the point of interrupt with the the start and end address of the non-interruptible section, and aborts if executing within this section and sets the rollforward flag.
 …
 Hence, for correctness, this approach requires inspection of generated assembler code for routines placed in the non-interruptible section.
 This issue is mitigated by the llheap funnel design so only funnel routines and a few statistics routines are placed in the non-interruptible section and their assembler code examined.
 These techniques are used in both the \uC and \CFA versions of llheap as both of these systems have user-level threading.
+These techniques are used in both the \uC and \CFA versions of llheap, where both of these systems have user-level threading.
 …
 Programs can be statically or dynamically linked.
 \item
 The order in which the linker schedules startup code is poorly supported so it cannot be controlled entirely.
+The order the linker schedules startup code is poorly supported.
 \item
 Knowing a KT's start and end independently from the KT code is difficult.
 …
 Hence, some part of the @sbrk@ area may be used by the default allocator and statistics about allocation operations cannot be correct.
 Furthermore, dynamic linking goes through trampolines, so there is an additional cost along the allocator fastpath for all allocation operations.
 Testing showed up to a 5\% performance decrease with dynamic linking as compared to static linking, even when using @tls_model("initial-exec")@ so the dynamic loader can obtain tighter binding.
+Testing showed up to a 5\% performance increase for dynamic linking over static linking, even when using @tls_model("initial-exec")@ so the dynamic loader can obtain tighter binding.
 All allocator libraries need to perform startup code to initialize data structures, such as the heap array for llheap.
 The problem is getting initialization done before the first allocator call.
+The problem is getting initialized done before the first allocator call.
 However, there does not seem to be mechanism to tell either the static or dynamic loader to first perform initialization code before any calls to a loaded library.
-Also, initialization code of other libraries and the run-time environment may call memory allocation routines such as \lstinline{malloc}.
-This compounds the situation as there is no mechanism to tell either the static or dynamic loader to first perform the initialization code of the memory allocator before any other initialization that may involve a dynamic memory allocation call.
 As a result, calls to allocation routines occur without initialization.
 To deal with this problem, it is necessary to put a conditional initialization check along the allocation fastpath to trigger initialization (singleton pattern).
 …
 Therefore, the constructor is useless for knowing when a KT starts because the KT must reference it, and the allocator does not control the application KT.
 Fortunately, the singleton pattern needed for initializing the program KT also triggers KT allocator initialization, which can then reference @pgm_thread@ to call @threadManager@'s constructor, otherwise its destructor is not called.
 Now when a KT terminates, @~ThreadManager@ is called to chain it onto the global-heap free-stack, where @pgm_thread@ is set to true only for the program KT.
+Now when a KT terminates, @~ThreadManager@ is called to chained it onto the global-heap free-stack, where @pgm_thread@ is set to true only for the program KT.
 The conditional destructor call prevents closing down the program heap, which must remain available because epilogue code may free more storage.
 …
 bool traceHeapOff();                    $\C{// stop printing allocation/free calls}$
 \end{lstlisting}
 This kind of API is necessary to allow concurrent runtime systems to interact with different memory allocators in a consistent way.
+This kind of API is necessary to allow concurrent runtime systems to interact with difference memory allocators in a consistent way.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 …
 Most allocators use @nullptr@ to indicate an allocation failure, specifically out of memory;
 hence the need to return an alternate value for a zero-sized allocation.
 A different approach allowed by @C API@ is to abort a program when out of memory and return @nullptr@ for a zero-sized allocation.
+A different approach allowed by the C API is to abort a program when out of memory and return @nullptr@ for a zero-sized allocation.
 In theory, notifying the programmer of memory failure allows recovery;
 in practice, it is almost impossible to gracefully recover when out of memory.
 …
 \paragraph{\lstinline{void * aalloc( size_t dim, size_t elemSize )}}
 extends @calloc@ for allocating a dynamic array of objects without calculating the total size of array explicitly but \emph{without} zero-filling the memory.
 @aalloc@ is significantly faster than @calloc@, which is the only alternative given by the standard memory-allocation routines.
+@aalloc@ is significantly faster than @calloc@, which is the only alternative.
 \noindent\textbf{Usage}
 …
 \begin{itemize}
 \item
 @fd@: file descriptor.
+@fd@: files description.
 \end{itemize}
 It returns the previous file descriptor.
 …
 \label{p:malloc_expansion}
 set the amount (bytes) to extend the heap when there is insufficient free storage to service an allocation request.
 It returns the heap extension size used throughout a program when requesting more memory from the system using @sbrk@ system-call, \ie called once at heap initialization.
+It returns the heap extension size used throughout a program, \ie called once at heap initialization.
 \paragraph{\lstinline{size_t malloc_mmap_start()}}
 …
 \begin{itemize}
 \item
 naming: \CFA regular and @ttype@ polymorphism (@ttype@ polymorphism in \CFA is similar to \CC variadic templates) is used to encapsulate a wide range of allocation functionality into a single routine name, so programmers do not have to remember multiple routine names for different kinds of dynamic allocations.
 \item
 named arguments: individual allocation properties are specified using postfix function call, so the programmers do not have to remember parameter positions in allocation calls.
 \item
 object size: like the \CFA's C-interface, programmers do not have to specify object size or cast allocation results.
+naming: \CFA regular and @ttype@ polymorphism is used to encapsulate a wide range of allocation functionality into a single routine name, so programmers do not have to remember multiple routine names for different kinds of dynamic allocations.
+\item
+named arguments: individual allocation properties are specified using postfix function call, so programmers do have to remember parameter positions in allocation calls.
+\item
+object size: like the \CFA C-style interface, programmers do not have to specify object size or cast allocation results.
 \end{itemize}
 Note, postfix function call is an alternative call syntax, using backtick @`@, where the argument appears before the function name, \eg
 …
 duration dur = 3@`@h + 42@`@m + 17@`@s;
 \end{cfa}
+@ttype@ polymorphism is similar to \CC variadic templates.
 \paragraph{\lstinline{T * alloc( ... )} or \lstinline{T * alloc( size_t dim, ... )}}
+is overloaded with a variable number of specific allocation operations, or an integer dimension parameter followed by a variable number of specific allocation operations.
+These allocation operations can be passed as named arguments when calling the \lstinline{alloc} routine.
+is overloaded with a variable number of specific allocation routines, or an integer dimension parameter followed by a variable number specific allocation routines.
 A call without parameters returns a dynamically allocated object of type @T@ (@malloc@).
 A call with only the dimension (dim) parameter returns a dynamically allocated array of objects of type @T@ (@aalloc@).
 …
 5 5 -555819298 -555819298  // two undefined values
 \end{lstlisting}
 Examples 1 to 3 fill an object with a value or characters.
 Examples 4 to 7 fill an array of objects with values, another array, or part of an array.
+Examples 1 to 3, fill an object with a value or characters.
+Examples 4 to 7, fill an array of objects with values, another array, or part of an array.
 \subparagraph{\lstinline{S_resize(T) ?`resize( void * oaddr )}}
 …
 \subparagraph{\lstinline{S_realloc(T) ?`realloc( T * a ))}}
 used to resize, realign, and fill, where the old object data is copied to the new object.
 The old object type must be the same as the new object type, since the value is used.
+The old object type must be the same as the new object type, since the values used.
 Note, for @fill@, only the extra space after copying the data from the old object is filled with the given parameter.
 For example:
 …
 \end{lstlisting}
 Examples 2 to 3 change the alignment for the initial storage of @i@.
 The @13`fill@ in example 3 does nothing because no extra space is added.
+The @13`fill@ for example 3 does nothing because no extra space is added.
 \begin{cfa}[numbers=left]
 …
 \end{lstlisting}
 Examples 2 to 4 change the array size, alignment and fill for the initial storage of @ia@.
 The @13`fill@ in example 3 does nothing because no extra space is added.
+The @13`fill@ for example 3 does nothing because no extra space is added.
 These \CFA allocation features are used extensively in the development of the \CFA runtime.

doc/theses/mubeen_zulfiqar_MMath/background.tex

-              re5d9274
+              r015925a
 The management data starts with fixed-sized information in the static-data memory that references components in the dynamic-allocation memory.
 The \newterm{storage data} is composed of allocated and freed objects, and \newterm{reserved memory}.
 Allocated objects (light grey) are variable sized, and are allocated and maintained by the program;
 \ie only the memory allocator knows the location of allocated storage, not the program.
+Allocated objects (light grey) are variable sized, and allocated and maintained by the program;
+\ie only the program knows the location of allocated storage, not the memory allocator.
 \begin{figure}[h]
 \centering
 …
 if there are multiple reserved blocks, they are also chained together, usually internally.
 In some allocator designs, allocated and freed objects have additional management data embedded within them.
+Allocated and freed objects typically have additional management data embedded within them.
 \VRef[Figure]{f:AllocatedObject} shows an allocated object with a header, trailer, and alignment padding and spacing around the object.
 The header contains information about the object, \eg size, type, etc.
 …
 \VRef[Figure]{f:MemoryFragmentation} shows an example of how a small block of memory fragments as objects are allocated and deallocated over time.
 Blocks of free memory become smaller and non-contiguous making them less useful in serving allocation requests.
 Memory is highly fragmented when most free blocks are unusable because of their sizes.
+Memory is highly fragmented when the sizes of most free blocks are unusable.
 For example, \VRef[Figure]{f:Contiguous} and \VRef[Figure]{f:HighlyFragmented} have the same quantity of external fragmentation, but \VRef[Figure]{f:HighlyFragmented} is highly fragmented.
 If there is a request to allocate a large object, \VRef[Figure]{f:Contiguous} is more likely to be able to satisfy it with existing free memory, while \VRef[Figure]{f:HighlyFragmented} likely has to request more memory from the operating system.
 …
 The fewer bin-sizes, the fewer lists need to be searched and maintained;
 however, the bin sizes are less likely to closely fit the requested object size, leading to more internal fragmentation.
 The more bin sizes, the longer the search and the less likely free objects are to be reused, leading to more external fragmentation and potentially heap blowup.
+The more bin-sizes, the longer the search and the less likely free objects are to be reused, leading to more external fragmentation and potentially heap blowup.
 A variation of the binning algorithm allows objects to be allocated to the requested size, but when an object is freed, it is placed on the free list of the next smallest or equal bin-size.
 For example, with bin sizes of 8 and 16 bytes, a request for 12 bytes allocates only 12 bytes, but when the object is freed, it is placed on the 8-byte bin-list.
 …
 The principle of locality recognizes that programs tend to reference a small set of data, called a working set, for a certain period of time, where a working set is composed of temporal and spatial accesses~\cite{Denning05}.
 Temporal clustering implies a group of objects are accessed repeatedly within a short time period, while spatial clustering implies a group of objects physically close together (nearby addresses) are accessed repeatedly within a short time period.
 Temporal locality commonly occurs during an iterative computation with a fixed set of disjoint variables, while spatial locality commonly occurs when traversing an array.
+Temporal locality commonly occurs during an iterative computation with a fix set of disjoint variables, while spatial locality commonly occurs when traversing an array.
 Hardware takes advantage of temporal and spatial locality through multiple levels of caching, \ie memory hierarchy.
 …
 For example, multiple heaps are managed in a pool, starting with a single or a fixed number of heaps that increase\-/decrease depending on contention\-/space issues.
 At creation, a thread is associated with a heap from the pool.
 In some implementations of this model, when the thread attempts an allocation and its associated heap is locked (contention), it scans for an unlocked heap in the pool.
+When the thread attempts an allocation and its associated heap is locked (contention), it scans for an unlocked heap in the pool.
 If an unlocked heap is found, the thread changes its association and uses that heap.
 If all heaps are locked, the thread may create a new heap, use it, and then place the new heap into the pool;
 …
 The management information in the static zone must be able to locate all heaps in the dynamic zone.
 The management information for the heaps must reside in the dynamic-allocation zone if there are a variable number.
 Each heap in the dynamic zone is composed of a list of free objects and a pointer to its reserved memory.
+Each heap in the dynamic zone is composed of a list of a free objects and a pointer to its reserved memory.
 An alternative implementation is for all heaps to share one reserved memory, which requires a separate lock for the reserved storage to ensure mutual exclusion when acquiring new memory.
 Because multiple threads can allocate/free/reallocate adjacent storage, all forms of false sharing may occur.
 …
 Multiple heaps increase external fragmentation as the ratio of heaps to threads increases, which can lead to heap blowup.
 The external fragmentation experienced by a program with a single heap is now multiplied by the number of heaps, since each heap manages its own free storage and allocates its own reserved memory.
 Additionally, objects freed by one heap cannot be reused by other threads without increasing the cost of the memory operations, except indirectly by returning free memory to the operating system, which can be expensive.
+Depending on how the operating system provides dynamic storage to an application, returning storage may be difficult or impossible, \eg the contiguous @sbrk@ area in Unix.
+Additionally, objects freed by one heap cannot be reused by other threads, except indirectly by returning free memory to the operating system, which can be expensive.
+(Depending on how the operating system provides dynamic storage to an application, returning storage may be difficult or impossible, \eg the contiguous @sbrk@ area in Unix.)
 In the worst case, a program in which objects are allocated from one heap but deallocated to another heap means these freed objects are never reused.
 …
 In contrast, the T:H model spreads each thread's objects over a larger area in different heaps.
 Thread heaps can also eliminate allocator-induced active false-sharing, if memory is acquired so it does not overlap at crucial boundaries with memory for another thread's heap.
 For example, assume page boundaries coincide with cache line boundaries, if a thread heap always acquires pages of memory then no two threads share a page or cache line unless pointers are passed among them.
+For example, assume page boundaries coincide with cache line boundaries, then if a thread heap always acquires pages of memory, no two threads share a page or cache line unless pointers are passed among them.
 Hence, allocator-induced active false-sharing in \VRef[Figure]{f:AllocatorInducedActiveFalseSharing} cannot occur because the memory for thread heaps never overlaps.
 When a thread terminates, there are two options for handling its thread heap.
 First is to free all objects in the thread heap to the global heap and destroy the thread heap.
+When a thread terminates, there are two options for handling its heap.
+First is to free all objects in the heap to the global heap and destroy the thread heap.
 Second is to place the thread heap on a list of available heaps and reuse it for a new thread in the future.
 Destroying the thread heap immediately may reduce external fragmentation sooner, since all free objects are freed to the global heap and may be reused by other threads.
 Alternatively, reusing thread heaps may improve performance if the inheriting thread makes similar allocation requests as the thread that previously held the thread heap because any unfreed storage is immediately accessible.
+Alternatively, reusing thread heaps may improve performance if the inheriting thread makes similar allocation requests as the thread that previously held the thread heap because any unfreed storage is immediately accessible..
 …
 When the user thread continues on the new kernel thread, it may have pointers into the previous kernel-thread's heap and hold locks associated with it.
 To get the same kernel-thread safety, time slicing must be disabled/\-enabled around these operations, so the user thread cannot jump to another kernel thread.
 However, eagerly disabling/enabling time-slicing on the allocation/deallocation fast path is expensive, because preemption does not happen that frequently.
+However, eagerly disabling/enabling time-slicing on the allocation/deallocation fast path is expensive, because preemption is rare (10--100 milliseconds).
 Instead, techniques exist to lazily detect this case in the interrupt handler, abort the preemption, and return to the operation so it can complete atomically.
 Occasionally ignoring a preemption should be benign, but a persistent lack of preemption can result in both short and long term starvation.
+\begin{figure}
+\centering
+\subfigure[Ownership]{
+        \input{MultipleHeapsOwnership}
+} % subfigure
+\hspace{0.25in}
+\subfigure[No Ownership]{
+        \input{MultipleHeapsNoOwnership}
+} % subfigure
+\caption{Heap Ownership}
+\label{f:HeapsOwnership}
+\end{figure}
 …
 For the T:1/T:H models with or without ownership or the 1:1 model with ownership, a thread may free objects to different heaps, which makes each heap publicly accessible to all threads, called a \newterm{public heap}.
-\begin{figure}
-\centering
-\subfigure[Ownership]{
-        \input{MultipleHeapsOwnership}
-} % subfigure
-\hspace{0.25in}
-\subfigure[No Ownership]{
-        \input{MultipleHeapsNoOwnership}
-} % subfigure
-\caption{Heap Ownership}
-\label{f:HeapsOwnership}
-\end{figure}
 \VRef[Figure]{f:MultipleHeapStorageOwnership} shows the effect of ownership on storage layout.
 (For simplicity, assume the heaps all use the same size of reserves storage.)
+(For simplicity assume the heaps all use the same size of reserves storage.)
 In contrast to \VRef[Figure]{f:MultipleHeapStorage}, each reserved area used by a heap only contains free storage for that particular heap because threads must return free objects back to the owner heap.
 Again, because multiple threads can allocate/free/reallocate adjacent storage in the same heap, all forms of false sharing may occur.
 …
 While the returning thread can batch objects, batching across multiple heaps is complex and there is no obvious time when to push back to the owner heap.
 It is better for returning threads to immediately return to the receiving thread's batch list as the receiving thread has better knowledge when to incorporate the batch list into its free pool.
 Batching leverages the fact that most allocation patterns use the contention-free fast-path, so locking on the batch list is rare for both the returning and receiving threads.
 It is possible for heaps to steal objects rather than return them and then reallocate these objects again when storage runs out on a heap.
+Batching leverages the fact that most allocation patterns use the contention-free fast-path so locking on the batch list is rare for both the returning and receiving threads.
+It is possible for heaps to steal objects rather than return them and reallocating these objects when storage runs out on a heap.
 However, stealing can result in passive false-sharing.
 For example, in \VRef[Figure]{f:AllocatorInducedPassiveFalseSharing}, Object$_2$ may be deallocated to Thread$_2$'s heap initially.
 …
 Bracketing every allocation with headers/trailers can result in significant internal fragmentation, as shown in \VRef[Figure]{f:ObjectHeaders}.
 Especially if the headers contain redundant management information, then storing that information is a waste of storage, \eg object size may be the same for many objects because programs only allocate a small set of object sizes.
+Especially if the headers contain redundant management information, \eg object size may be the same for many objects because programs only allocate a small set of object sizes.
 As well, it can result in poor cache usage, since only a portion of the cache line is holding useful information from the program's perspective.
 Spatial locality can also be negatively affected leading to poor cache locality~\cite{Feng05}:
 …
 With local free-lists in containers, as in \VRef[Figure]{f:LocalFreeListWithinContainers}, the container is simply removed from one heap's free list and placed on the new heap's free list.
 Thus, when using local free-lists, the operation of moving containers is reduced from $O(N)$ to $O(1)$.
 However, there is the additional storage cost in the header, which increases the header size, and therefore internal fragmentation.
+The cost is adding information to a header, which increases the header size, and therefore internal fragmentation.
 \begin{figure}
 …
 The main goal of the hybrid approach is to eliminate locking on thread-local allocation/deallocation, while providing ownership to prevent heap blowup.
 In the hybrid approach, a thread first allocates from its private heap and second from its public heap if no free memory exists in the private heap.
 Similarly, a thread first deallocates an object to its private heap, and second to the public heap.
+Similarly, a thread first deallocates an object its private heap, and second to the public heap.
 Both private and public heaps can allocate/deallocate to/from the global heap if there is no free memory or excess free memory, although an implementation may choose to funnel all interaction with the global heap through one of the heaps.
 Note, deallocation from the private to the public (dashed line) is unlikely because there is no obvious advantages unless the public heap provides the only interface to the global heap.

doc/theses/mubeen_zulfiqar_MMath/benchmarks.tex

-              re5d9274
+              r015925a
 \item[Benchmarks]
 are a suite of application programs (SPEC CPU/WEB) that are exercised in a common way (inputs) to find differences among underlying software implementations associated with an application (compiler, memory allocator, web server, \etc).
 The applications are supposed to represent common execution patterns that need to perform well with respect to an underlying software implementation.
+The applications are suppose to represent common execution patterns that need to perform well with respect to an underlying software implementation.
 Benchmarks are often criticized for having overlapping patterns, insufficient patterns, or extraneous code that masks patterns.
 \item[Micro-Benchmarks]
 …
 This thesis designs and examines a new set of micro-benchmarks for memory allocators that test a variety of allocation patterns, each with multiple tuning parameters.
 The aim of the micro-benchmark suite is to create a set of programs that can evaluate a memory allocator based on the key performance metrics such as speed, memory overhead, and cache performance.
+The aim of the micro-benchmark suite is to create a set of programs that can evaluate a memory allocator based on the key performance matrices such as speed, memory overhead, and cache performance.
 % These programs can be taken as a standard to benchmark an allocator's basic goals.
 These programs give details of an allocator's memory overhead and speed under certain allocation patterns.
 The allocation patterns are configurable (adjustment knobs) to observe an allocator's performance across a spectrum allocation patterns, which is seldom possible with benchmark programs.
+The allocation patterns are configurable (adjustment knobs) to observe an allocator's performance across a spectrum of events for a desired allocation pattern, which is seldom possible with benchmark programs.
 Each micro-benchmark program has multiple control knobs specified by command-line arguments.
 The new micro-benchmark suite measures performance by allocating dynamic objects and measuring specific metrics.
+The new micro-benchmark suite measures performance by allocating dynamic objects and measuring specific matrices.
 An allocator's speed is benchmarked in different ways, as are issues like false sharing.
 …
 Modern memory allocators, such as llheap, must handle multi-threaded programs at the KT and UT level.
 The following multi-threaded micro-benchmarks are presented to give a sense of prior work~\cite{Berger00} at the KT level.
 None of the prior work addresses multi-threading at the UT level.
+None of the prior work address multi-threading at the UT level.
 …
 This benchmark stresses the ability of the allocator to handle different threads allocating and deallocating independently.
 There is no interaction among threads, \ie no object sharing.
 Each thread repeatedly allocates 100,000 \emph{8-byte} objects then deallocates them in the order they were allocated.
 The execution time of the benchmark evaluates its efficiency.
+Each thread repeatedly allocate 100,000 \emph{8-byte} objects then deallocates them in the order they were allocated.
+Runtime of the benchmark evaluates its efficiency.
 …
 Before the thread terminates, it passes its array of 10,000 objects to a new child thread to continue the process.
 The number of thread generations varies depending on the thread speed.
 It calculates memory operations per second as an indicator of the memory allocator's performance.
+It calculates memory operations per second as an indicator of memory allocator's performance.
 …
 \label{s:ChurnBenchmark}
 The churn benchmark measures the runtime speed of an allocator in a multi-threaded scenario, where each thread extensively allocates and frees dynamic memory.
+The churn benchmark measures the runtime speed of an allocator in a multi-threaded scenerio, where each thread extensively allocates and frees dynamic memory.
 Only @malloc@ and @free@ are used to eliminate any extra cost, such as @memcpy@ in @calloc@ or @realloc@.
 Churn simulates a memory intensive program and can be tuned to create different scenarios.
+Churn simulates a memory intensive program that can be tuned to create different scenarios.
 \VRef[Figure]{fig:ChurnBenchFig} shows the pseudo code for the churn micro-benchmark.
 …
 When threads share a cache line, frequent reads/writes to their cache-line object causes cache misses, which cause escalating delays as cache distance increases.
 Cache thrash tries to create a scenario that leads to false sharing, if the underlying memory allocator is allocating dynamic memory to multiple threads on the same cache lines.
+Cache thrash tries to create a scenerio that leads to false sharing, if the underlying memory allocator is allocating dynamic memory to multiple threads on the same cache lines.
 Ideally, a memory allocator should distance the dynamic memory region of one thread from another.
 Having multiple threads allocating small objects simultaneously can cause a memory allocator to allocate objects on the same cache line, if its not distancing the memory among different threads.
 …
 Each worker thread allocates an object and intensively reads/writes it for M times to possible invalidate cache lines that may interfere with other threads sharing the same cache line.
 Each thread repeats this for N times.
 The main thread measures the total time taken for all worker threads to complete.
 Worker threads sharing cache lines with each other are expected to take longer.
+The main thread measures the total time taken to for all worker threads to complete.
+Worker threads sharing cache lines with each other will take longer.
 \begin{figure}
 …
         signal workers to free
         ...
+        print addresses from each $thread$
 Worker Thread$\(_1\)$
         warm up memory in chunks of 16 bytes
         ...
         For N
                 malloc an object
                 read/write the object M times
                 free the object
         ...
+        allocate, write, read, free
+        warmup memory in chunkc of 16 bytes
+        ...
+        malloc N objects
+        ...
+        free objects
+        return object address to Main Thread
 Worker Thread$\(_2\)$
         // same as Worker Thread$\(_1\)$
 …
 The cache-scratch micro-benchmark measures allocator-induced passive false-sharing as illustrated in \VRef{s:AllocatorInducedPassiveFalseSharing}.
 As with cache thrash, if memory is allocated for multiple threads on the same cache line, this can significantly slow down program performance.
+As for cache thrash, if memory is allocated for multiple threads on the same cache line, this can significantly slow down program performance.
 In this scenario, the false sharing is being caused by the memory allocator although it is started by the program sharing an object.
 …
 Cache scratch tries to create a scenario that leads to false sharing and should make the memory allocator preserve the program-induced false sharing, if it does not return a freed object to its owner thread and, instead, re-uses it instantly.
 An allocator using object ownership, as described in section \VRef{s:Ownership}, is less susceptible to allocator-induced passive false-sharing.
 If the object is returned to the thread that owns it, then the new object that the thread gets is less likely to be on the same cache line.
+If the object is returned to the thread who owns it, then the thread that gets a new object is less likely to be on the same cache line.
 \VRef[Figure]{fig:benchScratchFig} shows the pseudo code for the cache-scratch micro-benchmark.
 …
         signal workers to free
         ...
+        print addresses from each $thread$
 Worker Thread$\(_1\)$
+        warmup memory in chunks of 16 bytes
+        ...
+        free the object passed by the Main Thread
+        For N
+        allocate, write, read, free
+        warmup memory in chunkc of 16 bytes
+        ...
+        for ( N )
+                free an object passed by Main Thread
                 malloc new object
                 read/write the object M times
                 free the object
         ...
+        ...
+        free objects
+        return new object addresses to Main Thread
 Worker Thread$\(_2\)$
         // same as Worker Thread$\(_1\)$
 …
 Similar to benchmark cache thrash in section \VRef{sec:benchThrashSec}, different cache access scenarios can be created using the following command-line arguments.
 \begin{description}[topsep=0pt,itemsep=0pt,parsep=0pt]
+\begin{description}[itemsep=0pt,parsep=0pt]
 \item[threads:]
 number of threads (K).
 …
 \subsection{Speed Micro-Benchmark}
 \label{s:SpeedMicroBenchmark}
-\vspace*{-4pt}
 The speed benchmark measures the runtime speed of individual and sequences of memory allocation routines:
 \begin{enumerate}[topsep=-5pt,itemsep=0pt,parsep=0pt]
+\begin{enumerate}[itemsep=0pt,parsep=0pt]
 \item malloc
 \item realloc
 …
 \VRef[Figure]{fig:MemoryBenchFig} shows the pseudo code for the memory micro-benchmark.
 It creates a producer-consumer scenario with K producer threads and each producer has M consumer threads.
 A producer has a separate buffer for each consumer and allocates N objects of random sizes following a configurable distribution for each consumer.
+A producer has a separate buffer for each consumer and allocates N objects of random sizes following a settable distribution for each consumer.
 A consumer frees these objects.
 After every memory operation, program memory usage is recorded throughout the runtime.

doc/theses/mubeen_zulfiqar_MMath/conclusion.tex

-              re5d9274
+              r015925a
 % ====================
 The goal of this thesis was to build a low-latency (or high bandwidth) memory allocator for both KT and UT multi-threading systems that is competitive with the best current memory allocators while extending the feature set of existing and new allocator routines.
+The goal of this thesis was to build a low-latency memory allocator for both KT and UT multi-threads systems, which is competitive with the best current memory allocators, while extending the feature set of existing and new allocator routines.
 The new llheap memory-allocator achieves all of these goals, while maintaining and managing sticky allocation information without a performance loss.
 Hence, it becomes possible to use @realloc@ frequently as a safe operation, rather than just occasionally.
 Furthermore, the ability to query sticky properties and information allows programmers to write safer programs, as it is possible to dynamically match allocation styles from unknown library routines that return allocations.
 Extending the C allocation API with @resize@, advanced @realloc@, @aalloc@, @amemalign@, and @cmemalign@ means programmers do not have to do these useful allocation operations themselves.
+Extending the C allocation API with @resize@, advanced @realloc@, @aalloc@, @amemalign@, and @cmemalign@ means programmers do not make mistakes writing theses useful allocation operations.
 The ability to use \CFA's advanced type-system (and possibly \CC's too) to have one allocation routine with completely orthogonal sticky properties shows how far the allocation API can be pushed, which increases safety and greatly simplifies programmer's use of dynamic allocation.
 Providing comprehensive statistics for all allocation operations is invaluable in understanding and debugging a program's dynamic behaviour.
 No other memory allocator provides such comprehensive statistics gathering.
+No other memory allocator provides comprehensive statistics gathering.
 This capability was used extensively during the development of llheap to verify its behaviour.
 As well, providing a debugging mode where allocations are checked, along with internal pre/post conditions and invariants, is extremely useful, especially for students.
 While not as powerful as the @valgrind@ interpreter, a large number of allocation mistakes are detected.
+While not as powerful as the @valgrind@ interpreter, a large number of allocations mistakes are detected.
 Finally, contention-free statistics gathering and debugging have a low enough cost to be used in production code.
 …
 Starting a micro-benchmark test-suite for comparing allocators, rather than relying on a suite of arbitrary programs, has been an interesting challenge.
 The current micro-benchmarks allow some understanding of allocator implementation properties without actually looking at the implementation.
+The current micro-benchmarks allow some understand of allocator implementation properties without actually looking at the implementation.
 For example, the memory micro-benchmark quickly identified how several of the allocators work at the global level.
 It was not possible to show how the micro-benchmarks adjustment knobs were used to tune to an interesting test point.
 …
 A careful walk-though of the allocator fastpath should yield additional optimizations for a slight performance gain.
 In particular, analysing the implementation of rpmalloc, which is often the fastest allocator,
+In particular, looking at the implementation of rpmalloc, which is often the fastest allocator,
 The micro-benchmark project requires more testing and analysis.
 Additional allocation patterns are needed to extract meaningful information about allocators, and within allocation patterns, what are the most useful tuning knobs.
+The micro-benchmarks project requires more testing and analysis.
+Additional allocations patterns are needed to extract meaningful information about allocators, and within allocation patterns, what are the best tuning knobs.
 Also, identifying ways to visualize the results of the micro-benchmarks is a work in progress.
 After llheap is made available on GitHub, interacting with its users to locate problems and improvements will make llbench a more robust memory allocator.
 As well, feedback from the \uC and \CFA projects, which have adopted llheap for their memory allocator, will provide additional information.
+After llheap is made available on gitHub, interacting with its users to locate problems and improvements, will make llbench a more robust memory allocator.
+As well, feedback from the \uC and \CFA projects, which have adopted llheap for their memory allocator, will provide additional feedback.

doc/theses/mubeen_zulfiqar_MMath/figures/Header.fig

-              re5d9274
+              r015925a
 1 1 1 0 7 50 -1 -1 4.000 0 0 -1 0 0 2
 1500 3300 2400
+1 0 1 0 7 50 -1 -1 4.000 0 0 -1 1 0 3
+1 1.00 45.00 90.00
+2625 3750 2625 3750 2400
+1 0 1 0 7 50 -1 -1 4.000 0 0 -1 1 0 3
+1 1.00 45.00 90.00
+2850 3450 2850 3450 2400
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 1800 6600 1800 6600 2100 4200 2100 4200 1800
-1 0 1 0 7 50 -1 -1 4.000 0 0 -1 1 0 3
-1 1.00 45.00 90.00
-2775 3750 2775 3750 1725
-1 0 1 0 7 50 -1 -1 4.000 0 0 -1 1 0 3
-1 1.00 45.00 90.00
-2550 4050 2550 4050 1725
-1 0 1 0 7 50 -1 -1 4.000 0 0 -1 1 0 3
-1 1.00 45.00 90.00
-3000 3450 3000 3450 2025
 0 0 50 -1 0 12 0.0000 2 180 1185 1875 1725 bucket pointer\001
 0 0 50 -1 0 12 0.0000 2 180 1005 1875 2025 mapped size\001
 0 0 50 -1 0 12 0.0000 2 135 1215 1875 2325 next free block\001
 2 0 50 -1 0 12 0.0000 2 135 480 1725 2025 union\001
+1 0 50 -1 0 12 0.0000 2 135 270 3775 2325 0/1\001
+1 0 50 -1 0 12 0.0000 2 135 270 3475 2325 0/1\001
 1 0 50 -1 0 12 0.0000 2 180 945 5400 2025 request size\001
 1 0 50 -1 0 12 0.0000 2 180 765 5400 1425 4/8-bytes\001
 1 0 50 -1 0 12 0.0000 2 180 765 3000 1425 4/8-bytes\001
+1 0 50 -1 0 12 0.0000 2 135 270 3475 2025 0/1\001
+1 0 50 -1 0 12 0.0000 2 135 270 3775 1725 0/1\001
+1 0 50 -1 0 12 0.0000 2 135 270 4075 1725 0/1\001
+0 0 50 -1 0 12 0.0000 2 180 1515 4275 3075 mapped allocation\001
+0 0 50 -1 0 12 0.0000 2 135 825 4275 2850 zero filled\001
+0 0 50 -1 0 12 0.0000 2 180 1920 4275 2625 alignment (fake header)\001
+0 0 50 -1 0 12 0.0000 2 135 825 4125 2700 zero filled\001
+0 0 50 -1 0 12 0.0000 2 180 1515 4125 2925 mapped allocation\001

doc/theses/mubeen_zulfiqar_MMath/figures/MultipleHeapsNoOwnership.fig

-              re5d9274
+              r015925a
 #FIG 3.2  Produced by xfig version 3.2.7b
+#FIG 3.2  Produced by xfig version 3.2.5
 Landscape
 Center
 Inches
 Letter
+Letter
 .00
 Single
 …
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 2100 1500 2100 1500 1800 1200 1800 1200 2100
 1 0 50 -1 0 11 0.0000 2 165 495 1350 2025 H$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 495 1350 2025 H$_1$\001
 -6
 1950 1800 2550 2100
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 2100 2400 2100 2400 1800 2100 1800 2100 2100
 1 0 50 -1 0 11 0.0000 2 165 495 2250 2025 H$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 495 2250 2025 H$_2$\001
 -6
 3 0 1 0 7 50 -1 -1 0.000 0 -0.0000 1350 1350 150 150 1350 1350 1500 1350
 3 0 1 0 7 50 -1 -1 0.000 0 -0.0000 2250 1350 150 150 2250 1350 2400 1350
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1800 1275 1500
 1 0 1 0 0 50 -1 -1 0.000 0 0 -1 1 0 2
 1 1.00 45.00 90.00
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
+0 1.00 45.00 90.00
 1500 1425 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 1 2
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 2175 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 1 2
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1425 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 0 2
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 2175 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1800 2325 1500
 1 0 50 -1 0 11 0.0000 2 165 465 1350 1425 T$_1$\001
 1 0 50 -1 0 11 0.0000 2 165 465 2250 1425 T$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1350 1425 T$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 465 2250 1425 T$_2$\001

doc/theses/mubeen_zulfiqar_MMath/figures/MultipleHeapsOwnership.fig

-              re5d9274
+              r015925a
 #FIG 3.2  Produced by xfig version 3.2.7b
+#FIG 3.2  Produced by xfig version 3.2.5
 Landscape
 Center
 Inches
 Letter
+Letter
 .00
 Single
 …
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 2100 1500 2100 1500 1800 1200 1800 1200 2100
 1 0 50 -1 0 11 0.0000 2 165 495 1350 2025 H$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 495 1350 2025 H$_1$\001
 -6
 1950 1800 2550 2100
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 2100 2400 2100 2400 1800 2100 1800 2100 2100
 1 0 50 -1 0 11 0.0000 2 165 495 2250 2025 H$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 495 2250 2025 H$_2$\001
 -6
 3 0 1 0 7 50 -1 -1 0.000 0 -0.0000 1350 1350 150 150 1350 1350 1500 1350
 3 0 1 0 7 50 -1 -1 0.000 0 -0.0000 2250 1350 150 150 2250 1350 2400 1350
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1425 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
+1 1.00 45.00 90.00
+1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
+1500 2175 1800
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1800 1275 1500
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1800 2325 1500
+1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
+1 1.00 45.00 90.00
+1 1.00 45.00 90.00
+1500 2175 1800
+1 0 50 -1 0 11 0.0000 2 165 465 2250 1425 T$_2$\001
+1 0 50 -1 0 11 0.0000 2 165 465 1350 1425 T$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 465 2250 1425 T$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1350 1425 T$_1$\001

doc/theses/mubeen_zulfiqar_MMath/figures/PerThreadHeap.fig

-              re5d9274
+              r015925a
 #FIG 3.2  Produced by xfig version 3.2.7b
+#FIG 3.2  Produced by xfig version 3.2.5
 Landscape
 Center
 Inches
 Letter
+Letter
 .00
 Single
 …
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 1800 3000 1800 3000 2100 2700 2100 2700 1800
 1 0 50 -1 0 11 0.0000 2 120 135 2850 2025 G\001
+1 0 50 -1 0 11 0.0000 2 135 135 2850 2025 G\001
 -6
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1350 1350 150 150 1350 1350 1500 1350
 …
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 2250 1350 150 150 2250 1350 2400 1350
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1350 1800
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 …
 1800 2400 1800 2400 2100 2100 2100 2100 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1800 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 2250 1800
 1 0 50 -1 0 11 0.0000 2 180 1260 2550 2025 $\\Leftrightarrow$\001
 1 0 50 -1 0 11 0.0000 2 180 1260 3150 2025 $\\Leftrightarrow$\001
 0 0 50 -1 0 11 0.0000 2 120 240 3300 2025 OS\001
 1 0 50 -1 0 11 0.0000 2 165 495 1350 2025 H$_1$\001
 1 0 50 -1 0 11 0.0000 2 165 465 1350 1425 T$_1$\001
 1 0 50 -1 0 11 0.0000 2 165 495 1800 2025 H$_2$\001
 1 0 50 -1 0 11 0.0000 2 165 465 1800 1425 T$_2$\001
 1 0 50 -1 0 11 0.0000 2 165 495 2250 2025 H$_3$\001
 1 0 50 -1 0 11 0.0000 2 165 465 2250 1425 T$_3$\001
+1 0 50 -1 0 11 0.0000 2 195 1320 2550 2025 $\\Leftrightarrow$\001
+1 0 50 -1 0 11 0.0000 2 195 1320 3150 2025 $\\Leftrightarrow$\001
+0 0 50 -1 0 11 0.0000 2 135 240 3300 2025 OS\001
+1 0 50 -1 0 11 0.0000 2 195 495 1350 2025 H$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1350 1425 T$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 495 1800 2025 H$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1800 1425 T$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 495 2250 2025 H$_3$\001
+1 0 50 -1 0 11 0.0000 2 195 465 2250 1425 T$_3$\001

doc/theses/mubeen_zulfiqar_MMath/figures/SharedHeaps.fig

-              re5d9274
+              r015925a
 #FIG 3.2  Produced by xfig version 3.2.7b
+#FIG 3.2  Produced by xfig version 3.2.5
 Landscape
 Center
 Inches
 Letter
+Letter
 .00
 Single
 …
 1500 1200 2100 1500
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1800 1350 150 150 1800 1350 1950 1350
 1 0 50 -1 0 11 0.0000 2 165 465 1800 1425 T$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1800 1425 T$_2$\001
 -6
 1050 1200 1650 1500
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1350 1350 150 150 1350 1350 1500 1350
 1 0 50 -1 0 11 0.0000 2 165 465 1350 1425 T$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1350 1425 T$_1$\001
 -6
 1950 1200 2550 1500
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 2250 1350 150 150 2250 1350 2400 1350
 1 0 50 -1 0 11 0.0000 2 165 465 2250 1425 T$_3$\001
+1 0 50 -1 0 11 0.0000 2 195 465 2250 1425 T$_3$\001
 -6
 1275 1800 1875 2100
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 1800 1725 1800 1725 2100 1425 2100 1425 1800
 1 0 50 -1 0 11 0.0000 2 165 495 1575 2025 H$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 495 1575 2025 H$_1$\001
 -6
 1725 1800 2325 2100
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 1800 2175 1800 2175 2100 1875 2100 1875 1800
 1 0 50 -1 0 11 0.0000 2 165 495 2025 2025 H$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 495 2025 2025 H$_2$\001
 -6
 2475 1800 2775 2100
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 1800 2775 1800 2775 2100 2475 2100 2475 1800
 1 0 50 -1 0 11 0.0000 2 120 135 2625 2025 G\001
+1 0 50 -1 0 11 0.0000 2 135 135 2625 2025 G\001
 -6
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1500 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1950 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1650 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 2025 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 2100 1800
 0 0 50 -1 0 11 0.0000 2 120 240 3075 2025 OS\001
 1 0 50 -1 0 11 0.0000 2 180 1260 2325 2025 $\\Leftrightarrow$\001
 1 0 50 -1 0 11 0.0000 2 180 1260 2925 2025 $\\Leftrightarrow$\001
+0 0 50 -1 0 11 0.0000 2 135 240 3075 2025 OS\001
+1 0 50 -1 0 11 0.0000 2 195 1320 2325 2025 $\\Leftrightarrow$\001
+1 0 50 -1 0 11 0.0000 2 195 1320 2925 2025 $\\Leftrightarrow$\001

doc/theses/mubeen_zulfiqar_MMath/figures/SingleHeap.fig

-              re5d9274
+              r015925a
 #FIG 3.2  Produced by xfig version 3.2.7b
+#FIG 3.2  Produced by xfig version 3.2.5
 Landscape
 Center
 Inches
 Letter
+Letter
 .00
 Single
 …
 1500 1200 2100 1500
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1800 1350 150 150 1800 1350 1950 1350
 1 0 50 -1 0 11 0.0000 2 165 465 1800 1425 T$_2$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1800 1425 T$_2$\001
 -6
 1050 1200 1650 1500
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 1350 1350 150 150 1350 1350 1500 1350
 1 0 50 -1 0 11 0.0000 2 165 465 1350 1425 T$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 465 1350 1425 T$_1$\001
 -6
 1950 1200 2550 1500
 3 0 1 0 7 50 -1 -1 0.000 1 0.0000 2250 1350 150 150 2250 1350 2400 1350
 1 0 50 -1 0 11 0.0000 2 165 465 2250 1425 T$_3$\001
+1 0 50 -1 0 11 0.0000 2 195 465 2250 1425 T$_3$\001
 -6
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1725 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1875 1800
 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5
 1800 1950 1800 1950 2100 1650 2100 1650 1800
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 1500 1800 1800
 1 0 50 -1 0 11 0.0000 2 165 495 1800 2025 H$_1$\001
 1 0 50 -1 0 11 0.0000 2 180 1260 2100 2025 $\\Leftrightarrow$\001
 0 0 50 -1 0 11 0.0000 2 120 240 2250 2025 OS\001
+1 0 50 -1 0 11 0.0000 2 195 495 1800 2025 H$_1$\001
+1 0 50 -1 0 11 0.0000 2 195 1320 2100 2025 $\\Leftrightarrow$\001
+0 0 50 -1 0 11 0.0000 2 135 240 2250 2025 OS\001

doc/theses/mubeen_zulfiqar_MMath/figures/UserKernelHeaps.fig

-              re5d9274
+              r015925a
 -6
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 2100 2025 2400
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 2100 2475 2400
 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 1 1 2
 1 1.00 45.00 90.00
 1 1.00 45.00 90.00
+0 1.00 45.00 90.00
+0 1.00 45.00 90.00
 2100 2925 2400
 1 0 50 -1 0 11 0.0000 2 135 2235 2475 1725 scheduled across kernel threads\001

doc/theses/mubeen_zulfiqar_MMath/intro.tex

-              re5d9274
+              r015925a
 When this allocator proves inadequate, programmers often write specialize allocators for specific needs.
 C and \CC allow easy replacement of the default memory allocator with an alternative specialized or general-purpose memory-allocator.
+Jikes RVM MMTk~\cite{MMTk} provides a similar generalization for the Java virtual machine.
+(Jikes RVM MMTk~\cite{MMTk} provides a similar generalization for the Java virtual machine.)
 However, high-performance memory-allocators for kernel and user multi-threaded programs are still being designed and improved.
 For this reason, several alternative general-purpose allocators have been written for C/\CC with the goal of scaling in a multi-threaded program~\cite{Berger00,mtmalloc,streamflow,tcmalloc}.
 …
 \begin{enumerate}[leftmargin=*]
 \item
+Implementation of a new stand-alone concurrent low-latency memory-allocator ($\approx$1,200 lines of code) for C/\CC programs using kernel threads (1:1 threading), and specialized versions of the allocator for the programming languages \uC and \CFA using user-level threads running over multiple kernel threads (M:N threading).
+Implementation of a new stand-lone concurrent low-latency memory-allocator ($\approx$1,200 lines of code) for C/\CC programs using kernel threads (1:1 threading), and specialized versions of the allocator for the programming languages \uC and \CFA using user-level threads running over multiple kernel threads (M:N threading).
+\item
+Adopt @nullptr@ return for a zero-sized allocation, rather than an actual memory address, which can be passed to @free@.
 \item
 …
 \item
 Provide additional heap wrapper functions in \CFA creating a more usable set of allocation operations and properties.
+Provide additional heap wrapper functions in \CFA creating an orthogonal set of allocation operations and properties.
 \item
 …
 \item
 @malloc_alignment( addr )@ returns the alignment of the allocation pointed-to by @addr@.
 If the allocation is not aligned or @addr@ is the @NULL@, the minimal alignment is returned.
+If the allocation is not aligned or @addr@ is the @nulladdr@, the minimal alignment is returned.
 \item
 @malloc_zero_fill( addr )@ returns a boolean result indicating if the memory pointed-to by @addr@ is allocated with zero fill, e.g., by @calloc@/@cmemalign@.
 …
 @malloc_usable_size( addr )@ returns the usable (total) size of the memory pointed-to by @addr@, i.e., the bin size containing the allocation, where @malloc_size( addr )@ $\le$ @malloc_usable_size( addr )@.
 \end{itemize}
+\item
+Provide mostly contention-free allocation and free operations via a heap-per-kernel-thread implementation.
 \item
 …
 \item
 Provide extensive runtime checks to validate allocation operations and identify the amount of unfreed storage at program termination.
+Provide extensive runtime checks to valid allocation operations and identify the amount of unfreed storage at program termination.
 \item

doc/theses/mubeen_zulfiqar_MMath/performance.tex

-              re5d9274
+              r015925a
 This chapter uses the micro-benchmarks from \VRef[Chapter]{s:Benchmarks} to test a number of current memory allocators, including llheap.
 The goal is to see if llheap is competitive with the currently popular memory allocators.
+The goal is to see if llheap is competitive with the current best memory allocators.
 …
 \begin{itemize}
 \item
+\textbf{Nasus} AMD EPYC 7662, 64-core socket $\times$ 2, 2.0 GHz, GCC version 9.3.0
+\item
 \textbf{Algol} Huawei ARM TaiShan 2280 V2 Kunpeng 920, 24-core socket $\times$ 4, 2.6 GHz, GCC version 9.4.0
-\item
-\textbf{Nasus} AMD EPYC 7662, 64-core socket $\times$ 2, 2.0 GHz, GCC version 9.3.0
 \end{itemize}
 …
 \paragraph{glibc (\textsf{glc})}
 \cite{glibc} is the default glibc thread-safe allocator.
+\cite{glibc} is the default gcc thread-safe allocator.
 \\
 \textbf{Version:} Ubuntu GLIBC 2.31-0ubuntu9.7 2.31\\
 …
 \paragraph{hoard (\textsf{hrd})}
 \cite{hoard} is a thread-safe allocator that is multi-threaded and uses a heap layer framework. It has per-thread heaps that have thread-local free-lists, and a global shared heap.
+\cite{hoard} is a thread-safe allocator that is multi-threaded and using a heap layer framework. It has per-thread heaps that have thread-local free-lists, and a global shared heap.
 \\
 \textbf{Version:} 3.13\\
 …
 \paragraph{tbb malloc (\textsf{tbb})}
 \cite{tbbmalloc} is a thread-safe allocator that is multi-threaded and uses a private heap for each thread.
+\cite{tbbmalloc} is a thread-safe allocator that is multi-threaded and uses private heap for each thread.
 Each private-heap has multiple bins of different sizes. Each bin contains free regions of the same size.
 \\
 …
 \section{Experiments}
 Each micro-benchmark is configured and run with each of the allocators,
 The less time an allocator takes to complete a benchmark the better so lower in the graphs is better, except for the Memory micro-benchmark graphs.
+The each micro-benchmark is configured and run with each of the allocators,
+The less time an allocator takes to complete a benchmark the better, so lower in the graphs is better.
 All graphs use log scale on the Y-axis, except for the Memory micro-benchmark (see \VRef{s:MemoryMicroBenchmark}).
 …
 Second is the low-performer group, which includes the rest of the memory allocators.
 These memory allocators have significant program-induced passive false-sharing, where \textsf{hrd}'s is the worst performing allocator.
+All of the allocators in this group are sharing heaps among threads at some level.
+Interestingly, allocators such as \textsf{hrd} and \textsf{glc} performed well in micro-benchmark cache thrash (see \VRef{sec:cache-thrash-perf}), but, these allocators are among the low performers in the cache scratch.
+It suggests these allocators do not actively produce false-sharing, but preserve program-induced passive false sharing.
+All of the allocator's in this group are sharing heaps among threads at some level.
+Interestingly, allocators such as \textsf{hrd} and \textsf{glc} performed well in micro-benchmark cache thrash (see \VRef{sec:cache-thrash-perf}).
+But, these allocators are among the low performers in the cache scratch.
+It suggests these allocators do not actively produce false-sharing but preserve program-induced passive false sharing.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

doc/theses/mubeen_zulfiqar_MMath/uw-ethesis-frontpgs.tex

-              re5d9274
+              r015925a
         \vspace*{1.0cm}
         {\Huge\bf High-Performance Concurrent Memory Allocation}
+        {\Huge\bf \CFA Memory Allocation}
         \vspace*{1.0cm}
 …
 % D E C L A R A T I O N   P A G E
 % -------------------------------
   % The following is a sample Declaration Page as provided by the GSO
+  % The following is a sample Delaration Page as provided by the GSO
   % December 13th, 2006.  It is designed for an electronic thesis.
  \begin{center}\textbf{Author's Declaration}\end{center}
 …
 The goal of this thesis is to build a low-latency memory allocator for both kernel and user multi-threaded systems, which is competitive with the best current memory allocators, while extending the feature set of existing and new allocator routines.
 A new llheap memory-allocator is created that achieves all of these goals, while maintaining and managing sticky allocation properties for zero-filled and aligned allocations without a performance loss.
+A new llheap memory-allocator is created that achieves all of these goals, while maintaining and managing sticky allocation properties for zero-fill and alignment allocations without a performance loss.
 Hence, it becomes possible to use @realloc@ frequently as a safe operation, rather than just occasionally, because it preserves sticky properties when enlarging storage requests.
 Furthermore, the ability to query sticky properties and information allows programmers to write safer programs, as it is possible to dynamically match allocation styles from unknown library routines that return allocations.
 The C allocation API is also extended with @resize@, advanced @realloc@, @aalloc@, @amemalign@, and @cmemalign@ so programmers do not make mistakes writing theses useful allocation operations.
 llheap is embedded into the \uC and \CFA runtime systems, both of which have user-level threading.
 The ability to use \CFA's advanced type-system (and possibly \CC's too) to combine advanced memory operations into one allocation routine using named arguments shows how far the allocation API can be pushed, which increases safety and greatly simplifies programmer's use of dynamic allocation.
+The ability to use \CFA's advanced type-system (and possibly \CC's too) to have one allocation routine with completely orthogonal sticky properties shows how far the allocation API can be pushed, which increases safety and greatly simplifies programmer's use of dynamic allocation.
 The llheap allocator also provides comprehensive statistics for all allocation operations, which are invaluable in understanding and debugging a program's dynamic behaviour.
 No other memory allocator examined in the thesis provides such comprehensive statistics gathering.
 As well, llheap provides a debugging mode where allocations are checked with internal pre/post conditions and invariants. It is extremely useful, especially for students.
+No other memory allocator examined in the thesis provides comprehensive statistics gathering.
+As well, llheap provides a debugging mode where allocations are checked, along with internal pre/post conditions and invariants, is extremely useful, especially for students.
 While not as powerful as the @valgrind@ interpreter, a large number of allocations mistakes are detected.
 Finally, contention-free statistics gathering and debugging have a low enough cost to be used in production code.
 A micro-benchmark test-suite is started for comparing allocators, rather than relying on a suite of arbitrary programs. It has been an interesting challenge.
+A micro-benchmark test-suite is started for comparing allocators, rather than relying on a suite of arbitrary programs, has been an interesting challenge.
 These micro-benchmarks have adjustment knobs to simulate allocation patterns hard-coded into arbitrary test programs.
 Existing memory allocators, glibc, dlmalloc, hoard, jemalloc, ptmalloc3, rpmalloc, tbmalloc, and the new allocator llheap are all compared using the new micro-benchmark test-suite.
+Existing memory allocators, glibc, dlmalloc, hoard, jemalloc, ptmalloc3, rpmalloc, tbmalloc and the new allocator llheap are all compared using the new micro-benchmark test-suite.
 \cleardoublepage
 …
 I would like to thank all the people who made this thesis possible.
 I would like to acknowledge Peter A. Buhr for his assistance and support throughout the process.
+I would like to acknowledge Peter A. Buhr for his assistance and support throughtout the process.
 It would have been impossible without him.
-I would like to acknowledge Gregor Richards and Trevor Brown for reading my thesis quickly and giving me great feedback on my work.
 Also, I would say thanks to my team members at PLG especially Thierry, Michael, and Andrew for their input.
-Finally, a special thank you to Huawei Canada for funding this work.
 \end{center}
 \cleardoublepage
 …
 % L I S T   O F   T A B L E S
 % ---------------------------
 % \addcontentsline{toc}{chapter}{List of Tables}
 % \listoftables
 % \cleardoublepage
 % \phantomsection               % allows hyperref to link to the correct page
+\addcontentsline{toc}{chapter}{List of Tables}
+\listoftables
+\cleardoublepage
+\phantomsection         % allows hyperref to link to the correct page
 % Change page numbering back to Arabic numerals

doc/theses/mubeen_zulfiqar_MMath/uw-ethesis.tex

re5d9274	r015925a
106	106	pdffitwindow=false, % window fit to page when opened
107	107	pdfstartview={FitH}, % fits the width of the page to the window
108		pdftitle={~~High-Performance Concurrent~~ Memory Allocation}, % title: CHANGE THIS TEXT!
	108	pdftitle={Cforall Memory Allocation}, % title: CHANGE THIS TEXT!
109	109	pdfauthor={Mubeen Zulfiqar}, % author: CHANGE THIS TEXT! and uncomment this line
110	110	pdfsubject={Cforall}, % subject: CHANGE THIS TEXT! and uncomment this line

doc/theses/thierry_delisle_PhD/thesis/Makefile

-              re5d9274
+              r015925a
 Build = build
 Figures = img
+LaTMac = ../../../LaTeXmacros
+BibRep = ../../../bibliography
+Macros = ${LaTMac}
+TeXLIB = .:${Macros}:${Build}:${BibRep}:
+Macros = ../../../LaTeXmacros
+TeXLIB = .:${Macros}:${Build}:../../../bibliography:
 LaTeX  = TEXINPUTS=${TeXLIB} && export TEXINPUTS && latex -halt-on-error -output-directory=${Build}
 BibTeX = BIBINPUTS=${TeXLIB} && export BIBINPUTS && bibtex
 …
         emptytree \
         fairness \
-        idle \
-        idle1 \
-        idle2 \
-        idle_state \
         io_uring \
         pivot_ring \
 …
         cycle \
         result.cycle.jax.ops \
-        result.yield.jax.ops \
-        result.churn.jax.ops \
-        result.cycle.jax.ns \
-        result.yield.jax.ns \
-        result.churn.jax.ns \
-        result.cycle.low.jax.ops \
-        result.yield.low.jax.ops \
-        result.churn.low.jax.ops \
-        result.cycle.low.jax.ns \
-        result.yield.low.jax.ns \
-        result.churn.low.jax.ns \
-        result.memcd.updt.qps \
-        result.memcd.updt.lat \
-        result.memcd.rate.qps \
-        result.memcd.rate.99th \
+}
 …
 ## Define the documents that need to be made.
 all: thesis.pdf
 thesis.pdf: ${TEXTS} ${FIGURES} ${PICTURES} thesis.tex glossary.tex local.bib ${LaTMac}/common.tex ${LaTMac}/common.sty ${BibRep}/pl.bib
+thesis.pdf: ${TEXTS} ${FIGURES} ${PICTURES} thesis.tex glossary.tex local.bib ../../../LaTeXmacros/common.tex ../../../LaTeXmacros/common.sty
 DOCUMENT = thesis.pdf
 …
         python3 $< $@
+cycle_jax_ops_FLAGS = --MaxY=120000000
+cycle_low_jax_ops_FLAGS = --MaxY=120000000
+cycle_jax_ns_FLAGS = --MaxY=2000
+cycle_low_jax_ns_FLAGS = --MaxY=2000
+build/result.%.ns.svg : data/% | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "ns per ops"
+yield_jax_ops_FLAGS = --MaxY=150000000
+yield_low_jax_ops_FLAGS = --MaxY=150000000
+yield_jax_ns_FLAGS = --MaxY=1500
+yield_low_jax_ns_FLAGS = --MaxY=1500
+build/result.%.ns.svg : data/% Makefile | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "ns per ops/procs" $($(subst .,_,$*)_ns_FLAGS)
+build/result.%.ops.svg : data/% Makefile | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "Ops per second" $($(subst .,_,$*)_ops_FLAGS)
+build/result.memcd.updt.qps.svg : data/memcd.updt Makefile | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "Actual QPS" -x "Update Ratio"
+build/result.memcd.updt.lat.svg : data/memcd.updt Makefile | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "Average Read Latency" -x "Update Ratio"
+build/result.memcd.rate.qps.svg : data/memcd.rate Makefile | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "Actual QPS" -x "Target QPS"
+build/result.memcd.rate.99th.svg : data/memcd.rate Makefile | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "Tail Read Latency" -x "Target QPS"
+build/result.%.ops.svg : data/% | ${Build}
+        ../../../../benchmark/plot.py -f $< -o $@ -y "Ops per second"
 ## pstex with inverted colors

doc/theses/thierry_delisle_PhD/thesis/data/cycle.jax

re5d9274	r015925a
1		[["rdq-cycle-go", "./rdq-cycle-go -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10001.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 1138076440.0, "Ops per second": 113792094.48, "ns per ops": 8.79, "Ops per threads": 94839.0, "Ops per procs": 47419851.0, "Ops/sec/procs": 4741337.27, "ns per ops/procs": 210.91}],["rdq-cycle-go", "./rdq-cycle-go -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 200285.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 17638575791.0, "Ops per second": 88067238.72, "ns per ops": 11.35, "Ops per threads": 2204821.0, "Ops per procs": 1102410986.0, "Ops/sec/procs": 5504202.42, "ns per ops/procs": 181.68}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10100.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 54856916.0, "Ops per second": 5485691.0, "ns per ops": 184.0, "Ops per threads": 109713.0, "Ops per procs": 54856916.0, "Ops/sec/procs": 5485691.0, "ns per ops/procs": 184.0}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10025.449006, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 558836360.0, "Total blocks": 558836360.0, "Ops per second": 55741778.71, "ns per ops": 17.94, "Ops per threads": 69854.0, "Ops per procs": 34927272.0, "Ops/sec/procs": 3483861.17, "ns per ops/procs": 287.04}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10038.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 58647049.0, "Total blocks": 58647049.0, "Ops per second": 5842287.68, "ns per ops": 171.17, "Ops per threads": 7330.0, "Ops per procs": 3665440.0, "Ops/sec/procs": 365142.98, "ns per ops/procs": 2738.65}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10003.489711, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 728096996.0, "Total blocks": 728096996.0, "Ops per second": 72784299.98, "ns per ops": 13.74, "Ops per threads": 60674.0, "Ops per procs": 30337374.0, "Ops/sec/procs": 3032679.17, "ns per ops/procs": 329.74}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10021.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 63157049.0, "Total blocks": 63157049.0, "Ops per second": 6302255.13, "ns per ops": 158.67, "Ops per threads": 15789.0, "Ops per procs": 7894631.0, "Ops/sec/procs": 787781.89, "ns per ops/procs": 1269.39}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10009.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 62412200.0, "Total blocks": 62411700.0, "Ops per second": 6235572.31, "ns per ops": 160.37, "Ops per threads": 124824.0, "Ops per procs": 62412200.0, "Ops/sec/procs": 6235572.31, "ns per ops/procs": 160.37}],["rdq-cycle-go", "./rdq-cycle-go -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10000.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 464608617.0, "Ops per second": 46457191.42, "ns per ops": 21.53, "Ops per threads": 116152.0, "Ops per procs": 58076077.0, "Ops/sec/procs": 5807148.93, "ns per ops/procs": 172.2}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10099.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 391521066.0, "Ops per second": 39152106.0, "ns per ops": 25.0, "Ops per threads": 97880.0, "Ops per procs": 48940133.0, "Ops/sec/procs": 4894013.0, "ns per ops/procs": 206.0}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10099.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 963549550.0, "Ops per second": 96354955.0, "ns per ops": 10.0, "Ops per threads": 80295.0, "Ops per procs": 40147897.0, "Ops/sec/procs": 4014789.0, "ns per ops/procs": 251.0}],["rdq-cycle-go", "./rdq-cycle-go -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10001.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 867718190.0, "Ops per second": 86761170.55, "ns per ops": 11.53, "Ops per threads": 108464.0, "Ops per procs": 54232386.0, "Ops/sec/procs": 5422573.16, "ns per ops/procs": 184.41}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10100.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 962016289.0, "Ops per second": 96201628.0, "ns per ops": 10.0, "Ops per threads": 80168.0, "Ops per procs": 40084012.0, "Ops/sec/procs": 4008401.0, "ns per ops/procs": 251.0}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10016.837824, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 54738237.0, "Total blocks": 54737741.0, "Ops per second": 5464622.46, "ns per ops": 183.0, "Ops per threads": 109476.0, "Ops per procs": 54738237.0, "Ops/sec/procs": 5464622.46, "ns per ops/procs": 183.0}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10099.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 731309408.0, "Ops per second": 73130940.0, "ns per ops": 13.0, "Ops per threads": 91413.0, "Ops per procs": 45706838.0, "Ops/sec/procs": 4570683.0, "ns per ops/procs": 220.0}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10100.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 739772688.0, "Ops per second": 73977268.0, "ns per ops": 13.0, "Ops per threads": 92471.0, "Ops per procs": 46235793.0, "Ops/sec/procs": 4623579.0, "ns per ops/procs": 218.0}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10100.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 391449785.0, "Ops per second": 39144978.0, "ns per ops": 25.0, "Ops per threads": 97862.0, "Ops per procs": 48931223.0, "Ops/sec/procs": 4893122.0, "ns per ops/procs": 206.0}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10048.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 57239183.0, "Total blocks": 57239183.0, "Ops per second": 5696211.13, "ns per ops": 175.56, "Ops per threads": 4769.0, "Ops per procs": 2384965.0, "Ops/sec/procs": 237342.13, "ns per ops/procs": 4213.33}],["rdq-cycle-go", "./rdq-cycle-go -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10000.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 55248375.0, "Ops per second": 5524562.87, "ns per ops": 181.01, "Ops per threads": 110496.0, "Ops per procs": 55248375.0, "Ops/sec/procs": 5524562.87, "ns per ops/procs": 181.01}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10021.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 61553053.0, "Total blocks": 61553053.0, "Ops per second": 6142186.88, "ns per ops": 162.81, "Ops per threads": 15388.0, "Ops per procs": 7694131.0, "Ops/sec/procs": 767773.36, "ns per ops/procs": 1302.47}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10008.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 62811642.0, "Total blocks": 62811142.0, "Ops per second": 6275517.47, "ns per ops": 159.35, "Ops per threads": 125623.0, "Ops per procs": 62811642.0, "Ops/sec/procs": 6275517.47, "ns per ops/procs": 159.35}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10018.820873, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 260866706.0, "Total blocks": 260862710.0, "Ops per second": 26037665.44, "ns per ops": 38.41, "Ops per threads": 65216.0, "Ops per procs": 32608338.0, "Ops/sec/procs": 3254708.18, "ns per ops/procs": 307.25}],["rdq-cycle-go", "./rdq-cycle-go -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10000.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 874581175.0, "Ops per second": 87449851.2, "ns per ops": 11.44, "Ops per threads": 109322.0, "Ops per procs": 54661323.0, "Ops/sec/procs": 5465615.7, "ns per ops/procs": 182.96}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10099.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 55228782.0, "Ops per second": 5522878.0, "ns per ops": 182.0, "Ops per threads": 110457.0, "Ops per procs": 55228782.0, "Ops/sec/procs": 5522878.0, "ns per ops/procs": 182.0}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10009.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 62564955.0, "Total blocks": 62564455.0, "Ops per second": 6250797.96, "ns per ops": 159.98, "Ops per threads": 125129.0, "Ops per procs": 62564955.0, "Ops/sec/procs": 6250797.96, "ns per ops/procs": 159.98}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10100.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 738848909.0, "Ops per second": 73884890.0, "ns per ops": 13.0, "Ops per threads": 92356.0, "Ops per procs": 46178056.0, "Ops/sec/procs": 4617805.0, "ns per ops/procs": 218.0}],["rdq-cycle-go", "./rdq-cycle-go -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10001.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 1131221613.0, "Ops per second": 113108175.94, "ns per ops": 8.84, "Ops per threads": 94268.0, "Ops per procs": 47134233.0, "Ops/sec/procs": 4712840.66, "ns per ops/procs": 212.19}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10008.209159, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 729328104.0, "Total blocks": 729328099.0, "Ops per second": 72872987.81, "ns per ops": 13.72, "Ops per threads": 60777.0, "Ops per procs": 30388671.0, "Ops/sec/procs": 3036374.49, "ns per ops/procs": 329.34}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10099.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 961002611.0, "Ops per second": 96100261.0, "ns per ops": 10.0, "Ops per threads": 80083.0, "Ops per procs": 40041775.0, "Ops/sec/procs": 4004177.0, "ns per ops/procs": 252.0}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10099.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 390098231.0, "Ops per second": 39009823.0, "ns per ops": 25.0, "Ops per threads": 97524.0, "Ops per procs": 48762278.0, "Ops/sec/procs": 4876227.0, "ns per ops/procs": 207.0}],["rdq-cycle-tokio", "./rdq-cycle-tokio -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10100.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 55237591.0, "Ops per second": 5523759.0, "ns per ops": 182.0, "Ops per threads": 110475.0, "Ops per procs": 55237591.0, "Ops/sec/procs": 5523759.0, "ns per ops/procs": 182.0}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10016.576699, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 54510321.0, "Total blocks": 54509820.0, "Ops per second": 5442011.04, "ns per ops": 183.76, "Ops per threads": 109020.0, "Ops per procs": 54510321.0, "Ops/sec/procs": 5442011.04, "ns per ops/procs": 183.76}],["rdq-cycle-go", "./rdq-cycle-go -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10001.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 1135730371.0, "Ops per second": 113558509.97, "ns per ops": 8.81, "Ops per threads": 94644.0, "Ops per procs": 47322098.0, "Ops/sec/procs": 4731604.58, "ns per ops/procs": 211.34}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10039.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 61004037.0, "Total blocks": 61004037.0, "Ops per second": 6076255.04, "ns per ops": 164.58, "Ops per threads": 7625.0, "Ops per procs": 3812752.0, "Ops/sec/procs": 379765.94, "ns per ops/procs": 2633.2}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10004.891999, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 747946345.0, "Total blocks": 747934349.0, "Ops per second": 74758062.86, "ns per ops": 13.38, "Ops per threads": 62328.0, "Ops per procs": 31164431.0, "Ops/sec/procs": 3114919.29, "ns per ops/procs": 321.04}],["rdq-cycle-go", "./rdq-cycle-go -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10000.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 466424792.0, "Ops per second": 46638931.23, "ns per ops": 21.44, "Ops per threads": 116606.0, "Ops per procs": 58303099.0, "Ops/sec/procs": 5829866.4, "ns per ops/procs": 171.53}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10086.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 57343570.0, "Total blocks": 57343570.0, "Ops per second": 5685308.81, "ns per ops": 175.89, "Ops per threads": 4778.0, "Ops per procs": 2389315.0, "Ops/sec/procs": 236887.87, "ns per ops/procs": 4221.41}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10020.39533, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 263517289.0, "Total blocks": 263513293.0, "Ops per second": 26298093.07, "ns per ops": 38.03, "Ops per threads": 65879.0, "Ops per procs": 32939661.0, "Ops/sec/procs": 3287261.63, "ns per ops/procs": 304.2}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10025.357431, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 551670395.0, "Total blocks": 551662399.0, "Ops per second": 55027503.89, "ns per ops": 18.17, "Ops per threads": 68958.0, "Ops per procs": 34479399.0, "Ops/sec/procs": 3439218.99, "ns per ops/procs": 290.76}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 24 -d 10 -r 5 -t 2400", {"Duration (ms)": 10050.0, "Number of processors": 24.0, "Number of threads": 12000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 56162695.0, "Total blocks": 56162695.0, "Ops per second": 5588033.65, "ns per ops": 178.95, "Ops per threads": 4680.0, "Ops per procs": 2340112.0, "Ops/sec/procs": 232834.74, "ns per ops/procs": 4294.89}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10019.690183, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 271866976.0, "Total blocks": 271862980.0, "Ops per second": 27133271.69, "ns per ops": 36.86, "Ops per threads": 67966.0, "Ops per procs": 33983372.0, "Ops/sec/procs": 3391658.96, "ns per ops/procs": 294.84}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10057.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 62105022.0, "Total blocks": 62105022.0, "Ops per second": 6175186.04, "ns per ops": 161.94, "Ops per threads": 15526.0, "Ops per procs": 7763127.0, "Ops/sec/procs": 771898.25, "ns per ops/procs": 1295.51}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10025.81217, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 537080117.0, "Total blocks": 537072121.0, "Ops per second": 53569736.59, "ns per ops": 18.67, "Ops per threads": 67135.0, "Ops per procs": 33567507.0, "Ops/sec/procs": 3348108.54, "ns per ops/procs": 298.68}],["rdq-cycle-go", "./rdq-cycle-go -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10000.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 55967030.0, "Ops per second": 5596438.25, "ns per ops": 178.69, "Ops per threads": 111934.0, "Ops per procs": 55967030.0, "Ops/sec/procs": 5596438.25, "ns per ops/procs": 178.69}],["rdq-cycle-go", "./rdq-cycle-go -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10000.0, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 55703320.0, "Ops per second": 5570084.72, "ns per ops": 179.53, "Ops per threads": 111406.0, "Ops per procs": 55703320.0, "Ops/sec/procs": 5570084.72, "ns per ops/procs": 179.53}],["rdq-cycle-go", "./rdq-cycle-go -p 8 -d 10 -r 5 -t 800", {"Duration (ms)": 10000.0, "Number of processors": 8.0, "Number of threads": 4000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 469211793.0, "Ops per second": 46918327.16, "ns per ops": 21.31, "Ops per threads": 117302.0, "Ops per procs": 58651474.0, "Ops/sec/procs": 5864790.9, "ns per ops/procs": 170.51}],["rdq-cycle-cfa", "./rdq-cycle-cfa -p 1 -d 10 -r 5 -t 100", {"Duration (ms)": 10016.545208, "Number of processors": 1.0, "Number of threads": 500.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 54925472.0, "Total blocks": 54924976.0, "Ops per second": 5483474.68, "ns per ops": 182.37, "Ops per threads": 109850.0, "Ops per procs": 54925472.0, "Ops/sec/procs": 5483474.68, "ns per ops/procs": 182.37}],["rdq-cycle-fibre", "./rdq-cycle-fibre -p 16 -d 10 -r 5 -t 1600", {"Duration (ms)": 10037.0, "Number of processors": 16.0, "Number of threads": 8000.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 60770550.0, "Total blocks": 60770550.0, "Ops per second": 6054474.7, "ns per ops": 165.17, "Ops per threads": 7596.0, "Ops per procs": 3798159.0, "Ops/sec/procs": 378404.67, "ns per ops/procs": 2642.67}]]
	1	[["rdq-cycle-go", "./rdq-cycle-go -t 4 -p 4 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 4.0, "Number of threads": 20.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 43606897.0, "Ops per second": 8720908.73, "ns per ops": 114.67, "Ops per threads": 2180344.0, "Ops per procs": 10901724.0, "Ops/sec/procs": 2180227.18, "ns per ops/procs": 458.67}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 16 -p 16 -d 5 -r 5", {"Duration (ms)": 5010.922033, "Number of processors": 16.0, "Number of threads": 80.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 93993568.0, "Total blocks": 93993209.0, "Ops per second": 18757739.07, "ns per ops": 53.31, "Ops per threads": 1174919.0, "Ops per procs": 5874598.0, "Ops/sec/procs": 1172358.69, "ns per ops/procs": 852.98}],["rdq-cycle-go", "./rdq-cycle-go -t 16 -p 16 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 16.0, "Number of threads": 80.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 136763517.0, "Ops per second": 27351079.35, "ns per ops": 36.56, "Ops per threads": 1709543.0, "Ops per procs": 8547719.0, "Ops/sec/procs": 1709442.46, "ns per ops/procs": 584.99}],["rdq-cycle-go", "./rdq-cycle-go -t 1 -p 1 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 1.0, "Number of threads": 5.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 27778961.0, "Ops per second": 5555545.09, "ns per ops": 180.0, "Ops per threads": 5555792.0, "Ops per procs": 27778961.0, "Ops/sec/procs": 5555545.09, "ns per ops/procs": 180.0}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 4 -p 4 -d 5 -r 5", {"Duration (ms)": 5009.290878, "Number of processors": 4.0, "Number of threads": 20.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 43976310.0, "Total blocks": 43976217.0, "Ops per second": 8778949.17, "ns per ops": 113.91, "Ops per threads": 2198815.0, "Ops per procs": 10994077.0, "Ops/sec/procs": 2194737.29, "ns per ops/procs": 455.64}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 4 -p 4 -d 5 -r 5", {"Duration (ms)": 5009.151542, "Number of processors": 4.0, "Number of threads": 20.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 44132300.0, "Total blocks": 44132201.0, "Ops per second": 8810334.37, "ns per ops": 113.5, "Ops per threads": 2206615.0, "Ops per procs": 11033075.0, "Ops/sec/procs": 2202583.59, "ns per ops/procs": 454.01}],["rdq-cycle-go", "./rdq-cycle-go -t 4 -p 4 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 4.0, "Number of threads": 20.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 46353896.0, "Ops per second": 9270294.11, "ns per ops": 107.87, "Ops per threads": 2317694.0, "Ops per procs": 11588474.0, "Ops/sec/procs": 2317573.53, "ns per ops/procs": 431.49}],["rdq-cycle-go", "./rdq-cycle-go -t 1 -p 1 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 1.0, "Number of threads": 5.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 27894379.0, "Ops per second": 5578591.58, "ns per ops": 179.26, "Ops per threads": 5578875.0, "Ops per procs": 27894379.0, "Ops/sec/procs": 5578591.58, "ns per ops/procs": 179.26}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 1 -p 1 -d 5 -r 5", {"Duration (ms)": 5008.743463, "Number of processors": 1.0, "Number of threads": 5.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 32825528.0, "Total blocks": 32825527.0, "Ops per second": 6553645.29, "ns per ops": 152.59, "Ops per threads": 6565105.0, "Ops per procs": 32825528.0, "Ops/sec/procs": 6553645.29, "ns per ops/procs": 152.59}],["rdq-cycle-go", "./rdq-cycle-go -t 16 -p 16 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 16.0, "Number of threads": 80.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 138213098.0, "Ops per second": 27640977.5, "ns per ops": 36.18, "Ops per threads": 1727663.0, "Ops per procs": 8638318.0, "Ops/sec/procs": 1727561.09, "ns per ops/procs": 578.85}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 4 -p 4 -d 5 -r 5", {"Duration (ms)": 5007.914168, "Number of processors": 4.0, "Number of threads": 20.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 44109513.0, "Total blocks": 44109419.0, "Ops per second": 8807961.06, "ns per ops": 113.53, "Ops per threads": 2205475.0, "Ops per procs": 11027378.0, "Ops/sec/procs": 2201990.27, "ns per ops/procs": 454.13}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 16 -p 16 -d 5 -r 5", {"Duration (ms)": 5012.121876, "Number of processors": 16.0, "Number of threads": 80.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 94130673.0, "Total blocks": 94130291.0, "Ops per second": 18780603.37, "ns per ops": 53.25, "Ops per threads": 1176633.0, "Ops per procs": 5883167.0, "Ops/sec/procs": 1173787.71, "ns per ops/procs": 851.94}],["rdq-cycle-go", "./rdq-cycle-go -t 16 -p 16 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 16.0, "Number of threads": 80.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 140936367.0, "Ops per second": 28185668.38, "ns per ops": 35.48, "Ops per threads": 1761704.0, "Ops per procs": 8808522.0, "Ops/sec/procs": 1761604.27, "ns per ops/procs": 567.66}],["rdq-cycle-go", "./rdq-cycle-go -t 4 -p 4 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 4.0, "Number of threads": 20.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 44279585.0, "Ops per second": 8855475.01, "ns per ops": 112.92, "Ops per threads": 2213979.0, "Ops per procs": 11069896.0, "Ops/sec/procs": 2213868.75, "ns per ops/procs": 451.7}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 1 -p 1 -d 5 -r 5", {"Duration (ms)": 5008.37392, "Number of processors": 1.0, "Number of threads": 5.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 32227534.0, "Total blocks": 32227533.0, "Ops per second": 6434730.02, "ns per ops": 155.41, "Ops per threads": 6445506.0, "Ops per procs": 32227534.0, "Ops/sec/procs": 6434730.02, "ns per ops/procs": 155.41}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 16 -p 16 -d 5 -r 5", {"Duration (ms)": 5011.019789, "Number of processors": 16.0, "Number of threads": 80.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 90600569.0, "Total blocks": 90600173.0, "Ops per second": 18080265.66, "ns per ops": 55.31, "Ops per threads": 1132507.0, "Ops per procs": 5662535.0, "Ops/sec/procs": 1130016.6, "ns per ops/procs": 884.94}],["rdq-cycle-cfa", "./rdq-cycle-cfa -t 1 -p 1 -d 5 -r 5", {"Duration (ms)": 5008.52474, "Number of processors": 1.0, "Number of threads": 5.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 32861776.0, "Total blocks": 32861775.0, "Ops per second": 6561168.75, "ns per ops": 152.41, "Ops per threads": 6572355.0, "Ops per procs": 32861776.0, "Ops/sec/procs": 6561168.75, "ns per ops/procs": 152.41}],["rdq-cycle-go", "./rdq-cycle-go -t 1 -p 1 -d 5 -r 5", {"Duration (ms)": 5000.0, "Number of processors": 1.0, "Number of threads": 5.0, "Cycle size (# thrds)": 5.0, "Total Operations(ops)": 28097680.0, "Ops per second": 5619274.9, "ns per ops": 177.96, "Ops per threads": 5619536.0, "Ops per procs": 28097680.0, "Ops/sec/procs": 5619274.9, "ns per ops/procs": 177.96}]]

doc/theses/thierry_delisle_PhD/thesis/local.bib

-              re5d9274
+              r015925a
   note = "[Online; accessed 12-April-2022]"
+}
-% RMR notes :
-% [05/04, 12:36] Trevor Brown
-%     i don't know where rmr complexity was first introduced, but there are many many many papers that use the term and define it
-% [05/04, 12:37] Trevor Brown
-%     here's one paper that uses the term a lot and links to many others that use it... might trace it to something useful there https://drops.dagstuhl.de/opus/volltexte/2021/14832/pdf/LIPIcs-DISC-2021-30.pdf
-% [05/04, 12:37] Trevor Brown
-%     another option might be to cite a textbook
-% [05/04, 12:42] Trevor Brown
-%     but i checked two textbooks in the area i'm aware of and i don't see a definition of rmr complexity in either
-% [05/04, 12:42] Trevor Brown
-%     this one has a nice statement about the prevelance of rmr complexity, as well as some rough definition
-% [05/04, 12:42] Trevor Brown
-%     https://dl.acm.org/doi/pdf/10.1145/3465084.3467938
-% Race to idle notes :
-% [13/04, 16:56] Martin Karsten
-%       I don't have a citation. Google brings up this one, which might be good:
+%
-% https://doi.org/10.1137/1.9781611973099.100

doc/theses/thierry_delisle_PhD/thesis/text/eval_macro.tex

-              re5d9274
+              r015925a
 Networked ZIPF
-Nginx : 5Gb still good, 4Gb starts to suffer
-Cforall : 10Gb too high, 4 Gb too low
 \section{Memcached}
+\subsection{Benchmark Environment}
+These experiments are run on a cluster of homogenous Supermicro SYS-6017R-TDF compute nodes with the following characteristics:
+The server runs Ubuntu 20.04.3 LTS on top of Linux Kernel 5.11.0-34.
+Each node has 2 Intel(R) Xeon(R) CPU E5-2620 v2 running at 2.10GHz.
+These CPUs have 6 cores per CPUs and 2 \glspl{hthrd} per core, for a total of 24 \glspl{hthrd}.
+The cpus each have 384 KB, 3 MB and 30 MB of L1, L2 and L3 caches respectively.
+Each node is connected to the network through a Mellanox 10 Gigabit Ethernet port.
+The network route uses 1 Mellanox SX1012 10/40 Gigabit Ethernet cluster switch.
+In Memory
+\begin{figure}
+        \centering
+        \input{result.memcd.updt.qps.pstex_t}
+        \caption[Churn Benchmark : Throughput on Intel]{Churn Benchmark : Throughput on Intel\smallskip\newline Description}
+        \label{fig:memcd:updt:qps}
+\end{figure}
+\begin{figure}
+        \centering
+        \input{result.memcd.updt.lat.pstex_t}
+        \caption[Churn Benchmark : Throughput on Intel]{Churn Benchmark : Throughput on Intel\smallskip\newline Description}
+        \label{fig:memcd:updt:lat}
+\end{figure}
+\begin{figure}
+        \centering
+        \input{result.memcd.rate.qps.pstex_t}
+        \caption[Churn Benchmark : Throughput on Intel]{Churn Benchmark : Throughput on Intel\smallskip\newline Description}
+        \label{fig:memcd:rate:qps}
+\end{figure}
+\begin{figure}
+        \centering
+        \input{result.memcd.rate.99th.pstex_t}
+        \caption[Churn Benchmark : Throughput on Intel]{Churn Benchmark : Throughput on Intel\smallskip\newline Description}
+        \label{fig:memcd:rate:tail}
+\end{figure}
+Networked

doc/theses/thierry_delisle_PhD/thesis/text/eval_micro.tex

-              re5d9274
+              r015925a
 \section{Benchmark Environment}
 All of these benchmarks are run on two distinct hardware environment, an AMD and an INTEL machine.
-For all benchmarks, \texttt{taskset} is used to limit the experiment to 1 NUMA Node with no hyper threading.
-If more \glspl{hthrd} are needed, then 1 NUMA Node with hyperthreading is used.
-If still more \glspl{hthrd} are needed then the experiment is limited to as few NUMA Nodes as needed.
 \paragraph{AMD} The AMD machine is a server with two AMD EPYC 7662 CPUs and 256GB of DDR4 RAM.
 …
 \section{Cycling latency}
-\begin{figure}
-        \centering
-        \input{cycle.pstex_t}
-        \caption[Cycle benchmark]{Cycle benchmark\smallskip\newline Each \gls{at} unparks the next \gls{at} in the cycle before parking itself.}
-        \label{fig:cycle}
-\end{figure}
 The most basic evaluation of any ready queue is to evaluate the latency needed to push and pop one element from the ready-queue.
 Since these two operation also describe a \texttt{yield} operation, many systems use this as the most basic benchmark.
 …
 Note that this problem is only present on SMP machines and is significantly mitigated by the fact that there are multiple rings in the system.
+\begin{figure}
+        \centering
+        \input{cycle.pstex_t}
+        \caption[Cycle benchmark]{Cycle benchmark\smallskip\newline Each \gls{at} unparks the next \gls{at} in the cycle before parking itself.}
+        \label{fig:cycle}
+\end{figure}
 To avoid this benchmark from being dominated by the idle sleep handling, the number of rings is kept at least as high as the number of \glspl{proc} available.
 Beyond this point, adding more rings serves to mitigate even more the idle sleep handling.
 …
 The actual benchmark is more complicated to handle termination, but that simply requires using a binary semphore or a channel instead of raw \texttt{park}/\texttt{unpark} and carefully picking the order of the \texttt{P} and \texttt{V} with respect to the loop condition.
+Figure~\ref{fig:cycle:code} shows pseudo code for this benchmark.
+\begin{lstlisting}
+        Thread.main() {
+                count := 0
+                for {
+                        wait()
+                        this.next.wake()
+                        count ++
+                        if must_stop() { break }
+                }
+                global.count += count
+        }
+\end{lstlisting}
 \begin{figure}
+        \begin{lstlisting}
+                Thread.main() {
+                        count := 0
+                        for {
+                                wait()
+                                this.next.wake()
+                                count ++
+                                if must_stop() { break }
+                        }
+                        global.count += count
+                }
+        \end{lstlisting}
+        \caption[Cycle Benchmark : Pseudo Code]{Cycle Benchmark : Pseudo Code}
+        \label{fig:cycle:code}
+        \centering
+        \input{result.cycle.jax.ops.pstex_t}
+        \vspace*{-10pt}
+        \label{fig:cycle:ns:jax}
 \end{figure}
-\subsection{Results}
-\begin{figure}
-        \subfloat[][Throughput, 100 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.cycle.jax.ops.pstex_t}
+                }
-                \label{fig:cycle:jax:ops}
+        }
-        \subfloat[][Throughput, 1 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.cycle.low.jax.ops.pstex_t}
+                }
-                \label{fig:cycle:jax:low:ops}
+        }
-        \subfloat[][Latency, 100 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.cycle.jax.ns.pstex_t}
+                }
+        }
-        \subfloat[][Latency, 1 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.cycle.low.jax.ns.pstex_t}
+                }
-                \label{fig:cycle:jax:low:ns}
+        }
-        \caption[Cycle Benchmark on Intel]{Cycle Benchmark on Intel\smallskip\newline Throughput as a function of \proc count, using 100 cycles per \proc, 5 \ats per cycle.}
-        \label{fig:cycle:jax}
-\end{figure}
-Figure~\ref{fig:cycle:jax} shows the throughput as a function of \proc count, with the following constants:
-Each run uses 100 cycles per \proc, 5 \ats per cycle.
-\todo{results discussion}
 \section{Yield}
 …
 Its only interesting variable is the number of \glspl{at} per \glspl{proc}, where ratios close to 1 means the ready queue(s) could be empty.
 This sometimes puts more strain on the idle sleep handling, compared to scenarios where there is clearly plenty of work to be done.
-Figure~\ref{fig:yield:code} shows pseudo code for this benchmark, the ``wait/wake-next'' is simply replaced by a yield.
+\begin{figure}
+        \begin{lstlisting}
+                Thread.main() {
+                        count := 0
+                        for {
+                                yield()
+                                count ++
+                                if must_stop() { break }
+                        }
+                        global.count += count
+\todo{code, setup, results}
+\begin{lstlisting}
+        Thread.main() {
+                count := 0
+                while !stop {
+                        yield()
+                        count ++
+                }
+        \end{lstlisting}
+        \caption[Yield Benchmark : Pseudo Code]{Yield Benchmark : Pseudo Code}
+        \label{fig:yield:code}
+\end{figure}
+\subsection{Results}
+\begin{figure}
+        \subfloat[][Throughput, 100 \ats per \proc]{
+                \resizebox{0.5\linewidth}{!}{
+                        \input{result.yield.jax.ops.pstex_t}
+                }
+                \label{fig:yield:jax:ops}
+                global.count += count
+        }
+        \subfloat[][Throughput, 1 \ats per \proc]{
+                \resizebox{0.5\linewidth}{!}{
+                \input{result.yield.low.jax.ops.pstex_t}
+                }
+                \label{fig:yield:jax:low:ops}
+        }
+        \subfloat[][Latency, 100 \ats per \proc]{
+                \resizebox{0.5\linewidth}{!}{
+                \input{result.yield.jax.ns.pstex_t}
+                }
+                \label{fig:yield:jax:ns}
+        }
+        \subfloat[][Latency, 1 \ats per \proc]{
+                \resizebox{0.5\linewidth}{!}{
+                \input{result.yield.low.jax.ns.pstex_t}
+                }
+                \label{fig:yield:jax:low:ns}
+        }
+        \caption[Yield Benchmark on Intel]{Yield Benchmark on Intel\smallskip\newline Throughput as a function of \proc count, using 1 \ats per \proc.}
+        \label{fig:yield:jax}
+\end{figure}
+Figure~\ref{fig:yield:ops:jax} shows the throughput as a function of \proc count, with the following constants:
+Each run uses 100 \ats per \proc.
+\todo{results discussion}
+\end{lstlisting}
 …
 In either case, this benchmark aims to highlight how each scheduler handles these cases, since both cases can lead to performance degradation if they are not handled correctly.
+To achieve this the benchmark uses a fixed size array of semaphores.
+Each \gls{at} picks a random semaphore, \texttt{V}s it to unblock a \at waiting and then \texttt{P}s on the semaphore.
+This creates a flow where \glspl{at} push each other out of the semaphores before being pushed out themselves.
+For this benchmark to work however, the number of \glspl{at} must be equal or greater to the number of semaphores plus the number of \glspl{proc}.
+Note that the nature of these semaphores mean the counter can go beyond 1, which could lead to calls to \texttt{P} not blocking.
+To achieve this the benchmark uses a fixed size array of \newterm{chair}s, where a chair is a data structure that holds a single blocked \gls{at}.
+When a \gls{at} attempts to block on the chair, it must first unblocked the \gls{at} currently blocked on said chair, if any.
+This creates a flow where \glspl{at} push each other out of the chairs before being pushed out themselves.
+For this benchmark to work however, the number of \glspl{at} must be equal or greater to the number of chairs plus the number of \glspl{proc}.
 \todo{code, setup, results}
 …
                 for {
                         r := random() % len(spots)
+                        spots[r].V()
+                        spots[r].P()
+                        next := xchg(spots[r], this)
+                        if next { next.wake() }
+                        wait()
                         count ++
                         if must_stop() { break }
 …
+        }
 \end{lstlisting}
-\begin{figure}
-        \subfloat[][Throughput, 100 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.churn.jax.ops.pstex_t}
+                }
-                \label{fig:churn:jax:ops}
+        }
-        \subfloat[][Throughput, 1 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.churn.low.jax.ops.pstex_t}
+                }
-                \label{fig:churn:jax:low:ops}
+        }
-        \subfloat[][Latency, 100 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.churn.jax.ns.pstex_t}
+                }
+        }
-        \subfloat[][Latency, 1 \ats per \proc]{
-                \resizebox{0.5\linewidth}{!}{
-                        \input{result.churn.low.jax.ns.pstex_t}
+                }
-                \label{fig:churn:jax:low:ns}
+        }
-        \caption[Churn Benchmark on Intel]{\centering Churn Benchmark on Intel\smallskip\newline Throughput and latency of the Churn on the benchmark on the Intel machine. Throughput is the total operation per second across all cores. Latency is the duration of each opeartion.}
-        \label{fig:churn:jax}
-\end{figure}
 \section{Locality}

doc/theses/thierry_delisle_PhD/thesis/text/intro.tex

-              re5d9274
+              r015925a
 \todo{A proper intro}
 The C programming language~\cite{C11}
+The C programming language\cit{C}
+The \CFA programming language~\cite{cfa:frontpage,cfa:typesystem} extends the C programming language by adding modern safety and productivity features, while maintaining backwards compatibility. Among its productivity features, \CFA supports user-level threading~\cite{Delisle21} allowing programmers to write modern concurrent and parallel programs.
+My previous master's thesis on concurrent in \CFA focused on features and interfaces.
+This Ph.D.\ thesis focuses on performance, introducing \glsxtrshort{api} changes only when required by performance considerations. Specifically, this work concentrates on scheduling and \glsxtrshort{io}. Prior to this work, the \CFA runtime used a strict \glsxtrshort{fifo} \gls{rQ} and  no non-blocking I/O capabilities at the user-thread level.
+The \CFA programming language\cite{cfa:frontpage,cfa:typesystem} which extends the C programming language to add modern safety and productiviy features while maintaining backwards compatibility. Among it's productiviy features, \CFA introduces support for threading\cit{CFA Concurrency}, to allow programmers to write modern concurrent and parallel programming.
+While previous work on the concurrent package of \CFA focused on features and interfaces, this thesis focuses on performance, introducing \glsxtrshort{api} changes only when required by performance considerations. More specifically, this thesis concentrates on scheduling and \glsxtrshort{io}. Prior to this work, the \CFA runtime used a strictly \glsxtrshort{fifo} \gls{rQ}.
 As a research project, this work builds exclusively on newer versions of the Linux operating-system and gcc/clang compilers. While \CFA is released, supporting older versions of Linux ($<$~Ubuntu 16.04) and gcc/clang compilers ($<$~gcc 6.0) is not a goal of this work.
+This work exclusively concentrates on Linux as it's operating system since the existing \CFA runtime and compiler does not already support other operating systems. Furthermore, as \CFA is yet to be released, supporting version of Linux older than the latest version is not a goal of this work.

doc/theses/thierry_delisle_PhD/thesis/text/practice.tex

-              re5d9274
+              r015925a
 More precise \CFA supports adding \procs using the RAII object @processor@.
 These objects can be created at any time and can be destroyed at any time.
 They are normally created as automatic stack variables, but this is not a requirement.
+They are normally create as automatic stack variables, but this is not a requirement.
 The consequence is that the scheduler and \io subsystems must support \procs comming in and out of existence.
 \section{Manual Resizing}
+Manual resizing is expected to be a rare operation.
+Programmers are mostly expected to resize clusters on startup or teardown.
+Therefore dynamically changing the number of \procs is an appropriate moment to allocate or free resources to match the new state.
+As such all internal arrays that are sized based on the number of \procs need to be \texttt{realloc}ed.
+This also means that any references into these arrays, pointers or indexes, may need to be fixed when shrinking\footnote{Indexes may still need fixing when shrinkingbecause some indexes are expected to refer to dense contiguous resources and there is no guarantee the resource being removed has the highest index.}.
+The consequence of dynamically changing the number of \procs is that all internal arrays that are sized based on the number of \procs neede to be \texttt{realloc}ed.
+This also means that any references into these arrays, pointers or indexes, may need to be fixed when shrinking\footnote{Indexes may still need fixing because there is no guarantee the \proc causing the shrink had the highest index. Therefore indexes need to be reassigned to preserve contiguous indexes.}.
 There are no performance requirements, within reason, for resizing since it is expected to be rare.
+There are no performance requirements, within reason, for resizing since this is usually considered as part of setup and teardown.
 However, this operation has strict correctness requirements since shrinking and idle sleep can easily lead to deadlocks.
 It should also avoid as much as possible any effect on performance when the number of \procs remain constant.
 This later requirement prohibits naive solutions, like simply adding a global lock to the ready-queue arrays.
+This later requirement prehibits simple solutions, like simply adding a global lock to these arrays.
 \subsection{Read-Copy-Update}
 …
 In this pattern, resizing is done by creating a copy of the internal data strucures, updating the copy with the desired changes, and then attempt an Idiana Jones Switch to replace the original witht the copy.
 This approach potentially has the advantage that it may not need any synchronization to do the switch.
+However, there is a race where \procs could still use the previous, original, data structure after the copy was switched in.
+This race not only requires some added memory reclamation scheme, it also requires that operations made on the stale original version be eventually moved to the copy.
+The switch definitely implies a race where \procs could still use the previous, original, data structure after the copy was switched in.
+The important question then becomes whether or not this race can be recovered from.
+If the changes that arrived late can be transferred from the original to the copy then this solution works.
+For linked-lists, enqueing is only somewhat problematic, \ats enqueued to the original queues need to be transferred to the new, which might not preserve ordering.
+Dequeing is more challenging.
+For linked-lists, dequeing is somewhat of a problem.
 Dequeing from the original will not necessarily update the copy which could lead to multiple \procs dequeing the same \at.
 Fixing this requires more synchronization or more indirection on the queues.
+Fixing this requires making the array contain pointers to subqueues rather than the subqueues themselves.
 Another challenge is that the original must be kept until all \procs have witnessed the change.
 …
 In addition to users manually changing the number of \procs, it is desireable to support ``removing'' \procs when there is not enough \ats for all the \procs to be useful.
 While manual resizing is expected to be rare, the number of \ats is expected to vary much more which means \procs may need to be ``removed'' for only short periods of time.
 Furthermore, race conditions that spuriously lead to the impression that no \ats are ready are actually common in practice.
 Therefore resources associated with \procs should not be freed but \procs simply put into an idle state where the \gls{kthrd} is blocked until more \ats become ready.
+Furthermore, race conditions that spuriously lead to the impression no \ats are ready are actually common in practice.
+Therefore \procs should not be actually \emph{removed} but simply put into an idle state where the \gls{kthrd} is blocked until more \ats become ready.
 This state is referred to as \newterm{Idle-Sleep}.
 …
 The \CFA scheduler simply follows the ``Race-to-Idle'\cit{https://doi.org/10.1137/1.9781611973099.100}' approach where a sleeping \proc is woken any time an \at becomes ready and \procs go to idle sleep anytime they run out of work.
-\section{Sleeping}
-As usual, the corner-stone of any feature related to the kernel is the choice of system call.
-In terms of blocking a \gls{kthrd} until some event occurs the linux kernel has many available options:
-\paragraph{\texttt{pthread\_mutex}/\texttt{pthread\_cond}}
-The most classic option is to use some combination of \texttt{pthread\_mutex} and \texttt{pthread\_cond}.
-These serve as straight forward mutual exclusion and synchronization tools and allow a \gls{kthrd} to wait on a \texttt{pthread\_cond} until signalled.
-While this approach is generally perfectly appropriate for \glspl{kthrd} waiting after eachother, \io operations do not signal \texttt{pthread\_cond}s.
-For \io results to wake a \proc waiting on a \texttt{pthread\_cond} means that a different \glspl{kthrd} must be woken up first, and then the \proc can be signalled.
-\subsection{\texttt{io\_uring} and Epoll}
-An alternative is to flip the problem on its head and block waiting for \io, using \texttt{io\_uring} or even \texttt{epoll}.
-This creates the inverse situation, where \io operations directly wake sleeping \procs but waking \proc from a running \gls{kthrd} must use an indirect scheme.
-This generally takes the form of creating a file descriptor, \eg, a dummy file, a pipe or an event fd, and using that file descriptor when \procs need to wake eachother.
-This leads to additional complexity because there can be a race between these artificial \io operations and genuine \io operations.
-If not handled correctly, this can lead to the artificial files going out of sync.
-\subsection{Event FDs}
-Another interesting approach is to use an event file descriptor\cit{eventfd}.
-This is a Linux feature that is a file descriptor that behaves like \io, \ie, uses \texttt{read} and \texttt{write}, but also behaves like a semaphore.
-Indeed, all read and writes must use 64bits large values\footnote{On 64-bit Linux, a 32-bit Linux would use 32 bits values.}.
-Writes add their values to the buffer, that is arithmetic addition and not buffer append, and reads zero out the buffer and return the buffer values so far\footnote{This is without the \texttt{EFD\_SEMAPHORE} flag. This flags changes the behavior of \texttt{read} but is not needed for this work.}.
-If a read is made while the buffer is already 0, the read blocks until a non-0 value is added.
-What makes this feature particularly interesting is that \texttt{io\_uring} supports the \texttt{IORING\_REGISTER\_EVENTFD} command, to register an event fd to a particular instance.
-Once that instance is registered, any \io completion will result in \texttt{io\_uring} writing to the event FD.
-This means that a \proc waiting on the event FD can be \emph{directly} woken up by either other \procs or incomming \io.
-\begin{figure}
-        \centering
-        \input{idle1.pstex_t}
-        \caption[Basic Idle Sleep Data Structure]{Basic Idle Sleep Data Structure \smallskip\newline Each idle \proc is put unto a doubly-linked stack protected by a lock.
-        Each \proc has a private event FD.}
-        \label{fig:idle1}
-\end{figure}
 \section{Tracking Sleepers}
 Tracking which \procs are in idle sleep requires a data structure holding all the sleeping \procs, but more importantly it requires a concurrent \emph{handshake} so that no \at is stranded on a ready-queue with no active \proc.
 The classic challenge is when a \at is made ready while a \proc is going to sleep, there is a race where the new \at may not see the sleeping \proc and the sleeping \proc may not see the ready \at.
-Since \ats can be made ready by timers, \io operations or other events outside a clusre, this race can occur even if the \proc going to sleep is the only \proc awake.
-As a result, improper handling of this race can lead to all \procs going to sleep and the system deadlocking.
+Furthermore, the ``Race-to-Idle'' approach means that there may be contention on the data structure tracking sleepers.
+Contention slowing down \procs attempting to sleep or wake-up can be tolerated.
+These \procs are not doing useful work and therefore not contributing to overall performance.
+However, notifying, checking if a \proc must be woken-up and doing so if needed, can significantly affect overall performance and must be low cost.
+Furthermore, the ``Race-to-Idle'' approach means that there is some
+\subsection{Sleepers List}
+Each cluster maintains a list of idle \procs, organized as a stack.
+This ordering hopefully allows \proc at the tail to stay in idle sleep for extended period of times.
+Because of these unbalanced performance requirements, the algorithm tracking sleepers is designed to have idle \proc handle as much of the work as possible.
+The idle \procs maintain the of sleepers among themselves and notifying a sleeping \proc takes as little work as possible.
+This approach means that maintaining the list is fairly straightforward.
+The list can simply use a single lock per cluster and only \procs that are getting in and out of idle state will contend for that lock.
+\section{Sleeping}
+This approach also simplifies notification.
+Indeed, \procs need to be notify when a new \at is readied, but they also must be notified during resizing, so the \gls{kthrd} can be joined.
+This means that whichever entity removes idle \procs from the sleeper list must be able to do so in any order.
+Using a simple lock over this data structure makes the removal much simpler than using a lock-free data structure.
+The notification process then simply needs to wake-up the desired idle \proc, using \texttt{pthread\_cond\_signal}, \texttt{write} on an fd, etc., and the \proc will handle the rest.
+\subsection{Event FDs}
+\subsection{Reducing Latency}
+As mentioned in this section, \procs going idle for extremely short periods of time is likely in certain common scenarios.
+Therefore, the latency of doing a system call to read from and writing to the event fd can actually negatively affect overall performance in a notable way.
+Is it important to reduce latency and contention of the notification as much as possible.
+Figure~\ref{fig:idle1} shoes the basic idle sleep data structure.
+For the notifiers, this data structure can cause contention on the lock and the event fd syscall can cause notable latency.
+\subsection{Epoll}
+\begin{figure}
+        \centering
+        \input{idle2.pstex_t}
+        \caption[Improved Idle Sleep Data Structure]{Improved Idle Sleep Data Structure \smallskip\newline An atomic pointer is added to the list, pointing to the Event FD of the first \proc on the list.}
+        \label{fig:idle2}
+\end{figure}
+\subsection{\texttt{io\_uring}}
+The contention is mostly due to the lock on the list needing to be held to get to the head \proc.
+That lock can be contended by \procs attempting to go to sleep, \procs waking or notification attempts.
+The contentention from the \procs attempting to go to sleep can be mitigated slightly by using \texttt{try\_acquire} instead, so the \procs simply continue searching for \ats if the lock is held.
+This trick cannot be used for waking \procs since they are not in a state where they can run \ats.
+However, it is worth nothing that notification does not strictly require accessing the list or the head \proc.
+Therefore, contention can be reduced notably by having notifiers avoid the lock entirely and adding a pointer to the event fd of the first idle \proc, as in Figure~\ref{fig:idle2}.
+To avoid contention between the notifiers, instead of simply reading the atomic pointer, notifiers atomically exchange it to \texttt{null} so only only notifier will contend on the system call.
+\begin{figure}
+        \centering
+        \input{idle_state.pstex_t}
+        \caption[Improved Idle Sleep Data Structure]{Improved Idle Sleep Data Structure \smallskip\newline An atomic pointer is added to the list, pointing to the Event FD of the first \proc on the list.}
+        \label{fig:idle:state}
+\end{figure}
+The next optimization that can be done is to avoid the latency of the event fd when possible.
+This can be done by adding what is effectively a benaphore\cit{benaphore} in front of the event fd.
+A simple three state flag is added beside the event fd to avoid unnecessary system calls, as shown in Figure~\ref{fig:idle:state}.
+The flag starts in state \texttt{SEARCH}, while the \proc is searching for \ats to run.
+The \proc then confirms the sleep by atomically swaping the state to \texttt{SLEEP}.
+If the previous state was still \texttt{SEARCH}, then the \proc does read the event fd.
+Meanwhile, notifiers atomically exchange the state to \texttt{AWAKE} state.
+if the previous state was \texttt{SLEEP}, then the notifier must write to the event fd.
+However, if the notify arrives almost immediately after the \proc marks itself idle, then both reads and writes on the event fd can be omitted, which reduces latency notably.
+This leads to the final data structure shown in Figure~\ref{fig:idle}.
+\begin{figure}
+        \centering
+        \input{idle.pstex_t}
+        \caption[Low-latency Idle Sleep Data Structure]{Low-latency Idle Sleep Data Structure \smallskip\newline Each idle \proc is put unto a doubly-linked stack protected by a lock.
+        Each \proc has a private event FD with a benaphore in front of it.
+        The list also has an atomic pointer to the event fd and benaphore of the first \proc on the list.}
+        \label{fig:idle}
+\end{figure}
+\section{Reducing Latency}

doc/theses/thierry_delisle_PhD/thesis/thesis.tex

-              re5d9274
+              r015925a
 %\usepackage{nomencl} % For a nomenclature (optional; available from ctan.org)
 \usepackage{amsmath,amssymb,amstext} % Lots of math symbols and environments
 \usepackage[dvipsnames]{xcolor}
+\usepackage{xcolor}
 \usepackage{graphicx} % For including graphics
-\usepackage{subcaption}
 % Hyperlinks make it very easy to navigate an electronic document.
 …
         colorlinks=true,        % false: boxed links; true: colored links
         linkcolor=blue,         % color of internal links
         citecolor=OliveGreen,   % color of links to bibliography
+        citecolor=green,        % color of links to bibliography
         filecolor=magenta,      % color of file links
         urlcolor=cyan           % color of external links
 …
 \newcommand\at{\gls{at}\xspace}%
 \newcommand\ats{\glspl{at}\xspace}%
-\newcommand\Proc{\Pls{proc}\xspace}%
 \newcommand\proc{\gls{proc}\xspace}%
 \newcommand\procs{\glspl{proc}\xspace}%

libcfa/src/Makefile.am

-              re5d9274
+              r015925a
 # The built sources must not depend on the installed inst_headers_src
 AM_CFAFLAGS = -quiet -cfalib -I$(srcdir)/stdhdr -I$(srcdir)/concurrency $(if $(findstring ${gdbwaittarget}, ${@}), -XCFA --gdb) @CONFIG_CFAFLAGS@
 AM_CFLAGS = -g -Wall -Werror=return-type -Wno-unused-function -fPIC -fexceptions -fvisibility=hidden -pthread @ARCH_FLAGS@ @CONFIG_CFLAGS@
+AM_CFLAGS = -g -Wall -Werror=return-type -Wno-unused-function -fPIC -fexceptions -pthread @ARCH_FLAGS@ @CONFIG_CFLAGS@
 AM_CCASFLAGS = -g -Wall -Werror=return-type -Wno-unused-function @ARCH_FLAGS@ @CONFIG_CFLAGS@
 CFACC = @CFACC@
 …
 prelude.o : prelude.cfa extras.cf gcc-builtins.cf builtins.cf @LOCAL_CFACC@ @CFACPP@
         ${AM_V_GEN}$(CFACOMPILE) -quiet -XCFA,-l ${<} -c -fvisibility=default -o ${@}
+        ${AM_V_GEN}$(CFACOMPILE) -quiet -XCFA,-l ${<} -c -o ${@}
 prelude.lo: prelude.cfa extras.cf gcc-builtins.cf builtins.cf @LOCAL_CFACC@ @CFACPP@
         ${AM_V_GEN}$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile \
         $(CFACOMPILE) -quiet -XCFA,-l ${<} -c -fvisibility=default -o ${@}
+        $(CFACOMPILE) -quiet -XCFA,-l ${<} -c -o ${@}
 concurrency/io/call.cfa: $(srcdir)/concurrency/io/call.cfa.in

libcfa/src/algorithms/range_iterator.cfa

-              re5d9274
+              r015925a
 #include <fstream.hfa>
+#include "bits/defs.hfa"
+void main(RangeIter & this) libcfa_public {
+void main(RangeIter & this) {
         for() {
                 this._start = -1;

libcfa/src/assert.cfa

-              re5d9274
+              r015925a
 #include <unistd.h>                                                             // STDERR_FILENO
 #include "bits/debug.hfa"
-#include "bits/defs.hfa"
 extern "C" {
 …
         // called by macro assert in assert.h
+        // would be cool to remove libcfa_public but it's needed for libcfathread
+        void __assert_fail( const char assertion[], const char file[], unsigned int line, const char function[] ) libcfa_public {
+        void __assert_fail( const char assertion[], const char file[], unsigned int line, const char function[] ) {
                 __cfaabi_bits_print_safe( STDERR_FILENO, CFA_ASSERT_FMT ".\n", assertion, __progname, function, line, file );
                 abort();
 …
         // called by macro assertf
+        // would be cool to remove libcfa_public but it's needed for libcfathread
+        void __assert_fail_f( const char assertion[], const char file[], unsigned int line, const char function[], const char fmt[], ... ) libcfa_public {
+        void __assert_fail_f( const char assertion[], const char file[], unsigned int line, const char function[], const char fmt[], ... ) {
                 __cfaabi_bits_acquire();
                 __cfaabi_bits_print_nolock( STDERR_FILENO, CFA_ASSERT_FMT ": ", assertion, __progname, function, line, file );

libcfa/src/bits/debug.cfa

-              re5d9274
+              r015925a
 #include <unistd.h>
-#include "bits/defs.hfa"
 enum { buffer_size = 4096 };
 static char buffer[ buffer_size ];
 extern "C" {
+        // would be cool to remove libcfa_public but it's needed for libcfathread
+        void __cfaabi_bits_write( int fd, const char in_buffer[], int len ) libcfa_public {
+        void __cfaabi_bits_write( int fd, const char in_buffer[], int len ) {
                 // ensure all data is written
                 for ( int count = 0, retcode; count < len; count += retcode ) {
 …
         void __cfaabi_bits_release() __attribute__((__weak__)) {}
+        // would be cool to remove libcfa_public but it's needed for libcfathread
+        int __cfaabi_bits_print_safe  ( int fd, const char fmt[], ... ) __attribute__(( format(printf, 2, 3) )) libcfa_public {
+        int __cfaabi_bits_print_safe  ( int fd, const char fmt[], ... ) __attribute__(( format(printf, 2, 3) )) {
                 va_list args;

libcfa/src/bits/defs.hfa

re5d9274	r015925a
36	36	#define __cfa_dlink(x) struct { struct x * next; struct x * back; } __dlink_substitute
37	37	#endif
38
39		~~#define libcfa_public __attribute__((visibility("default")))~~
40	38
41	39	#ifdef __cforall

libcfa/src/bits/weakso_locks.cfa

re5d9274	r015925a
18	18	#include "bits/weakso_locks.hfa"
19	19
20		~~#pragma GCC visibility push(default)~~
21
22	20	void ?{}( blocking_lock &, bool, bool ) {}
23	21	void ^?{}( blocking_lock & ) {}

libcfa/src/common.cfa

re5d9274	r015925a
18	18	#include <stdlib.h> // div_t, *div
19	19
20		~~#pragma GCC visibility push(default)~~
21
22	20	//---------------------------------------
23	21

libcfa/src/concurrency/alarm.cfa

re5d9274	r015925a
141	141	//=============================================================================================
142	142
143		void sleep( Duration duration ) ~~libcfa_public~~ {
	143	void sleep( Duration duration ) {
144	144	alarm_node_t node = { active_thread(), duration, 0`s };
145	145

libcfa/src/concurrency/clib/cfathread.cfa

-              re5d9274
+              r015925a
 typedef ThreadCancelled(cfathread_object) cfathread_exception;
 typedef vtable(ThreadCancelled(cfathread_object)) cfathread_vtable;
+typedef ThreadCancelled_vtable(cfathread_object) cfathread_vtable;
 void defaultResumptionHandler(ThreadCancelled(cfathread_object) & except) {
 …
 typedef ThreadCancelled(__cfainit) __cfainit_exception;
 typedef vtable(ThreadCancelled(__cfainit)) __cfainit_vtable;
+typedef ThreadCancelled_vtable(__cfainit) __cfainit_vtable;
 void defaultResumptionHandler(ThreadCancelled(__cfainit) & except) {
 …
+}
-#pragma GCC visibility push(default)
 //================================================================================
 // Main Api
 extern "C" {
         int cfathread_cluster_create(cfathread_cluster_t * cl) __attribute__((nonnull(1))) libcfa_public {
+        int cfathread_cluster_create(cfathread_cluster_t * cl) __attribute__((nonnull(1))) {
                 *cl = new();
                 return 0;
+        }
         cfathread_cluster_t cfathread_cluster_self(void) libcfa_public {
+        cfathread_cluster_t cfathread_cluster_self(void) {
                 return active_cluster();
+        }
         int cfathread_cluster_print_stats( cfathread_cluster_t cl ) libcfa_public {
+        int cfathread_cluster_print_stats( cfathread_cluster_t cl ) {
                 #if !defined(__CFA_NO_STATISTICS__)
                         print_stats_at_exit( *cl, CFA_STATS_READY_Q | CFA_STATS_IO );

libcfa/src/concurrency/coroutine.cfa

-              re5d9274
+              r015925a
 //-----------------------------------------------------------------------------
 forall(T &)
 void copy(CoroutineCancelled(T) * dst, CoroutineCancelled(T) * src) libcfa_public {
+void copy(CoroutineCancelled(T) * dst, CoroutineCancelled(T) * src) {
         dst->virtual_table = src->virtual_table;
         dst->the_coroutine = src->the_coroutine;
 …
 forall(T &)
 const char * msg(CoroutineCancelled(T) *) libcfa_public {
+const char * msg(CoroutineCancelled(T) *) {
         return "CoroutineCancelled(...)";
+}
 …
 forall(T & | is_coroutine(T))
 void __cfaehm_cancelled_coroutine(
                 T & cor, coroutine$ * desc, EHM_DEFAULT_VTABLE(CoroutineCancelled(T)) ) libcfa_public {
+                T & cor, coroutine$ * desc, EHM_DEFAULT_VTABLE(CoroutineCancelled, (T)) ) {
         verify( desc->cancellation );
         desc->state = Cancelled;
 …
 void __stack_prepare( __stack_info_t * this, size_t create_size );
 static void __stack_clean  ( __stack_info_t * this );
+void __stack_clean  ( __stack_info_t * this );
 //-----------------------------------------------------------------------------
 …
+}
 void ?{}( coroutine$ & this, const char name[], void * storage, size_t storageSize ) libcfa_public with( this ) {
+void ?{}( coroutine$ & this, const char name[], void * storage, size_t storageSize ) with( this ) {
         (this.context){0p, 0p};
         (this.stack){storage, storageSize};
 …
+}
 void ^?{}(coroutine$& this) libcfa_public {
+void ^?{}(coroutine$& this) {
         if(this.state != Halted && this.state != Start && this.state != Primed) {
                 coroutine$ * src = active_coroutine();
 …
 // Part of the Public API
 // Not inline since only ever called once per coroutine
 forall(T & | is_coroutine(T) | { EHM_DEFAULT_VTABLE(CoroutineCancelled(T)); })
 void prime(T& cor) libcfa_public {
+forall(T & | is_coroutine(T) | { EHM_DEFAULT_VTABLE(CoroutineCancelled, (T)); })
+void prime(T& cor) {
         coroutine$* this = get_coroutine(cor);
         assert(this->state == Start);
 …
+}
 static [void *, size_t] __stack_alloc( size_t storageSize ) {
+[void *, size_t] __stack_alloc( size_t storageSize ) {
         const size_t stack_data_size = libCeiling( sizeof(__stack_t), 16 ); // minimum alignment
         assert(__page_size != 0l);
 …
+}
 static void __stack_clean  ( __stack_info_t * this ) {
+void __stack_clean  ( __stack_info_t * this ) {
         void * storage = this->storage->limit;
 …
+}
 void __stack_prepare( __stack_info_t * this, size_t create_size ) libcfa_public {
+void __stack_prepare( __stack_info_t * this, size_t create_size ) {
         const size_t stack_data_size = libCeiling( sizeof(__stack_t), 16 ); // minimum alignment
         bool userStack;

libcfa/src/concurrency/coroutine.hfa

-              re5d9274
+              r015925a
 //-----------------------------------------------------------------------------
 // Exception thrown from resume when a coroutine stack is cancelled.
+forall(coroutine_t &)
+exception CoroutineCancelled {
+EHM_FORALL_EXCEPTION(CoroutineCancelled, (coroutine_t &), (coroutine_t)) (
         coroutine_t * the_coroutine;
         exception_t * the_exception;
 };
+);
 forall(T &)
 …
 // Anything that implements this trait can be resumed.
 // Anything that is resumed is a coroutine.
 trait is_coroutine(T & | IS_RESUMPTION_EXCEPTION(CoroutineCancelled(T))) {
+trait is_coroutine(T & | IS_RESUMPTION_EXCEPTION(CoroutineCancelled, (T))) {
         void main(T & this);
         coroutine$ * get_coroutine(T & this);
 …
 //-----------------------------------------------------------------------------
 // Public coroutine API
 forall(T & | is_coroutine(T) | { EHM_DEFAULT_VTABLE(CoroutineCancelled(T)); })
+forall(T & | is_coroutine(T) | { EHM_DEFAULT_VTABLE(CoroutineCancelled, (T)); })
 void prime(T & cor);
 …
 extern void __stack_prepare( __stack_info_t * this, size_t size /* ignored if storage already allocated */);
+extern void __stack_clean  ( __stack_info_t * this );
 // Suspend implementation inlined for performance
 …
 forall(T & | is_coroutine(T))
 void __cfaehm_cancelled_coroutine(
         T & cor, coroutine$ * desc, EHM_DEFAULT_VTABLE(CoroutineCancelled(T)) );
+        T & cor, coroutine$ * desc, EHM_DEFAULT_VTABLE(CoroutineCancelled, (T)) );
 // Resume implementation inlined for performance
 forall(T & | is_coroutine(T) | { EHM_DEFAULT_VTABLE(CoroutineCancelled(T)); })
+forall(T & | is_coroutine(T) | { EHM_DEFAULT_VTABLE(CoroutineCancelled, (T)); })
 static inline T & resume(T & cor) {
         // optimization : read TLS once and reuse it

libcfa/src/concurrency/exception.cfa

-              re5d9274
+              r015925a
 extern "C" {
 struct exception_context_t * this_exception_context(void) libcfa_public {
+struct exception_context_t * this_exception_context(void) {
         return &__get_stack( active_coroutine() )->exception_context;
+}
 _Unwind_Reason_Code __cfaehm_cancellation_unwind( struct _Unwind_Exception * unwind_exception ) libcfa_public {
+_Unwind_Reason_Code __cfaehm_cancellation_unwind( struct _Unwind_Exception * unwind_exception ) {
         _Unwind_Stop_Fn stop_func;
         void * stop_param;

libcfa/src/concurrency/invoke.c

-              re5d9274
+              r015925a
 extern void enable_interrupts( _Bool poll );
 libcfa_public void __cfactx_invoke_coroutine(
+void __cfactx_invoke_coroutine(
         void (*main)(void *),
         void *this
 …
+}
 libcfa_public void __cfactx_coroutine_unwind(struct _Unwind_Exception * storage, struct coroutine$ * cor) __attribute__ ((__noreturn__));
+void __cfactx_coroutine_unwind(struct _Unwind_Exception * storage, struct coroutine$ * cor) __attribute__ ((__noreturn__));
 void __cfactx_coroutine_unwind(struct _Unwind_Exception * storage, struct coroutine$ * cor) {
         _Unwind_Reason_Code ret = _Unwind_ForcedUnwind( storage, __cfactx_coroutine_unwindstop, cor );
 …
+}
 libcfa_public void __cfactx_invoke_thread(
+void __cfactx_invoke_thread(
         void (*main)(void *),
         void *this
 …
+}
 libcfa_public void __cfactx_start(
+void __cfactx_start(
         void (*main)(void *),
         struct coroutine$ * cor,

libcfa/src/concurrency/io.cfa

-              re5d9274
+              r015925a
                         const unsigned long long ctsc = rdtscl();
                         if(proc->io.target == UINT_MAX) {
+                        if(proc->io.target == MAX) {
                                 uint64_t chaos = __tls_rand();
                                 unsigned ext = chaos & 0xff;
 …
                         else {
                                 const unsigned target = proc->io.target;
                                 /* paranoid */ verify( io.tscs[target].tv != ULLONG_MAX );
+                                /* paranoid */ verify( io.tscs[target].tv != MAX );
                                 HELP: if(target < ctxs_count) {
                                         const unsigned long long cutoff = calc_cutoff(ctsc, ctx->cq.id, ctxs_count, io.data, io.tscs, __shard_factor.io);
 …
                                         __STATS__( true, io.calls.helped++; )
+                                }
                                 proc->io.target = UINT_MAX;
+                                proc->io.target = MAX;
+                        }
+                }
 …
         // for convenience, return both the index and the pointer to the sqe
         // sqe == &sqes[idx]
         struct $io_context * cfa_io_allocate(struct io_uring_sqe * sqes[], __u32 idxs[], __u32 want) libcfa_public {
+        struct $io_context * cfa_io_allocate(struct io_uring_sqe * sqes[], __u32 idxs[], __u32 want) {
                 // __cfadbg_print_safe(io, "Kernel I/O : attempting to allocate %u\n", want);
 …
+        }
         void cfa_io_submit( struct $io_context * inctx, __u32 idxs[], __u32 have, bool lazy ) __attribute__((nonnull (1))) libcfa_public {
+        void cfa_io_submit( struct $io_context * inctx, __u32 idxs[], __u32 have, bool lazy ) __attribute__((nonnull (1))) {
                 // __cfadbg_print_safe(io, "Kernel I/O : attempting to submit %u (%s)\n", have, lazy ? "lazy" : "eager");

libcfa/src/concurrency/io/call.cfa.in

re5d9274	r015925a
139	139	// I/O Interface
140	140	//=============================================================================================
141		~~#pragma GCC visibility push(default)~~
142	141	"""
143	142

libcfa/src/concurrency/io/setup.cfa

-              re5d9274
+              r015925a
 #if !defined(CFA_HAVE_LINUX_IO_URING_H)
         void ?{}(io_context_params & this) libcfa_public {}
+        void ?{}(io_context_params & this) {}
         void  ?{}($io_context & this, struct cluster & cl) {}
 …
 #pragma GCC diagnostic pop
         void ?{}(io_context_params & this) libcfa_public {
+        void ?{}(io_context_params & this) {
                 this.num_entries = 256;
+        }

libcfa/src/concurrency/io/types.hfa

-              re5d9274
+              r015925a
 #pragma once
-#include <limits.h>
 extern "C" {
         #include <linux/types.h>
 …
 #include "iofwd.hfa"
 #include "kernel/fwd.hfa"
+#include "limits.hfa"
 #if defined(CFA_HAVE_LINUX_IO_URING_H)
 …
                 const __u32 tail = *this->cq.tail;
                 if(head == tail) return ULLONG_MAX;
+                if(head == tail) return MAX;
                 return this->cq.ts;

libcfa/src/concurrency/kernel.cfa

-              re5d9274
+              r015925a
 // KERNEL_ONLY
 static void returnToKernel() {
+void returnToKernel() {
         /* paranoid */ verify( ! __preemption_enabled() );
         coroutine$ * proc_cor = get_coroutine(kernelTLS().this_processor->runner);
 …
+}
 void unpark( thread$ * thrd, unpark_hint hint ) libcfa_public {
+void unpark( thread$ * thrd, unpark_hint hint ) {
         if( !thrd ) return;
 …
+}
 void park( void ) libcfa_public {
+void park( void ) {
         __disable_interrupts_checked();
                 /* paranoid */ verify( kernelTLS().this_thread->preempted == __NO_PREEMPTION );
 …
 // KERNEL ONLY
 bool force_yield( __Preemption_Reason reason ) libcfa_public {
+bool force_yield( __Preemption_Reason reason ) {
         __disable_interrupts_checked();
                 thread$ * thrd = kernelTLS().this_thread;
 …
 //-----------------------------------------------------------------------------
 // Debug
 bool threading_enabled(void) __attribute__((const)) libcfa_public {
+bool threading_enabled(void) __attribute__((const)) {
         return true;
+}
 …
 // Statistics
 #if !defined(__CFA_NO_STATISTICS__)
         void print_halts( processor & this ) libcfa_public {
+        void print_halts( processor & this ) {
                 this.print_halts = true;
+        }
 …
+        }
         static void crawl_cluster_stats( cluster & this ) {
+        void crawl_cluster_stats( cluster & this ) {
                 // Stop the world, otherwise stats could get really messed-up
                 // this doesn't solve all problems but does solve many
 …
         void print_stats_now( cluster & this, int flags ) libcfa_public {
+        void print_stats_now( cluster & this, int flags ) {
                 crawl_cluster_stats( this );
                 __print_stats( this.stats, flags, "Cluster", this.name, (void*)&this );

libcfa/src/concurrency/kernel.hfa

-              re5d9274
+              r015925a
 // Coroutine used py processors for the 2-step context switch
+struct processorCtx_t {
+        struct coroutine$ self;
+coroutine processorCtx_t {
         struct processor * proc;
 };

libcfa/src/concurrency/kernel/cluster.cfa

-              re5d9274
+              r015925a
 // returns the maximum number of processors the RWLock support
 __attribute__((weak)) unsigned __max_processors() libcfa_public {
+__attribute__((weak)) unsigned __max_processors() {
         const char * max_cores_s = getenv("CFA_MAX_PROCESSORS");
         if(!max_cores_s) {
 …
                                         if(is_empty(sl)) {
                                                 assert( sl.anchor.next == 0p );
                                                 assert( sl.anchor.ts   == MAX );
+                                                assert( sl.anchor.ts   == -1llu );
                                                 assert( mock_head(sl)  == sl.prev );
                                         } else {
                                                 assert( sl.anchor.next != 0p );
                                                 assert( sl.anchor.ts   != MAX );
+                                                assert( sl.anchor.ts   != -1llu );
                                                 assert( mock_head(sl)  != sl.prev );
+                                        }
 …
                 /* paranoid */ verifyf( it, "Unexpected null iterator, at index %u of %u\n", i, count);
                 it->rdq.id = valrq;
                 it->rdq.target = UINT_MAX;
+                it->rdq.target = MAX;
                 valrq += __shard_factor.readyq;
                 #if defined(CFA_HAVE_LINUX_IO_URING_H)
                         it->io.ctx->cq.id = valio;
                         it->io.target = UINT_MAX;
+                        it->io.target = MAX;
                         valio += __shard_factor.io;
                 #endif
 …
         this.prev = mock_head(this);
         this.anchor.next = 0p;
         this.anchor.ts   = MAX;
+        this.anchor.ts   = -1llu;
         #if !defined(__CFA_NO_STATISTICS__)
                 this.cnt  = 0;
 …
         /* paranoid */ verify( &mock_head(this)->link.ts   == &this.anchor.ts   );
         /* paranoid */ verify( mock_head(this)->link.next == 0p );
         /* paranoid */ verify( mock_head(this)->link.ts   == MAX );
+        /* paranoid */ verify( mock_head(this)->link.ts   == -1llu  );
         /* paranoid */ verify( mock_head(this) == this.prev );
         /* paranoid */ verify( __alignof__(__intrusive_lane_t) == 128 );
 …
         // Make sure the list is empty
         /* paranoid */ verify( this.anchor.next == 0p );
         /* paranoid */ verify( this.anchor.ts   == MAX );
+        /* paranoid */ verify( this.anchor.ts   == -1llu );
         /* paranoid */ verify( mock_head(this)  == this.prev );
+}

libcfa/src/concurrency/kernel/cluster.hfa

-              re5d9274
+              r015925a
 #include "kernel/private.hfa"
 #include <limits.h>
+#include "limits.hfa"
 //-----------------------------------------------------------------------
 …
 static inline void touch_tsc(__timestamp_t * tscs, size_t idx, unsigned long long ts_prev, unsigned long long ts_next) {
         if (ts_next == ULLONG_MAX) return;
+        if (ts_next == MAX) return;
         unsigned long long now = rdtscl();
         unsigned long long pma = __atomic_load_n(&tscs[ idx ].ma, __ATOMIC_RELAXED);
 …
         for(i; shard_factor) {
                 unsigned long long ptsc = ts(data[start + i]);
                 if(ptsc != ULLONG_MAX) {
+                if(ptsc != -1ull) {
                         /* paranoid */ verify( start + i < count );
                         unsigned long long tsc = moving_average(ctsc, ptsc, tscs[start + i].ma);

libcfa/src/concurrency/kernel/private.hfa

-              re5d9274
+              r015925a
 //-----------------------------------------------------------------------------
 // Processor
+void main(processorCtx_t &);
+static inline coroutine$* get_coroutine(processorCtx_t & this) { return &this.self; }
+void main(processorCtx_t *);
 void * __create_pthread( pthread_t *, void * (*)(void *), void * );

libcfa/src/concurrency/kernel/startup.cfa

-              re5d9274
+              r015925a
 #endif
 cluster              * mainCluster libcfa_public;
+cluster              * mainCluster;
 processor            * mainProcessor;
 thread$              * mainThread;
 …
 };
 static void ?{}( current_stack_info_t & this ) {
+void ?{}( current_stack_info_t & this ) {
         __stack_context_t ctx;
         CtxGet( ctx );
 …
         // Construct the processor context of the main processor
         void ?{}(processorCtx_t & this, processor * proc) {
                 (this.self){ "Processor" };
                 this.self.starter = 0p;
+                (this.__cor){ "Processor" };
+                this.__cor.starter = 0p;
                 this.proc = proc;
+        }
 …
         self_mon_p = &self_mon;
         link.next = 0p;
         link.ts   = MAX;
+        link.ts   = -1llu;
         preferred = ready_queue_new_preferred();
         last_proc = 0p;
 …
 // Construct the processor context of non-main processors
 static void ?{}(processorCtx_t & this, processor * proc, current_stack_info_t * info) {
         (this.self){ info };
+        (this.__cor){ info };
         this.proc = proc;
+}
 …
+}
 void ?{}(processor & this, const char name[], cluster & _cltr, thread$ * initT) libcfa_public {
+void ?{}(processor & this, const char name[], cluster & _cltr, thread$ * initT) {
         ( this.terminated ){};
         ( this.runner ){};
 …
+}
 void ?{}(processor & this, const char name[], cluster & _cltr) libcfa_public {
+void ?{}(processor & this, const char name[], cluster & _cltr) {
         (this){name, _cltr, 0p};
+}
 extern size_t __page_size;
 void ^?{}(processor & this) libcfa_public with( this ) {
+void ^?{}(processor & this) with( this ){
         /* paranoid */ verify( !__atomic_load_n(&do_terminate, __ATOMIC_ACQUIRE) );
         __cfadbg_print_safe(runtime_core, "Kernel : core %p signaling termination\n", &this);
 …
+}
 void ?{}(cluster & this, const char name[], Duration preemption_rate, unsigned num_io, const io_context_params & io_params) libcfa_public with( this ) {
+void ?{}(cluster & this, const char name[], Duration preemption_rate, unsigned num_io, const io_context_params & io_params) with( this ) {
         this.name = name;
         this.preemption_rate = preemption_rate;
 …
+}
 void ^?{}(cluster & this) libcfa_public {
+void ^?{}(cluster & this) {
         destroy(this.io.arbiter);

libcfa/src/concurrency/locks.cfa

-              re5d9274
+              r015925a
 #include <stdlib.hfa>
-#pragma GCC visibility push(default)
 //-----------------------------------------------------------------------------
 // info_thread
 …
+}
 static void pop_and_set_new_owner( blocking_lock & this ) with( this ) {
+void pop_and_set_new_owner( blocking_lock & this ) with( this ) {
         thread$ * t = &try_pop_front( blocked_threads );
         owner = t;
 …
         void ^?{}( alarm_node_wrap(L) & this ) { }
         static void timeout_handler ( alarm_node_wrap(L) & this ) with( this ) {
+        void timeout_handler ( alarm_node_wrap(L) & this ) with( this ) {
                 // This condition_variable member is called from the kernel, and therefore, cannot block, but it can spin.
                 lock( cond->lock __cfaabi_dbg_ctx2 );
 …
         // this casts the alarm node to our wrapped type since we used type erasure
         static void alarm_node_wrap_cast( alarm_node_t & a ) { timeout_handler( (alarm_node_wrap(L) &)a ); }
+        void alarm_node_wrap_cast( alarm_node_t & a ) { timeout_handler( (alarm_node_wrap(L) &)a ); }
+}
 …
         void ^?{}( condition_variable(L) & this ){ }
         static void process_popped( condition_variable(L) & this, info_thread(L) & popped ) with( this ) {
+        void process_popped( condition_variable(L) & this, info_thread(L) & popped ) with( this ) {
                 if(&popped != 0p) {
                         popped.signalled = true;
 …
         int counter( condition_variable(L) & this ) with(this) { return count; }
         static size_t queue_and_get_recursion( condition_variable(L) & this, info_thread(L) * i ) with(this) {
+        size_t queue_and_get_recursion( condition_variable(L) & this, info_thread(L) * i ) with(this) {
                 // add info_thread to waiting queue
                 insert_last( blocked_threads, *i );
 …
         // helper for wait()'s' with no timeout
         static void queue_info_thread( condition_variable(L) & this, info_thread(L) & i ) with(this) {
+        void queue_info_thread( condition_variable(L) & this, info_thread(L) & i ) with(this) {
                 lock( lock __cfaabi_dbg_ctx2 );
                 size_t recursion_count = queue_and_get_recursion(this, &i);
 …
         // helper for wait()'s' with a timeout
         static void queue_info_thread_timeout( condition_variable(L) & this, info_thread(L) & info, Duration t, Alarm_Callback callback ) with(this) {
+        void queue_info_thread_timeout( condition_variable(L) & this, info_thread(L) & info, Duration t, Alarm_Callback callback ) with(this) {
                 lock( lock __cfaabi_dbg_ctx2 );
                 size_t recursion_count = queue_and_get_recursion(this, &info);
 …
         // fast_cond_var
         void  ?{}( fast_cond_var(L) & this ){
                 this.blocked_threads{};
+                this.blocked_threads{};
                 #ifdef __CFA_DEBUG__
                 this.lock_used = 0p;

libcfa/src/concurrency/monitor.cfa

-              re5d9274
+              r015925a
 static inline void restore( monitor$ * ctx [], __lock_size_t count, __spinlock_t * locks [], unsigned int /*in */ recursions [], __waitfor_mask_t /*in */ masks [] );
-static inline void ?{}(__condition_node_t & this, thread$ * waiting_thread, __lock_size_t count, uintptr_t user_info );
-static inline void ?{}(__condition_criterion_t & this );
-static inline void ?{}(__condition_criterion_t & this, monitor$ * target, __condition_node_t * owner );
 static inline void init     ( __lock_size_t count, monitor$ * monitors [], __condition_node_t & waiter, __condition_criterion_t criteria [] );
 static inline void init_push( __lock_size_t count, monitor$ * monitors [], __condition_node_t & waiter, __condition_criterion_t criteria [] );
 …
 // Leave single monitor
 static void __leave( monitor$ * this ) {
+void __leave( monitor$ * this ) {
         // Lock the monitor spinlock
         lock( this->lock __cfaabi_dbg_ctx2 );
 …
 // Leave single monitor for the last time
 static void __dtor_leave( monitor$ * this, bool join ) {
+void __dtor_leave( monitor$ * this, bool join ) {
         __cfaabi_dbg_debug_do(
                 if( active_thread() != this->owner ) {
 …
 // Ctor for monitor guard
 // Sorts monitors before entering
 void ?{}( monitor_guard_t & this, monitor$ * m [], __lock_size_t count, fptr_t func ) libcfa_public {
+void ?{}( monitor_guard_t & this, monitor$ * m [], __lock_size_t count, fptr_t func ) {
         thread$ * thrd = active_thread();
 …
+}
 void ?{}( monitor_guard_t & this, monitor$ * m [], __lock_size_t count ) libcfa_public {
+void ?{}( monitor_guard_t & this, monitor$ * m [], __lock_size_t count ) {
         this{ m, count, 0p };
+}
 …
 // Dtor for monitor guard
 void ^?{}( monitor_guard_t & this ) libcfa_public {
+void ^?{}( monitor_guard_t & this ) {
         // __cfaabi_dbg_print_safe( "MGUARD : leaving %d\n", this.count);
 …
 // Ctor for monitor guard
 // Sorts monitors before entering
 void ?{}( monitor_dtor_guard_t & this, monitor$ * m [], fptr_t func, bool join ) libcfa_public {
+void ?{}( monitor_dtor_guard_t & this, monitor$ * m [], fptr_t func, bool join ) {
         // optimization
         thread$ * thrd = active_thread();
 …
 // Dtor for monitor guard
 void ^?{}( monitor_dtor_guard_t & this ) libcfa_public {
+void ^?{}( monitor_dtor_guard_t & this ) {
         // Leave the monitors in order
         __dtor_leave( this.m, this.join );
 …
 //-----------------------------------------------------------------------------
 // Internal scheduling types
 static void ?{}(__condition_node_t & this, thread$ * waiting_thread, __lock_size_t count, uintptr_t user_info ) {
+void ?{}(__condition_node_t & this, thread$ * waiting_thread, __lock_size_t count, uintptr_t user_info ) {
         this.waiting_thread = waiting_thread;
         this.count = count;
 …
+}
 static void ?{}(__condition_criterion_t & this ) with( this ) {
+void ?{}(__condition_criterion_t & this ) with( this ) {
         ready  = false;
         target = 0p;
 …
+}
 static void ?{}(__condition_criterion_t & this, monitor$ * target, __condition_node_t & owner ) {
+void ?{}(__condition_criterion_t & this, monitor$ * target, __condition_node_t & owner ) {
         this.ready  = false;
         this.target = target;
 …
 //-----------------------------------------------------------------------------
 // Internal scheduling
 void wait( condition & this, uintptr_t user_info = 0 ) libcfa_public {
+void wait( condition & this, uintptr_t user_info = 0 ) {
         brand_condition( this );
 …
+}
 bool signal( condition & this ) libcfa_public {
+bool signal( condition & this ) {
         if( is_empty( this ) ) { return false; }
 …
+}
 bool signal_block( condition & this ) libcfa_public {
+bool signal_block( condition & this ) {
         if( !this.blocked.head ) { return false; }
 …
 // Access the user_info of the thread waiting at the front of the queue
 uintptr_t front( condition & this ) libcfa_public {
+uintptr_t front( condition & this ) {
         verifyf( !is_empty(this),
                 "Attempt to access user data on an empty condition.\n"
 …
 //              setup mask
 //              block
 void __waitfor_internal( const __waitfor_mask_t & mask, int duration ) libcfa_public {
+void __waitfor_internal( const __waitfor_mask_t & mask, int duration ) {
         // This statment doesn't have a contiguous list of monitors...
         // Create one!
 …
 // Can't be accepted since a mutex stmt is effectively an anonymous routine
 // Thus we do not need a monitor group
 void lock( monitor$ * this ) libcfa_public {
+void lock( monitor$ * this ) {
         thread$ * thrd = active_thread();
 …
 // Leave routine for mutex stmt
 // Is just a wrapper around __leave for the is_lock trait to see
 void unlock( monitor$ * this ) libcfa_public { __leave( this ); }
+void unlock( monitor$ * this ) { __leave( this ); }
 // Local Variables: //

libcfa/src/concurrency/monitor.hfa

-              re5d9274
+              r015925a
+}
 // void ?{}(__condition_node_t & this, thread$ * waiting_thread, __lock_size_t count, uintptr_t user_info );
 // void ?{}(__condition_criterion_t & this );
 // void ?{}(__condition_criterion_t & this, monitor$ * target, __condition_node_t * owner );
+void ?{}(__condition_node_t & this, thread$ * waiting_thread, __lock_size_t count, uintptr_t user_info );
+void ?{}(__condition_criterion_t & this );
+void ?{}(__condition_criterion_t & this, monitor$ * target, __condition_node_t * owner );
 struct condition {

libcfa/src/concurrency/preemption.cfa

-              re5d9274
+              r015925a
 #endif
 __attribute__((weak)) Duration default_preemption() libcfa_public {
+__attribute__((weak)) Duration default_preemption() {
         const char * preempt_rate_s = getenv("CFA_DEFAULT_PREEMPTION");
         if(!preempt_rate_s) {
 …
 //----------
 // special case for preemption since used often
 __attribute__((optimize("no-reorder-blocks"))) bool __preemption_enabled() libcfa_public {
+__attribute__((optimize("no-reorder-blocks"))) bool __preemption_enabled() {
         // create a assembler label before
         // marked as clobber all to avoid movement
 …
 // Get data from the TLS block
 // struct asm_region __cfaasm_get;
 uintptr_t __cfatls_get( unsigned long int offset ) __attribute__((__noinline__, visibility("default"))); //no inline to avoid problems
+uintptr_t __cfatls_get( unsigned long int offset ) __attribute__((__noinline__)); //no inline to avoid problems
 uintptr_t __cfatls_get( unsigned long int offset ) {
         // create a assembler label before
 …
 extern "C" {
         // Disable interrupts by incrementing the counter
         __attribute__((__noinline__, visibility("default"))) void disable_interrupts() libcfa_public {
+        void disable_interrupts() {
                 // create a assembler label before
                 // marked as clobber all to avoid movement
 …
         // Enable interrupts by decrementing the counter
         // If counter reaches 0, execute any pending __cfactx_switch
         void enable_interrupts( bool poll ) libcfa_public {
+        void enable_interrupts( bool poll ) {
                 // Cache the processor now since interrupts can start happening after the atomic store
                 processor   * proc = __cfaabi_tls.this_processor;
 …
 //-----------------------------------------------------------------------------
 // Kernel Signal Debug
 void __cfaabi_check_preemption() libcfa_public {
+void __cfaabi_check_preemption() {
         bool ready = __preemption_enabled();
         if(!ready) { abort("Preemption should be ready"); }

libcfa/src/concurrency/ready_queue.cfa

-              re5d9274
+              r015925a
         const unsigned long long ctsc = rdtscl();
         if(proc->rdq.target == UINT_MAX) {
+        if(proc->rdq.target == MAX) {
                 uint64_t chaos = __tls_rand();
                 unsigned ext = chaos & 0xff;
 …
                 const unsigned target = proc->rdq.target;
                 __cfadbg_print_safe(ready_queue, "Kernel : %u considering helping %u, tcsc %llu\n", this, target, readyQ.tscs[target].tv);
                 /* paranoid */ verify( readyQ.tscs[target].tv != ULLONG_MAX );
+                /* paranoid */ verify( readyQ.tscs[target].tv != MAX );
                 if(target < lanes_count) {
                         const unsigned long long cutoff = calc_cutoff(ctsc, proc->rdq.id, lanes_count, cltr->sched.readyQ.data, cltr->sched.readyQ.tscs, __shard_factor.readyq);
 …
+                        }
+                }
                 proc->rdq.target = UINT_MAX;
+                proc->rdq.target = MAX;
+        }
 …
 // get preferred ready for new thread
 unsigned ready_queue_new_preferred() {
         unsigned pref = UINT_MAX;
+        unsigned pref = MAX;
         if(struct thread$ * thrd = publicTLS_get( this_thread )) {
                 pref = thrd->preferred;

libcfa/src/concurrency/ready_subqueue.hfa

-              re5d9274
+              r015925a
         /* paranoid */ verify( this.lock );
         /* paranoid */ verify( node->link.next == 0p );
         /* paranoid */ verify( __atomic_load_n(&node->link.ts, __ATOMIC_RELAXED) == MAX  );
+        /* paranoid */ verify( node->link.ts   == MAX  );
         /* paranoid */ verify( this.prev->link.next == 0p );
         /* paranoid */ verify( __atomic_load_n(&this.prev->link.ts, __ATOMIC_RELAXED)   == MAX  );
+        /* paranoid */ verify( this.prev->link.ts   == MAX  );
         if( this.anchor.next == 0p ) {
                 /* paranoid */ verify( this.anchor.next == 0p );
                 /* paranoid */ verify( __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED) == MAX );
                 /* paranoid */ verify( __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED) != 0  );
+                /* paranoid */ verify( this.anchor.ts   == MAX );
+                /* paranoid */ verify( this.anchor.ts   != 0  );
                 /* paranoid */ verify( this.prev == mock_head( this ) );
         } else {
                 /* paranoid */ verify( this.anchor.next != 0p );
                 /* paranoid */ verify( __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED) != MAX );
                 /* paranoid */ verify( __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED) != 0  );
+                /* paranoid */ verify( this.anchor.ts   != MAX );
+                /* paranoid */ verify( this.anchor.ts   != 0  );
                 /* paranoid */ verify( this.prev != mock_head( this ) );
+        }
 …
         /* paranoid */ verify( this.lock );
         /* paranoid */ verify( this.anchor.next != 0p );
         /* paranoid */ verify( __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED) != MAX );
         /* paranoid */ verify( __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED) != 0   );
+        /* paranoid */ verify( this.anchor.ts   != MAX );
+        /* paranoid */ verify( this.anchor.ts   != 0  );
         // Get the relevant nodes locally
         thread$ * node = this.anchor.next;
         this.anchor.next = node->link.next;
         __atomic_store_n(&this.anchor.ts, __atomic_load_n(&node->link.ts, __ATOMIC_RELAXED), __ATOMIC_RELAXED);
+        this.anchor.ts   = node->link.ts;
         bool is_empty = this.anchor.next == 0p;
         node->link.next = 0p;
         __atomic_store_n(&node->link.ts, ULLONG_MAX, __ATOMIC_RELAXED);
+        node->link.ts   = MAX;
         #if !defined(__CFA_NO_STATISTICS__)
                 this.cnt--;
 …
         if(is_empty) this.prev = mock_head( this );
-        unsigned long long ats = __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED);
         /* paranoid */ verify( node->link.next == 0p );
         /* paranoid */ verify( __atomic_load_n(&node->link.ts , __ATOMIC_RELAXED) == MAX );
         /* paranoid */ verify( __atomic_load_n(&node->link.ts , __ATOMIC_RELAXED) != 0   );
         /* paranoid */ verify( ats != 0 );
         /* paranoid */ verify( (ats == MAX) == is_empty );
         return [node, ats];
+        /* paranoid */ verify( node->link.ts   == MAX  );
+        /* paranoid */ verify( node->link.ts   != 0  );
+        /* paranoid */ verify( this.anchor.ts  != 0  );
+        /* paranoid */ verify( (this.anchor.ts  == MAX) == is_empty );
+        return [node, this.anchor.ts];
+}
 …
         // Cannot verify 'emptiness' here since it may not be locked
         /* paranoid */ verify(this.anchor.ts != 0);
+        /* paranoid */ static_assert(__atomic_always_lock_free(sizeof(this.anchor.ts), &this.anchor.ts));
+        return __atomic_load_n(&this.anchor.ts, __ATOMIC_RELAXED);
+        return this.anchor.ts;
+}

libcfa/src/concurrency/thread.cfa

-              re5d9274
+              r015925a
 #include "thread.hfa"
+#include "kernel/private.hfa"
 #include "exception.hfa"
-#include "kernel/private.hfa"
-#include "limits.hfa"
 #define __CFA_INVOKE_PRIVATE__
 …
 extern uint32_t __global_random_seed, __global_random_prime, __global_random_mask;
-#pragma GCC visibility push(default)
 //-----------------------------------------------------------------------------
 …
         curr_cluster = &cl;
         link.next = 0p;
         link.ts   = MAX;
+        link.ts   = -1llu;
         preferred = ready_queue_new_preferred();
         last_proc = 0p;
 …
+}
 forall(T & | is_thread(T) | IS_EXCEPTION(ThreadCancelled(T))
     | { EHM_DEFAULT_VTABLE(ThreadCancelled(T)); })
+forall(T & | is_thread(T) | IS_EXCEPTION(ThreadCancelled, (T))
+    | { EHM_DEFAULT_VTABLE(ThreadCancelled, (T)); })
 void ?{}( thread_dtor_guard_t & this,
                 T & thrd, void(*cancelHandler)(ThreadCancelled(T) &)) {
 …
 //-----------------------------------------------------------------------------
 forall(T & | is_thread(T) | IS_RESUMPTION_EXCEPTION(ThreadCancelled(T))
         | { EHM_DEFAULT_VTABLE(ThreadCancelled(T)); })
+forall(T & | is_thread(T) | IS_RESUMPTION_EXCEPTION(ThreadCancelled, (T))
+    | { EHM_DEFAULT_VTABLE(ThreadCancelled, (T)); })
 T & join( T & this ) {
         thread_dtor_guard_t guard = { this, defaultResumptionHandler };

libcfa/src/concurrency/thread.hfa

-              re5d9274
+              r015925a
 };
+forall(thread_t &)
+exception ThreadCancelled {
+EHM_FORALL_EXCEPTION(ThreadCancelled, (thread_t &), (thread_t)) (
         thread_t * the_thread;
         exception_t * the_exception;
 };
+);
 forall(T &)
 …
 };
 forall( T & | is_thread(T) | IS_EXCEPTION(ThreadCancelled(T))
         | { EHM_DEFAULT_VTABLE(ThreadCancelled(T)); })
+forall( T & | is_thread(T) | IS_EXCEPTION(ThreadCancelled, (T))
+    | { EHM_DEFAULT_VTABLE(ThreadCancelled, (T)); })
 void ?{}( thread_dtor_guard_t & this, T & thrd, void(*)(ThreadCancelled(T) &) );
 void ^?{}( thread_dtor_guard_t & this );
 …
 //----------
 // join
 forall( T & | is_thread(T) | IS_RESUMPTION_EXCEPTION(ThreadCancelled(T))
         | { EHM_DEFAULT_VTABLE(ThreadCancelled(T)); })
+forall( T & | is_thread(T) | IS_RESUMPTION_EXCEPTION(ThreadCancelled, (T))
+    | { EHM_DEFAULT_VTABLE(ThreadCancelled, (T)); })
 T & join( T & this );

libcfa/src/containers/maybe.cfa

re5d9274	r015925a
17	17	#include <assert.h>
18	18
19		~~#pragma GCC visibility push(default)~~
20	19
21	20	forall(T)

libcfa/src/containers/result.cfa

re5d9274	r015925a
17	17	#include <assert.h>
18	18
19		~~#pragma GCC visibility push(default)~~
20	19
21	20	forall(T, E)

libcfa/src/containers/string.cfa

re5d9274	r015925a
18	18	#include <stdlib.hfa>
19	19
20		~~#pragma GCC visibility push(default)~~
21	20
22	21	/*

libcfa/src/containers/string_sharectx.hfa

-              re5d9274
+              r015925a
 #pragma once
-#pragma GCC visibility push(default)
 //######################### String Sharing Context #########################
 struct VbyteHeap;
 // A string_sharectx
+// A string_sharectx
 //
 // Usage:

libcfa/src/containers/vector.cfa

-              re5d9274
+              r015925a
 #include <stdlib.hfa>
-#pragma GCC visibility push(default)
 forall(T, allocator_t | allocator_c(T, allocator_t))
 static void copy_internal(vector(T, allocator_t)* this, vector(T, allocator_t)* other);
+void copy_internal(vector(T, allocator_t)* this, vector(T, allocator_t)* other);
 //------------------------------------------------------------------------------
 …
 forall(T, allocator_t | allocator_c(T, allocator_t))
 static void copy_internal(vector(T, allocator_t)* this, vector(T, allocator_t)* other)
+void copy_internal(vector(T, allocator_t)* this, vector(T, allocator_t)* other)
+{
         this->size = other->size;

libcfa/src/device/cpu.cfa

re5d9274	r015925a
31	31	}
32	32
33		~~#include "bits/defs.hfa"~~
34	33	#include "algorithms/range_iterator.hfa"
35	34
…	…
457	456	}
458	457
459		~~libcfa_public~~ cpu_info_t cpu_info;
	458	cpu_info_t cpu_info;

libcfa/src/exception.c

-              re5d9274
+              r015925a
 #include "stdhdr/assert.h"
 #include "virtual.h"
-#pragma GCC visibility push(default)
 #include "lsda.h"
 …
 #else // defined( __ARM_ARCH )
         // The return code from _Unwind_RaiseException seems to be corrupt on ARM at end of stack.
         // This workaround tries to keep default exception handling working.
+        // This workaround tries to keep default exception handling working.
         if ( ret == _URC_FATAL_PHASE1_ERROR || ret == _URC_FATAL_PHASE2_ERROR ) {
 #endif

libcfa/src/exception.hfa

-              re5d9274
+              r015925a
 // Created On       : Thu Apr  7 10:25:00 2020
 // Last Modified By : Andrew Beach
 // Last Modified On : Wed May 25 17:20:00 2022
 // Update Count     : 5
+// Last Modified On : Thr Apr  8 15:16:00 2021
+// Update Count     : 4
 //
 …
 // -----------------------------------------------------------------------------------------------
+// EHM_DEFAULT_VTABLE(exception_type)
+// EHM_EXCEPTION(exception_name)(fields...);
+// Create an exception (a virtual structure that inherits from exception_t)
+// with the given name and fields.
+#define EHM_EXCEPTION(exception_name) \
+        _EHM_TYPE_ID_STRUCT(exception_name, ); \
+        _EHM_TYPE_ID_VALUE(exception_name, ); \
+        _EHM_VIRTUAL_TABLE_STRUCT(exception_name, , ); \
+        _EHM_EXCEPTION_STRUCT(exception_name, , )
+// EHM_EXTERN_VTABLE(exception_name, table_name);
+// Forward declare a virtual table called table_name for exception_name type.
+#define EHM_EXTERN_VTABLE(exception_name, table_name) \
+        _EHM_EXTERN_VTABLE(exception_name, , table_name)
+// EHM_VIRTUAL_TABLE(exception_name, table_name);
+// Define a virtual table called table_name for exception_name type.
+#define EHM_VIRTUAL_TABLE(exception_name, table_name) \
+        _EHM_DEFINE_COPY(exception_name, ) \
+        _EHM_DEFINE_MSG(exception_name, ) \
+        _EHM_VIRTUAL_TABLE(exception_name, , table_name)
+// EHM_FORALL_EXCEPTION(exception_name, (assertions), (parameters))(fields...);
+// As EHM_EXCEPTION but for polymorphic types instead of monomorphic ones.
+// The assertions list should include all polymorphic parameters and
+// assertions inside a parentisized list. Parameters should include all the
+// polymorphic parameter names inside a parentisized list (same order).
+#define EHM_FORALL_EXCEPTION(exception_name, assertions, parameters) \
+        _EHM_TYPE_ID_STRUCT(exception_name, forall assertions); \
+        _EHM_VIRTUAL_TABLE_STRUCT(exception_name, forall assertions, parameters); \
+        _EHM_EXCEPTION_STRUCT(exception_name, forall assertions, parameters)
+// EHM_FORALL_EXTERN_VTABLE(exception_name, (arguments), table_name);
+// As EHM_EXTERN_VTABLE but for polymorphic types instead of monomorphic ones.
+// Arguments should be the parentisized list of polymorphic arguments.
+#define EHM_FORALL_EXTERN_VTABLE(exception_name, arguments, table_name) \
+        _EHM_EXTERN_VTABLE(exception_name, arguments, table_name)
+// EHM_FORALL_VIRTUAL_TABLE(exception_name, (arguments), table_name);
+// As EHM_VIRTUAL_TABLE but for polymorphic types instead of monomorphic ones.
+// Arguments should be the parentisized list of polymorphic arguments.
+#define EHM_FORALL_VIRTUAL_TABLE(exception_name, arguments, table_name) \
+        _EHM_TYPE_ID_VALUE(exception_name, arguments); \
+        _EHM_DEFINE_COPY(exception_name, arguments) \
+        _EHM_DEFINE_MSG(exception_name, arguments) \
+        _EHM_VIRTUAL_TABLE(exception_name, arguments, table_name)
+// EHM_DEFAULT_VTABLE(exception_name, (arguments))
 // Create a declaration for a (possibly polymorphic) default vtable.
+// Mostly used by and for the currency module.
 #define EHM_DEFAULT_VTABLE(type) vtable(type) & const _default_vtable
+#define EHM_DEFAULT_VTABLE(exception_name, arguments) \
+        _EHM_VTABLE_TYPE(exception_name) arguments & const _default_vtable
+// IS_EXCEPTION(exception_type)
+// IS_RESUMPTION_EXCEPTION(exception_type)
+// IS_TERMINATION_EXCEPTION(exception_type)
+// Create an assertion that exception_type is the given kind of exception.
+// This is used to mimic associated types so the vtable type is unmentioned.
+#define IS_EXCEPTION(type) is_exception(type, vtable(type))
+#define IS_RESUMPTION_EXCEPTION(type) is_resumption_exception(type, vtable(type))
+#define IS_TERMINATION_EXCEPTION(type) is_termination_exception(type, vtable(type))
+// IS_EXCEPTION(exception_name [, (...parameters)])
+// IS_RESUMPTION_EXCEPTION(exception_name [, (parameters...)])
+// IS_TERMINATION_EXCEPTION(exception_name [, (parameters...)])
+// Create an assertion that exception_name, possibly with the qualifing parameters, is the given
+// kind of exception with the standard vtable with the same parameters if applicable.
+#define IS_EXCEPTION(...) _IS_EXCEPTION(is_exception, __VA_ARGS__, , ~)
+#define IS_RESUMPTION_EXCEPTION(...) _IS_EXCEPTION(is_resumption_exception, __VA_ARGS__, , ~)
+#define IS_TERMINATION_EXCEPTION(...) _IS_EXCEPTION(is_termination_exception, __VA_ARGS__, , ~)
+// Macros starting with a leading underscore are internal.
+// Create an exception type definition. must be tailing, can be polymorphic.
+#define _EHM_EXCEPTION_STRUCT(exception_name, forall_clause, parameters) \
+        forall_clause struct exception_name { \
+                _EHM_VTABLE_TYPE(exception_name) parameters const * virtual_table; \
+                _CLOSE
+// Create a (possibly polymorphic) virtual table forward declaration.
+#define _EHM_EXTERN_VTABLE(exception_name, arguments, table_name) \
+        extern const _EHM_VTABLE_TYPE(exception_name) arguments table_name
+// Create a (possibly polymorphic) virtual table definition.
+#define _EHM_VIRTUAL_TABLE(exception_type, arguments, table_name) \
+        const _EHM_VTABLE_TYPE(exception_type) arguments table_name @= { \
+                .__cfavir_typeid : &_EHM_TYPE_ID_NAME(exception_type), \
+                .size : sizeof(struct exception_type arguments), \
+                .copy : copy, \
+                .^?{} : ^?{}, \
+                .msg : msg, \
+        }
+// Create a (possibly polymorphic) copy function from an assignment operator.
+#define _EHM_DEFINE_FORALL_COPY(exception_name, forall_clause, parameters) \
+        forall_clause void copy(exception_name parameters * this, \
+                        exception_name parameters * that) { \
+                *this = *that; \
+        }
+#define _EHM_DEFINE_COPY(exception_name, arguments) \
+        void copy(exception_name arguments * this, exception_name arguments * that) { \
+                *this = *that; \
+        }
+// Create a (possibly polymorphic) msg function
+#define _EHM_DEFINE_FORALL_MSG(exception_name, forall_clause, parameters) \
+        forall_clause const char * msg(exception_name parameters * this) { \
+                return #exception_name #parameters; \
+        }
+#define _EHM_DEFINE_MSG(exception_name, arguments) \
+        const char * msg(exception_name arguments * this) { \
+                return #exception_name #arguments; \
+        }
+// Produces the C compatable name of the virtual table type for a virtual type.
+#define _EHM_VTABLE_TYPE(type_name) struct _GLUE2(type_name,_vtable)
+// Create the vtable type for exception name.
+#define _EHM_VIRTUAL_TABLE_STRUCT(exception_name, forall_clause, parameters) \
+        forall_clause struct exception_name; \
+        forall_clause _EHM_VTABLE_TYPE(exception_name) { \
+                _EHM_TYPE_ID_TYPE(exception_name) parameters const * __cfavir_typeid; \
+                size_t size; \
+                void (*copy)(exception_name parameters * this, exception_name parameters * other); \
+                void (*^?{})(exception_name parameters & this); \
+                const char * (*msg)(exception_name parameters * this); \
+        }
+// Define the function required to satify the trait for exceptions.
+#define _EHM_TRAIT_FUNCTION(exception_name, forall_clause, parameters) \
+        forall_clause inline void mark_exception( \
+                exception_name parameters const &, \
+                _EHM_VTABLE_TYPE(exception_name) parameters const &) {} \
+#define __EHM_TRAIT_FUNCTION(exception_name, forall_clause, parameters) \
+        forall_clause inline _EHM_VTABLE_TYPE(exception_name) parameters const & \
+                        get_exception_vtable(exception_name parameters const & this) { \
+                /* This comes before the structure definition, but we know the offset. */ \
+                /* return (_EHM_VTABLE_TYPE(exception_name) parameters const &)this; */ \
+                assert(false); \
+        }
+// Generates a new type-id structure. This is used to mangle the name of the
+// type-id instance so it also includes polymorphic information. Must be the
+// direct decendent of exception_t.
+// The second field is used to recover type information about the exception.
+#define _EHM_TYPE_ID_STRUCT(exception_name, forall_clause) \
+        forall_clause _EHM_TYPE_ID_TYPE(exception_name) { \
+                __cfavir_type_info const * parent; \
+        }
+// Generate a new type-id value.
+#define _EHM_TYPE_ID_VALUE(exception_name, arguments) \
+        __attribute__((cfa_linkonce)) \
+        _EHM_TYPE_ID_TYPE(exception_name) arguments const \
+                        _EHM_TYPE_ID_NAME(exception_name) = { \
+                &__cfatid_exception_t, \
+        }
+// _EHM_TYPE_ID_STRUCT and _EHM_TYPE_ID_VALUE are the two that would need to
+// be updated to extend the hierarchy if we are still using macros when that
+// is added.
+// Produce the C compatable name of the type-id type for an exception type.
+#define _EHM_TYPE_ID_TYPE(exception_name) \
+        struct _GLUE2(__cfatid_struct_, exception_name)
+// Produce the name of the instance of the type-id for an exception type.
+#define _EHM_TYPE_ID_NAME(exception_name) _GLUE2(__cfatid_,exception_name)
+#define _IS_EXCEPTION(kind, exception_name, parameters, ...) \
+        kind(exception_name parameters, _EHM_VTABLE_TYPE(exception_name) parameters)
+// Internal helper macros:
+#define _CLOSE(...) __VA_ARGS__ }
+#define _GLUE2(left, right) left##right

libcfa/src/fstream.cfa

-              re5d9274
+              r015925a
 #include <assert.h>
 #include <errno.h>                                                                              // errno
-#pragma GCC visibility push(default)
 // *********************************** ofstream ***********************************
 …
                 // abort | IO_MSG "open output file \"" | name | "\"" | nl | strerror( errno );
         } // if
         (os){ file };                                                                           // initialize
+        (os){ file };                                                                           // initialize
 } // open
 …
         va_list args;
         va_start( args, format );
         int len;
     for ( cnt; 10 ) {
 …
                 // abort | IO_MSG "open input file \"" | name | "\"" | nl | strerror( errno );
         } // if
         (is){ file };                                                                           // initialize
+        (is){ file };                                                                           // initialize
 } // open

libcfa/src/fstream.hfa

re5d9274	r015925a
18	18	#include "bits/weakso_locks.hfa" // mutex_lock
19	19	#include "iostream.hfa"
	20	#include <exception.hfa>
20	21
21	22

libcfa/src/heap.cfa

-              re5d9274
+              r015925a
 static bool traceHeap = false;
 inline bool traceHeap() libcfa_public { return traceHeap; }
 bool traceHeapOn() libcfa_public {
+inline bool traceHeap() { return traceHeap; }
+bool traceHeapOn() {
         bool temp = traceHeap;
         traceHeap = true;
 …
 } // traceHeapOn
 bool traceHeapOff() libcfa_public {
+bool traceHeapOff() {
         bool temp = traceHeap;
         traceHeap = false;
 …
 } // traceHeapOff
 bool traceHeapTerm() libcfa_public { return false; }
+bool traceHeapTerm() { return false; }
 static bool prtFree = false;
 static bool prtFree() {
+bool prtFree() {
         return prtFree;
 } // prtFree
 static bool prtFreeOn() {
+bool prtFreeOn() {
         bool temp = prtFree;
         prtFree = true;
 …
 } // prtFreeOn
 static bool prtFreeOff() {
+bool prtFreeOff() {
         bool temp = prtFree;
         prtFree = false;
 …
 static unsigned int maxBucketsUsed;                                             // maximum number of buckets in use
 // extern visibility, used by runtime kernel
+// would be cool to remove libcfa_public but it's needed for libcfathread
+libcfa_public size_t __page_size;                                                       // architecture pagesize
+libcfa_public int __map_prot;                                                           // common mmap/mprotect protection
+size_t __page_size;                                                                             // architecture pagesize
+int __map_prot;                                                                                 // common mmap/mprotect protection
 …
 static size_t prtFree( Heap & manager ) with( manager ) {
+size_t prtFree( Heap & manager ) with( manager ) {
         size_t total = 0;
         #ifdef __STATISTICS__
 …
         // Allocates size bytes and returns a pointer to the allocated memory.  The contents are undefined. If size is 0,
         // then malloc() returns a unique pointer value that can later be successfully passed to free().
         void * malloc( size_t size ) libcfa_public {
+        void * malloc( size_t size ) {
                 #ifdef __STATISTICS__
                 if ( likely( size > 0 ) ) {
 …
         // Same as malloc() except size bytes is an array of dim elements each of elemSize bytes.
         void * aalloc( size_t dim, size_t elemSize ) libcfa_public {
+        void * aalloc( size_t dim, size_t elemSize ) {
                 size_t size = dim * elemSize;
                 #ifdef __STATISTICS__
 …
         // Same as aalloc() with memory set to zero.
         void * calloc( size_t dim, size_t elemSize ) libcfa_public {
+        void * calloc( size_t dim, size_t elemSize ) {
                 size_t size = dim * elemSize;
           if ( unlikely( size ) == 0 ) {                        // 0 BYTE ALLOCATION RETURNS NULL POINTER
 …
         // not 0p, then the call is equivalent to free(oaddr). Unless oaddr is 0p, it must have been returned by an earlier
         // call to malloc(), alloc(), calloc() or realloc(). If the area pointed to was moved, a free(oaddr) is done.
         void * resize( void * oaddr, size_t size ) libcfa_public {
+        void * resize( void * oaddr, size_t size ) {
                 // If size is equal to 0, either NULL or a pointer suitable to be passed to free() is returned.
           if ( unlikely( size == 0 ) ) {                                        // special cases
 …
         // Same as resize() but the contents are unchanged in the range from the start of the region up to the minimum of
         // the old and new sizes.
         void * realloc( void * oaddr, size_t size ) libcfa_public {
+        void * realloc( void * oaddr, size_t size ) {
                 // If size is equal to 0, either NULL or a pointer suitable to be passed to free() is returned.
           if ( unlikely( size == 0 ) ) {                                        // special cases
 …
         // Same as realloc() except the new allocation size is large enough for an array of nelem elements of size elsize.
         void * reallocarray( void * oaddr, size_t dim, size_t elemSize ) libcfa_public {
+        void * reallocarray( void * oaddr, size_t dim, size_t elemSize ) {
                 return realloc( oaddr, dim * elemSize );
         } // reallocarray
 …
         // Same as malloc() except the memory address is a multiple of alignment, which must be a power of two. (obsolete)
         void * memalign( size_t alignment, size_t size ) libcfa_public {
+        void * memalign( size_t alignment, size_t size ) {
                 #ifdef __STATISTICS__
                 if ( likely( size > 0 ) ) {
 …
         // Same as aalloc() with memory alignment.
         void * amemalign( size_t alignment, size_t dim, size_t elemSize ) libcfa_public {
+        void * amemalign( size_t alignment, size_t dim, size_t elemSize ) {
                 size_t size = dim * elemSize;
                 #ifdef __STATISTICS__
 …
         // Same as calloc() with memory alignment.
         void * cmemalign( size_t alignment, size_t dim, size_t elemSize ) libcfa_public {
+        void * cmemalign( size_t alignment, size_t dim, size_t elemSize ) {
                 size_t size = dim * elemSize;
           if ( unlikely( size ) == 0 ) {                                        // 0 BYTE ALLOCATION RETURNS NULL POINTER
 …
         // Same as memalign(), but ISO/IEC 2011 C11 Section 7.22.2 states: the value of size shall be an integral multiple
         // of alignment. This requirement is universally ignored.
         void * aligned_alloc( size_t alignment, size_t size ) libcfa_public {
+        void * aligned_alloc( size_t alignment, size_t size ) {
                 return memalign( alignment, size );
         } // aligned_alloc
 …
         // is 0, then posix_memalign() returns either 0p, or a unique pointer value that can later be successfully passed to
         // free(3).
         int posix_memalign( void ** memptr, size_t alignment, size_t size ) libcfa_public {
+        int posix_memalign( void ** memptr, size_t alignment, size_t size ) {
           if ( unlikely( alignment < libAlign() || ! is_pow2( alignment ) ) ) return EINVAL; // check alignment
                 *memptr = memalign( alignment, size );
 …
         // Allocates size bytes and returns a pointer to the allocated memory. The memory address shall be a multiple of the
         // page size.  It is equivalent to memalign(sysconf(_SC_PAGESIZE),size).
         void * valloc( size_t size ) libcfa_public {
+        void * valloc( size_t size ) {
                 return memalign( __page_size, size );
         } // valloc
 …
         // Same as valloc but rounds size to multiple of page size.
         void * pvalloc( size_t size ) libcfa_public {
+        void * pvalloc( size_t size ) {
                 return memalign( __page_size, ceiling2( size, __page_size ) ); // round size to multiple of page size
         } // pvalloc
 …
         // or realloc().  Otherwise, or if free(ptr) has already been called before, undefined behaviour occurs. If ptr is
         // 0p, no operation is performed.
         void free( void * addr ) libcfa_public {
+        void free( void * addr ) {
           if ( unlikely( addr == 0p ) ) {                                       // special case
                         #ifdef __STATISTICS__
 …
         // Returns the alignment of an allocation.
         size_t malloc_alignment( void * addr ) libcfa_public {
+        size_t malloc_alignment( void * addr ) {
           if ( unlikely( addr == 0p ) ) return libAlign();      // minimum alignment
                 Heap.Storage.Header * header = HeaderAddr( addr );
 …
         // Returns true if the allocation is zero filled, e.g., allocated by calloc().
         bool malloc_zero_fill( void * addr ) libcfa_public {
+        bool malloc_zero_fill( void * addr ) {
           if ( unlikely( addr == 0p ) ) return false;           // null allocation is not zero fill
                 Heap.Storage.Header * header = HeaderAddr( addr );
 …
         // Returns original total allocation size (not bucket size) => array size is dimension * sizeof(T).
         size_t malloc_size( void * addr ) libcfa_public {
+        size_t malloc_size( void * addr ) {
           if ( unlikely( addr == 0p ) ) return 0;                       // null allocation has zero size
                 Heap.Storage.Header * header = HeaderAddr( addr );
 …
         // Returns the number of usable bytes in the block pointed to by ptr, a pointer to a block of memory allocated by
         // malloc or a related function.
         size_t malloc_usable_size( void * addr ) libcfa_public {
+        size_t malloc_usable_size( void * addr ) {
           if ( unlikely( addr == 0p ) ) return 0;                       // null allocation has 0 size
                 Heap.Storage.Header * header;
 …
         // Prints (on default standard error) statistics about memory allocated by malloc and related functions.
         void malloc_stats( void ) libcfa_public {
+        void malloc_stats( void ) {
                 #ifdef __STATISTICS__
                 printStats();
 …
         // Changes the file descriptor where malloc_stats() writes statistics.
         int malloc_stats_fd( int fd __attribute__(( unused )) ) libcfa_public {
+        int malloc_stats_fd( int fd __attribute__(( unused )) ) {
                 #ifdef __STATISTICS__
                 int temp = stats_fd;
 …
         // The string is printed on the file stream stream.  The exported string includes information about all arenas (see
         // malloc).
         int malloc_info( int options, FILE * stream __attribute__(( unused )) ) libcfa_public {
+        int malloc_info( int options, FILE * stream __attribute__(( unused )) ) {
           if ( options != 0 ) { errno = EINVAL; return -1; }
                 #ifdef __STATISTICS__
 …
         // Adjusts parameters that control the behaviour of the memory-allocation functions (see malloc). The param argument
         // specifies the parameter to be modified, and value specifies the new value for that parameter.
         int mallopt( int option, int value ) libcfa_public {
+        int mallopt( int option, int value ) {
           if ( value < 0 ) return 0;
                 choose( option ) {
 …
         // Attempt to release free memory at the top of the heap (by calling sbrk with a suitable argument).
         int malloc_trim( size_t ) libcfa_public {
+        int malloc_trim( size_t ) {
                 return 0;                                                                               // => impossible to release memory
         } // malloc_trim
 …
         // structure dynamically allocated via malloc, and a pointer to that data structure is returned as the function
         // result.  (The caller must free this memory.)
         void * malloc_get_state( void ) libcfa_public {
+        void * malloc_get_state( void ) {
                 return 0p;                                                                              // unsupported
         } // malloc_get_state
 …
         // Restores the state of all malloc internal bookkeeping variables to the values recorded in the opaque data
         // structure pointed to by state.
         int malloc_set_state( void * ) libcfa_public {
+        int malloc_set_state( void * ) {
                 return 0;                                                                               // unsupported
         } // malloc_set_state
 …
         // Sets the amount (bytes) to extend the heap when there is insufficent free storage to service an allocation.
         __attribute__((weak)) size_t malloc_expansion() libcfa_public { return __CFA_DEFAULT_HEAP_EXPANSION__; }
+        __attribute__((weak)) size_t malloc_expansion() { return __CFA_DEFAULT_HEAP_EXPANSION__; }
         // Sets the crossover point between allocations occuring in the sbrk area or separately mmapped.
         __attribute__((weak)) size_t malloc_mmap_start() libcfa_public { return __CFA_DEFAULT_MMAP_START__; }
+        __attribute__((weak)) size_t malloc_mmap_start() { return __CFA_DEFAULT_MMAP_START__; }
         // Amount subtracted to adjust for unfreed program storage (debug only).
         __attribute__((weak)) size_t malloc_unfreed() libcfa_public { return __CFA_DEFAULT_HEAP_UNFREED__; }
+        __attribute__((weak)) size_t malloc_unfreed() { return __CFA_DEFAULT_HEAP_UNFREED__; }
 } // extern "C"
 // Must have CFA linkage to overload with C linkage realloc.
 void * resize( void * oaddr, size_t nalign, size_t size ) libcfa_public {
+void * resize( void * oaddr, size_t nalign, size_t size ) {
         // If size is equal to 0, either NULL or a pointer suitable to be passed to free() is returned.
   if ( unlikely( size == 0 ) ) {                                                // special cases
 …
 void * realloc( void * oaddr, size_t nalign, size_t size ) libcfa_public {
+void * realloc( void * oaddr, size_t nalign, size_t size ) {
         // If size is equal to 0, either NULL or a pointer suitable to be passed to free() is returned.
   if ( unlikely( size == 0 ) ) {                                                // special cases

libcfa/src/interpose.cfa

-              re5d9274
+              r015925a
 //=============================================================================================
 static void preload_libgcc(void) {
+void preload_libgcc(void) {
         dlopen( "libgcc_s.so.1", RTLD_NOW );
         if ( const char * error = dlerror() ) abort( "interpose_symbol : internal error pre-loading libgcc, %s\n", error );
 …
 typedef void (* generic_fptr_t)(void);
 static generic_fptr_t interpose_symbol( const char symbol[], const char version[] ) {
+generic_fptr_t interpose_symbol( const char symbol[], const char version[] ) {
         const char * error;
 …
 //=============================================================================================
 static void sigHandler_segv( __CFA_SIGPARMS__ );
 static void sigHandler_ill ( __CFA_SIGPARMS__ );
 static void sigHandler_fpe ( __CFA_SIGPARMS__ );
 static void sigHandler_abrt( __CFA_SIGPARMS__ );
 static void sigHandler_term( __CFA_SIGPARMS__ );
 static struct {
+void sigHandler_segv( __CFA_SIGPARMS__ );
+void sigHandler_ill ( __CFA_SIGPARMS__ );
+void sigHandler_fpe ( __CFA_SIGPARMS__ );
+void sigHandler_abrt( __CFA_SIGPARMS__ );
+void sigHandler_term( __CFA_SIGPARMS__ );
+struct {
         void (* exit)( int ) __attribute__(( __noreturn__ ));
         void (* abort)( void ) __attribute__(( __noreturn__ ));
 } __cabi_libc;
 libcfa_public int cfa_main_returned;
+int cfa_main_returned;
 extern "C" {
 …
 // Forward declare abort after the __typeof__ call to avoid ambiguities
 libcfa_public void exit( int status, const char fmt[], ... ) __attribute__(( format(printf, 2, 3), __nothrow__, __leaf__, __noreturn__ ));
 libcfa_public void abort( const char fmt[], ... ) __attribute__(( format(printf, 1, 2), __nothrow__, __leaf__, __noreturn__ ));
 libcfa_public void abort( bool signalAbort, const char fmt[], ... ) __attribute__(( format(printf, 2, 3), __nothrow__, __leaf__, __noreturn__ ));
 libcfa_public void __abort( bool signalAbort, const char fmt[], va_list args ) __attribute__(( __nothrow__, __leaf__, __noreturn__ ));
+void exit( int status, const char fmt[], ... ) __attribute__(( format(printf, 2, 3), __nothrow__, __leaf__, __noreturn__ ));
+void abort( const char fmt[], ... ) __attribute__(( format(printf, 1, 2), __nothrow__, __leaf__, __noreturn__ ));
+void abort( bool signalAbort, const char fmt[], ... ) __attribute__(( format(printf, 2, 3), __nothrow__, __leaf__, __noreturn__ ));
+void __abort( bool signalAbort, const char fmt[], va_list args ) __attribute__(( __nothrow__, __leaf__, __noreturn__ ));
 extern "C" {
         libcfa_public void abort( void ) __attribute__(( __nothrow__, __leaf__, __noreturn__ )) {
+        void abort( void ) __attribute__(( __nothrow__, __leaf__, __noreturn__ )) {
                 abort( false, "%s", "" );
+        }
         libcfa_public void __cabi_abort( const char fmt[], ... ) __attribute__(( format(printf, 1, 2), __nothrow__, __leaf__, __noreturn__ )) {
+        void __cabi_abort( const char fmt[], ... ) __attribute__(( format(printf, 1, 2), __nothrow__, __leaf__, __noreturn__ )) {
                 va_list argp;
                 va_start( argp, fmt );
 …
+        }
         libcfa_public void exit( int status ) __attribute__(( __nothrow__, __leaf__, __noreturn__ )) {
+        void exit( int status ) __attribute__(( __nothrow__, __leaf__, __noreturn__ )) {
                 __cabi_libc.exit( status );
+        }

libcfa/src/iostream.cfa

re5d9274	r015925a
32	32	#include "bitmanip.hfa" // high1
33	33
34		~~#pragma GCC visibility push(default)~~
35	34
36	35	// ********************************* ostream *********************************

libcfa/src/limits.cfa

re5d9274	r015925a
20	20	#include <complex.h>
21	21	#include "limits.hfa"
22
23		~~#pragma GCC visibility push(default)~~
24	22
25	23	// Integral Constants

libcfa/src/memory.cfa

re5d9274	r015925a
16	16	#include "memory.hfa"
17	17	#include "stdlib.hfa"
18
19		~~#pragma GCC visibility push(default)~~
20	18
21	19	// Internal data object.

libcfa/src/parseargs.cfa

re5d9274	r015925a
24	24	#include "common.hfa"
25	25	#include "limits.hfa"
26
27		~~#pragma GCC visibility push(default)~~
28	26
29	27	extern int cfa_args_argc __attribute__((weak));

libcfa/src/parseconfig.cfa

-              re5d9274
+              r015925a
-#pragma GCC visibility push(default)
 // *********************************** exceptions ***********************************
 // TODO: Add names of missing config entries to exception (see further below)
 vtable(Missing_Config_Entries) Missing_Config_Entries_vt;
+static vtable(Missing_Config_Entries) Missing_Config_Entries_vt;
 [ void ] ?{}( & Missing_Config_Entries this, unsigned int num_missing ) {
 …
 vtable(Parse_Failure) Parse_Failure_vt;
+static vtable(Parse_Failure) Parse_Failure_vt;
 [ void ] ?{}( & Parse_Failure this, [] char failed_key, [] char failed_value ) {
 …
 vtable(Validation_Failure) Validation_Failure_vt;
+static vtable(Validation_Failure) Validation_Failure_vt;
 [ void ] ?{}( & Validation_Failure this, [] char failed_key, [] char failed_value ) {
 …
 static [ bool ] comments( & ifstream in, [] char name ) {
+[ bool ] comments( & ifstream in, [] char name ) {
         while () {
                 in | name;

libcfa/src/rational.cfa

re5d9274	r015925a
17	17	#include "fstream.hfa"
18	18	#include "stdlib.hfa"
19
20		~~#pragma GCC visibility push(default)~~
21	19
22	20	forall( T \| Arithmetic( T ) ) {

libcfa/src/startup.cfa

-              re5d9274
+              r015925a
         } // __cfaabi_appready_shutdown
         void disable_interrupts() __attribute__(( weak )) libcfa_public {}
         void enable_interrupts() __attribute__(( weak )) libcfa_public {}
+        void disable_interrupts() __attribute__(( weak )) {}
+        void enable_interrupts() __attribute__(( weak )) {}
 …
 struct __spinlock_t;
 extern "C" {
         void __cfaabi_dbg_record_lock(struct __spinlock_t & this, const char prev_name[]) __attribute__(( weak )) libcfa_public {}
+        void __cfaabi_dbg_record_lock(struct __spinlock_t & this, const char prev_name[]) __attribute__(( weak )) {}
+}

libcfa/src/stdlib.cfa

-              re5d9274
+              r015925a
 #include <complex.h>                                                                    // _Complex_I
 #include <assert.h>
-#pragma GCC visibility push(default)
 //---------------------------------------
 …
 #define GENERATOR LCG
+// would be cool to make hidden but it's needed for libcfathread
+__attribute__((visibility("default"))) uint32_t __global_random_seed;                                                   // sequential/concurrent
+__attribute__((visibility("hidden"))) uint32_t __global_random_state;                                                   // sequential only
+uint32_t __global_random_seed;                                                  // sequential/concurrent
+uint32_t __global_random_state;                                                 // sequential only
 void set_seed( PRNG & prng, uint32_t seed_ ) with( prng ) { state = seed = seed_; GENERATOR( state ); } // set seed

libcfa/src/strstream.cfa

-              re5d9274
+              r015925a
 //
+//
 // Cforall Version 1.0.0 Copyright (C) 2021 University of Waterloo
 //
+//
 // The contents of this file are covered under the licence agreement in the
 // file "LICENCE" distributed with Cforall.
 //
 // strstream.cfa --
 //
+// strstream.cfa --
+//
 // Author           : Peter A. Buhr
 // Created On       : Thu Apr 22 22:24:35 2021
 …
 // Last Modified On : Sun Oct 10 16:13:20 2021
 // Update Count     : 101
 //
+//
 #include "strstream.hfa"
 …
 #include <unistd.h>                                                                             // sbrk, sysconf
-#pragma GCC visibility push(default)
 // *********************************** strstream ***********************************

libcfa/src/time.cfa

re5d9274	r015925a
18	18	#include <stdio.h> // snprintf
19	19	#include <assert.h>
20
21		~~#pragma GCC visibility push(default)~~
22	20
23	21	static char * nanomsd( long int ns, char * buf ) { // most significant digits

libcfa/src/virtual.c

re5d9274	r015925a
16	16	#include "virtual.h"
17	17	#include "assert.h"
18
19		~~#pragma GCC visibility push(default)~~
20	18
21	19	int __cfavir_is_parent(

src/AST/Expr.cpp

-              re5d9274
+              r015925a
 // Created On       : Wed May 15 17:00:00 2019
 // Last Modified By : Andrew Beach
 // Created On       : Wed May 18 13:56:00 2022
 // Update Count     : 8
+// Created On       : Tue Nov 30 14:23:00 2021
+// Update Count     : 7
 //
 …
 #include "Copy.hpp"                // for shallowCopy
+#include "Eval.hpp"                // for call
 #include "GenericSubstitution.hpp"
 #include "LinkageSpec.hpp"
 …
 // --- UntypedExpr
-bool UntypedExpr::get_lvalue() const {
-        std::string fname = InitTweak::getFunctionName( this );
-        return lvalueFunctionNames.count( fname );
+}
 UntypedExpr * UntypedExpr::createDeref( const CodeLocation & loc, const Expr * arg ) {
         assert( arg );
         UntypedExpr * ret = createCall( loc, "*?", { arg } );
+        UntypedExpr * ret = call( loc, "*?", arg );
         if ( const Type * ty = arg->result ) {
                 const Type * base = InitTweak::getPointerBase( ty );
 …
+}
+bool UntypedExpr::get_lvalue() const {
+        std::string fname = InitTweak::getFunctionName( this );
+        return lvalueFunctionNames.count( fname );
+}
 UntypedExpr * UntypedExpr::createAssign( const CodeLocation & loc, const Expr * lhs, const Expr * rhs ) {
         assert( lhs && rhs );
         UntypedExpr * ret = createCall( loc, "?=?", { lhs, rhs } );
+        UntypedExpr * ret = call( loc, "?=?", lhs, rhs );
         if ( lhs->result && rhs->result ) {
                 // if both expressions are typed, assumes that this assignment is a C bitwise assignment,
 …
+        }
         return ret;
+}
-UntypedExpr * UntypedExpr::createCall( const CodeLocation & loc,
-                const std::string & name, std::vector<ptr<Expr>> && args ) {
-        return new UntypedExpr( loc,
-                        new NameExpr( loc, name ), std::move( args ) );
+}

src/AST/Expr.hpp

-              re5d9274
+              r015925a
         /// Creates a new assignment expression
         static UntypedExpr * createAssign( const CodeLocation & loc, const Expr * lhs, const Expr * rhs );
-        /// Creates a new call of a variable.
-        static UntypedExpr * createCall( const CodeLocation & loc,
-                const std::string & name, std::vector<ptr<Expr>> && args );
         const Expr * accept( Visitor & v ) const override { return v.visit( this ); }

src/AST/module.mk

re5d9274	r015925a
29	29	AST/DeclReplacer.cpp \
30	30	AST/DeclReplacer.hpp \
	31	AST/Eval.hpp \
31	32	AST/Expr.cpp \
32	33	AST/Expr.hpp \

src/CodeGen/CodeGenerator.cc

-              re5d9274
+              r015925a
 } // namespace CodeGen
+unsigned Indenter::tabsize = 2;
+std::ostream & operator<<( std::ostream & out, const BaseSyntaxNode * node ) {
+        if ( node ) {
+                node->print( out );
+        } else {
+                out << "nullptr";
+        }
+        return out;
+}
 // Local Variables: //
 // tab-width: 4 //

src/CodeGen/FixMain.cc

re5d9274	r015925a
49	49
50	50	}
	51
	52	bool FixMain::replace_main = false;
51	53
52	54	template<typename container>

src/CodeGen/GenType.cc

-              re5d9274
+              r015925a
 // Created On       : Mon May 18 07:44:20 2015
 // Last Modified By : Andrew Beach
 // Last Modified On : Fri May 20 11:18:00 2022
 // Update Count     : 24
+// Last Modified On : Wed May  1 15:24:00 2019
+// Update Count     : 23
 //
 #include "GenType.h"
 …
                 void postvisit( TraitInstType * inst );
                 void postvisit( TypeofType * typeof );
-                void postvisit( VTableType * vtable );
                 void postvisit( QualifiedType * qualType );
 …
                         if ( options.genC ) {
                                 typeString = "enum " + typeString;
+                        }
+                }
+                        }
+                }
                 handleQualifiers( enumInst );
+        }
         void GenType::postvisit( TypeInstType * typeInst ) {
-                assertf( ! options.genC, "Type instance types should not reach code generation." );
                 typeString = typeInst->name + " " + typeString;
                 handleQualifiers( typeInst );
 …
+        }
-        void GenType::postvisit( VTableType * vtable ) {
-                assertf( ! options.genC, "Virtual table types should not reach code generation." );
-                std::ostringstream os;
-                os << "vtable(" << genType( vtable->base, "", options ) << ") " << typeString;
-                typeString = os.str();
-                handleQualifiers( vtable );
+        }
         void GenType::postvisit( QualifiedType * qualType ) {
                 assertf( ! options.genC, "Qualified types should not reach code generation." );

src/CodeGen/LinkOnce.cc

-              re5d9274
+              r015925a
                                 new ConstantExpr( Constant::from_string( section_name ) )
                         );
-                        // Unconditionnaly add "visibility(default)" to anything with gnu.linkonce
-                        // visibility is a mess otherwise
-                        attributes.push_back(new Attribute("visibility", {new ConstantExpr( Constant::from_string( "default" ) )}));
+                }
                 visit_children = false;

src/CodeGen/module.mk

-              re5d9274
+              r015925a
 ## Author           : Richard C. Bilson
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 14:26:00 2022
 ## Update Count     : 5
+## Last Modified By : Peter A. Buhr
+## Last Modified On : Sat Dec 14 07:29:42 2019
+## Update Count     : 4
 ###############################################################################
+#SRC +=  ArgTweak/Rewriter.cc \
+#       ArgTweak/Mutate.cc
 SRC_CODEGEN = \
-        CodeGen/FixMain2.cc \
-        CodeGen/FixMain.h \
-        CodeGen/OperatorTable.cc \
-        CodeGen/OperatorTable.h
-SRC += $(SRC_CODEGEN) \
         CodeGen/CodeGenerator.cc \
         CodeGen/CodeGenerator.h \
-        CodeGen/Generate.cc \
-        CodeGen/Generate.h \
         CodeGen/FixMain.cc \
+        CodeGen/FixNames.cc \
+        CodeGen/FixNames.h \
+        CodeGen/FixMain.h \
         CodeGen/GenType.cc \
         CodeGen/GenType.h \
         CodeGen/LinkOnce.cc \
         CodeGen/LinkOnce.h \
+        CodeGen/OperatorTable.cc \
+        CodeGen/OperatorTable.h \
         CodeGen/Options.h
+SRC += $(SRC_CODEGEN) CodeGen/Generate.cc CodeGen/Generate.h CodeGen/FixNames.cc CodeGen/FixNames.h
 SRCDEMANGLE += $(SRC_CODEGEN)

src/CodeTools/ResolvProtoDump.cc

-              re5d9274
+              r015925a
                         // replace enums with int
+                        void previsit( EnumInstType* ) {
+                                // TODO: add the meaningful representation of typed int
+                                ss << (int)BasicType::SignedInt;
+                        }
+                        void previsit( EnumInstType* ) { ss << (int)BasicType::SignedInt; }
                         void previsit( TypeInstType* vt ) {

src/Common/Indenter.h

-              re5d9274
+              r015925a
 // Created On       : Fri Jun 30 16:55:23 2017
 // Last Modified By : Andrew Beach
 // Last Modified On : Fri May 13 14:10:00 2022
 // Update Count     : 2
+// Last Modified On : Fri Aug 11 11:15:00 2017
+// Update Count     : 1
 //
+#pragma once
+#include <ostream>
+#ifndef INDENTER_H
+#define INDENTER_H
 struct Indenter {
 …
         return out << std::string(indent.indent * indent.amt, ' ');
+}
+#endif // INDENTER_H

src/Common/ResolvProtoDump.cpp

re5d9274	r015925a
227	227	}
228	228
229		void previsit( const ast::EnumInstType * enumInst) {
230		// TODO: Add the meaningful text representation of typed enum
	229	void previsit( const ast::EnumInstType * ) {
231	230	ss << (int)ast::BasicType::SignedInt;
232	231	}

src/Common/module.mk

-              re5d9274
+              r015925a
 ## Author           : Richard C. Bilson
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 14:27:00 2022
 ## Update Count     : 5
+## Last Modified By : Peter A. Buhr
+## Last Modified On : Tue Sep 27 11:06:38 2016
+## Update Count     : 4
 ###############################################################################
 SRC_COMMON = \
+        Common/Assert.cc \
+        Common/CodeLocation.h \
+        Common/CodeLocationTools.hpp \
+        Common/CodeLocationTools.cpp \
+        Common/CompilerError.h \
+        Common/Debug.h \
+        Common/DeclStats.hpp \
+        Common/DeclStats.cpp \
+        Common/ErrorObjects.h \
+        Common/Eval.cc \
+        Common/Examine.cc \
+        Common/Examine.h \
+        Common/FilterCombos.h \
+        Common/Indenter.h \
+        Common/Indenter.cc \
+        Common/PassVisitor.cc \
+        Common/PassVisitor.h \
+        Common/PassVisitor.impl.h \
+        Common/PassVisitor.proto.h \
+        Common/PersistentMap.h \
+        Common/ResolvProtoDump.hpp \
+        Common/ResolvProtoDump.cpp \
+        Common/ScopedMap.h \
+        Common/SemanticError.cc \
+        Common/SemanticError.h \
+        Common/Stats.h \
+        Common/Stats/Base.h \
+        Common/Stats/Counter.cc \
+        Common/Stats/Counter.h \
+        Common/Stats/Heap.cc \
+        Common/Stats/Heap.h \
+        Common/Stats/ResolveTime.cc \
+        Common/Stats/ResolveTime.h \
+        Common/Stats/Stats.cc \
+        Common/Stats/Time.cc \
+        Common/Stats/Time.h \
+        Common/UnimplementedError.h \
+        Common/UniqueName.cc \
+        Common/UniqueName.h \
+        Common/utility.h \
+        Common/VectorMap.h
+      Common/Assert.cc \
+      Common/CodeLocation.h \
+      Common/CodeLocationTools.hpp \
+      Common/CodeLocationTools.cpp \
+      Common/CompilerError.h \
+      Common/Debug.h \
+      Common/DeclStats.hpp \
+      Common/DeclStats.cpp \
+      Common/ErrorObjects.h \
+      Common/Eval.cc \
+      Common/Examine.cc \
+      Common/Examine.h \
+      Common/FilterCombos.h \
+      Common/Indenter.h \
+      Common/PassVisitor.cc \
+      Common/PassVisitor.h \
+      Common/PassVisitor.impl.h \
+      Common/PassVisitor.proto.h \
+      Common/PersistentMap.h \
+      Common/ResolvProtoDump.hpp \
+      Common/ResolvProtoDump.cpp \
+      Common/ScopedMap.h \
+      Common/SemanticError.cc \
+      Common/SemanticError.h \
+      Common/Stats.h \
+      Common/Stats/Base.h \
+      Common/Stats/Counter.cc \
+      Common/Stats/Counter.h \
+      Common/Stats/Heap.cc \
+      Common/Stats/Heap.h \
+      Common/Stats/ResolveTime.cc \
+      Common/Stats/ResolveTime.h \
+      Common/Stats/Stats.cc \
+      Common/Stats/Time.cc \
+      Common/Stats/Time.h \
+      Common/UnimplementedError.h \
+      Common/UniqueName.cc \
+      Common/UniqueName.h \
+      Common/utility.h \
+      Common/VectorMap.h
+SRC += $(SRC_COMMON) \
+        Common/DebugMalloc.cc
+SRC += $(SRC_COMMON) Common/DebugMalloc.cc
 SRCDEMANGLE += $(SRC_COMMON)

src/Concurrency/module.mk

-              re5d9274
+              r015925a
 ## Author           : Thierry Delisle
 ## Created On       : Mon Mar 13 12:48:40 2017
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 13:28:00 2022
 ## Update Count     : 1
+## Last Modified By :
+## Last Modified On :
+## Update Count     : 0
 ###############################################################################
 SRC += \
+SRC_CONCURRENCY = \
         Concurrency/KeywordsNew.cpp \
+        Concurrency/Keywords.cc \
+        Concurrency/Keywords.cc
+SRC += $(SRC_CONCURRENCY) \
         Concurrency/Keywords.h \
         Concurrency/Waitfor.cc \
         Concurrency/Waitfor.h
+SRCDEMANGLE += $(SRC_CONCURRENCY)

src/ControlStruct/ExceptDecl.cc

-              re5d9274
+              r015925a
 // Author           : Henry Xue
 // Created On       : Tue Jul 20 04:10:50 2021
 // Last Modified By : Andrew Beach
 // Last Modified On : Wed May 25 16:43:00 2022
 // Update Count     : 5
+// Last Modified By : Henry Xue
+// Last Modified On : Tue Aug 03 10:42:26 2021
+// Update Count     : 4
 //
 …
+}
 StructInstType * makeExceptInstType(
         const std::string & exceptionName,
         const std::list< Expression *> & parameters
 ) {
         StructInstType * exceptInstType = new StructInstType(
+TypeInstType * makeExceptInstType(
+        const std::string & exceptionName,
+        const std::list< Expression *> & parameters
+) {
+        TypeInstType * exceptInstType = new TypeInstType(
                 noQualifiers,
+                exceptionName
+                exceptionName,
+                false
         );
         cloneAll( parameters, exceptInstType->parameters );
 …
                 nullptr,
                 new PointerType( noQualifiers,
                         new StructInstType( Type::Const, "__cfavir_type_info" ) ),
+                        new TypeInstType( Type::Const, "__cfavir_type_info", false ) ),
                 nullptr
         ) );
 …
         const std::string & exceptionName,
         const std::list< TypeDecl *> & forallClause,
         const std::list< Expression *> & parameters,
+        const std::list< Expression *> & parameters,
         const std::list< Declaration *> & members
 ) {
 …
 ObjectDecl * ehmExternVtable(
         const std::string & exceptionName,
         const std::list< Expression *> & parameters,
+        const std::list< Expression *> & parameters,
         const std::string & tableName
 ) {
 …
+}
-class VTableCore : public WithDeclsToAdd {
-public:
-        // Remove any remaining vtable type nodes in the tree.
-        Type * postmutate( VTableType * vtableType );
-};
-Type * VTableCore::postmutate( VTableType * vtableType ) {
-        auto inst = strict_dynamic_cast<ReferenceToType *>( vtableType->base );
-        std::string vtableName = Virtual::vtableTypeName( inst->name );
-        StructInstType * newType = new StructInstType( noQualifiers, vtableName );
-        cloneAll( inst->parameters, newType->parameters );
-        delete vtableType;
-        return newType;
+}
 void translateExcept( std::list< Declaration *> & translationUnit ) {
         PassVisitor<ExceptDeclCore> translator;
         mutateAll( translationUnit, translator );
+        PassVisitor<VTableCore> typeTranslator;
+        mutateAll( translationUnit, typeTranslator );
+}
+}
+}
+}

src/ControlStruct/module.mk

-              re5d9274
+              r015925a
 ## Author           : Richard C. Bilson
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 14:30:00 2022
 ## Update Count     : 8
+## Last Modified By : Peter A. Buhr
+## Last Modified On : Sat Jan 29 12:04:19 2022
+## Update Count     : 7
 ###############################################################################
 SRC += \
+SRC_CONTROLSTRUCT = \
         ControlStruct/ExceptDecl.cc \
         ControlStruct/ExceptDecl.h \
-        ControlStruct/ExceptTranslateNew.cpp \
-        ControlStruct/ExceptTranslate.cc \
-        ControlStruct/ExceptTranslate.h \
         ControlStruct/FixLabels.cpp \
         ControlStruct/FixLabels.hpp \
 …
         ControlStruct/Mutate.h
+SRC += $(SRC_CONTROLSTRUCT) \
+        ControlStruct/ExceptTranslateNew.cpp \
+        ControlStruct/ExceptTranslate.cc \
+        ControlStruct/ExceptTranslate.h
+SRCDEMANGLE += $(SRC_CONTROLSTRUCT)

src/GenPoly/Lvalue.cc

-              re5d9274
+              r015925a
 // Author           : Richard C. Bilson
 // Created On       : Mon May 18 07:44:20 2015
 // Last Modified By : Andrew Beach
 // Last Modified On : Mon May 16 14:09:00 2022
 // Update Count     : 8
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Fri Dec 13 23:14:38 2019
+// Update Count     : 7
 //
 …
         } // namespace
+        // Stored elsewhere (Lvalue2, initially false).
+        extern bool referencesEliminated;
+        static bool referencesEliminated = false;
+        // used by UntypedExpr::createDeref to determine whether result type of dereference should be ReferenceType or value type.
+        bool referencesPermissable() {
+                return ! referencesEliminated;
+        }
         void convertLvalue( std::list< Declaration* > & translationUnit ) {

src/GenPoly/module.mk

-              re5d9274
+              r015925a
 ## Author           : Richard C. Bilson
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 14:31:00 2022
 ## Update Count     : 2
+## Last Modified By : Peter A. Buhr
+## Last Modified On : Mon Jun  1 17:52:30 2015
+## Update Count     : 1
 ###############################################################################
+SRC_GENPOLY = \
+        GenPoly/GenPoly.cc \
+        GenPoly/GenPoly.h \
+        GenPoly/Lvalue2.cc \
+        GenPoly/Lvalue.h
+SRC += GenPoly/Box.cc \
+       GenPoly/Box.h \
+       GenPoly/ErasableScopedMap.h \
+       GenPoly/FindFunction.cc \
+       GenPoly/FindFunction.h \
+       GenPoly/GenPoly.cc \
+       GenPoly/GenPoly.h \
+       GenPoly/InstantiateGeneric.cc \
+       GenPoly/InstantiateGeneric.h \
+       GenPoly/Lvalue.cc \
+       GenPoly/Lvalue.h \
+       GenPoly/ScopedSet.h \
+       GenPoly/ScrubTyVars.cc \
+       GenPoly/ScrubTyVars.h \
+       GenPoly/Specialize.cc \
+       GenPoly/Specialize.h
+SRC += $(SRC_GENPOLY) \
+        GenPoly/Box.cc \
+        GenPoly/Box.h \
+        GenPoly/ErasableScopedMap.h \
+        GenPoly/FindFunction.cc \
+        GenPoly/FindFunction.h \
+        GenPoly/InstantiateGeneric.cc \
+        GenPoly/InstantiateGeneric.h \
+        GenPoly/Lvalue.cc \
+        GenPoly/ScopedSet.h \
+        GenPoly/ScrubTyVars.cc \
+        GenPoly/ScrubTyVars.h \
+        GenPoly/Specialize.cc \
+        GenPoly/Specialize.h
+SRCDEMANGLE += GenPoly/GenPoly.cc GenPoly/GenPoly.h GenPoly/Lvalue.cc GenPoly/Lvalue.h
-SRCDEMANGLE += $(SRC_GENPOLY)

src/InitTweak/FixInitNew.cpp

-              re5d9274
+              r015925a
                 auto expr = new ast::ImplicitCopyCtorExpr( appExpr->location, mutExpr );
+                // Move the type substitution to the new top-level. The substitution
+                // is needed to obtain the type of temporary variables so that copy
+                // constructor calls can be resolved.
+                // Move the type substitution to the new top-level, if it is attached to the appExpr.
+                // Ensure it is not deleted with the ImplicitCopyCtorExpr by removing it before deletion.
+                // The substitution is needed to obtain the type of temporary variables so that copy constructor
+                // calls can be resolved.
                 assert( typeSubs );
+                // assert (mutExpr->env);
                 expr->env = tmp;
+                // mutExpr->env = nullptr;
+                //std::swap( expr->env, appExpr->env );
                 return expr;
+        }
         void ResolveCopyCtors::previsit(const ast::Expr * expr) {
+                if ( nullptr == expr->env ) {
+                        return;
+                }
+                GuardValue( env ) = expr->env->clone();
+                GuardValue( envModified ) = false;
+                if (expr->env) {
+                        GuardValue(env);
+                        GuardValue(envModified);
+                        env = expr->env->clone();
+                        envModified = false;
+                }
+        }
         const ast::Expr * ResolveCopyCtors::postvisit(const ast::Expr * expr) {
+                // No local environment, skip.
+                if ( nullptr == expr->env ) {
+                        return expr;
+                // Environment was modified, mutate and replace.
+                } else if ( envModified ) {
+                        auto mutExpr = mutate(expr);
+                        mutExpr->env = env;
+                        return mutExpr;
+                // Environment was not mutated, delete the shallow copy before guard.
+                } else {
+                        delete env;
+                if (expr->env) {
+                        if (envModified) {
+                                auto mutExpr = mutate(expr);
+                                mutExpr->env = env;
+                                return mutExpr;
+                        }
+                        else {
+                                // env was not mutated, skip and delete the shallow copy
+                                delete env;
+                                return expr;
+                        }
+                }
+                else {
                         return expr;
+                }
 …
         const ast::Expr * ResolveCopyCtors::makeCtorDtor( const std::string & fname, const ast::ObjectDecl * var, const ast::Expr * cpArg ) {
                 assert( var );
                 assert( var->isManaged() );
                 assert( !cpArg || cpArg->isManaged() );
+                assert (var->isManaged());
+                assert (!cpArg || cpArg->isManaged());
                 // arrays are not copy constructed, so this should always be an ExprStmt
                 ast::ptr< ast::Stmt > stmt = genCtorDtor(var->location, fname, var, cpArg );
 …
                 auto exprStmt = stmt.strict_as<ast::ImplicitCtorDtorStmt>()->callStmt.strict_as<ast::ExprStmt>();
                 ast::ptr<ast::Expr> untyped = exprStmt->expr; // take ownership of expr
+                // exprStmt->expr = nullptr;
                 // resolve copy constructor
 …
                         env->add( *resolved->env );
                         envModified = true;
+                        // delete resolved->env;
                         auto mut = mutate(resolved.get());
                         assertf(mut == resolved.get(), "newly resolved expression must be unique");
                         mut->env = nullptr;
                 } // if
+                // delete stmt;
                 if ( auto assign = resolved.as<ast::TupleAssignExpr>() ) {
                         // fix newly generated StmtExpr

src/InitTweak/GenInit.cc

-              re5d9274
+              r015925a
         struct ReturnFixer_New final :
                         public ast::WithStmtsToAdd<>, ast::WithGuards, ast::WithShortCircuiting {
+                        public ast::WithStmtsToAdd<>, ast::WithGuards {
                 void previsit( const ast::FunctionDecl * decl );
                 const ast::ReturnStmt * previsit( const ast::ReturnStmt * stmt );
 …
         void ReturnFixer_New::previsit( const ast::FunctionDecl * decl ) {
-                if (decl->linkage == ast::Linkage::Intrinsic) visit_children = false;
                 GuardValue( funcDecl ) = decl;
+        }

src/InitTweak/module.mk

-              re5d9274
+              r015925a
 ## Author           : Richard C. Bilson
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 14:31:00 2022
 ## Update Count     : 4
+## Last Modified By : Rob Schluntz
+## Last Modified On : Fri May 13 11:36:24 2016
+## Update Count     : 3
 ###############################################################################
+SRC_INITTWEAK = \
+SRC += \
+        InitTweak/FixGlobalInit.cc \
+        InitTweak/FixGlobalInit.h \
+        InitTweak/FixInit.cc \
+        InitTweak/FixInit.h \
+        InitTweak/GenInit.cc \
+        InitTweak/GenInit.h \
+        InitTweak/InitTweak.cc \
+        InitTweak/InitTweak.h \
+        InitTweak/FixInitNew.cpp
+SRCDEMANGLE += \
         InitTweak/GenInit.cc \
         InitTweak/GenInit.h \
 …
         InitTweak/InitTweak.h
-SRC += $(SRC_INITTWEAK) \
-        InitTweak/FixGlobalInit.cc \
-        InitTweak/FixGlobalInit.h \
-        InitTweak/FixInit.cc \
-        InitTweak/FixInit.h \
-        InitTweak/FixInitNew.cpp
-SRCDEMANGLE += $(SRC_INITTWEAK)

src/Parser/parser.yy

-              re5d9274
+              r015925a
 // Created On       : Sat Sep  1 20:22:55 2001
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Sat May 14 09:16:22 2022
 // Update Count     : 5401
+// Last Modified On : Wed May  4 17:22:48 2022
+// Update Count     : 5279
 //
 …
 #include "Common/SemanticError.h"                                               // error_str
 #include "Common/utility.h"                                                             // for maybeMoveBuild, maybeBuild, CodeLo...
-#include "SynTree/Attribute.h"     // for Attribute
 extern DeclarationNode * parseTree;
 …
 } // appendStr
+DeclarationNode * distAttr( DeclarationNode * typeSpec, DeclarationNode * declList ) {
+        // distribute declaration_specifier across all declared variables, e.g., static, const, but not __attribute__.
+        assert( declList );
+//      printf( "distAttr1 typeSpec %p\n", typeSpec ); typeSpec->print( std::cout );
+        DeclarationNode * cur = declList, * cl = (new DeclarationNode)->addType( typeSpec );
+//      printf( "distAttr2 cl %p\n", cl ); cl->type->print( std::cout );
+//      cl->type->aggregate.name = cl->type->aggInst.aggregate->aggregate.name;
+DeclarationNode * distAttr( DeclarationNode * specifier, DeclarationNode * declList ) {
+        // distribute declaration_specifier across all declared variables, e.g., static, const, __attribute__.
+        DeclarationNode * cur = declList, * cl = (new DeclarationNode)->addType( specifier );
         for ( cur = dynamic_cast<DeclarationNode *>( cur->get_next() ); cur != nullptr; cur = dynamic_cast<DeclarationNode *>( cur->get_next() ) ) {
                 cl->cloneBaseType( cur );
         } // for
         declList->addType( cl );
-//      printf( "distAttr3 declList %p\n", declList ); declList->print( std::cout, 0 );
         return declList;
 } // distAttr
 …
                 if ( ! ( typeSpec->type && (typeSpec->type->kind == TypeData::Aggregate || typeSpec->type->kind == TypeData::Enum) ) ) {
                         stringstream ss;
                         // printf( "fieldDecl1 typeSpec %p\n", typeSpec ); typeSpec->type->print( std::cout );
+                        typeSpec->type->print( ss );
                         SemanticWarning( yylloc, Warning::SuperfluousDecl, ss.str().c_str() );
                         return nullptr;
                 } // if
-                // printf( "fieldDecl2 typeSpec %p\n", typeSpec ); typeSpec->type->print( std::cout );
                 fieldList = DeclarationNode::newName( nullptr );
         } // if
+//      return distAttr( typeSpec, fieldList );                         // mark all fields in list
+        // printf( "fieldDecl3 typeSpec %p\n", typeSpec ); typeSpec->print( std::cout, 0 );
+        DeclarationNode * temp = distAttr( typeSpec, fieldList );                               // mark all fields in list
+        // printf( "fieldDecl4 temp %p\n", temp ); temp->print( std::cout, 0 );
+        return temp;
+        return distAttr( typeSpec, fieldList );                         // mark all fields in list
 } // fieldDecl
 …
 declaration:                                                                                    // old & new style declarations
         c_declaration ';'
+                {
-                        // printf( "C_DECLARATION1 %p %s\n", $$, $$->name ? $$->name->c_str() : "(nil)" );
-                        // for ( Attribute * attr: reverseIterate( $$->attributes ) ) {
-                        //   printf( "\tattr %s\n", attr->name.c_str() );
-                        // } // for
+                }
         | cfa_declaration ';'                                                           // CFA
         | static_assert                                                                         // C11
 …
         basic_type_specifier
         | sue_type_specifier
+                {
-                        // printf( "sue_type_specifier2 %p %s\n", $$, $$->type->aggregate.name ? $$->type->aggregate.name->c_str() : "(nil)" );
-                        // for ( Attribute * attr: reverseIterate( $$->attributes ) ) {
-                        //   printf( "\tattr %s\n", attr->name.c_str() );
-                        // } // for
+                }
         | type_type_specifier
+        ;
 …
 sue_declaration_specifier:                                                              // struct, union, enum + storage class + type specifier
         sue_type_specifier
+                {
-                        // printf( "sue_declaration_specifier %p %s\n", $$, $$->type->aggregate.name ? $$->type->aggregate.name->c_str() : "(nil)" );
-                        // for ( Attribute * attr: reverseIterate( $$->attributes ) ) {
-                        //   printf( "\tattr %s\n", attr->name.c_str() );
-                        // } // for
+                }
         | declaration_qualifier_list sue_type_specifier
                 { $$ = $2->addQualifiers( $1 ); }
 …
 sue_type_specifier:                                                                             // struct, union, enum + type specifier
         elaborated_type
+                {
-                        // printf( "sue_type_specifier %p %s\n", $$, $$->type->aggregate.name ? $$->type->aggregate.name->c_str() : "(nil)" );
-                        // for ( Attribute * attr: reverseIterate( $$->attributes ) ) {
-                        //   printf( "\tattr %s\n", attr->name.c_str() );
-                        // } // for
+                }
         | type_qualifier_list
                 { if ( $1->type != nullptr && $1->type->forall ) forall = true; } // remember generic type
 …
 elaborated_type:                                                                                // struct, union, enum
         aggregate_type
+                {
-                        // printf( "elaborated_type %p %s\n", $$, $$->type->aggregate.name ? $$->type->aggregate.name->c_str() : "(nil)" );
-                        // for ( Attribute * attr: reverseIterate( $$->attributes ) ) {
-                        //   printf( "\tattr %s\n", attr->name.c_str() );
-                        // } // for
+                }
         | enum_type
+        ;
 …
+                }
           '{' field_declaration_list_opt '}' type_parameters_opt
+                {
+                        // printf( "aggregate_type1 %s\n", $3.str->c_str() );
+                        // if ( $2 )
+                        //      for ( Attribute * attr: reverseIterate( $2->attributes ) ) {
+                        //              printf( "copySpecifiers12 %s\n", attr->name.c_str() );
+                        //      } // for
+                        $$ = DeclarationNode::newAggregate( $1, $3, $8, $6, true )->addQualifiers( $2 );
+                        // printf( "aggregate_type2 %p %s\n", $$, $$->type->aggregate.name ? $$->type->aggregate.name->c_str() : "(nil)" );
+                        // for ( Attribute * attr: reverseIterate( $$->attributes ) ) {
+                        //      printf( "aggregate_type3 %s\n", attr->name.c_str() );
+                        // } // for
+                }
+                { $$ = DeclarationNode::newAggregate( $1, $3, $8, $6, true )->addQualifiers( $2 ); }
         | aggregate_key attribute_list_opt TYPEDEFname          // unqualified type name
+                {
 …
           '{' field_declaration_list_opt '}' type_parameters_opt
+                {
-                        // printf( "AGG3\n" );
                         DeclarationNode::newFromTypedef( $3 );
                         $$ = DeclarationNode::newAggregate( $1, $3, $8, $6, true )->addQualifiers( $2 );
 …
           '{' field_declaration_list_opt '}' type_parameters_opt
+                {
-                        // printf( "AGG4\n" );
                         DeclarationNode::newFromTypeGen( $3, nullptr );
                         $$ = DeclarationNode::newAggregate( $1, $3, $8, $6, true )->addQualifiers( $2 );
 …
 field_declaration:
         type_specifier field_declaring_list_opt ';'
+                {
+                        // printf( "type_specifier1 %p %s\n", $$, $$->type->aggregate.name ? $$->type->aggregate.name->c_str() : "(nil)" );
+                        $$ = fieldDecl( $1, $2 );
+                        // printf( "type_specifier2 %p %s\n", $$, $$->type->aggregate.name ? $$->type->aggregate.name->c_str() : "(nil)" );
+                        // for ( Attribute * attr: reverseIterate( $$->attributes ) ) {
+                        //   printf( "\tattr %s\n", attr->name.c_str() );
+                        // } // for
+                }
+                { $$ = fieldDecl( $1, $2 ); }
         | EXTENSION type_specifier field_declaring_list_opt ';' // GCC
                 { $$ = fieldDecl( $2, $3 ); distExt( $$ ); }
 …
         // empty
                 { $$ = nullptr; forall = false; }
+        | WITH '(' tuple_expression_list ')' attribute_list_opt
+                {
+                        $$ = $3; forall = false;
+                        if ( $5 ) {
+                                SemanticError( yylloc, "Attributes cannot be associated with function body. Move attribute(s) before \"with\" clause." );
+                                $$ = nullptr;
+                        } // if
+                }
+        | WITH '(' tuple_expression_list ')'
+                { $$ = $3; forall = false; }
+        ;

src/ResolvExpr/AlternativeFinder.cc

re5d9274	r015925a
42	42	#include "SymTab/Indexer.h" // for Indexer
43	43	#include "SymTab/Mangler.h" // for Mangler
44		#include "SymTab/Validate~~Type.h"~~ // for validateType
	44	#include "SymTab/Validate.h" // for validateType
45	45	#include "SynTree/Constant.h" // for Constant
46	46	#include "SynTree/Declaration.h" // for DeclarationWithType, TypeDecl, Dec...

src/ResolvExpr/CandidateFinder.cpp

-              re5d9274
+              r015925a
                                                 if (argType.as<ast::PointerType>()) funcFinder.otypeKeys.insert(Mangle::Encoding::pointer);
-                                                else if (const ast::EnumInstType * enumInst = argType.as<ast::EnumInstType>()) {
-                                                        const ast::EnumDecl * enumDecl = enumInst->base;
-                                                        if ( const ast::Type* enumType = enumDecl->base ) {
-                                                                // instance of enum (T) is a instance of type (T)
-                                                                funcFinder.otypeKeys.insert(Mangle::mangle(enumType, Mangle::NoGenericParams | Mangle::Type));
-                                                        } else {
-                                                                // instance of an untyped enum is techically int
-                                                                funcFinder.otypeKeys.insert(Mangle::mangle(enumDecl, Mangle::NoGenericParams | Mangle::Type));
+                                                        }
+                                                }
                                                 else funcFinder.otypeKeys.insert(Mangle::mangle(argType, Mangle::NoGenericParams | Mangle::Type));
+                                        }
 …
                         // find function operators
                         ast::ptr< ast::Expr > opExpr = new ast::NameExpr{ untypedExpr->location, "?()" }; // ??? why not ?{}
+                        ast::ptr< ast::Expr > opExpr = new ast::NameExpr{ untypedExpr->location, "?()" };
                         CandidateFinder opFinder( context, tenv );
                         // okay if there aren't any function operations

src/ResolvExpr/CommonType.cc

-              re5d9274
+              r015925a
                                 result = new BasicType( basicType->tq | otherBasic->tq, newType );
                         } // if
                 } else if (  dynamic_cast< ZeroType * >( type2 ) || dynamic_cast< OneType * >( type2 ) ) {
+                } else if ( dynamic_cast< EnumInstType * > ( type2 ) || dynamic_cast< ZeroType * >( type2 ) || dynamic_cast< OneType * >( type2 ) ) {
                         // use signed int in lieu of the enum/zero/one type
                         BasicType::Kind newType = commonTypes[ basicType->get_kind() ][ BasicType::SignedInt ];
 …
                                 result = new BasicType( basicType->tq | type2->tq, newType );
                         } // if
+                } else if ( const EnumInstType * enumInst = dynamic_cast< const EnumInstType * > ( type2 ) ) {
+                        const EnumDecl* enumDecl = enumInst->baseEnum;
+                        if ( const Type* baseType = enumDecl->base ) {
+                                result = baseType->clone();
+                        } else {
+                                BasicType::Kind newType = commonTypes[ basicType->get_kind() ][ BasicType::SignedInt ];
+                                if ( ( ( newType == basicType->get_kind() && basicType->tq >= type2->tq ) || widenFirst ) && ( ( newType != basicType->get_kind() && basicType->tq <= type2->tq ) || widenSecond ) ) {
+                                        result = new BasicType( basicType->tq | type2->tq, newType );
+                                } // if
+                        }
+                }
+                } // if
+        }
 …
+                                }
                         } else if (
+                                dynamic_cast< const ast::ZeroType * >( type2 )
+                                dynamic_cast< const ast::EnumInstType * >( type2 )
+                                || dynamic_cast< const ast::ZeroType * >( type2 )
                                 || dynamic_cast< const ast::OneType * >( type2 )
                         ) {
 …
                                         result = new ast::BasicType{ kind, basic->qualifiers | type2->qualifiers };
+                                }
-                        } else if ( const ast::EnumInstType * enumInst = dynamic_cast< const ast::EnumInstType * >( type2 ) ) {
-                                #warning remove casts when `commonTypes` moved to new AST
-                                const ast::EnumDecl* enumDecl = enumInst->base;
-                                if ( enumDecl->base ) {
-                                        result = enumDecl->base.get();
-                                } else {
-                                        ast::BasicType::Kind kind = (ast::BasicType::Kind)(int)commonTypes[ (BasicType::Kind)(int)basic->kind ][ (BasicType::Kind)(int)ast::BasicType::SignedInt ];
-                                        if (
-                                                ( ( kind == basic->kind && basic->qualifiers >= type2->qualifiers )
-                                                        || widen.first )
-                                                && ( ( kind != basic->kind && basic->qualifiers <= type2->qualifiers )
-                                                        || widen.second )
-                                        ) {
-                                                result = new ast::BasicType{ kind, basic->qualifiers | type2->qualifiers };
+                                        }
+                                }
+                        }
+                }
 …
                         result = voidPtr;
                         add_qualifiers( result, oPtr->qualifiers );
+                }
-                // For a typed enum, we want to unify type1 with the base type of the enum
-                bool tryResolveWithTypedEnum( const ast::Type * type1 ) {
-                        if (auto enumInst = dynamic_cast<const ast::EnumInstType *> (type2) ) {
-                                ast::AssertionSet have, need; // unused
-                                ast::OpenVarSet newOpen{ open };
-                                if (enumInst->base->base
-                                && unifyExact(type1, enumInst->base->base, tenv, need, have, newOpen, widen, symtab)) {
-                                        result = type1;
-                                        return true;
+                                }
+                        }
-                        return false;
+                }
 …
                                 result = pointer;
                                 add_qualifiers( result, type2->qualifiers );
+                        } else {
+                                tryResolveWithTypedEnum( pointer );
+                        }
+                }
+                void postvisit( const ast::ArrayType * arr ) {
+                        // xxx - does it make sense?
+                        tryResolveWithTypedEnum( arr );
+                }
+                        }
+                }
+                void postvisit( const ast::ArrayType * ) {}
                 void postvisit( const ast::ReferenceType * ref ) {
 …
                                 result = ref;
                                 add_qualifiers( result, type2->qualifiers );
+                        } else {
+                                // xxx - does unifying a ref with typed enumInst makes sense?
+                                if (!dynamic_cast<const ast::EnumInstType *>(type2))
+                                        result = commonType( type2, ref, widen, symtab, tenv, open );
+                        }
+                }
+                void postvisit( const ast::FunctionType * func) {
+                        tryResolveWithTypedEnum( func );
+                }
+                void postvisit( const ast::StructInstType * inst ) {
+                        tryResolveWithTypedEnum( inst );
+                }
+                void postvisit( const ast::UnionInstType * inst ) {
+                        tryResolveWithTypedEnum( inst );
+                }
+                        }
+                }
+                void postvisit( const ast::FunctionType * ) {}
+                void postvisit( const ast::StructInstType * ) {}
+                void postvisit( const ast::UnionInstType * ) {}
                 void postvisit( const ast::EnumInstType * enumInst ) {
+                        // reuse BasicType/EnumInstType common type by swapping
+                        // xxx - is this already handled by unify?
+                        if (!dynamic_cast<const ast::EnumInstType *>(type2))
+                        if (
+                                dynamic_cast< const ast::BasicType * >( type2 )
+                                || dynamic_cast< const ast::ZeroType * >( type2 )
+                                || dynamic_cast< const ast::OneType * >( type2 )
+                        ) {
+                                // reuse BasicType/EnumInstType common type by swapping
                                 result = commonType( type2, enumInst, widen, symtab, tenv, open );
+                        }
+                }
 …
                                                 result = type2;
                                                 reset_qualifiers( result, q1 | q2 );
-                                        } else {
-                                                tryResolveWithTypedEnum( t1 );
+                                        }
+                                }
 …
+                }
+                void postvisit( const ast::TupleType * tuple) {
+                        tryResolveWithTypedEnum( tuple );
+                }
+                void postvisit( const ast::TupleType * ) {}
                 void postvisit( const ast::VarArgsType * ) {}
 …
                 void postvisit( const ast::ZeroType * zero ) {
                         if ( ! widen.first ) return;
+                        if ( dynamic_cast< const ast::BasicType * >( type2 )
+                                || dynamic_cast< const ast::PointerType * >( type2 ) ) {
+                        if (
+                                dynamic_cast< const ast::BasicType * >( type2 )
+                                || dynamic_cast< const ast::PointerType * >( type2 )
+                                || dynamic_cast< const ast::EnumInstType * >( type2 )
+                        ) {
                                 if ( widen.second || zero->qualifiers <= type2->qualifiers ) {
                                         result = type2;
 …
                                 result = new ast::BasicType{
                                         ast::BasicType::SignedInt, zero->qualifiers | type2->qualifiers };
-                        } else if ( const ast::EnumInstType * enumInst = dynamic_cast< const ast::EnumInstType * >( type2 ) ) {
-                                const ast::EnumDecl * enumDecl = enumInst->base;
-                                if ( enumDecl->base ) {
-                                        if ( tryResolveWithTypedEnum( zero ) )
-                                                add_qualifiers( result, zero->qualifiers );
-                                } else {
-                                        if ( widen.second || zero->qualifiers <= type2->qualifiers ) {
-                                                result = type2;
-                                                add_qualifiers( result, zero->qualifiers );
+                                        }
+                                }
+                        }
+                }
 …
                 void postvisit( const ast::OneType * one ) {
                         if ( ! widen.first ) return;
+                        if ( dynamic_cast< const ast::BasicType * >( type2 ) ) {
+                        if (
+                                dynamic_cast< const ast::BasicType * >( type2 )
+                                || dynamic_cast< const ast::EnumInstType * >( type2 )
+                        ) {
                                 if ( widen.second || one->qualifiers <= type2->qualifiers ) {
                                         result = type2;
 …
                                 result = new ast::BasicType{
                                         ast::BasicType::SignedInt, one->qualifiers | type2->qualifiers };
-                        } else if ( const ast::EnumInstType * enumInst = dynamic_cast< const ast::EnumInstType * >( type2 ) ) {
-                                const ast::EnumDecl * enumBase = enumInst->base;
-                                if ( enumBase->base ) {
-                                        if ( tryResolveWithTypedEnum( one ))
-                                                add_qualifiers( result, one->qualifiers );
-                                } else {
-                                        if ( widen.second || one->qualifiers <= type2->qualifiers ) {
-                                                result = type2;
-                                                add_qualifiers( result, one->qualifiers );
+                                        }
+                                }
+                        }
+                }

src/ResolvExpr/ConversionCost.cc

-              re5d9274
+              r015925a
+        }
-        // refactor for code resue
-        void ConversionCost::conversionCostFromBasicToBasic(const BasicType * src, const BasicType * dest) {
-                int tableResult = costMatrix[ src->kind ][ dest->kind ];
-                if ( tableResult == -1 ) {
-                        cost = Cost::unsafe;
-                } else {
-                        cost = Cost::zero;
-                        cost.incSafe( tableResult );
-                        cost.incSign( signMatrix[ src->kind ][ dest->kind ] );
-                } // if
-        } // ConversionCost::conversionCostFromBasicToBasic
         void ConversionCost::postvisit(const BasicType * basicType) {
                 if ( const BasicType * destAsBasic = dynamic_cast< const BasicType * >( dest ) ) {
+                        conversionCostFromBasicToBasic(basicType, destAsBasic);
+                } else if ( const EnumInstType * enumInst = dynamic_cast< const EnumInstType * >( dest ) ) {
+                        const EnumDecl * base_enum = enumInst->baseEnum;
+                        if ( const Type * base = base_enum->base ) { // if the base enum has a base (if it is typed)
+                                if ( const BasicType * enumBaseAstBasic = dynamic_cast< const BasicType *> (base) ) {
+                                        conversionCostFromBasicToBasic(basicType, enumBaseAstBasic);
+                                } else {
+                                        cost = Cost::infinity;
+                                } // if
+                        int tableResult = costMatrix[ basicType->kind ][ destAsBasic->kind ];
+                        if ( tableResult == -1 ) {
+                                cost = Cost::unsafe;
+                        } else {
+                                cost = Cost::zero;
+                                cost.incSafe( tableResult );
+                                cost.incSign( signMatrix[ basicType->kind ][ destAsBasic->kind ] );
+                        } // if
+                } else if ( dynamic_cast< const EnumInstType * >( dest ) ) {
+                        // xxx - not positive this is correct, but appears to allow casting int => enum
+                        // TODO
+                        EnumDecl * decl = dynamic_cast< const EnumInstType * >( dest )->baseEnum;
+                        if ( decl->base ) {
+                                cost = Cost::infinity;
                         } else {
                                 cost = Cost::unsafe;
 …
         void ConversionCost::postvisit( const FunctionType * ) {}
+        void ConversionCost::postvisit( const EnumInstType * enumInst) {
+                const EnumDecl * enumDecl = enumInst -> baseEnum;
+                if ( const Type * enumType = enumDecl -> base ) { // if it is a typed enum
+                        cost = costFunc( enumType, dest, srcIsLvalue, indexer, env );
+                } else {
+                        static Type::Qualifiers q;
+                        static BasicType integer( q, BasicType::SignedInt );
+                        cost = costFunc( &integer, dest, srcIsLvalue, indexer, env );  // safe if dest >= int
+                } // if
+        void ConversionCost::postvisit( const EnumInstType * ) {
+                static Type::Qualifiers q;
+                static BasicType integer( q, BasicType::SignedInt );
+                cost = costFunc( &integer, dest, srcIsLvalue, indexer, env );  // safe if dest >= int
                 if ( cost < Cost::unsafe ) {
                                 cost.incSafe();
+                        cost.incSafe();
                 } // if
+        }
 …
+}
-void ConversionCost_new::conversionCostFromBasicToBasic( const ast::BasicType * src, const ast::BasicType* dest ) {
-        int tableResult = costMatrix[ src->kind ][ dest->kind ];
-        if ( tableResult == -1 ) {
-                cost = Cost::unsafe;
-        } else {
-                cost = Cost::zero;
-                cost.incSafe( tableResult );
-                cost.incSign( signMatrix[ src->kind ][ dest->kind ] );
+        }
+}
 void ConversionCost_new::postvisit( const ast::BasicType * basicType ) {
         if ( const ast::BasicType * dstAsBasic = dynamic_cast< const ast::BasicType * >( dst ) ) {
+                conversionCostFromBasicToBasic( basicType, dstAsBasic );
+        } else if ( const ast::EnumInstType * enumInst = dynamic_cast< const ast::EnumInstType * >( dst ) ) {
+                const ast::EnumDecl * enumDecl = enumInst->base.get();
+                if ( const ast::Type * enumType = enumDecl->base.get() ) {
+                        if ( const ast::BasicType * enumTypeAsBasic = dynamic_cast<const ast::BasicType *>(enumType) ) {
+                                conversionCostFromBasicToBasic( basicType, enumTypeAsBasic );
+                        } else {
+                                cost = Cost::infinity;
+                        }
+                } else {
+            cost = Cost::unsafe;
+                }
+                int tableResult = costMatrix[ basicType->kind ][ dstAsBasic->kind ];
+                if ( tableResult == -1 ) {
+                        cost = Cost::unsafe;
+                } else {
+                        cost = Cost::zero;
+                        cost.incSafe( tableResult );
+                        cost.incSign( signMatrix[ basicType->kind ][ dstAsBasic->kind ] );
+                }
+        } else if ( dynamic_cast< const ast::EnumInstType * >( dst ) ) {
+                // xxx - not positive this is correct, but appears to allow casting int => enum
+                const ast::EnumDecl * decl = (dynamic_cast< const ast::EnumInstType * >( dst ))->base.get();
+                if ( decl->base ) {
+                        cost = Cost::infinity;
+                } else {
+                        cost = Cost::unsafe;
+                } // if
+        }
+}
 …
 void ConversionCost_new::postvisit( const ast::EnumInstType * enumInstType ) {
+        const ast::EnumDecl * baseEnum = enumInstType->base;
+        if ( const ast::Type * baseType = baseEnum->base ) {
+                cost = costCalc( baseType, dst, srcIsLvalue, symtab, env );
+        } else {
+                (void)enumInstType;
+                static ast::ptr<ast::BasicType> integer = { new ast::BasicType( ast::BasicType::SignedInt ) };
+                cost = costCalc( integer, dst, srcIsLvalue, symtab, env );
+        }
+        (void)enumInstType;
+        static ast::ptr<ast::BasicType> integer = { new ast::BasicType( ast::BasicType::SignedInt ) };
+        cost = costCalc( integer, dst, srcIsLvalue, symtab, env );
         if ( cost < Cost::unsafe ) {
                 cost.incSafe();

src/ResolvExpr/ConversionCost.h

-              re5d9274
+              r015925a
                 const TypeEnvironment &env;
                 CostFunction costFunc;
-          private:
-                // refactor for code resue
-                void conversionCostFromBasicToBasic( const BasicType * src, const BasicType* dest );
         };
 …
         void postvisit( const ast::ZeroType * zeroType );
         void postvisit( const ast::OneType * oneType );
-private:
-        // refactor for code resue
-        void conversionCostFromBasicToBasic( const ast::BasicType * src, const ast::BasicType* dest );
 };

src/SymTab/Autogen.h

-              re5d9274
+              r015925a
 #include "AST/Decl.hpp"
+#include "AST/Eval.hpp"
 #include "AST/Expr.hpp"
 #include "AST/Init.hpp"
 …
         template< typename OutIter >
         ast::ptr< ast::Stmt > genCall(
                 InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
                 const CodeLocation & loc, const std::string & fname, OutIter && out,
+                InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
+                const CodeLocation & loc, const std::string & fname, OutIter && out,
                 const ast::Type * type, const ast::Type * addCast, LoopDirection forward = LoopForward );
 …
+        }
         /// inserts into out a generated call expression to function fname with arguments dstParam and
+        /// inserts into out a generated call expression to function fname with arguments dstParam and
         /// srcParam. Should only be called with non-array types.
         /// optionally returns a statement which must be inserted prior to the containing loop, if
+        /// optionally returns a statement which must be inserted prior to the containing loop, if
         /// there is one
         template< typename OutIter >
         ast::ptr< ast::Stmt > genScalarCall(
                 InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
                 const CodeLocation & loc, std::string fname, OutIter && out, const ast::Type * type,
+        ast::ptr< ast::Stmt > genScalarCall(
+                InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
+                const CodeLocation & loc, std::string fname, OutIter && out, const ast::Type * type,
                 const ast::Type * addCast = nullptr
         ) {
 …
                 if ( addCast ) {
                         // cast to T& with qualifiers removed, so that qualified objects can be constructed and
                         // destructed with the same functions as non-qualified objects. Unfortunately, lvalue
                         // is considered a qualifier - for AddressExpr to resolve, its argument must have an
+                        // cast to T& with qualifiers removed, so that qualified objects can be constructed and
+                        // destructed with the same functions as non-qualified objects. Unfortunately, lvalue
+                        // is considered a qualifier - for AddressExpr to resolve, its argument must have an
                         // lvalue-qualified type, so remove all qualifiers except lvalue.
                         // xxx -- old code actually removed lvalue too...
                         ast::ptr< ast::Type > guard = addCast;  // prevent castType from mutating addCast
                         ast::ptr< ast::Type > castType = addCast;
                         ast::remove_qualifiers(
                                 castType,
+                        ast::remove_qualifiers(
+                                castType,
                                 ast::CV::Const | ast::CV::Volatile | ast::CV::Restrict | ast::CV::Atomic );
                         dstParam = new ast::CastExpr{ dstParam, new ast::ReferenceType{ castType } };
 …
                 srcParam.clearArrayIndices();
                 return listInit;
+        }
 …
+        }
         /// Store in out a loop which calls fname on each element of the array with srcParam and
+        /// Store in out a loop which calls fname on each element of the array with srcParam and
         /// dstParam as arguments. If forward is true, loop goes from 0 to N-1, else N-1 to 0
         template< typename OutIter >
         void genArrayCall(
                 InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
                 const CodeLocation & loc, const std::string & fname, OutIter && out,
                 const ast::ArrayType * array, const ast::Type * addCast = nullptr,
                 LoopDirection forward = LoopForward
+                InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
+                const CodeLocation & loc, const std::string & fname, OutIter && out,
+                const ast::ArrayType * array, const ast::Type * addCast = nullptr,
+                LoopDirection forward = LoopForward
         ) {
                 static UniqueName indexName( "_index" );
 …
                 } else {
                         // generate: for ( int i = N-1; i >= 0; --i )
                         begin = ast::UntypedExpr::createCall( loc, "?-?",
                                 { array->dimension, ast::ConstantExpr::from_int( loc, 1 ) } );
+                        begin = ast::call(
+                                loc, "?-?", array->dimension, ast::ConstantExpr::from_int( loc, 1 ) );
                         end = ast::ConstantExpr::from_int( loc, 0 );
                         cmp = "?>=?";
 …
+                }
                 ast::ptr< ast::DeclWithType > index = new ast::ObjectDecl{
                         loc, indexName.newName(), new ast::BasicType{ ast::BasicType::SignedInt },
+                ast::ptr< ast::DeclWithType > index = new ast::ObjectDecl{
+                        loc, indexName.newName(), new ast::BasicType{ ast::BasicType::SignedInt },
                         new ast::SingleInit{ loc, begin } };
                 ast::ptr< ast::Expr > indexVar = new ast::VariableExpr{ loc, index };
+                ast::ptr< ast::Expr > cond = ast::UntypedExpr::createCall(
+                        loc, cmp, { indexVar, end } );
+                ast::ptr< ast::Expr > inc = ast::UntypedExpr::createCall(
+                        loc, update, { indexVar } );
+                ast::ptr< ast::Expr > dstIndex = ast::UntypedExpr::createCall(
+                        loc, "?[?]", { dstParam, indexVar } );
+                // srcParam must keep track of the array indices to build the source parameter and/or
+                ast::ptr< ast::Expr > cond = ast::call( loc, cmp, indexVar, end );
+                ast::ptr< ast::Expr > inc = ast::call( loc, update, indexVar );
+                ast::ptr< ast::Expr > dstIndex = ast::call( loc, "?[?]", dstParam, indexVar );
+                // srcParam must keep track of the array indices to build the source parameter and/or
                 // array list initializer
                 srcParam.addArrayIndex( indexVar, array->dimension );
 …
                 // for stmt's body, eventually containing call
                 ast::CompoundStmt * body = new ast::CompoundStmt{ loc };
                 ast::ptr< ast::Stmt > listInit = genCall(
                         srcParam, dstIndex, loc, fname, std::back_inserter( body->kids ), array->base, addCast,
+                ast::ptr< ast::Stmt > listInit = genCall(
+                        srcParam, dstIndex, loc, fname, std::back_inserter( body->kids ), array->base, addCast,
                         forward );
                 // block containing the stmt and index variable
                 ast::CompoundStmt * block = new ast::CompoundStmt{ loc };
 …
         template< typename OutIter >
         ast::ptr< ast::Stmt > genCall(
                 InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
                 const CodeLocation & loc, const std::string & fname, OutIter && out,
+                InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
+                const CodeLocation & loc, const std::string & fname, OutIter && out,
                 const ast::Type * type, const ast::Type * addCast, LoopDirection forward
         ) {
                 if ( auto at = dynamic_cast< const ast::ArrayType * >( type ) ) {
                         genArrayCall(
                                 srcParam, dstParam, loc, fname, std::forward< OutIter >(out), at, addCast,
+                        genArrayCall(
+                                srcParam, dstParam, loc, fname, std::forward< OutIter >(out), at, addCast,
                                 forward );
                         return {};
                 } else {
                         return genScalarCall(
+                        return genScalarCall(
                                 srcParam, dstParam, loc, fname, std::forward< OutIter >( out ), type, addCast );
+                }
 …
+        }
         static inline ast::ptr< ast::Stmt > genImplicitCall(
                 InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
                 const CodeLocation & loc, const std::string & fname, const ast::ObjectDecl * obj,
                 LoopDirection forward = LoopForward
+        static inline ast::ptr< ast::Stmt > genImplicitCall(
+                InitTweak::InitExpander_new & srcParam, const ast::Expr * dstParam,
+                const CodeLocation & loc, const std::string & fname, const ast::ObjectDecl * obj,
+                LoopDirection forward = LoopForward
         ) {
                 // unnamed bit fields are not copied as they cannot be accessed
 …
                 std::vector< ast::ptr< ast::Stmt > > stmts;
                 genCall(
+                genCall(
                         srcParam, dstParam, loc, fname, back_inserter( stmts ), obj->type, addCast, forward );
 …
                         const ast::Stmt * callStmt = stmts.front();
                         if ( addCast ) {
                                 // implicitly generated ctor/dtor calls should be wrapped so that later passes are
+                                // implicitly generated ctor/dtor calls should be wrapped so that later passes are
                                 // aware they were generated.
                                 callStmt = new ast::ImplicitCtorDtorStmt{ callStmt->location, callStmt };
 …
 // compile-command: "make install" //
 // End: //

src/SymTab/Demangle.cc

re5d9274	r015925a
5	5	// file "LICENCE" distributed with Cforall.
6	6	//
7		// Demangle~~.cc -- Convert a mangled name into a human readable name.~~
	7	// Demangler.cc --
8	8	//
9	9	// Author : Rob Schluntz

src/SymTab/Mangler.h

-              re5d9274
+              r015925a
+}
+extern "C" {
+        char * cforall_demangle(const char *, int);
+}
 // Local Variables: //
 // tab-width: 4 //

src/SymTab/Validate.cc

-              re5d9274
+              r015925a
 // Created On       : Sun May 17 21:50:04 2015
 // Last Modified By : Andrew Beach
 // Last Modified On : Tue May 17 14:36:00 2022
 // Update Count     : 366
+// Last Modified On : Fri Apr 29  9:45:00 2022
+// Update Count     : 365
 //
 …
 #include "ResolvExpr/ResolveTypeof.h"  // for resolveTypeof
 #include "SymTab/Autogen.h"            // for SizeType
-#include "SymTab/ValidateType.h"       // for decayEnumsAndPointers, decayFo...
 #include "SynTree/LinkageSpec.h"       // for C
 #include "SynTree/Attribute.h"         // for noAttributes, Attribute
 …
         };
+        /// Replaces enum types by int, and function or array types in function parameter and return lists by appropriate pointers.
+        struct EnumAndPointerDecay_old {
+                void previsit( EnumDecl * aggregateDecl );
+                void previsit( FunctionType * func );
+        };
+        /// Associates forward declarations of aggregates with their definitions
+        struct LinkReferenceToTypes_old final : public WithIndexer, public WithGuards, public WithVisitorRef<LinkReferenceToTypes_old>, public WithShortCircuiting {
+                LinkReferenceToTypes_old( const Indexer * indexer );
+                void postvisit( TypeInstType * typeInst );
+                void postvisit( EnumInstType * enumInst );
+                void postvisit( StructInstType * structInst );
+                void postvisit( UnionInstType * unionInst );
+                void postvisit( TraitInstType * traitInst );
+                void previsit( QualifiedType * qualType );
+                void postvisit( QualifiedType * qualType );
+                void postvisit( EnumDecl * enumDecl );
+                void postvisit( StructDecl * structDecl );
+                void postvisit( UnionDecl * unionDecl );
+                void postvisit( TraitDecl * traitDecl );
+                void previsit( StructDecl * structDecl );
+                void previsit( UnionDecl * unionDecl );
+                void renameGenericParams( std::list< TypeDecl * > & params );
+          private:
+                const Indexer * local_indexer;
+                typedef std::map< std::string, std::list< EnumInstType * > > ForwardEnumsType;
+                typedef std::map< std::string, std::list< StructInstType * > > ForwardStructsType;
+                typedef std::map< std::string, std::list< UnionInstType * > > ForwardUnionsType;
+                ForwardEnumsType forwardEnums;
+                ForwardStructsType forwardStructs;
+                ForwardUnionsType forwardUnions;
+                /// true if currently in a generic type body, so that type parameter instances can be renamed appropriately
+                bool inGeneric = false;
+        };
         /// Does early resolution on the expressions that give enumeration constants their values
         struct ResolveEnumInitializers final : public WithIndexer, public WithGuards, public WithVisitorRef<ResolveEnumInitializers>, public WithShortCircuiting {
 …
                 void previsit( StructDecl * aggrDecl );
                 void previsit( UnionDecl * aggrDecl );
+        };
+        // These structs are the sub-sub-passes of ForallPointerDecay_old.
+        struct TraitExpander_old final {
+                void previsit( FunctionType * );
+                void previsit( StructDecl * );
+                void previsit( UnionDecl * );
+        };
+        struct AssertionFixer_old final {
+                void previsit( FunctionType * );
+                void previsit( StructDecl * );
+                void previsit( UnionDecl * );
+        };
+        struct CheckOperatorTypes_old final {
+                void previsit( ObjectDecl * );
+        };
+        struct FixUniqueIds_old final {
+                void previsit( DeclarationWithType * );
         };
 …
         void validate_A( std::list< Declaration * > & translationUnit ) {
+                PassVisitor<EnumAndPointerDecay_old> epc;
                 PassVisitor<HoistTypeDecls> hoistDecls;
+                {
 …
                         ReplaceTypedef::replaceTypedef( translationUnit );
                         ReturnTypeFixer::fix( translationUnit ); // must happen before autogen
+                        decayEnumsAndPointers( translationUnit ); // must happen before VerifyCtorDtorAssign, because void return objects should not exist; before LinkReferenceToTypes_old because it is an indexer and needs correct types for mangling
+                }
+                        acceptAll( translationUnit, epc ); // must happen before VerifyCtorDtorAssign, because void return objects should not exist; before LinkReferenceToTypes_old because it is an indexer and needs correct types for mangling
+                }
+        }
+        void linkReferenceToTypes( std::list< Declaration * > & translationUnit ) {
+                PassVisitor<LinkReferenceToTypes_old> lrt( nullptr );
+                acceptAll( translationUnit, lrt ); // must happen before autogen, because sized flag needs to propagate to generated functions
+        }
 …
                         });
+                }
+        }
+        static void decayForallPointers( std::list< Declaration * > & translationUnit ) {
+                PassVisitor<TraitExpander_old> te;
+                acceptAll( translationUnit, te );
+                PassVisitor<AssertionFixer_old> af;
+                acceptAll( translationUnit, af );
+                PassVisitor<CheckOperatorTypes_old> cot;
+                acceptAll( translationUnit, cot );
+                PassVisitor<FixUniqueIds_old> fui;
+                acceptAll( translationUnit, fui );
+        }
 …
+        }
+        void validateType( Type * type, const Indexer * indexer ) {
+                PassVisitor<EnumAndPointerDecay_old> epc;
+                PassVisitor<LinkReferenceToTypes_old> lrt( indexer );
+                PassVisitor<TraitExpander_old> te;
+                PassVisitor<AssertionFixer_old> af;
+                PassVisitor<CheckOperatorTypes_old> cot;
+                PassVisitor<FixUniqueIds_old> fui;
+                type->accept( epc );
+                type->accept( lrt );
+                type->accept( te );
+                type->accept( af );
+                type->accept( cot );
+                type->accept( fui );
+        }
         void HoistTypeDecls::handleType( Type * type ) {
                 // some type declarations are buried in expressions and not easy to hoist during parsing; hoist them here
 …
+        }
+        void EnumAndPointerDecay_old::previsit( EnumDecl * enumDecl ) {
+                // Set the type of each member of the enumeration to be EnumConstant
+                for ( std::list< Declaration * >::iterator i = enumDecl->members.begin(); i != enumDecl->members.end(); ++i ) {
+                        ObjectDecl * obj = dynamic_cast< ObjectDecl * >( * i );
+                        assert( obj );
+                        obj->set_type( new EnumInstType( Type::Qualifiers( Type::Const ), enumDecl->name ) );
+                } // for
+        }
+        namespace {
+                template< typename DWTList >
+                void fixFunctionList( DWTList & dwts, bool isVarArgs, FunctionType * func ) {
+                        auto nvals = dwts.size();
+                        bool containsVoid = false;
+                        for ( auto & dwt : dwts ) {
+                                // fix each DWT and record whether a void was found
+                                containsVoid |= fixFunction( dwt );
+                        }
+                        // the only case in which "void" is valid is where it is the only one in the list
+                        if ( containsVoid && ( nvals > 1 || isVarArgs ) ) {
+                                SemanticError( func, "invalid type void in function type " );
+                        }
+                        // one void is the only thing in the list; remove it.
+                        if ( containsVoid ) {
+                                delete dwts.front();
+                                dwts.clear();
+                        }
+                }
+        }
+        void EnumAndPointerDecay_old::previsit( FunctionType * func ) {
+                // Fix up parameters and return types
+                fixFunctionList( func->parameters, func->isVarArgs, func );
+                fixFunctionList( func->returnVals, false, func );
+        }
+        LinkReferenceToTypes_old::LinkReferenceToTypes_old( const Indexer * other_indexer ) : WithIndexer( false ) {
+                if ( other_indexer ) {
+                        local_indexer = other_indexer;
+                } else {
+                        local_indexer = &indexer;
+                } // if
+        }
+        void LinkReferenceToTypes_old::postvisit( EnumInstType * enumInst ) {
+                const EnumDecl * st = local_indexer->lookupEnum( enumInst->name );
+                // it's not a semantic error if the enum is not found, just an implicit forward declaration
+                if ( st ) {
+                        enumInst->baseEnum = const_cast<EnumDecl *>(st); // Just linking in the node
+                } // if
+                if ( ! st || ! st->body ) {
+                        // use of forward declaration
+                        forwardEnums[ enumInst->name ].push_back( enumInst );
+                } // if
+        }
+        void LinkReferenceToTypes_old::postvisit( StructInstType * structInst ) {
+                const StructDecl * st = local_indexer->lookupStruct( structInst->name );
+                // it's not a semantic error if the struct is not found, just an implicit forward declaration
+                if ( st ) {
+                        structInst->baseStruct = const_cast<StructDecl *>(st); // Just linking in the node
+                } // if
+                if ( ! st || ! st->body ) {
+                        // use of forward declaration
+                        forwardStructs[ structInst->name ].push_back( structInst );
+                } // if
+        }
+        void LinkReferenceToTypes_old::postvisit( UnionInstType * unionInst ) {
+                const UnionDecl * un = local_indexer->lookupUnion( unionInst->name );
+                // it's not a semantic error if the union is not found, just an implicit forward declaration
+                if ( un ) {
+                        unionInst->baseUnion = const_cast<UnionDecl *>(un); // Just linking in the node
+                } // if
+                if ( ! un || ! un->body ) {
+                        // use of forward declaration
+                        forwardUnions[ unionInst->name ].push_back( unionInst );
+                } // if
+        }
+        void LinkReferenceToTypes_old::previsit( QualifiedType * ) {
+                visit_children = false;
+        }
+        void LinkReferenceToTypes_old::postvisit( QualifiedType * qualType ) {
+                // linking only makes sense for the 'oldest ancestor' of the qualified type
+                qualType->parent->accept( * visitor );
+        }
+        template< typename Decl >
+        void normalizeAssertions( std::list< Decl * > & assertions ) {
+                // ensure no duplicate trait members after the clone
+                auto pred = [](Decl * d1, Decl * d2) {
+                        // only care if they're equal
+                        DeclarationWithType * dwt1 = dynamic_cast<DeclarationWithType *>( d1 );
+                        DeclarationWithType * dwt2 = dynamic_cast<DeclarationWithType *>( d2 );
+                        if ( dwt1 && dwt2 ) {
+                                if ( dwt1->name == dwt2->name && ResolvExpr::typesCompatible( dwt1->get_type(), dwt2->get_type(), SymTab::Indexer() ) ) {
+                                        // std::cerr << "=========== equal:" << std::endl;
+                                        // std::cerr << "d1: " << d1 << std::endl;
+                                        // std::cerr << "d2: " << d2 << std::endl;
+                                        return false;
+                                }
+                        }
+                        return d1 < d2;
+                };
+                std::set<Decl *, decltype(pred)> unique_members( assertions.begin(), assertions.end(), pred );
+                // if ( unique_members.size() != assertions.size() ) {
+                //      std::cerr << "============different" << std::endl;
+                //      std::cerr << unique_members.size() << " " << assertions.size() << std::endl;
+                // }
+                std::list< Decl * > order;
+                order.splice( order.end(), assertions );
+                std::copy_if( order.begin(), order.end(), back_inserter( assertions ), [&]( Decl * decl ) {
+                        return unique_members.count( decl );
+                });
+        }
         // expand assertions from trait instance, performing the appropriate type variable substitutions
         template< typename Iterator >
 …
                 // substitute trait decl parameters for instance parameters
                 applySubstitution( inst->baseTrait->parameters.begin(), inst->baseTrait->parameters.end(), inst->parameters.begin(), asserts.begin(), asserts.end(), out );
+        }
+        void LinkReferenceToTypes_old::postvisit( TraitDecl * traitDecl ) {
+                if ( traitDecl->name == "sized" ) {
+                        // "sized" is a special trait - flick the sized status on for the type variable
+                        assertf( traitDecl->parameters.size() == 1, "Built-in trait 'sized' has incorrect number of parameters: %zd", traitDecl->parameters.size() );
+                        TypeDecl * td = traitDecl->parameters.front();
+                        td->set_sized( true );
+                }
+                // move assertions from type parameters into the body of the trait
+                for ( TypeDecl * td : traitDecl->parameters ) {
+                        for ( DeclarationWithType * assert : td->assertions ) {
+                                if ( TraitInstType * inst = dynamic_cast< TraitInstType * >( assert->get_type() ) ) {
+                                        expandAssertions( inst, back_inserter( traitDecl->members ) );
+                                } else {
+                                        traitDecl->members.push_back( assert->clone() );
+                                }
+                        }
+                        deleteAll( td->assertions );
+                        td->assertions.clear();
+                } // for
+        }
+        void LinkReferenceToTypes_old::postvisit( TraitInstType * traitInst ) {
+                // handle other traits
+                const TraitDecl * traitDecl = local_indexer->lookupTrait( traitInst->name );
+                if ( ! traitDecl ) {
+                        SemanticError( traitInst->location, "use of undeclared trait " + traitInst->name );
+                } // if
+                if ( traitDecl->parameters.size() != traitInst->parameters.size() ) {
+                        SemanticError( traitInst, "incorrect number of trait parameters: " );
+                } // if
+                traitInst->baseTrait = const_cast<TraitDecl *>(traitDecl); // Just linking in the node
+                // need to carry over the 'sized' status of each decl in the instance
+                for ( auto p : group_iterate( traitDecl->parameters, traitInst->parameters ) ) {
+                        TypeExpr * expr = dynamic_cast< TypeExpr * >( std::get<1>(p) );
+                        if ( ! expr ) {
+                                SemanticError( std::get<1>(p), "Expression parameters for trait instances are currently unsupported: " );
+                        }
+                        if ( TypeInstType * inst = dynamic_cast< TypeInstType * >( expr->get_type() ) ) {
+                                TypeDecl * formalDecl = std::get<0>(p);
+                                TypeDecl * instDecl = inst->baseType;
+                                if ( formalDecl->get_sized() ) instDecl->set_sized( true );
+                        }
+                }
+                // normalizeAssertions( traitInst->members );
+        }
+        void LinkReferenceToTypes_old::postvisit( EnumDecl * enumDecl ) {
+                // visit enum members first so that the types of self-referencing members are updated properly
+                // Replace the enum base; right now it works only for StructEnum
+                if ( enumDecl->base && dynamic_cast<TypeInstType*>(enumDecl->base) ) {
+                        std::string baseName = static_cast<TypeInstType*>(enumDecl->base)->name;
+                        const StructDecl * st = local_indexer->lookupStruct( baseName );
+                        if ( st ) {
+                                enumDecl->base = new StructInstType(Type::Qualifiers(),const_cast<StructDecl *>(st)); // Just linking in the node
+                        }
+                }
+                if ( enumDecl->body ) {
+                        ForwardEnumsType::iterator fwds = forwardEnums.find( enumDecl->name );
+                        if ( fwds != forwardEnums.end() ) {
+                                for ( std::list< EnumInstType * >::iterator inst = fwds->second.begin(); inst != fwds->second.end(); ++inst ) {
+                                        (* inst)->baseEnum = enumDecl;
+                                } // for
+                                forwardEnums.erase( fwds );
+                        } // if
+                } // if
+        }
+        void LinkReferenceToTypes_old::renameGenericParams( std::list< TypeDecl * > & params ) {
+                // rename generic type parameters uniquely so that they do not conflict with user-defined function forall parameters, e.g.
+                //   forall(otype T)
+                //   struct Box {
+                //     T x;
+                //   };
+                //   forall(otype T)
+                //   void f(Box(T) b) {
+                //     ...
+                //   }
+                // The T in Box and the T in f are different, so internally the naming must reflect that.
+                GuardValue( inGeneric );
+                inGeneric = ! params.empty();
+                for ( TypeDecl * td : params ) {
+                        td->name = "__" + td->name + "_generic_";
+                }
+        }
+        void LinkReferenceToTypes_old::previsit( StructDecl * structDecl ) {
+                renameGenericParams( structDecl->parameters );
+        }
+        void LinkReferenceToTypes_old::previsit( UnionDecl * unionDecl ) {
+                renameGenericParams( unionDecl->parameters );
+        }
+        void LinkReferenceToTypes_old::postvisit( StructDecl * structDecl ) {
+                // visit struct members first so that the types of self-referencing members are updated properly
+                // xxx - need to ensure that type parameters match up between forward declarations and definition (most importantly, number of type parameters and their defaults)
+                if ( structDecl->body ) {
+                        ForwardStructsType::iterator fwds = forwardStructs.find( structDecl->name );
+                        if ( fwds != forwardStructs.end() ) {
+                                for ( std::list< StructInstType * >::iterator inst = fwds->second.begin(); inst != fwds->second.end(); ++inst ) {
+                                        (* inst)->baseStruct = structDecl;
+                                } // for
+                                forwardStructs.erase( fwds );
+                        } // if
+                } // if
+        }
+        void LinkReferenceToTypes_old::postvisit( UnionDecl * unionDecl ) {
+                if ( unionDecl->body ) {
+                        ForwardUnionsType::iterator fwds = forwardUnions.find( unionDecl->name );
+                        if ( fwds != forwardUnions.end() ) {
+                                for ( std::list< UnionInstType * >::iterator inst = fwds->second.begin(); inst != fwds->second.end(); ++inst ) {
+                                        (* inst)->baseUnion = unionDecl;
+                                } // for
+                                forwardUnions.erase( fwds );
+                        } // if
+                } // if
+        }
+        void LinkReferenceToTypes_old::postvisit( TypeInstType * typeInst ) {
+                // ensure generic parameter instances are renamed like the base type
+                if ( inGeneric && typeInst->baseType ) typeInst->name = typeInst->baseType->name;
+                if ( const NamedTypeDecl * namedTypeDecl = local_indexer->lookupType( typeInst->name ) ) {
+                        if ( const TypeDecl * typeDecl = dynamic_cast< const TypeDecl * >( namedTypeDecl ) ) {
+                                typeInst->set_isFtype( typeDecl->kind == TypeDecl::Ftype );
+                        } // if
+                } // if
+        }
 …
+                                                }
+                                        }
+                                }
+                        }
 …
         void ForallPointerDecay_old::previsit( UnionDecl * aggrDecl ) {
                 forallFixer( aggrDecl->parameters, aggrDecl );
+        }
+        void TraitExpander_old::previsit( FunctionType * ftype ) {
+                expandTraits( ftype->forall );
+        }
+        void TraitExpander_old::previsit( StructDecl * aggrDecl ) {
+                expandTraits( aggrDecl->parameters );
+        }
+        void TraitExpander_old::previsit( UnionDecl * aggrDecl ) {
+                expandTraits( aggrDecl->parameters );
+        }
+        void AssertionFixer_old::previsit( FunctionType * ftype ) {
+                fixAssertions( ftype->forall, ftype );
+        }
+        void AssertionFixer_old::previsit( StructDecl * aggrDecl ) {
+                fixAssertions( aggrDecl->parameters, aggrDecl );
+        }
+        void AssertionFixer_old::previsit( UnionDecl * aggrDecl ) {
+                fixAssertions( aggrDecl->parameters, aggrDecl );
+        }
+        void CheckOperatorTypes_old::previsit( ObjectDecl * object ) {
+                // ensure that operator names only apply to functions or function pointers
+                if ( CodeGen::isOperator( object->name ) && ! dynamic_cast< FunctionType * >( object->type->stripDeclarator() ) ) {
+                        SemanticError( object->location, toCString( "operator ", object->name.c_str(), " is not a function or function pointer." )  );
+                }
+        }
+        void FixUniqueIds_old::previsit( DeclarationWithType * decl ) {
+                decl->fixUniqueId();
+        }

src/SymTab/Validate.h

-              re5d9274
+              r015925a
 // Author           : Richard C. Bilson
 // Created On       : Sun May 17 21:53:34 2015
 // Last Modified By : Andrew Beach
 // Last Modified On : Tue May 17 14:35:00 2022
 // Update Count     : 5
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Sat Jul 22 09:46:07 2017
+// Update Count     : 4
 //
 …
         /// Normalizes struct and function declarations
         void validate( std::list< Declaration * > &translationUnit, bool doDebug = false );
+        void validateType( Type *type, const Indexer *indexer );
         // Sub-passes of validate.
 …
         void validate_E( std::list< Declaration * > &translationUnit );
         void validate_F( std::list< Declaration * > &translationUnit );
+        void linkReferenceToTypes( std::list< Declaration * > &translationUnit );
+        const ast::Type * validateType(
+                const CodeLocation & loc, const ast::Type * type, const ast::SymbolTable & symtab );
 } // namespace SymTab

src/SymTab/demangler.cc

re5d9274	r015925a
1		#include "~~Demangle~~.h"
	1	#include "Mangler.h"
2	2	#include <iostream>
3	3	#include <fstream>

src/SymTab/module.mk

-              re5d9274
+              r015925a
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 14:46:00 2022
 ## Update Count     : 5
+## Last Modified On : Thr Aug 10 16:08:00 2017
+## Update Count     : 4
 ###############################################################################
 SRC_SYMTAB = \
         SymTab/Autogen.cc \
         SymTab/Autogen.h \
         SymTab/FixFunction.cc \
         SymTab/FixFunction.h \
         SymTab/Indexer.cc \
         SymTab/Indexer.h \
         SymTab/Mangler.cc \
         SymTab/ManglerCommon.cc \
         SymTab/Mangler.h \
         SymTab/ValidateType.cc \
         SymTab/ValidateType.h
+      SymTab/Autogen.cc \
+      SymTab/Autogen.h \
+      SymTab/FixFunction.cc \
+      SymTab/FixFunction.h \
+      SymTab/Indexer.cc \
+      SymTab/Indexer.h \
+      SymTab/Mangler.cc \
+      SymTab/ManglerCommon.cc \
+      SymTab/Mangler.h \
+      SymTab/Validate.cc \
+      SymTab/Validate.h
+SRC += $(SRC_SYMTAB) \
+        SymTab/Validate.cc \
+        SymTab/Validate.h
+SRCDEMANGLE += $(SRC_SYMTAB) \
+        SymTab/Demangle.cc \
+        SymTab/Demangle.h
+SRC += $(SRC_SYMTAB)
+SRCDEMANGLE += $(SRC_SYMTAB) SymTab/Demangle.cc

src/SynTree/module.mk

re5d9274	r015925a
24	24	SynTree/AttrType.cc \
25	25	SynTree/BaseSyntaxNode.h \
26		~~SynTree/BaseSyntaxNode.cc \~~
27	26	SynTree/BasicType.cc \
28	27	SynTree/CommaExpr.cc \

src/Tuples/TupleExpansion.cc

-              re5d9274
+              r015925a
 // Author           : Rodolfo G. Esteves
 // Created On       : Mon May 18 07:44:20 2015
 // Last Modified By : Andrew Beach
 // Last Modified On : Tue May 17 15:02:00 2022
 // Update Count     : 25
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Fri Dec 13 23:45:51 2019
+// Update Count     : 24
 //
 …
                 return nullptr;
+        }
+        namespace {
+                /// determines if impurity (read: side-effects) may exist in a piece of code. Currently gives a very crude approximation, wherein any function call expression means the code may be impure
+                struct ImpurityDetector : public WithShortCircuiting {
+                        ImpurityDetector( bool ignoreUnique ) : ignoreUnique( ignoreUnique ) {}
+                        void previsit( const ApplicationExpr * appExpr ) {
+                                visit_children = false;
+                                if ( const DeclarationWithType * function = InitTweak::getFunction( appExpr ) ) {
+                                        if ( function->linkage == LinkageSpec::Intrinsic ) {
+                                                if ( function->name == "*?" || function->name == "?[?]" ) {
+                                                        // intrinsic dereference, subscript are pure, but need to recursively look for impurity
+                                                        visit_children = true;
+                                                        return;
+                                                }
+                                        }
+                                }
+                                maybeImpure = true;
+                        }
+                        void previsit( const UntypedExpr * ) { maybeImpure = true; visit_children = false; }
+                        void previsit( const UniqueExpr * ) {
+                                if ( ignoreUnique ) {
+                                        // bottom out at unique expression.
+                                        // The existence of a unique expression doesn't change the purity of an expression.
+                                        // That is, even if the wrapped expression is impure, the wrapper protects the rest of the expression.
+                                        visit_children = false;
+                                        return;
+                                }
+                        }
+                        bool maybeImpure = false;
+                        bool ignoreUnique;
+                };
+        } // namespace
+        bool maybeImpure( const Expression * expr ) {
+                PassVisitor<ImpurityDetector> detector( false );
+                expr->accept( detector );
+                return detector.pass.maybeImpure;
+        }
+        bool maybeImpureIgnoreUnique( const Expression * expr ) {
+                PassVisitor<ImpurityDetector> detector( true );
+                expr->accept( detector );
+                return detector.pass.maybeImpure;
+        }
 } // namespace Tuples

src/Tuples/Tuples.cc

-              re5d9274
+              r015925a
 // Created On       : Mon Jun 17 14:41:00 2019
 // Last Modified By : Andrew Beach
 // Last Modified On : Mon May 16 16:15:00 2022
 // Update Count     : 2
+// Last Modified On : Tue Jun 18  9:31:00 2019
+// Update Count     : 1
 //
 …
 #include "AST/Pass.hpp"
 #include "AST/LinkageSpec.hpp"
-#include "Common/PassVisitor.h"
 #include "InitTweak/InitTweak.h"
 …
 namespace {
-        /// Checks if impurity (read: side-effects) may exist in a piece of code.
-        /// Currently gives a very crude approximation, wherein any function
-        /// call expression means the code may be impure.
-        struct ImpurityDetector_old : public WithShortCircuiting {
-                bool const ignoreUnique;
-                bool maybeImpure;
-                ImpurityDetector_old( bool ignoreUnique ) :
-                        ignoreUnique( ignoreUnique ), maybeImpure( false )
-                {}
-                void previsit( const ApplicationExpr * appExpr ) {
-                        visit_children = false;
-                        if ( const DeclarationWithType * function =
-                                        InitTweak::getFunction( appExpr ) ) {
-                                if ( function->linkage == LinkageSpec::Intrinsic ) {
-                                        if ( function->name == "*?" || function->name == "?[?]" ) {
-                                                // intrinsic dereference, subscript are pure,
-                                                // but need to recursively look for impurity
-                                                visit_children = true;
-                                                return;
+                                        }
+                                }
+                        }
-                        maybeImpure = true;
+                }
-                void previsit( const UntypedExpr * ) {
-                        maybeImpure = true;
-                        visit_children = false;
+                }
-                void previsit( const UniqueExpr * ) {
-                        if ( ignoreUnique ) {
-                                // bottom out at unique expression.
-                                // The existence of a unique expression doesn't change the purity of an expression.
-                                // That is, even if the wrapped expression is impure, the wrapper protects the rest of the expression.
-                                visit_children = false;
-                                return;
+                        }
+                }
-        };
-        bool detectImpurity( const Expression * expr, bool ignoreUnique ) {
-                PassVisitor<ImpurityDetector_old> detector( ignoreUnique );
-                expr->accept( detector );
-                return detector.pass.maybeImpure;
+        }
         /// Determines if impurity (read: side-effects) may exist in a piece of code. Currently gives
         /// a very crude approximation, wherein any function call expression means the code may be
         /// impure.
     struct ImpurityDetector : public ast::WithShortCircuiting {
                 bool result = false;
+                bool maybeImpure = false;
                 void previsit( ast::ApplicationExpr const * appExpr ) {
 …
+                                }
+                        }
                         result = true; visit_children = false;
+                        maybeImpure = true; visit_children = false;
+                }
                 void previsit( ast::UntypedExpr const * ) {
                         result = true; visit_children = false;
+                        maybeImpure = true; visit_children = false;
+                }
         };
         struct ImpurityDetectorIgnoreUnique : public ImpurityDetector {
                 using ImpurityDetector::previsit;
 …
+                }
         };
+        template<typename Detector>
+        bool detectImpurity( const ast::Expr * expr ) {
+                ast::Pass<Detector> detector;
+                expr->accept( detector );
+                return detector.core.maybeImpure;
+        }
 } // namespace
 bool maybeImpure( const ast::Expr * expr ) {
         return ast::Pass<ImpurityDetector>::read( expr );
+        return detectImpurity<ImpurityDetector>( expr );
+}
 bool maybeImpureIgnoreUnique( const ast::Expr * expr ) {
+        return ast::Pass<ImpurityDetectorIgnoreUnique>::read( expr );
+}
+bool maybeImpure( const Expression * expr ) {
+        return detectImpurity( expr, false );
+}
+bool maybeImpureIgnoreUnique( const Expression * expr ) {
+        return detectImpurity( expr, true );
+        return detectImpurity<ImpurityDetectorIgnoreUnique>( expr );
+}

src/Tuples/module.mk

-              re5d9274
+              r015925a
 ## Author           : Richard C. Bilson
 ## Created On       : Mon Jun  1 17:49:17 2015
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Mon May 17 15:00:00 2022
 ## Update Count     : 3
+## Last Modified By : Henry Xue
+## Last Modified On : Mon Aug 23 15:36:09 2021
+## Update Count     : 2
 ###############################################################################
 …
         Tuples/Tuples.h
 SRC += $(SRC_TUPLES)
 SRCDEMANGLE += $(SRC_TUPLES)

src/Validate/Autogen.cpp

-              re5d9274
+              r015925a
         auto retval = srcParam();
         retval->name = "_ret";
-        // xxx - Adding this unused attribute can slience unused variable warning
-        // However, some code might not be compiled as expected
-        // Temporarily disabled
-        // retval->attributes.push_back(new ast::Attribute("unused"));
         return genProto( "?=?", { dstParam(), srcParam() }, { retval } );
+}

src/Validate/module.mk

-              re5d9274
+              r015925a
 ## Author           : Rob Schluntz
 ## Created On       : Fri Jul 27 10:10:10 2018
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tue May 17 14:59:00 2022
 ## Update Count     : 3
+## Last Modified By : Rob Schluntz
+## Last Modified On : Fri Jul 27 10:10:26 2018
+## Update Count     : 2
 ###############################################################################
 SRC_VALIDATE = \
-        Validate/FindSpecialDecls.cc \
-        Validate/FindSpecialDecls.h
-SRC += $(SRC_VALIDATE) \
         Validate/Autogen.cpp \
         Validate/Autogen.hpp \
 …
         Validate/EliminateTypedef.cpp \
         Validate/EliminateTypedef.hpp \
-        Validate/FindSpecialDeclsNew.cpp \
         Validate/FixQualifiedTypes.cpp \
         Validate/FixQualifiedTypes.hpp \
 …
         Validate/NoIdSymbolTable.hpp \
         Validate/ReturnCheck.cpp \
+        Validate/ReturnCheck.hpp
+        Validate/ReturnCheck.hpp \
+        Validate/FindSpecialDeclsNew.cpp \
+        Validate/FindSpecialDecls.cc \
+        Validate/FindSpecialDecls.h
+SRC += $(SRC_VALIDATE)
 SRCDEMANGLE += $(SRC_VALIDATE)

src/Virtual/module.mk

-              re5d9274
+              r015925a
 ## Created On       : Tus Jul 25 10:18:00 2017
 ## Last Modified By : Andrew Beach
 ## Last Modified On : Tus May 17 14:59:00 2022
 ## Update Count     : 1
+## Last Modified On : Tus Jul 25 10:18:00 2017
+## Update Count     : 0
 ###############################################################################
+SRC += \
+        Virtual/ExpandCasts.cc \
+        Virtual/ExpandCasts.h \
+        Virtual/Tables.cc \
+        Virtual/Tables.h
+SRC += Virtual/ExpandCasts.cc Virtual/ExpandCasts.h \
+        Virtual/Tables.cc Virtual/Tables.h
+SRCDEMANGLE += Virtual/Tables.cc

src/main.cc

re5d9274	r015925a
70	70	#include "ResolvExpr/Resolver.h" // for resolve
71	71	#include "SymTab/Validate.h" // for validate
72		~~#include "SymTab/ValidateType.h" // for linkReferenceToTypes~~
73	72	#include "SynTree/LinkageSpec.h" // for Spec, Cforall, Intrinsic
74	73	#include "SynTree/Declaration.h" // for Declaration

tests/.expect/attributes.nast.x64.txt

re5d9274	r015925a
1339	1339	}
1340	1340
1341		return (*_X4_dstM12__anonymous4_2);
	1341	{
	1342	((void)(_X4_retM12__anonymous4_2=(_X4_dstM12__anonymous4_2)) / ?{} */);
	1343	}
	1344
	1345	return _X4_retM12__anonymous4_2;
1342	1346	}
1343	1347	{

tests/.expect/attributes.nast.x86.txt

re5d9274	r015925a
1339	1339	}
1340	1340
1341		return (*_X4_dstM12__anonymous4_2);
	1341	{
	1342	((void)(_X4_retM12__anonymous4_2=(_X4_dstM12__anonymous4_2)) / ?{} */);
	1343	}
	1344
	1345	return _X4_retM12__anonymous4_2;
1342	1346	}
1343	1347	{

tests/.expect/attributes.oast.x64.txt

re5d9274	r015925a
1339	1339	}
1340	1340
1341		return (*_X4_dstM12__anonymous4_2);
	1341	{
	1342	((void)(_X4_retM12__anonymous4_2=(_X4_dstM12__anonymous4_2)) / ?{} */);
	1343	}
	1344
	1345	return _X4_retM12__anonymous4_2;
1342	1346	}
1343	1347	{

tests/.expect/attributes.oast.x86.txt

re5d9274	r015925a
1339	1339	}
1340	1340
	1341	{
	1342	((void)(_X4_retM12__anonymous4_2=(_X4_dstM12__anonymous4_2)) / ?{} */);
	1343	}
	1344
1341	1345	return _X4_retM12__anonymous4_2;
1342	1346	}

tests/.expect/quasiKeyword.txt

re5d9274	r015925a
1		quasiKeyword.cfa:52:25: warning: Compiled
	1	quasiKeyword.cfa:54:25: warning: Compiled

tests/exceptions/defaults.cfa

-              re5d9274
+              r015925a
 #include <string.h>
+#include <exception.hfa>
 exception log_message {
 …
 };
+// Manually define the virtual table and helper functions.
+void copy(log_message * this, log_message * that) {
+        *this = *that;
+}
+_EHM_DEFINE_COPY(log_message, )
 const char * msg(log_message * this) {
         return this->msg;
+}
+const struct log_message_vtable log_vt @= {
+        .__cfavir_typeid : &__cfatid_log_message,
+        .size : sizeof(struct log_message),
+        .copy : copy,
+        .^?{} : ^?{},
+        .msg : msg,
+};
+_EHM_VIRTUAL_TABLE(log_message, , log_vt);
 // Logging messages don't have to be handled.

tests/include/.expect/includes.nast.txt

re5d9274	r015925a
1		include/includes.cfa:173:25: warning: Compiled
	1	include/includes.cfa:169:25: warning: Compiled

tests/include/includes.cfa

-              re5d9274
+              r015925a
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
 // Last Modified On : Sun May 22 08:27:20 2022
 // Update Count     : 779
+// Last Modified On : Tue May 10 16:36:44 2022
+// Update Count     : 776
 //
 …
 #endif
 #include <execinfo.h>
+#if __has_include( "expat.h" )
+#include <expat.h>                                                                              // may not be installed
+#include <expat.h>
 #include <expat_external.h>
-#endif
 #include <fcntl.h>
 #include <features.h>
 …
 //#include <link.h>                                                                             // CFA bug #240 nested anonymous enum fails
 #include <locale.h>
+#if __has_include( "ltdl.h" )
+#include <ltdl.h>                                                                               // may not be installed
+#endif
+#include <ltdl.h>
 //#include <malloc.h>                                                                   // cannot include in extern "C" because of CFA #include_next
 #include <math.h>

tests/linking/exception-nothreads.cfa

-              re5d9274
+              r015925a
 #include <stdlib.hfa>
+#include <exception.hfa>
 exception ping {};
 vtable(ping) ping_vt;
+EHM_EXCEPTION(ping)();
+EHM_VIRTUAL_TABLE(ping, ping_vt);
 int main(void) {

tests/linking/exception-withthreads.cfa

-              re5d9274
+              r015925a
 #include <stdlib.hfa>
+#include <exception.hfa>
 #include "../exceptions/with-threads.hfa"
 exception ping {};
 vtable(ping) ping_vt;
+EHM_EXCEPTION(ping)();
+EHM_VIRTUAL_TABLE(ping, ping_vt);
 int main(void) {

tests/pybin/settings.py

re5d9274	r015925a
201	201	global output_width
202	202	output_width = max(map(lambda t: len(t.target()), tests))
203		~~# 35 is the maximum width of the name field before we get line wrapping.~~
204		~~output_width = min(output_width, 35)~~

tests/pybin/test_run.py

-              re5d9274
+              r015925a
                 return os.path.normpath( os.path.join(settings.BUILDDIR, self.path, self.name) )
-        def format_target(self, width):
-                target = self.target()
-                length = len(target)
-                if length < width:
-                        return '{0:{width}}'.format(target, width=width)
-                elif length == width:
-                        return target
-                else:
-                        return '...' + target[3-width:]
         @staticmethod
         def valid_name(name):

tests/quasiKeyword.cfa

-              re5d9274
+              r015925a
 // quasiKeyword.cfa -- test that quasi-keywords can be used for variable and functions names, as well as keywords in
 //                                         control structures.
 //
+//
 // Author           : Peter A. Buhr
 // Created On       : Wed Feb 17 10:33:49 2021
 …
 // Last Modified On : Sat Jun  5 10:07:59 2021
 // Update Count     : 8
 //
+//
+exception E {};
+#include <exception.hfa>
+EHM_EXCEPTION( E )();
 void catch( int i ) {}
 …
                 } fixup ( E * ) {
                 } finally {
+                }
+                }
         else catch = 3;

tests/test.py

-              re5d9274
+              r015925a
         parser.add_argument('--install', help='Run all tests based on installed binaries or tree binaries', type=comma_separated(yes_no), default='no')
         parser.add_argument('--continue', help='When multiple specifications are passed (debug/install/arch), sets whether or not to continue if the last specification failed', type=yes_no, default='yes', dest='continue_')
         parser.add_argument('--timeout', help='Maximum duration in seconds after a single test is considered to have timed out', type=int, default=180)
+        parser.add_argument('--timeout', help='Maximum duration in seconds after a single test is considered to have timed out', type=int, default=120)
         parser.add_argument('--global-timeout', help='Maximum cumulative duration in seconds after the ALL tests are considered to have timed out', type=int, default=7200)
         parser.add_argument('--timeout-with-gdb', help='Instead of killing the command when it times out, orphan it and print process id to allow gdb to attach', type=yes_no, default="no")
 …
         try :
                 # print formated name
                 name_txt = t.format_target(width=settings.output_width) + '  '
+                name_txt = '{0:{width}}  '.format(t.target(), width=settings.output_width)
                 retcode, error, duration = run_single_test(t)

Context Navigation

Changes in / [e5d9274:015925a]

Legend:

Download in other formats: