Changes in / [fc19129:814525c]
- Files:
-
- 5 deleted
- 23 edited
-
doc/bibliography/cfa.bib (modified) (5 diffs)
-
doc/generic_types/Makefile (deleted)
-
doc/generic_types/acmart.cls (modified) (2 diffs)
-
doc/generic_types/generic_types.tex (modified) (32 diffs)
-
src/CodeGen/CodeGenerator.cc (modified) (2 diffs)
-
src/Parser/ExpressionNode.cc (modified) (2 diffs)
-
src/Parser/parser.yy (modified) (2 diffs)
-
src/SymTab/Indexer.cc (modified) (2 diffs)
-
src/SymTab/Validate.cc (modified) (3 diffs)
-
src/SynTree/Expression.cc (modified) (3 diffs)
-
src/SynTree/Expression.h (modified) (4 diffs)
-
src/SynTree/Mutator.cc (modified) (2 diffs)
-
src/SynTree/Visitor.cc (modified) (2 diffs)
-
src/driver/cfa.cc (modified) (1 diff)
-
src/libcfa/Makefile.am (modified) (1 diff)
-
src/libcfa/Makefile.in (modified) (17 diffs)
-
src/libcfa/assert.c (modified) (3 diffs)
-
src/libcfa/concurrency/kernel.c (modified) (14 diffs)
-
src/libcfa/concurrency/thread.c (modified) (1 diff)
-
src/libcfa/interpose.c (deleted)
-
src/libcfa/interpose.h (deleted)
-
src/libcfa/libhdr/libdebug.c (deleted)
-
src/libcfa/libhdr/libdebug.h (modified) (1 diff)
-
src/libcfa/startup.h (deleted)
-
src/libcfa/stdlib (modified) (2 diffs)
-
src/libcfa/stdlib.c (modified) (2 diffs)
-
src/tests/.expect/searchsort.txt (modified) (2 diffs)
-
src/tests/searchsort.c (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
doc/bibliography/cfa.bib
rfc19129 r814525c 35 35 @string{osr="Operating Systems Review"} 36 36 @string{pldi="Programming Language Design and Implementation"} 37 @string{toplas="Transactions on Programming Languages and Systems"}38 37 @string{mathann="Mathematische Annalen"} 39 38 % @string{mathann="Math. Ann."} … … 2719 2718 implementations are the same. 2720 2719 } 2721 }2722 2723 @online{GCCExtensions,2724 contributer = {a3moss@uwaterloo.ca},2725 key = {{GNU}},2726 title = {Extensions to the {C} Language Family},2727 year = 2014,2728 url = {https://gcc.gnu.org/onlinedocs/gcc-4.7.2/gcc/C-Extensions.html},2729 urldate = {2017-04-02}2730 2720 } 2731 2721 … … 5599 5589 keywords = {Cyclone, existential types, polymorphism, type variables}, 5600 5590 contributer = {a3moss@plg}, 5601 author = { Dan Grossman},5591 author = {Grossman, Dan}, 5602 5592 title = {Quantified Types in an Imperative Language}, 5603 5593 journal = toplas, … … 5606 5596 number = {3}, 5607 5597 month = may, 5608 year = 2006,5598 year = {2006}, 5609 5599 issn = {0164-0925}, 5610 pages = {429-475}, 5600 pages = {429--475}, 5601 numpages = {47}, 5611 5602 url = {http://doi.acm.org.proxy.lib.uwaterloo.ca/10.1145/1133651.1133653}, 5612 5603 doi = {10.1145/1133651.1133653}, … … 5767 5758 month = dec, 5768 5759 year = 1988, 5769 }5770 5771 @mastersthesis{Schluntz17,5772 author = {Robert Schluntz},5773 title = {Resource Management and Tuples in C$\mathbf{\forall}$},5774 school = {School of Computer Science, University of Waterloo},5775 year = 2017,5776 address = {Waterloo, Ontario, Canada, N2L 3G1},5777 note = {[[unpublished]]}5778 5760 } 5779 5761 -
doc/generic_types/acmart.cls
rfc19129 r814525c 370 370 \fi 371 371 \if@ACM@screen 372 %\hypersetup{colorlinks,373 %linkcolor=ACMRed,374 %citecolor=ACMPurple,375 %urlcolor=ACMDarkBlue,376 %filecolor=ACMDarkBlue}372 \hypersetup{colorlinks, 373 linkcolor=ACMRed, 374 citecolor=ACMPurple, 375 urlcolor=ACMDarkBlue, 376 filecolor=ACMDarkBlue} 377 377 \else 378 378 \hypersetup{hidelinks} … … 1830 1830 \newlength\ACM@linecount@bxht\setlength{\ACM@linecount@bxht}{-\baselineskip} 1831 1831 \@tempcnta\@ne\relax 1832 % \loop{\color{ACMRed}\scriptsize\the\@tempcnta}\\ 1833 \loop{\scriptsize\the\@tempcnta}\\ 1832 \loop{\color{ACMRed}\scriptsize\the\@tempcnta}\\ 1834 1833 \advance\@tempcnta by \@ne 1835 1834 \addtolength{\ACM@linecount@bxht}{\baselineskip} -
doc/generic_types/generic_types.tex
rfc19129 r814525c 1 1 % take off review (for line numbers) and anonymous (for anonymization) on submission 2 2 % \documentclass[format=acmlarge, anonymous, review]{acmart} 3 \documentclass[format=acmlarge,review]{acmart} 4 5 \usepackage{xspace,calc,comment} 6 \usepackage{upquote} % switch curled `'" to straight 7 \usepackage{listings} % format program code 8 9 \makeatletter 10 % parindent is relative, i.e., toggled on/off in environments like itemize, so store the value for 11 % use rather than use \parident directly. 12 \newlength{\parindentlnth} 13 \setlength{\parindentlnth}{\parindent} 14 15 \newlength{\gcolumnposn} % temporary hack because lstlisting does handle tabs correctly 16 \newlength{\columnposn} 17 \setlength{\gcolumnposn}{2.75in} 18 \setlength{\columnposn}{\gcolumnposn} 19 \newcommand{\C}[2][\@empty]{\ifx#1\@empty\else\global\setlength{\columnposn}{#1}\global\columnposn=\columnposn\fi\hfill\makebox[\textwidth-\columnposn][l]{\lst@commentstyle{#2}}} 20 \newcommand{\CRT}{\global\columnposn=\gcolumnposn} 21 \makeatother 3 \documentclass[format=acmlarge, review]{acmart} 4 5 \usepackage{listings} % For code listings 22 6 23 7 % Useful macros 24 \newcommand{\CFA}{C$\mathbf\forall$ \xspace} % Cforall symbolic name25 \newcommand{\CC}{\rm C\kern-.1em\hbox{+\kern-.25em+} \xspace} % C++ symbolic name26 \newcommand{\CCeleven}{\rm C\kern-.1em\hbox{+\kern-.25em+}11 \xspace} % C++11 symbolic name27 \newcommand{\CCfourteen}{\rm C\kern-.1em\hbox{+\kern-.25em+}14 \xspace} % C++14 symbolic name28 \newcommand{\CCseventeen}{\rm C\kern-.1em\hbox{+\kern-.25em+}17 \xspace} % C++17 symbolic name29 \newcommand{\CCtwenty}{\rm C\kern-.1em\hbox{+\kern-.25em+}20 \xspace} % C++20 symbolic name8 \newcommand{\CFA}{C$\mathbf\forall$} % Cforall symbolic name 9 \newcommand{\CC}{\rm C\kern-.1em\hbox{+\kern-.25em+}} % C++ symbolic name 10 \newcommand{\CCeleven}{\rm C\kern-.1em\hbox{+\kern-.25em+}11} % C++11 symbolic name 11 \newcommand{\CCfourteen}{\rm C\kern-.1em\hbox{+\kern-.25em+}14} % C++14 symbolic name 12 \newcommand{\CCseventeen}{\rm C\kern-.1em\hbox{+\kern-.25em+}17} % C++17 symbolic name 13 \newcommand{\CCtwenty}{\rm C\kern-.1em\hbox{+\kern-.25em+}20} % C++20 symbolic name 30 14 31 15 \newcommand{\TODO}{\textbf{TODO}} 32 \newcommand{\eg}{\textit{e}.\textit{g}. ,\xspace}33 \newcommand{\ie}{\textit{i}.\textit{e}. ,\xspace}34 \newcommand{\etc}{\textit{etc}. ,\xspace}16 \newcommand{\eg}{\textit{e}.\textit{g}.} 17 \newcommand{\ie}{\textit{i}.\textit{e}.} 18 \newcommand{\etc}{\textit{etc}.} 35 19 36 20 % CFA programming language, based on ANSI C (with some gcc additions) 37 21 \lstdefinelanguage{CFA}[ANSI]{C}{ 38 22 morekeywords={_Alignas,_Alignof,__alignof,__alignof__,asm,__asm,__asm__,_At,_Atomic,__attribute,__attribute__,auto, 39 _Bool, catch,catchResume,choose,_Complex,__complex,__complex__,__const,__const__,disable,dtype,enable,__extension__,40 fallthrough,fallthru,finally,forall,ftype,_Generic,_Imaginary,inline,__label__,lvalue,_Noreturn,one_t,otype,restrict, _Static_assert,23 _Bool,bool,catch,catchResume,choose,_Complex,__complex,__complex__,__const,__const__,disable,dtype,enable,__extension__, 24 fallthrough,fallthru,finally,forall,ftype,_Generic,_Imaginary,inline,__label__,lvalue,_Noreturn,one_t,otype,restrict,size_t,sized,_Static_assert, 41 25 _Thread_local,throw,throwResume,trait,try,ttype,typeof,__typeof,__typeof__,zero_t}, 42 26 }% … … 49 33 tabsize=4, % 4 space tabbing 50 34 xleftmargin=\parindent, % indent code to paragraph indentation 51 %mathescape=true, % LaTeX math escape in CFA code $...$ 52 escapechar=\$, % LaTeX escape in CFA code 35 % extendedchars=true, % allow ASCII characters in the range 128-255 36 % escapechar=§, % LaTeX escape in CFA code §...§ (section symbol), emacs: C-q M-' 37 mathescape=true, % LaTeX math escape in CFA code $...$ 53 38 keepspaces=true, % 54 39 showstringspaces=false, % do not show spaces with cup … … 58 43 % replace/adjust listing characters that look bad in sanserif 59 44 literate={-}{\raisebox{-0.15ex}{\texttt{-}}}1 {^}{\raisebox{0.6ex}{$\scriptscriptstyle\land\,$}}1 60 {~}{\raisebox{0.3ex}{$\scriptstyle\sim\,$}}1 {_}{\makebox[1.2ex][c]{\rule{1ex}{0.1ex}}}1 % {`}{\ttfamily\upshape\hspace*{-0.1ex}`}1 61 {<-}{$\leftarrow$}2 {=>}{$\Rightarrow$}2, 62 moredelim=**[is][\color{red}]{`}{`}, 45 {~}{\raisebox{0.3ex}{$\scriptstyle\sim\,$}}1 {_}{\makebox[1.2ex][c]{\rule{1ex}{0.1ex}}}1 {`}{\ttfamily\upshape\hspace*{-0.1ex}`}1 46 {<-}{$\leftarrow$}2 {=>}{$\Rightarrow$}2 {->}{$\rightarrow$}2, 47 % moredelim=**[is][\color{red}]{®}{®}, % red highlighting ®...® (registered trademark symbol) emacs: C-q M-. 48 % moredelim=**[is][\color{blue}]{ß}{ß}, % blue highlighting ß...ß (sharp s symbol) emacs: C-q M-_ 49 % moredelim=**[is][\color{OliveGreen}]{¢}{¢}, % green highlighting ¢...¢ (cent symbol) emacs: C-q M-" 50 % moredelim=[is][\lstset{keywords={}}]{¶}{¶}, % keyword escape ¶...¶ (pilcrow symbol) emacs: C-q M-^ 63 51 }% lstset 64 52 … … 71 59 \acmJournal{PACMPL} 72 60 73 \title{Generic and Tuple Types with Efficient Dynamic Layout in \CFA }61 \title{Generic and Tuple Types with Efficient Dynamic Layout in \CFA{}} 74 62 75 63 \author{Aaron Moss} 76 \email{a3moss@uwaterloo.ca}77 \author{Robert Schluntz}78 \email{rschlunt@uwaterloo.ca}79 \author{Peter Buhr}80 \email{pabuhr@uwaterloo.ca}81 64 \affiliation{% 82 65 \institution{University of Waterloo} … … 88 71 \country{Canada} 89 72 } 73 \email{a3moss@uwaterloo.ca} 74 75 \author{Robert Schluntz} 76 \affiliation{% 77 \institution{University of Waterloo} 78 \department{David R. Cheriton School of Computer Science} 79 \streetaddress{Davis Centre, University of Waterloo} 80 \city{Waterloo} 81 \state{ON} 82 \postcode{N2L 3G1} 83 \country{Canada} 84 } 85 \email{rschlunt@uwaterloo.ca} 86 87 \author{Peter Buhr} 88 \affiliation{% 89 \institution{University of Waterloo} 90 \department{David R. Cheriton School of Computer Science} 91 \streetaddress{Davis Centre, University of Waterloo} 92 \city{Waterloo} 93 \state{ON} 94 \postcode{N2L 3G1} 95 \country{Canada} 96 } 97 \email{pabuhr@uwaterloo.ca} 90 98 91 99 \terms{generic, tuple, types} … … 117 125 118 126 \begin{abstract} 119 The C programming language is a foundational technology for modern computing with millions of lines of code implementing everything from commercial operating-systems to hobby projects. This installation base and the programmers producing it represent a massive software-engineering investment spanning decades and likely to continue for decades more. Nonetheless, C, first standardized over thirty years ago, lacks many features that make programming in more modern languages safer and more productive. The goal of the \CFA project is to create an extension of C that provides modern safety and productivity features while still ensuring strong backwards compatibility with C and its programmers. Prior projects have attempted similar goals but failed to honour C programming-style; for instance, adding object-oriented or functional programming with garbage collection is a non-starter for many C developers. Specifically, \CFA is designed to have an orthogonal feature-set based closely on the C programming paradigm, so that \CFA features can be added \emph{incrementally} to existing C code-bases, and C programmers can learn \CFA extensions on an as-needed basis, preserving investment in existing code and engineers. This paper describes only two \CFA extensions, generic and tuple types, and how they are implementedin accordance with these principles.127 The C programming language is a foundational technology for modern computing, with millions of lines of code implementing everything from commercial operating systems to hobby projects. This installed base of code and the programmers who produced it represent a massive software engineering investment spanning decades. Nonetheless, C, first standardized over thirty years ago, lacks many features that make programming in more modern languages safer and more productive. The goal of the \CFA{} project is to create an extension of C that provides modern safety and productivity features while still ensuring strong backwards compatibility with C. Particularly, \CFA{} is designed to have an orthogonal feature set based closely on the C programming paradigm, so that \CFA{} features can be added incrementally to existing C code-bases, and C programmers can learn \CFA{} extensions on an as-needed basis, preserving investment in existing engineers and code. This paper describes how generic and tuple types are implemented in \CFA{} in accordance with these principles. 120 128 \end{abstract} 121 129 122 130 \begin{document} 131 123 132 \maketitle 124 133 125 134 \section{Introduction \& Background} 126 135 127 \CFA \footnote{Pronounced ``C-for-all'', and written \CFA or Cforall.} is an evolutionary extension of the C programming language that aims to add modern language features to C while maintaining both source compatibility with C and a familiar programming model for programmers. Four key design goals were set out in the original design of \CFA~\citep{Bilson03}:136 \CFA{}\footnote{Pronounced ``C-for-all'', and written \CFA{} or Cforall.} is an evolutionary extension of the C programming language that aims to add modern language features to C while maintaining both source compatibility with C and a familiar mental model for programmers. Four key design goals were set out in the original design of \CFA{} \citep{Bilson03}: 128 137 \begin{enumerate} 129 \item The behaviour of standard C code must remain the same when translated by a \CFA compiler as when translated by a C compiler.130 \item Standard C code must be as fast and as small when translated by a \CFA compiler as when translated by a C compiler.131 \item \CFA code must be at least as portable as standard C code.132 \item Extensions introduced by \CFA must be translated in the most efficient way possible.138 \item The behaviour of standard C code must remain the same when translated by a \CFA{} compiler as when translated by a C compiler. 139 \item Standard C code must be as fast and as small when translated by a \CFA{} compiler as when translated by a C compiler. 140 \item \CFA{} code must be at least as portable as standard C code. 141 \item Extensions introduced by \CFA{} must be translated in the most efficient way possible. 133 142 \end{enumerate} 134 These goals ensure existing C code-bases can be converted to \CFA incrementally and with minimal effort, and C programmers can productively generate \CFA code without training beyond the features they wish to employ. In its current implementation, \CFA is compiled by translating it to the GCC-dialect of C~\citep{GCCExtensions}, allowing it to leverage the portability and code optimizations provided by GCC, meeting goals (1)-(3). Ultimately, a compiler is necessary for advanced features and optimal performance. 135 136 \CFA has been previously extended with polymorphic functions and name overloading (including operator overloading) by \citet{Bilson03}, and deterministically-executed constructors and destructors by \citet{Schluntz17}. This paper describes how generic and tuple types are designed and implemented in \CFA in accordance with both the backward compatibility goals and existing features described above. 137 143 The purpose of these goals is to ensure that existing C code-bases can be converted to \CFA{} incrementally and with minimal effort, and that programmers who already know C can productively produce \CFA{} code without training in \CFA{} beyond the extension features they wish to employ. In its current implementation, \CFA{} is compiled by translating it to GCC-dialect C, allowing it to leverage the portability and code optimizations provided by GCC, meeting goals (1)-(3). 144 145 \CFA{} has been previously extended with polymorphic functions and name overloading (including operator overloading) \citep{Bilson03}, and deterministically-executed constructors and destructors \citep{Schluntz17}. This paper describes how generic and tuple types are designed and implemented in \CFA{} in accordance with both the backward compatibility goals and existing features described above. 138 146 139 147 \subsection{Polymorphic Functions} 140 148 \label{sec:poly-fns} 141 149 142 \CFA's polymorphism was originally formalized by \citet{Ditchfield92}, and first implemented by \citet{Bilson03}. The signature feature of \CFA is parametric-polymorphic functions; such functions are written using a @forall@ clause (which gives the language its name): 143 \begin{lstlisting} 144 `forall( otype T )` T identity( T val ) { return val; } 145 int forty_two = identity( 42 ); $\C{// T is bound to int, forty\_two == 42}$ 146 \end{lstlisting} 147 The @identity@ function above can be applied to any complete object-type (or ``@otype@''). The type variable @T@ is transformed into a set of additional implicit parameters to @identity@ that encode sufficient information about @T@ to create and return a variable of that type. The \CFA implementation passes the size and alignment of the type represented by an @otype@ parameter, as well as an assignment operator, constructor, copy constructor and destructor. If this extra information is not needed, \eg for a pointer, the type parameter can be declared as @dtype T@, where @dtype@ is short for ``data type''. 148 149 Here, the runtime cost of polymorphism is spread over each polymorphic call, due to passing more arguments to polymorphic functions; preliminary experiments have shown this overhead to be similar to \CC virtual function calls. An advantage of this design is that, unlike \CC template functions, \CFA @forall@ functions are compatible with C separate compilation. 150 151 Since bare polymorphic-types provide only a narrow set of available operations, \CFA provides a \emph{type assertion} mechanism to provide further type information, where type assertions may be variable or function declarations that depend on a polymorphic type variable. For instance, @twice@ can be defined using the \CFA syntax for operator overloading: 152 \begin{lstlisting} 153 forall( otype T | { T `?`+`?`(T, T); } ) $\C{// ? denotes operands}$ 154 T twice( T x ) { return x + x; } $\C{// (2)}$ 155 int val = twice( twice( 3.7 ) ); 156 \end{lstlisting} 157 which works for any type @T@ with an addition operator defined. The translator accomplishes this polymorphism by creating a wrapper function for calling @+@ with @T@ bound to @double@, then providing this function to the first call of @twice@. It then has the option of using the same @twice@ again and converting the result to @int@ on assignment, or creating another @twice@ with type parameter @T@ bound to @int@ because \CFA uses the return type in its type analysis. The first approach has a late conversion from integer to floating-point on the final assignment, while the second has an eager conversion to integer. \CFA minimizes the number of conversions and their potential to lose information, so it selects the first approach. 158 159 Monomorphic specializations of polymorphic functions can satisfy polymorphic type-assertions. 160 % \begin{lstlisting} 161 % forall(otype T `| { T twice(T); }`) $\C{// type assertion}$ 162 % T four_times(T x) { return twice( twice(x) ); } 163 % double twice(double d) { return d * 2.0; } $\C{// (1)}$ 164 % double magic = four_times(10.5); $\C{// T bound to double, uses (1) to satisfy type assertion}$ 165 % \end{lstlisting} 166 \begin{lstlisting} 167 forall( otype T `| { int ?<?( T, T ); }` ) $\C{// type assertion}$ 168 void qsort( const T * arr, size_t size ); 169 forall( otype T `| { int ?<?( T, T ); }` ) $\C{// type assertion}$ 170 T * bsearch( T key, const T * arr, size_t size ); 171 double vals[10] = { /* 10 floating-point values */ }; 172 qsort( vals, 10 ); $\C{// sort array}$ 173 double * val = bsearch( 5.0, vals, 10 ); $\C{// binary search sorted array for key}$ 174 \end{lstlisting} 175 @qsort@ and @bsearch@ can only be called with arguments for which there exists a function named @<@ taking two arguments of the same type and returning an @int@ value. 176 Here, the built-in monomorphic specialization of @<@ for type @double@ is passed as an additional implicit parameter to the calls of @qsort@ and @bsearch@. 177 178 Crucial to the design of a new programming language are the libraries to access thousands of external features. 179 \CFA inherits a massive compatible library-base, where other programming languages have to rewrite or provide fragile inter-language communication with C. 180 A simple example is leveraging the existing type-unsafe (@void *@) C @bsearch@, shown here searching a floating-point array: 181 \begin{lstlisting} 182 void * bsearch( const void * key, const void * base, size_t nmemb, size_t size, 183 int (* compar)(const void *, const void *)); 184 int comp( const void * t1, const void * t2 ) { return *(double *)t1 < *(double *)t2 ? -1 : 185 *(double *)t2 < *(double *)t1 ? 1 : 0; } 186 double key = 5.0; 187 double * val = (double *)bsearch( &key, vals, size, sizeof(vals[0]), comp ); 188 \end{lstlisting} 189 but providing a type-safe \CFA overloaded wrapper. 190 \begin{lstlisting} 191 forall( otype T | { int ?<?( T, T ); } ) T * bsearch( T key, const T * arr, size_t size ) { 192 int comp( const void * t1, const void * t2 ) { /* as above with double changed to T */ } 193 return (T *)bsearch( &key, arr, size, sizeof(T), comp ); 194 } 195 forall( otype T | { int ?<?( T, T ); } ) unsigned int bsearch( T key, const T * arr, size_t size ) { 196 T *result = bsearch( key, arr, size ); $\C{// call first version}$ 197 return result ? result - arr : size; $\C{// pointer subtraction includes sizeof(T)}$ 198 } 199 double * val = bsearch( 5.0, vals, 10 ); $\C{// selection based on return type}$ 200 int posn = bsearch( 5.0, vals, 10 ); 201 \end{lstlisting} 202 The nested routine @comp@ provides the hidden interface from typed \CFA to untyped (@void *@) C, plus the cast of the result. 203 As well, an alternate kind of return is made available, position versus pointer to found element. 204 \CC's type-system cannot disambiguate between the two versions of @bsearch@ because it does not use the return type in overload resolution, nor can \CC separately compile a templated @bsearch@. 205 206 Call-site inferencing and nested functions provide a localized form of inheritance. For example, @qsort@ only sorts in ascending order using @<@. However, it is trivial to locally change this behaviour: 207 \begin{lstlisting} 208 { int ?<?( double x, double y ) { return x `>` y; } $\C{// override behaviour}$ 209 qsort( vals, size ); $\C{// descending sort}$ 210 } 211 \end{lstlisting} 212 Within the block, the nested version of @<@ performs @>@ and this local version overrides the built-in @<@ so it is passed to @qsort@. 213 Hence, programmers can easily form new local environments to maximize reuse of existing functions and types. 214 215 Finally, variables may be overloaded: 216 \lstDeleteShortInline@ 217 \par\smallskip 218 \begin{tabular}{@{}l@{\hspace{\parindent}}|@{\hspace{\parindent}}l@{}} 219 \begin{lstlisting} 220 short int MAX = ...; 221 int MAX = ...; 222 double MAX = ...; 223 \end{lstlisting} 224 & 225 \begin{lstlisting} 226 short int s = MAX; // select correct MAX 227 int i = MAX; 228 double d = MAX; 229 \end{lstlisting} 230 \end{tabular} 231 \lstMakeShortInline@ 232 \smallskip\par\noindent 233 Hence, the single name @MAX@ replaces all the C type-specific names: @SHRT_MAX@, @INT_MAX@, @DBL_MAX@. 150 \CFA{}'s polymorphism was originally formalized by \citet{Ditchfield92}, and first implemented by \citet{Bilson03}. The signature feature of \CFA{} is parametric-polymorphic functions; such functions are written using a @forall@ clause (which gives the language its name): 151 \begin{lstlisting} 152 forall(otype T) 153 T identity(T x) { return x; } 154 155 int forty_two = identity(42); // T is bound to int, forty_two == 42 156 \end{lstlisting} 157 The @identity@ function above can be applied to any complete object type (or ``@otype@''). The type variable @T@ is transformed into a set of additional implicit parameters to @identity@, that encode sufficient information about @T@ to create and return a variable of that type. The \CFA{} implementation passes the size and alignment of the type represented by an @otype@ parameter, as well as an assignment operator, constructor, copy constructor and destructor. If this extra information is not needed, the type parameter can be declared as @dtype T@, where @dtype@ is short for ``data type''. 158 159 Here, the runtime cost of polymorphism is spread over each polymorphic call, due to passing more arguments to polymorphic functions; preliminary experiments have shown this overhead to be similar to \CC{} virtual function calls. An advantage of this design is that, unlike \CC{} template functions, \CFA{} @forall@ functions are compatible with separate compilation. 160 161 Since bare polymorphic types do not provide a great range of available operations, \CFA{} provides a \emph{type assertion} mechanism to provide further information about a type: 162 \begin{lstlisting} 163 forall(otype T | { T twice(T); }) 164 T four_times(T x) { return twice( twice(x) ); } 165 166 double twice(double d) { return d * 2.0; } // (1) 167 168 double magic = four_times(10.5); // T is bound to double, uses (1) to satisfy type assertion 169 \end{lstlisting} 170 These type assertions may be either variable or function declarations that depend on a polymorphic type variable. @four_times@ can only be called with an argument for which there exists a function named @twice@ that can take that argument and return another value of the same type; a pointer to the appropriate @twice@ function is passed as an additional implicit parameter to the call of @four_times@. 171 172 Monomorphic specializations of polymorphic functions can themselves be used to satisfy type assertions. For instance, @twice@ could have been defined using the \CFA{} syntax for operator overloading as: 173 \begin{lstlisting} 174 forall(otype S | { S ?+?(S, S); }) 175 S twice(S x) { return x + x; } // (2) 176 \end{lstlisting} 177 This version of @twice@ works for any type @S@ that has an addition operator defined for it, and it could have been used to satisfy the type assertion on @four_times@. 178 The translator accomplishes this polymorphism by creating a wrapper function calling @twice // (2)@ with @S@ bound to @double@, then providing this wrapper function to @four_times@\footnote{\lstinline@twice // (2)@ could also have had a type parameter named \lstinline@T@; \CFA{} specifies renaming of the type parameters, which would avoid the name conflict with the type variable \lstinline@T@ of \lstinline@four_times@.}. 234 179 235 180 \subsection{Traits} 236 181 237 \CFA provides \emph{traits} to name a group of type assertions: 238 % \begin{lstlisting} 239 % trait has_magnitude(otype T) { 240 % _Bool ?<?(T, T); $\C{// comparison operator for T}$ 241 % T -?(T); $\C{// negation operator for T}$ 242 % void ?{}(T*, zero_t); $\C{// constructor from 0 literal}$ 243 % }; 244 % forall(otype M | has_magnitude(M)) 245 % M abs( M m ) { 246 % M zero = { 0 }; $\C{// uses zero\_t constructor from trait}$ 247 % return m < zero ? -m : m; 248 % } 249 % forall(otype M | has_magnitude(M)) 250 % M max_magnitude( M a, M b ) { 251 % return abs(a) < abs(b) ? b : a; 252 % } 253 % \end{lstlisting} 254 \begin{lstlisting} 255 trait summable( otype T ) { 256 void ?{}(T*, zero_t); $\C{// constructor from 0 literal}$ 257 T ?+?( T, T ); $\C{// assortment of additions}$ 258 T ?+=?( T *, T ); 259 T ++?( T * ); 260 T ?++( T * ); 182 \CFA{} provides \emph{traits} as a means to name a group of type assertions, as in the example below: 183 \begin{lstlisting} 184 trait has_magnitude(otype T) { 185 bool ?<?(T, T); // comparison operator for T 186 T -?(T); // negation operator for T 187 void ?{}(T*, zero_t); // constructor from 0 literal 261 188 }; 262 forall( otype T | summable( T ) ) 263 T sum( T a[$\,$], size_t size ) { 264 T total = { 0 }; $\C{// instantiate T from 0}$ 265 for ( unsigned int i = 0; i < size; i += 1 ) 266 total += a[i]; $\C{// select appropriate +}$ 267 return total; 268 } 269 \end{lstlisting} 270 The trait name allows specifying the same set of assertions in multiple locations, preventing repetition mistakes at each function declaration. 271 272 In fact, the set of operators is incomplete, \eg no assignment, but @otype@ is syntactic sugar for the following implicit trait: 273 \begin{lstlisting} 274 trait otype( dtype T | sized(T) ) { 275 // sized is a compiler-provided pseudo-trait for types with known size and alignment} 276 void ?{}( T * ); $\C{// default constructor}$ 277 void ?{}( T *, T ); $\C{// copy constructor}$ 278 void ?=?( T *, T ); $\C{// assignment operator}$ 279 void ^?{}( T * ); $\C{// destructor}$ 189 190 forall(otype M | has_magnitude(M)) 191 M abs( M m ) { 192 M zero = { 0 }; // uses zero_t constructor from trait 193 return m < zero ? -m : m; 194 } 195 196 forall(otype M | has_magnitude(M)) 197 M max_magnitude( M a, M b ) { 198 return abs(a) < abs(b) ? b : a; 199 } 200 \end{lstlisting} 201 This capability allows specifying the same set of assertions in multiple locations, without the repetition and likelihood of mistakes that come with manually writing them out for each function declaration. 202 203 @otype@ is essentially syntactic sugar for the following trait: 204 \begin{lstlisting} 205 trait otype(dtype T | sized(T)) { 206 // sized is a compiler-provided pseudo-trait for types with known size & alignment 207 void ?{}(T*); // default constructor 208 void ?{}(T*, T); // copy constructor 209 void ?=?(T*, T); // assignment operator 210 void ^?{}(T*); // destructor 280 211 }; 281 212 \end{lstlisting} 282 Given the information provided for an @otype@, variables of polymorphic type can be treated as if they were a complete struct type -- they can be stack-allocated using the @alloca@ compiler builtin, default or copy-initialized, assigned, and deleted. As an example, the @ sum@ function produces generated code something like the following (simplified for clarity and brevity) \TODO{} fix example, maybe elide, it's likely too long with the more complicated function:213 Given the information provided for an @otype@, variables of polymorphic type can be treated as if they were a complete struct type -- they can be stack-allocated using the @alloca@ compiler builtin, default or copy-initialized, assigned, and deleted. As an example, the @abs@ function above produces generated code something like the following (simplified for clarity and brevity): 283 214 \begin{lstlisting} 284 215 void abs( size_t _sizeof_M, size_t _alignof_M, 285 216 void (*_ctor_M)(void*), void (*_copy_M)(void*, void*), 286 217 void (*_assign_M)(void*, void*), void (*_dtor_M)(void*), 287 _Bool (*_lt_M)(void*, void*), void (*_neg_M)(void*, void*),218 bool (*_lt_M)(void*, void*), void (*_neg_M)(void*, void*), 288 219 void (*_ctor_M_zero)(void*, int), 289 void* m, void* _rtn ) { $\C{// polymorphic parameter and return passed as void*}$290 $\C{// M zero = { 0 };}$291 void* zero = alloca(_sizeof_M); $\C{// stack allocate zero temporary}$292 _ctor_M_zero(zero, 0); $\C{// initialize using zero\_t constructor}$293 $\C{// return m < zero ? -m : m;}$220 void* m, void* _rtn ) { // polymorphic parameter and return passed as void* 221 // M zero = { 0 }; 222 void* zero = alloca(_sizeof_M); // stack allocate zero temporary 223 _ctor_M_zero(zero, 0); // initialize using zero_t constructor 224 // return m < zero ? -m : m; 294 225 void *_tmp = alloca(_sizeof_M); 295 _copy_M( _rtn, $\C{// copy-initialize return value}$296 _lt_M( m, zero ) ? $\C{// check condition}$297 (_neg_M(m, _tmp), _tmp) : $\C{// negate m}$226 _copy_M( _rtn, // copy-initialize return value 227 _lt_M( m, zero ) ? // check condition 228 (_neg_M(m, _tmp), _tmp) : // negate m 298 229 m); 299 _dtor_M(_tmp); _dtor_M(zero); $\C{// destroy temporaries}$300 } 301 \end{lstlisting} 302 303 Semantically, traits are simply a named lists of type assertions, but they may be used for many of the same purposes that interfaces in Java or abstract base classes in \CC are used for. Unlike Java interfaces or \CC base classes, \CFA types do not explicitly state any inheritance relationship to traits they satisfy; this can be considered a form of structural inheritance, similar to implementation of an interface in Go, as opposed to the nominal inheritance model of Java and \CC. Nominal inheritance can be simulated with traits using marker variables or functions:230 _dtor_M(_tmp); _dtor_M(zero); // destroy temporaries 231 } 232 \end{lstlisting} 233 234 Semantically, traits are simply a named lists of type assertions, but they may be used for many of the same purposes that interfaces in Java or abstract base classes in \CC{} are used for. Unlike Java interfaces or \CC{} base classes, \CFA{} types do not explicitly state any inheritance relationship to traits they satisfy; this can be considered a form of structural inheritance, similar to implementation of an interface in Go, as opposed to the nominal inheritance model of Java and \CC{}. Nominal inheritance can be simulated with traits using marker variables or functions: 304 235 \begin{lstlisting} 305 236 trait nominal(otype T) { … … 307 238 }; 308 239 309 int is_nominal; $\C{// int now satisfies the nominal trait}$240 int is_nominal; // int now satisfies the nominal trait 310 241 \end{lstlisting} 311 242 … … 313 244 \begin{lstlisting} 314 245 trait pointer_like(otype Ptr, otype El) { 315 lvalue El *?(Ptr); $\C{// Ptr can be dereferenced into a modifiable value of type El}$246 lvalue El *?(Ptr); // Ptr can be dereferenced into a modifiable value of type El 316 247 } 317 248 318 249 struct list { 319 250 int value; 320 list *next; $\C{// may omit "struct" on type names}$251 list *next; // may omit "struct" on type names 321 252 }; 322 253 … … 326 257 \end{lstlisting} 327 258 328 In the example above, @(list_iterator, int)@ satisfies @pointer_like@ by the user-defined dereference function, and @(list_iterator, list)@ also satisfies @pointer_like@ by the built-in dereference operator for pointers. Given a declaration @list_iterator it@, @*it@ can be either an @int@ or a @list@, with the meaning disambiguated by context (\eg @int x = *it;@ interprets @*it@ as an @int@, while @(*it).value = 42;@ interprets @*it@ as a @list@).259 In the example above, @(list_iterator, int)@ satisfies @pointer_like@ by the user-defined dereference function, and @(list_iterator, list)@ also satisfies @pointer_like@ by the built-in dereference operator for pointers. Given a declaration @list_iterator it@, @*it@ can be either an @int@ or a @list@, with the meaning disambiguated by context (\eg{} @int x = *it;@ interprets @*it@ as an @int@, while @(*it).value = 42;@ interprets @*it@ as a @list@). 329 260 While a nominal-inheritance system with associated types could model one of those two relationships by making @El@ an associated type of @Ptr@ in the @pointer_like@ implementation, few such systems could model both relationships simultaneously. 330 261 … … 333 264 One of the known shortcomings of standard C is that it does not provide reusable type-safe abstractions for generic data structures and algorithms. Broadly speaking, there are three approaches to create data structures in C. One approach is to write bespoke data structures for each context in which they are needed. While this approach is flexible and supports integration with the C type-checker and tooling, it is also tedious and error-prone, especially for more complex data structures. A second approach is to use @void*@-based polymorphism. This approach is taken by the C standard library functions @qsort@ and @bsearch@, and does allow the use of common code for common functionality. However, basing all polymorphism on @void*@ eliminates the type-checker's ability to ensure that argument types are properly matched, often requires a number of extra function parameters, and also adds pointer indirection and dynamic allocation to algorithms and data structures that would not otherwise require them. A third approach to generic code is to use pre-processor macros to generate it -- this approach does allow the generated code to be both generic and type-checked, though any errors produced may be difficult to interpret. Furthermore, writing and invoking C code as preprocessor macros is unnatural and somewhat inflexible. 334 265 335 Other C-like languages such as \CC and Java use \emph{generic types} to produce type-safe abstract data types. The authors have chosen to implement generic types as well, with some care taken that the generic types design for \CFA integrates efficiently and naturally with the existing polymorphic functions in \CFAwhile retaining backwards compatibility with C; maintaining separate compilation is a particularly important constraint on the design. However, where the concrete parameters of the generic type are known, there is not extra overhead for the use of a generic type.266 Other C-like languages such as \CC{} and Java use \emph{generic types} to produce type-safe abstract data types. The authors have chosen to implement generic types as well, with some care taken that the generic types design for \CFA{} integrates efficiently and naturally with the existing polymorphic functions in \CFA{} while retaining backwards compatibility with C; maintaining separate compilation is a particularly important constraint on the design. However, where the concrete parameters of the generic type are known, there is not extra overhead for the use of a generic type. 336 267 337 268 A generic type can be declared by placing a @forall@ specifier on a @struct@ or @union@ declaration, and instantiated using a parenthesized list of types after the type name: … … 358 289 \end{lstlisting} 359 290 360 \CFA classifies generic types as either \emph{concrete} or \emph{dynamic}. Dynamic generic types vary in their in-memory layout depending on their type parameters, while concrete generic types have a fixed memory layout regardless of type parameters. A type may have polymorphic parameters but still be concrete; in \CFAsuch types are called \emph{dtype-static}. Polymorphic pointers are an example of dtype-static types -- @forall(dtype T) T*@ is a polymorphic type, but for any @T@ chosen, @T*@ has exactly the same in-memory representation as a @void*@, and can therefore be represented by a @void*@ in code generation.361 362 \CFA generic types may also specify constraints on their argument type to be checked by the compiler. For example, consider the following declaration of a sorted set type, which ensures that the set key supports comparison and tests for equality:363 \begin{lstlisting} 364 forall(otype Key | { _Bool ?==?(Key, Key); _Bool ?<?(Key, Key); })291 \CFA{} classifies generic types as either \emph{concrete} or \emph{dynamic}. Dynamic generic types vary in their in-memory layout depending on their type parameters, while concrete generic types have a fixed memory layout regardless of type parameters. A type may have polymorphic parameters but still be concrete; in \CFA{} such types are called \emph{dtype-static}. Polymorphic pointers are an example of dtype-static types -- @forall(dtype T) T*@ is a polymorphic type, but for any @T@ chosen, @T*@ has exactly the same in-memory representation as a @void*@, and can therefore be represented by a @void*@ in code generation. 292 293 \CFA{} generic types may also specify constraints on their argument type to be checked by the compiler. For example, consider the following declaration of a sorted set type, which ensures that the set key supports comparison and tests for equality: 294 \begin{lstlisting} 295 forall(otype Key | { bool ?==?(Key, Key); bool ?<?(Key, Key); }) 365 296 struct sorted_set; 366 297 \end{lstlisting} … … 368 299 \subsection{Concrete Generic Types} 369 300 370 The \CFA translator instantiates concrete generic types by template-expanding them to fresh struct types; concrete generic types can therefore be used with zero runtime overhead. To enable inter-operation among equivalent instantiations of a generic type, the translator saves the set of instantiations currently in scope and reuses the generated struct declarations where appropriate. For example, a function declaration that accepts or returns a concrete generic type produces a declaration for the instantiated struct in the same scope, which all callers that can see that declaration may reuse. As an example of the expansion, the concrete instantiation for @pair(const char*, int)@ looks like this:301 The \CFA{} translator instantiates concrete generic types by template-expanding them to fresh struct types; concrete generic types can therefore be used with zero runtime overhead. To enable inter-operation among equivalent instantiations of a generic type, the translator saves the set of instantiations currently in scope and reuses the generated struct declarations where appropriate. For example, a function declaration that accepts or returns a concrete generic type produces a declaration for the instantiated struct in the same scope, which all callers that can see that declaration may reuse. As an example of the expansion, the concrete instantiation for @pair(const char*, int)@ looks like this: 371 302 \begin{lstlisting} 372 303 struct _pair_conc1 { … … 386 317 \subsection{Dynamic Generic Types} 387 318 388 Though \CFA implements concrete generic types efficiently, it also has a fully general system for computing with dynamic generic types. As mentioned in Section~\ref{sec:poly-fns}, @otype@ function parameters (in fact all @sized@ polymorphic parameters) come with implicit size and alignment parameters provided by the caller. Dynamic generic structs also have implicit size and alignment parameters, and also an \emph{offset array} which contains the offsets of each member of the struct\footnote{Dynamic generic unions need no such offset array, as all members are at offset 0; the size and alignment parameters are still provided for dynamic unions, however.}. Access to members\footnote{The \lstinline@offsetof@ macro is implemented similarly.} of a dynamic generic struct is provided by adding the corresponding member of the offset array to the struct pointer at runtime, essentially moving a compile-time offset calculation to runtime where necessary.319 Though \CFA{} implements concrete generic types efficiently, it also has a fully general system for computing with dynamic generic types. As mentioned in Section~\ref{sec:poly-fns}, @otype@ function parameters (in fact all @sized@ polymorphic parameters) come with implicit size and alignment parameters provided by the caller. Dynamic generic structs also have implicit size and alignment parameters, and also an \emph{offset array} which contains the offsets of each member of the struct\footnote{Dynamic generic unions need no such offset array, as all members are at offset 0; the size and alignment parameters are still provided for dynamic unions, however.}. Access to members\footnote{The \lstinline@offsetof@ macro is implemented similarly.} of a dynamic generic struct is provided by adding the corresponding member of the offset array to the struct pointer at runtime, essentially moving a compile-time offset calculation to runtime where necessary. 389 320 390 321 These offset arrays are statically generated where possible. If a dynamic generic type is declared to be passed or returned by value from a polymorphic function, the translator can safely assume that the generic type is complete (that is, has a known layout) at any call-site, and the offset array is passed from the caller; if the generic type is concrete at the call site the elements of this offset array can even be statically generated using the C @offsetof@ macro. As an example, @p.second@ in the @value@ function above is implemented as @*(p + _offsetof_pair[1])@, where @p@ is a @void*@, and @_offsetof_pair@ is the offset array passed in to @value@ for @pair(const char*, T)@. The offset array @_offsetof_pair@ is generated at the call site as @size_t _offsetof_pair[] = { offsetof(_pair_conc1, first), offsetof(_pair_conc1, second) };@. 391 322 392 In some cases the offset arrays cannot be statically generated. For instance, modularity is generally provided in C by including an opaque forward-declaration of a struct and associated accessor and mutator routines in a header file, with the actual implementations in a separately-compiled \texttt{.c} file. \CFA supports this pattern for generic types, and in this instance the caller does not know the actual layout or size of the dynamic generic type, and only holds it by pointer. The \CFAtranslator automatically generates \emph{layout functions} for cases where the size, alignment, and offset array of a generic struct cannot be passed in to a function from that function's caller. These layout functions take as arguments pointers to size and alignment variables and a caller-allocated array of member offsets, as well as the size and alignment of all @sized@ parameters to the generic struct (un-@sized@ parameters are forbidden from the language from being used in a context that affects layout). Results of these layout functions are cached so that they are only computed once per type per function.%, as in the example below for @pair@.323 In some cases the offset arrays cannot be statically generated. For instance, modularity is generally provided in C by including an opaque forward-declaration of a struct and associated accessor and mutator routines in a header file, with the actual implementations in a separately-compiled \texttt{.c} file. \CFA{} supports this pattern for generic types, and in this instance the caller does not know the actual layout or size of the dynamic generic type, and only holds it by pointer. The \CFA{} translator automatically generates \emph{layout functions} for cases where the size, alignment, and offset array of a generic struct cannot be passed in to a function from that function's caller. These layout functions take as arguments pointers to size and alignment variables and a caller-allocated array of member offsets, as well as the size and alignment of all @sized@ parameters to the generic struct (un-@sized@ parameters are forbidden from the language from being used in a context that affects layout). Results of these layout functions are cached so that they are only computed once per type per function.%, as in the example below for @pair@. 393 324 % \begin{lstlisting} 394 325 % static inline void _layoutof_pair(size_t* _szeof_pair, size_t* _alignof_pair, size_t* _offsetof_pair, … … 417 348 Layout functions also allow generic types to be used in a function definition without reflecting them in the function signature. For instance, a function that strips duplicate values from an unsorted @vector(T)@ would likely have a pointer to the vector as its only explicit parameter, but use some sort of @set(T)@ internally to test for duplicate values. This function could acquire the layout for @set(T)@ by calling its layout function with the layout of @T@ implicitly passed into the function. 418 349 419 Whether a type is concrete, dtype-static, or dynamic is decided based solely on the type parameters and @forall@ clause on the struct declaration. This design allows opaque forward declarations of generic types like @forall(otype T) struct Box;@ -- like in C, all uses of @Box(T)@ can be in a separately compiled translation unit, and callers from other translation units know the proper calling conventions to use. If the definition of a struct type was included in the decision of whether a generic type is dynamic or concrete, some further types may be recognized as dtype-static (\eg @forall(otype T) struct unique_ptr { T* p };@ does not depend on @T@ for its layout, but the existence of an @otype@ parameter means that it \emph{could}.), but preserving separate compilation (and the associated C compatibility) in the existing design is judged to be an appropriate trade-off.350 Whether a type is concrete, dtype-static, or dynamic is decided based solely on the type parameters and @forall@ clause on the struct declaration. This design allows opaque forward declarations of generic types like @forall(otype T) struct Box;@ -- like in C, all uses of @Box(T)@ can be in a separately compiled translation unit, and callers from other translation units know the proper calling conventions to use. If the definition of a struct type was included in the decision of whether a generic type is dynamic or concrete, some further types may be recognized as dtype-static (\eg{} @forall(otype T) struct unique_ptr { T* p };@ does not depend on @T@ for its layout, but the existence of an @otype@ parameter means that it \emph{could}.), but preserving separate compilation (and the associated C compatibility) in the existing design is judged to be an appropriate trade-off. 420 351 421 352 \subsection{Applications} … … 431 362 } 432 363 \end{lstlisting} 433 Since @pair(T*, T*)@ is a concrete type, there are no added implicit parameters to @lexcmp@, so the code generated by \CFA is effectively identical to a version of this function written in standard C using @void*@, yet the \CFAversion is type-checked to ensure that the fields of both pairs and the arguments to the comparison function match in type.364 Since @pair(T*, T*)@ is a concrete type, there are no added implicit parameters to @lexcmp@, so the code generated by \CFA{} is effectively identical to a version of this function written in standard C using @void*@, yet the \CFA{} version is type-checked to ensure that the fields of both pairs and the arguments to the comparison function match in type. 434 365 435 366 Another useful pattern enabled by reused dtype-static type instantiations is zero-cost ``tag'' structs. Sometimes a particular bit of information is only useful for type-checking, and can be omitted at runtime. Tag structs can be used to provide this information to the compiler without further runtime overhead, as in the following example: … … 452 383 marathon + swimming_pool; // ERROR -- caught by compiler 453 384 \end{lstlisting} 454 @scalar@ is a dtype-static type, so all uses of it use a single struct definition, containing only a single @unsigned long@, and can share the same implementations of common routines like @?+?@ -- these implementations may even be separately compiled, unlike \CC template functions. However, the \CFAtype-checker ensures that matching types are used by all calls to @?+?@, preventing nonsensical computations like adding the length of a marathon to the volume of an olympic pool.385 @scalar@ is a dtype-static type, so all uses of it use a single struct definition, containing only a single @unsigned long@, and can share the same implementations of common routines like @?+?@ -- these implementations may even be separately compiled, unlike \CC{} template functions. However, the \CFA{} type-checker ensures that matching types are used by all calls to @?+?@, preventing nonsensical computations like adding the length of a marathon to the volume of an olympic pool. 455 386 456 387 \section{Tuples} 457 388 \label{sec:tuples} 458 389 459 The @pair(R, S)@ generic type used as an example in the previous section can be considered a special case of a more general \emph{tuple} data structure. The authors have implemented tuples in \CFA , with a design particularly motivated by two use cases: \emph{multiple-return-value functions} and \emph{variadic functions}.390 The @pair(R, S)@ generic type used as an example in the previous section can be considered a special case of a more general \emph{tuple} data structure. The authors have implemented tuples in \CFA{}, with a design particularly motivated by two use cases: \emph{multiple-return-value functions} and \emph{variadic functions}. 460 391 461 392 In standard C, functions can return at most one value. This restriction results in code that emulates functions with multiple return values by \emph{aggregation} or by \emph{aliasing}. In the former situation, the function designer creates a record type that combines all of the return values into a single type. Unfortunately, the designer must come up with a name for the return type and for each of its fields. Unnecessary naming is a common programming language issue, introducing verbosity and a complication of the user's mental model. As such, this technique is effective when used sparingly, but can quickly get out of hand if many functions need to return different combinations of types. In the latter approach, the designer simulates multiple return values by passing the additional return values as pointer parameters. The pointer parameters are assigned inside of the routine body to emulate a return. Using this approach, the caller is directly responsible for allocating storage for the additional temporary return values. This responsibility complicates the call site with a sequence of variable declarations leading up to the call. Also, while a disciplined use of @const@ can give clues about whether a pointer parameter is going to be used as an out parameter, it is not immediately obvious from only the routine signature whether the callee expects such a parameter to be initialized before the call. Furthermore, while many C routines that accept pointers are designed so that it is safe to pass @NULL@ as a parameter, there are many C routines that are not null-safe. On a related note, C does not provide a standard mechanism to state that a parameter is going to be used as an additional return value, which makes the job of ensuring that a value is returned more difficult for the compiler. … … 478 409 \end{lstlisting} 479 410 480 The @va_list@ type is a special C data type that abstracts variadic argument manipulation. The @va_start@ macro initializes a @va_list@, given the last named parameter. Each use of the @va_arg@ macro allows access to the next variadic argument, given a type. Since the function signature does not provide any information on what types can be passed to a variadic function, the compiler does not perform any error checks on a variadic call. As such, it is possible to pass any value to the @sum@ function, including pointers, floating-point numbers, and structures. In the case where the provided type is not compatible with the argument's actual type after default argument promotions, or if too many arguments are accessed, the behaviour is undefined ~\citep{C11}. Furthermore, there is no way to perform the necessary error checks in the @sum@ function at run-time, since type information is not carried into the function body. Since they rely on programmer convention rather than compile-time checks, variadic functions are inherently unsafe.411 The @va_list@ type is a special C data type that abstracts variadic argument manipulation. The @va_start@ macro initializes a @va_list@, given the last named parameter. Each use of the @va_arg@ macro allows access to the next variadic argument, given a type. Since the function signature does not provide any information on what types can be passed to a variadic function, the compiler does not perform any error checks on a variadic call. As such, it is possible to pass any value to the @sum@ function, including pointers, floating-point numbers, and structures. In the case where the provided type is not compatible with the argument's actual type after default argument promotions, or if too many arguments are accessed, the behaviour is undefined \citep{C11}. Furthermore, there is no way to perform the necessary error checks in the @sum@ function at run-time, since type information is not carried into the function body. Since they rely on programmer convention rather than compile-time checks, variadic functions are inherently unsafe. 481 412 482 413 In practice, compilers can provide warnings to help mitigate some of the problems. For example, GCC provides the @format@ attribute to specify that a function uses a format string, which allows the compiler to perform some checks related to the standard format specifiers. Unfortunately, this attribute does not permit extensions to the format string syntax, so a programmer cannot extend it to warn for mismatches with custom types. … … 484 415 \subsection{Tuple Expressions} 485 416 486 The tuple extensions in \CFA can express multiple return values and variadic function parameters in an efficient and type-safe manner. \CFA introduces \emph{tuple expressions} and \emph{tuple types}. A tuple expression is an expression producing a fixed-size, ordered list of values of heterogeneous types. The type of a tuple expression is the tuple of the subexpression types, or a \emph{tuple type}. In \CFA, a tuple expression is denoted by a comma-separated list of expressions enclosed in square brackets. For example, the expression @[5, 'x', 10.5]@ has type @[int, char, double]@. The previous expression has three \emph{components}. Each component in a tuple expression can be any \CFAexpression, including another tuple expression. The order of evaluation of the components in a tuple expression is unspecified, to allow a compiler the greatest flexibility for program optimization. It is, however, guaranteed that each component of a tuple expression is evaluated for side-effects, even if the result is not used. Multiple-return-value functions can equivalently be called \emph{tuple-returning functions}.487 488 \CFA allows declaration of \emph{tuple variables}, variables of tuple type. For example:417 The tuple extensions in \CFA{} can express multiple return values and variadic function parameters in an efficient and type-safe manner. \CFA{} introduces \emph{tuple expressions} and \emph{tuple types}. A tuple expression is an expression producing a fixed-size, ordered list of values of heterogeneous types. The type of a tuple expression is the tuple of the subexpression types, or a \emph{tuple type}. In \CFA{}, a tuple expression is denoted by a comma-separated list of expressions enclosed in square brackets. For example, the expression @[5, 'x', 10.5]@ has type @[int, char, double]@. The previous expression has three \emph{components}. Each component in a tuple expression can be any \CFA{} expression, including another tuple expression. The order of evaluation of the components in a tuple expression is unspecified, to allow a compiler the greatest flexibility for program optimization. It is, however, guaranteed that each component of a tuple expression is evaluated for side-effects, even if the result is not used. Multiple-return-value functions can equivalently be called \emph{tuple-returning functions}. 418 419 \CFA{} allows declaration of \emph{tuple variables}, variables of tuple type. For example: 489 420 \begin{lstlisting} 490 421 [int, char] most_frequent(const char*); … … 518 449 h(x, y); // flatten & structure 519 450 \end{lstlisting} 520 In \CFA , each of these calls is valid. In the call to @f@, @x@ is implicitly flattened so that the components of @x@ are passed as the two arguments to @f@. For the call to @g@, the values @y@ and @10@ are structured into a single argument of type @[int, int]@ to match the type of the parameter of @g@. Finally, in the call to @h@, @y@ is flattened to yield an argument list of length 3, of which the first component of @x@ is passed as the first parameter of @h@, and the second component of @x@ and @y@ are structured into the second argument of type @[int, int]@. The flexible structure of tuples permits a simple and expressive function call syntax to work seamlessly with both single- and multiple-return-value functions, and with any number of arguments of arbitrarily complex structure.521 522 % In {K-W C} \citep{Buhr94a,Till89}, a precursor to \CFA , there were 4 tuple coercions: opening, closing, flattening, and structuring. Opening coerces a tuple value into a tuple of values, while closing converts a tuple of values into a single tuple value. Flattening coerces a nested tuple into a flat tuple, \ie it takes a tuple with tuple components and expands it into a tuple with only non-tuple components. Structuring moves in the opposite direction, \ieit takes a flat tuple value and provides structure by introducing nested tuple components.523 524 In \CFA , the design has been simplified to require only the two conversions previously described, which trigger only in function call and return situations. Specifically, the expression resolution algorithm examines all of the possible alternatives for an expression to determine the best match. In resolving a function call expression, each combination of function value and list of argument alternatives is examined. Given a particular argument list and function value, the list of argument alternatives is flattened to produce a list of non-tuple valued expressions. Then the flattened list of expressions is compared with each value in the function's parameter list. If the parameter's type is not a tuple type, then the current argument value is unified with the parameter type, and on success the next argument and parameter are examined. If the parameter's type is a tuple type, then the structuring conversion takes effect, recursively applying the parameter matching algorithm using the tuple's component types as the parameter list types. Assuming a successful unification, eventually the algorithm gets to the end of the tuple type, which causes all of the matching expressions to be consumed and structured into a tuple expression. For example, in451 In \CFA{}, each of these calls is valid. In the call to @f@, @x@ is implicitly flattened so that the components of @x@ are passed as the two arguments to @f@. For the call to @g@, the values @y@ and @10@ are structured into a single argument of type @[int, int]@ to match the type of the parameter of @g@. Finally, in the call to @h@, @y@ is flattened to yield an argument list of length 3, of which the first component of @x@ is passed as the first parameter of @h@, and the second component of @x@ and @y@ are structured into the second argument of type @[int, int]@. The flexible structure of tuples permits a simple and expressive function call syntax to work seamlessly with both single- and multiple-return-value functions, and with any number of arguments of arbitrarily complex structure. 452 453 % In {K-W C} \citep{Buhr94a,Till89}, a precursor to \CFA{}, there were 4 tuple coercions: opening, closing, flattening, and structuring. Opening coerces a tuple value into a tuple of values, while closing converts a tuple of values into a single tuple value. Flattening coerces a nested tuple into a flat tuple, \ie{} it takes a tuple with tuple components and expands it into a tuple with only non-tuple components. Structuring moves in the opposite direction, \ie{} it takes a flat tuple value and provides structure by introducing nested tuple components. 454 455 In \CFA{}, the design has been simplified to require only the two conversions previously described, which trigger only in function call and return situations. Specifically, the expression resolution algorithm examines all of the possible alternatives for an expression to determine the best match. In resolving a function call expression, each combination of function value and list of argument alternatives is examined. Given a particular argument list and function value, the list of argument alternatives is flattened to produce a list of non-tuple valued expressions. Then the flattened list of expressions is compared with each value in the function's parameter list. If the parameter's type is not a tuple type, then the current argument value is unified with the parameter type, and on success the next argument and parameter are examined. If the parameter's type is a tuple type, then the structuring conversion takes effect, recursively applying the parameter matching algorithm using the tuple's component types as the parameter list types. Assuming a successful unification, eventually the algorithm gets to the end of the tuple type, which causes all of the matching expressions to be consumed and structured into a tuple expression. For example, in 525 456 \begin{lstlisting} 526 457 int f(int, [double, int]); … … 544 475 double z = [x, f()].0.1; // access second component of first component of tuple expression 545 476 \end{lstlisting} 546 As seen above, tuple-index expressions can occur on any tuple-typed expression, including tuple-returning functions, square-bracketed tuple expressions, and other tuple-index expressions, provided the retrieved component is also a tuple. This feature was proposed for {K-W C}, but never implemented ~\citep[p.~45]{Till89}.477 As seen above, tuple-index expressions can occur on any tuple-typed expression, including tuple-returning functions, square-bracketed tuple expressions, and other tuple-index expressions, provided the retrieved component is also a tuple. This feature was proposed for {K-W C}, but never implemented \citep[p.~45]{Till89}. 547 478 548 479 It is possible to access multiple fields from a single expression using a \emph{member-access tuple expression}. The result is a single tuple expression whose type is the tuple of the types of the members. For example, … … 553 484 Here, the type of @s.[x, y, z]@ is @[int, double, char *]@. A member tuple expression has the form @a.[x, y, z];@ where @a@ is an expression with type @T@, where @T@ supports member access expressions, and @x, y, z@ are all members of @T@ with types @T$_x$@, @T$_y$@, and @T$_z$@ respectively. Then the type of @a.[x, y, z]@ is @[T$_x$, T$_y$, T$_z$]@. 554 485 555 Since tuple index expressions are a form of member-access expression, it is possible to use tuple-index expressions in conjunction with member tuple expressions to manually restructure a tuple (\eg rearrange components, drop components, duplicate components, etc.):486 Since tuple index expressions are a form of member-access expression, it is possible to use tuple-index expressions in conjunction with member tuple expressions to manually restructure a tuple (\eg{} rearrange components, drop components, duplicate components, etc.): 556 487 \begin{lstlisting} 557 488 [int, int, long, double] x; … … 589 520 That is, @?=?(&$L_i$, $R_i$)@ must be a well-typed expression. In the previous example, @[x, y] = z@, @z@ is flattened into @z.0, z.1@, and the assignments @x = z.0@ and @y = z.1@ are executed. 590 521 591 A mass assignment assigns the value $R$ to each $L_i$. For a mass assignment to be valid, @?=?(&$L_i$, $R$)@ must be a well-typed expression. This rule differs from C cascading assignment (\eg @a=b=c@) in that conversions are applied to $R$ in each individual assignment, which prevents data loss from the chain of conversions that can happen during a cascading assignment. For example, @[y, x] = 3.14@ performs the assignments @y = 3.14@ and @x = 3.14@, which results in the value @3.14@ in @y@ and the value @3@ in @x@. On the other hand, the C cascading assignment @y = x = 3.14@ performs the assignments @x = 3.14@ and @y = x@, which results in the value @3@ in @x@, and as a result the value @3@ in @y@ as well.522 A mass assignment assigns the value $R$ to each $L_i$. For a mass assignment to be valid, @?=?(&$L_i$, $R$)@ must be a well-typed expression. This rule differs from C cascading assignment (\eg{} @a=b=c@) in that conversions are applied to $R$ in each individual assignment, which prevents data loss from the chain of conversions that can happen during a cascading assignment. For example, @[y, x] = 3.14@ performs the assignments @y = 3.14@ and @x = 3.14@, which results in the value @3.14@ in @y@ and the value @3@ in @x@. On the other hand, the C cascading assignment @y = x = 3.14@ performs the assignments @x = 3.14@ and @y = x@, which results in the value @3@ in @x@, and as a result the value @3@ in @y@ as well. 592 523 593 524 Both kinds of tuple assignment have parallel semantics, such that each value on the left side and right side is evaluated \emph{before} any assignments occur. As a result, it is possible to swap the values in two variables without explicitly creating any temporary variables or calling a function: … … 599 530 600 531 Tuple assignment is an expression where the result type is the type of the left-hand side of the assignment, just like all other assignment expressions in C. This definition allows cascading tuple assignment and use of tuple assignment in other expression contexts, an occasionally useful idiom to keep code succinct and reduce repetition. 601 % In \CFA , tuple assignment is an expression where the result type is the type of the left-hand side of the assignment, as in normal assignment. That is, a tuple assignment produces the value of the left-hand side after assignment. These semantics allow cascading tuple assignment to work out naturally in any context where a tuple is permitted. These semantics are a change from the original tuple design in {K-W C}~\citep{Till89}, wherein tuple assignment was a statement that allows cascading assignments as a special case. This decision was made in an attempt to fix what was seen as a problem with assignment, wherein it can be used in many different locations, such as in function-call argument position. While permitting assignment as an expression does introduce the potential for subtle complexities, it is impossible to remove assignment expressions from \CFA without affecting backwards compatibility with C. Furthermore, there are situations where permitting assignment as an expression improves readability by keeping code succinct and reducing repetition, and complicating the definition of tuple assignment puts a greater cognitive burden on the user. In another language, tuple assignment as a statement could be reasonable, but it would be inconsistent for tuple assignment to be the only kind of assignment in \CFAthat is not an expression.532 % In \CFA{}, tuple assignment is an expression where the result type is the type of the left-hand side of the assignment, as in normal assignment. That is, a tuple assignment produces the value of the left-hand side after assignment. These semantics allow cascading tuple assignment to work out naturally in any context where a tuple is permitted. These semantics are a change from the original tuple design in {K-W C} \citep{Till89}, wherein tuple assignment was a statement that allows cascading assignments as a special case. This decision was made in an attempt to fix what was seen as a problem with assignment, wherein it can be used in many different locations, such as in function-call argument position. While permitting assignment as an expression does introduce the potential for subtle complexities, it is impossible to remove assignment expressions from \CFA{} without affecting backwards compatibility with C. Furthermore, there are situations where permitting assignment as an expression improves readability by keeping code succinct and reducing repetition, and complicating the definition of tuple assignment puts a greater cognitive burden on the user. In another language, tuple assignment as a statement could be reasonable, but it would be inconsistent for tuple assignment to be the only kind of assignment in \CFA{} that is not an expression. 602 533 603 534 \subsection{Casting} 604 535 605 In C, the cast operator is used to explicitly convert between types. In \CFA , the cast operator has a secondary use as type ascription. That is, a cast can be used to select the type of an expression when it is ambiguous, as in the call to an overloaded function:536 In C, the cast operator is used to explicitly convert between types. In \CFA{}, the cast operator has a secondary use as type ascription. That is, a cast can be used to select the type of an expression when it is ambiguous, as in the call to an overloaded function: 606 537 \begin{lstlisting} 607 538 int f(); // (1) … … 612 543 \end{lstlisting} 613 544 614 Since casting is a fundamental operation in \CFA , casts should be given a meaningful interpretation in the context of tuples. Taking a look at standard C provides some guidance with respect to the way casts should work with tuples:545 Since casting is a fundamental operation in \CFA{}, casts should be given a meaningful interpretation in the context of tuples. Taking a look at standard C provides some guidance with respect to the way casts should work with tuples: 615 546 \begin{lstlisting} 616 547 int f(); … … 639 570 Since @void@ is effectively a 0-element tuple, (3) discards the first and third return values, which is effectively equivalent to @[(int)(g().1.0), (int)(g().1.1)]@). 640 571 641 Note that a cast is not a function call in \CFA , so flattening and structuring conversions do not occur for cast expressions\footnote{User-defined conversions have been considered, but for compatibility with C and the existing use of casts as type ascription, any future design for such conversions would require more precise matching of types than allowed for function arguments and parameters.}. As such, (4) is invalid because the cast target type contains 4 components, while the source type contains only 3. Similarly, (5) is invalid because the cast @([int, int, int])(g().1)@ is invalid. That is, it is invalid to cast @[int, int]@ to @[int, int, int]@.572 Note that a cast is not a function call in \CFA{}, so flattening and structuring conversions do not occur for cast expressions\footnote{User-defined conversions have been considered, but for compatibility with C and the existing use of casts as type ascription, any future design for such conversions would require more precise matching of types than allowed for function arguments and parameters.}. As such, (4) is invalid because the cast target type contains 4 components, while the source type contains only 3. Similarly, (5) is invalid because the cast @([int, int, int])(g().1)@ is invalid. That is, it is invalid to cast @[int, int]@ to @[int, int, int]@. 642 573 643 574 \subsection{Polymorphism} 644 575 645 Tuples also integrate with \CFA polymorphism as a special sort of generic type. Due to the implicit flattening and structuring conversions involved in argument passing, @otype@ and @dtype@ parameters are restricted to matching only with non-tuple types.576 Tuples also integrate with \CFA{} polymorphism as a special sort of generic type. Due to the implicit flattening and structuring conversions involved in argument passing, @otype@ and @dtype@ parameters are restricted to matching only with non-tuple types. 646 577 \begin{lstlisting} 647 578 forall(otype T, dtype U) … … 663 594 \end{lstlisting} 664 595 665 Flattening and restructuring conversions are also applied to tuple types in polymorphic type assertions. Previously in \CFA , it has been assumed that assertion arguments must match the parameter type exactly, modulo polymorphic specialization (\ieno implicit conversions are applied to assertion arguments). In the example below:596 Flattening and restructuring conversions are also applied to tuple types in polymorphic type assertions. Previously in \CFA{}, it has been assumed that assertion arguments must match the parameter type exactly, modulo polymorphic specialization (\ie{} no implicit conversions are applied to assertion arguments). In the example below: 666 597 \begin{lstlisting} 667 598 int f([int, double], double); … … 682 613 \subsection{Variadic Tuples} 683 614 684 To define variadic functions, \CFA adds a new kind of type parameter, @ttype@. Matching against a @ttype@ (``tuple type'') parameter consumes all remaining argument components and packages them into a tuple, binding to the resulting tuple of types. In a given parameter list, there should be at most one @ttype@ parameter that must occur last, otherwise the call can never resolve, given the previous rule. This idea essentially matches normal variadic semantics, with a strong feeling of similarity to \CCelevenvariadic templates. As such, @ttype@ variables are also referred to as \emph{argument} or \emph{parameter packs} in this paper.615 To define variadic functions, \CFA{} adds a new kind of type parameter, @ttype@. Matching against a @ttype@ (``tuple type'') parameter consumes all remaining argument components and packages them into a tuple, binding to the resulting tuple of types. In a given parameter list, there should be at most one @ttype@ parameter that must occur last, otherwise the call can never resolve, given the previous rule. This idea essentially matches normal variadic semantics, with a strong feeling of similarity to \CCeleven{} variadic templates. As such, @ttype@ variables are also referred to as \emph{argument} or \emph{parameter packs} in this paper. 685 616 686 617 Like variadic templates, the main way to manipulate @ttype@ polymorphic functions is through recursion. Since nothing is known about a parameter pack by default, assertion parameters are key to doing anything meaningful. Unlike variadic templates, @ttype@ polymorphic functions can be separately compiled. … … 703 634 Effectively, this algorithm traces as @sum(10, 20, 30)@ $\rightarrow$ @10+sum(20, 30)@ $\rightarrow$ @10+(20+sum(30))@ $\rightarrow$ @10+(20+(30+sum()))@ $\rightarrow$ @10+(20+(30+0))@. 704 635 705 As a point of note, this version does not require any form of argument descriptor, since the \CFA type system keeps track of all of these details. It might be reasonable to take the @sum@ function a step further to enforce a minimum number of arguments:636 As a point of note, this version does not require any form of argument descriptor, since the \CFA{} type system keeps track of all of these details. It might be reasonable to take the @sum@ function a step further to enforce a minimum number of arguments: 706 637 \begin{lstlisting} 707 638 int sum(int x, int y){ … … 762 693 Pair(int, char) * x = new(42, '!'); 763 694 \end{lstlisting} 764 The @new@ function provides the combination of type-safe @malloc@ with a constructor call, so that it becomes impossible to forget to construct dynamically allocated objects. This function provides the type-safety of @new@ in \CC , without the need to specify the allocated type again, thanks to return-type inference.695 The @new@ function provides the combination of type-safe @malloc@ with a constructor call, so that it becomes impossible to forget to construct dynamically allocated objects. This function provides the type-safety of @new@ in \CC{}, without the need to specify the allocated type again, thanks to return-type inference. 765 696 766 697 In the call to @new@, @Pair(double, char)@ is selected to match @T@, and @Params@ is expanded to match @[double, char]@. The constructor (1) may be specialized to satisfy the assertion for a constructor with an interface compatible with @void ?{}(Pair(int, char) *, int, char)@. … … 770 701 \subsection{Implementation} 771 702 772 Tuples are implemented in the \CFA translator via a transformation into generic types. For each $N$, the first time an $N$-tuple is seen in a scope a generic type with $N$ type parameters is generated. For example:703 Tuples are implemented in the \CFA{} translator via a transformation into generic types. For each $N$, the first time an $N$-tuple is seen in a scope a generic type with $N$ type parameters is generated. For example: 773 704 \begin{lstlisting} 774 705 [int, int] f() { … … 845 776 Since argument evaluation order is not specified by the C programming language, this scheme is built to work regardless of evaluation order. The first time a unique expression is executed, the actual expression is evaluated and the accompanying boolean is set to true. Every subsequent evaluation of the unique expression then results in an access to the stored result of the actual expression. Tuple member expressions also take advantage of unique expressions in the case of possible impurity. 846 777 847 Currently, the \CFA translator has a very broad, imprecise definition of impurity, where any function call is assumed to be impure. This notion could be made more precise for certain intrinsic, auto-generated, and builtin functions, and could analyze function bodies when they are available to recursively detect impurity, to eliminate some unique expressions.848 849 The various kinds of tuple assignment, constructors, and destructors generate GNU C statement expressions. A variable is generated to store the value produced by a statement expression, since its fields may need to be constructed with a non-trivial constructor and it may need to be referred to multiple time, \eg in a unique expression. The use of statement expressions allows the translator to arbitrarily generate additional temporary variables as needed, but binds the implementation to a non-standard extension of the C language. However, there are other places where the \CFAtranslator makes use of GNU C extensions, such as its use of nested functions, so this restriction is not new.778 Currently, the \CFA{} translator has a very broad, imprecise definition of impurity, where any function call is assumed to be impure. This notion could be made more precise for certain intrinsic, auto-generated, and builtin functions, and could analyze function bodies when they are available to recursively detect impurity, to eliminate some unique expressions. 779 780 The various kinds of tuple assignment, constructors, and destructors generate GNU C statement expressions. A variable is generated to store the value produced by a statement expression, since its fields may need to be constructed with a non-trivial constructor and it may need to be referred to multiple time, \eg{} in a unique expression. The use of statement expressions allows the translator to arbitrarily generate additional temporary variables as needed, but binds the implementation to a non-standard extension of the C language. However, there are other places where the \CFA{} translator makes use of GNU C extensions, such as its use of nested functions, so this restriction is not new. 850 781 851 782 \section{Related Work} 852 783 853 \CC is the existing language it is most natural to compare \CFA to, as they are both more modern extensions to C with backwards source compatibility. The most fundamental difference in approach between \CC and \CFA is their approach to this C compatibility. \CC does provide fairly strong source backwards compatibility with C, but is a dramatically more complex language than C, and imposes a steep learning curve to use many of its extension features. For instance, in a break from general C practice, template code is typically written in header files, with a variety of subtle restrictions implied on its use by this choice, while the other polymorphism mechanism made available by \CC, class inheritance, requires programmers to learn an entirely new object-oriented programming paradigm; the interaction between templates and inheritance is also quite complex. \CFA, by contrast, has a single facility for polymorphic code, one which supports separate compilation and the existing procedural paradigm of C code. A major difference between the approaches of \CC and \CFA to polymorphism is that the set of assumed properties for a type is \emph{explicit} in \CFA. One of the major limiting factors of \CC's approach is that templates cannot be separately compiled, and, until concepts~\citep{C++Concepts} are standardized (currently anticipated for \CCtwenty), \CC provides no way to specify the requirements of a generic function in code beyond compilation errors for template expansion failures. By contrast, the explicit nature of assertions in \CFA allows polymorphic functions to be separately compiled, and for their requirements to be checked by the compiler; similarly, \CFA generic types may be opaque, unlike \CCtemplate classes.854 855 Cyclone also provides capabilities for polymorphic functions and existential types ~\citep{Grossman06}, similar in concept to \CFA's @forall@ functions and generic types. Cyclone existential types can include function pointers in a construct similar to a virtual function table, but these pointers must be explicitly initialized at some point in the code, a tedious and potentially error-prone process. Furthermore, Cyclone's polymorphic functions and types are restricted in that they may only abstract over types with the same layout and calling convention as @void*@, in practice only pointer types and @int@ - in \CFA terms, all Cyclone polymorphism must be dtype-static. This design provides the efficiency benefits discussed in Section~\ref{sec:generic-apps} for dtype-static polymorphism, but is more restrictive than \CFA's more general model.856 857 Go and Rust are both modern, compiled languages with abstraction features similar to \CFA traits, \emph{interfaces} in Go and \emph{traits} in Rust. However, both languages represent dramatic departures from C in terms of language model, and neither has the same level of compatibility with C as \CFA. Go is a garbage-collected language, imposing the associated runtime overhead, and complicating foreign-function calls with the necessity of accounting for data transfer between the managed Go runtime and the unmanaged C runtime. Furthermore, while generic types and functions are available in Go, they are limited to a small fixed set provided by the compiler, with no language facility to define more. Rust is not garbage-collected, and thus has a lighter-weight runtime that is more easily interoperable with C. It also possesses much more powerful abstraction capabilities for writing generic code than Go. On the other hand, Rust's borrow-checker, while it does provide strong safety guarantees, is complex and difficult to learn, and imposes a distinctly idiomatic programming style on Rust. \CFA, with its more modest safety features, is significantly easier to port C code to, while maintaining the idiomatic style of the original source.784 \CC{} is the existing language it is most natural to compare \CFA{} to, as they are both more modern extensions to C with backwards source compatibility. The most fundamental difference in approach between \CC{} and \CFA{} is their approach to this C compatibility. \CC{} does provide fairly strong source backwards compatibility with C, but is a dramatically more complex language than C, and imposes a steep learning curve to use many of its extension features. For instance, in a break from general C practice, template code is typically written in header files, with a variety of subtle restrictions implied on its use by this choice, while the other polymorphism mechanism made available by \CC{}, class inheritance, requires programmers to learn an entirely new object-oriented programming paradigm; the interaction between templates and inheritance is also quite complex. \CFA{}, by contrast, has a single facility for polymorphic code, one which supports separate compilation and the existing procedural paradigm of C code. A major difference between the approaches of \CC{} and \CFA{} to polymorphism is that the set of assumed properties for a type is \emph{explicit} in \CFA{}. One of the major limiting factors of \CC{}'s approach is that templates cannot be separately compiled, and, until concepts \citep{C++Concepts} are standardized (currently anticipated for \CCtwenty{}), \CC{} provides no way to specify the requirements of a generic function in code beyond compilation errors for template expansion failures. By contrast, the explicit nature of assertions in \CFA{} allows polymorphic functions to be separately compiled, and for their requirements to be checked by the compiler; similarly, \CFA{} generic types may be opaque, unlike \CC{} template classes. 785 786 Cyclone also provides capabilities for polymorphic functions and existential types \citep{Gro06}, similar in concept to \CFA{}'s @forall@ functions and generic types. Cyclone existential types can include function pointers in a construct similar to a virtual function table, but these pointers must be explicitly initialized at some point in the code, a tedious and potentially error-prone process. Furthermore, Cyclone's polymorphic functions and types are restricted in that they may only abstract over types with the same layout and calling convention as @void*@, in practice only pointer types and @int@ - in \CFA{} terms, all Cyclone polymorphism must be dtype-static. This design provides the efficiency benefits discussed in Section~\ref{sec:generic-apps} for dtype-static polymorphism, but is more restrictive than \CFA{}'s more general model. 787 788 Go and Rust are both modern, compiled languages with abstraction features similar to \CFA{} traits, \emph{interfaces} in Go and \emph{traits} in Rust. However, both languages represent dramatic departures from C in terms of language model, and neither has the same level of compatibility with C as \CFA{}. Go is a garbage-collected language, imposing the associated runtime overhead, and complicating foreign-function calls with the necessity of accounting for data transfer between the managed Go runtime and the unmanaged C runtime. Furthermore, while generic types and functions are available in Go, they are limited to a small fixed set provided by the compiler, with no language facility to define more. Rust is not garbage-collected, and thus has a lighter-weight runtime that is more easily interoperable with C. It also possesses much more powerful abstraction capabilities for writing generic code than Go. On the other hand, Rust's borrow-checker, while it does provide strong safety guarantees, is complex and difficult to learn, and imposes a distinctly idiomatic programming style on Rust. \CFA{}, with its more modest safety features, is significantly easier to port C code to, while maintaining the idiomatic style of the original source. 858 789 859 790 \section{Conclusion \& Future Work} 860 791 861 In conclusion, the authors' design for generic types and tuples imposes minimal runtime overhead while still supporting a full range of C features, including separately-compiled modules. There is ongoing work on a wide range of \CFA feature extensions, including reference types, exceptions, and concurrent programming primitives. In addition to this work, there are some interesting future directions the polymorphism design could take. Notably, \CC template functions trade compile time and code bloat for optimal runtime of individual instantiations of polymorphic functions. \CFA polymorphic functions, by contrast, use an approach that is essentially dynamic virtual dispatch. The runtime overhead of this approach is low, but not as low as \CCtemplate functions, and it may be beneficial to provide a mechanism for particularly performance-sensitive code to close this gap. Further research is needed, but two promising approaches are to allow an annotation on polymorphic function call sites that tells the translator to create a template-specialization of the function (provided the code is visible in the current translation unit) or placing an annotation on polymorphic function definitions that instantiates a version of the polymorphic function specialized to some set of types. These approaches are not mutually exclusive, and would allow these performance optimizations to be applied only where most useful to increase performance, without suffering the code bloat or loss of generality of a template expansion approach where it is unnecessary.792 In conclusion, the authors' design for generic types and tuples imposes minimal runtime overhead while still supporting a full range of C features, including separately-compiled modules. There is ongoing work on a wide range of \CFA{} feature extensions, including reference types, exceptions, and concurrent programming primitives. In addition to this work, there are some interesting future directions the polymorphism design could take. Notably, \CC{} template functions trade compile time and code bloat for optimal runtime of individual instantiations of polymorphic functions. \CFA{} polymorphic functions, by contrast, use an approach that is essentially dynamic virtual dispatch. The runtime overhead of this approach is low, but not as low as \CC{} template functions, and it may be beneficial to provide a mechanism for particularly performance-sensitive code to close this gap. Further research is needed, but two promising approaches are to allow an annotation on polymorphic function call sites that tells the translator to create a template-specialization of the function (provided the code is visible in the current translation unit) or placing an annotation on polymorphic function definitions that instantiates a version of the polymorphic function specialized to some set of types. These approaches are not mutually exclusive, and would allow these performance optimizations to be applied only where most useful to increase performance, without suffering the code bloat or loss of generality of a template expansion approach where it is unnecessary. 862 793 863 794 \begin{acks} … … 866 797 867 798 \bibliographystyle{ACM-Reference-Format} 868 \bibliography{ cfa}799 \bibliography{generic_types} 869 800 870 801 \end{document} 871 872 % Local Variables: %873 % tab-width: 4 %874 % compile-command: "make" %875 % End: % -
src/CodeGen/CodeGenerator.cc
rfc19129 r814525c 10 10 // Created On : Mon May 18 07:44:20 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 16:38:01 201713 // Update Count : 48 212 // Last Modified On : Fri Mar 17 09:06:01 2017 13 // Update Count : 481 14 14 // 15 15 … … 674 674 675 675 void CodeGenerator::visit( CompoundLiteralExpr *compLitExpr ) { 676 assert( compLitExpr->get_ result() && dynamic_cast< ListInit * > ( compLitExpr->get_initializer() ) );677 output << "(" << genType( compLitExpr->get_ result(), "", pretty ) << ")";676 assert( compLitExpr->get_type() && dynamic_cast< ListInit * > ( compLitExpr->get_initializer() ) ); 677 output << "(" << genType( compLitExpr->get_type(), "", pretty ) << ")"; 678 678 compLitExpr->get_initializer()->accept( *this ); 679 679 } -
src/Parser/ExpressionNode.cc
rfc19129 r814525c 10 10 // Created On : Sat May 16 13:17:07 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 17:02:46201713 // Update Count : 5 1512 // Last Modified On : Sat Mar 4 06:58:47 2017 13 // Update Count : 509 14 14 // 15 15 … … 356 356 // these types do not have associated type information 357 357 } else if ( StructDecl * newDeclStructDecl = dynamic_cast< StructDecl * >( newDecl ) ) { 358 if ( newDeclStructDecl->has_body() ) { 359 return new CompoundLiteralExpr( new StructInstType( Type::Qualifiers(), newDeclStructDecl ), maybeMoveBuild< Initializer >(kids) ); 360 } else { 361 return new CompoundLiteralExpr( new StructInstType( Type::Qualifiers(), newDeclStructDecl->get_name() ), maybeMoveBuild< Initializer >(kids) ); 362 } // if 358 return new CompoundLiteralExpr( new StructInstType( Type::Qualifiers(), newDeclStructDecl->get_name() ), maybeMoveBuild< Initializer >(kids) ); 363 359 } else if ( UnionDecl * newDeclUnionDecl = dynamic_cast< UnionDecl * >( newDecl ) ) { 364 if ( newDeclUnionDecl->has_body() ) { 365 return new CompoundLiteralExpr( new UnionInstType( Type::Qualifiers(), newDeclUnionDecl ), maybeMoveBuild< Initializer >(kids) ); 366 } else { 367 return new CompoundLiteralExpr( new UnionInstType( Type::Qualifiers(), newDeclUnionDecl->get_name() ), maybeMoveBuild< Initializer >(kids) ); 368 } // if 360 return new CompoundLiteralExpr( new UnionInstType( Type::Qualifiers(), newDeclUnionDecl->get_name() ), maybeMoveBuild< Initializer >(kids) ); 369 361 } else if ( EnumDecl * newDeclEnumDecl = dynamic_cast< EnumDecl * >( newDecl ) ) { 370 if ( newDeclEnumDecl->has_body() ) { 371 return new CompoundLiteralExpr( new EnumInstType( Type::Qualifiers(), newDeclEnumDecl ), maybeMoveBuild< Initializer >(kids) ); 372 } else { 373 return new CompoundLiteralExpr( new EnumInstType( Type::Qualifiers(), newDeclEnumDecl->get_name() ), maybeMoveBuild< Initializer >(kids) ); 374 } // if 362 return new CompoundLiteralExpr( new EnumInstType( Type::Qualifiers(), newDeclEnumDecl->get_name() ), maybeMoveBuild< Initializer >(kids) ); 375 363 } else { 376 364 assert( false ); -
src/Parser/parser.yy
rfc19129 r814525c 10 10 // Created On : Sat Sep 1 20:22:55 2001 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 15:42:32 201713 // Update Count : 231 812 // Last Modified On : Fri Mar 17 15:42:22 2017 13 // Update Count : 2317 14 14 // 15 15 … … 423 423 | postfix_expression DECR 424 424 { $$ = new ExpressionNode( build_unary_ptr( OperKinds::DecrPost, $1 ) ); } 425 | '(' type_name_no_function ')' '{' initializer_list comma_opt '}' // C99 , compound-literal425 | '(' type_name_no_function ')' '{' initializer_list comma_opt '}' // C99 426 426 { $$ = new ExpressionNode( build_compoundLiteral( $2, new InitializerNode( $5, true ) ) ); } 427 427 | postfix_expression '{' argument_expression_list '}' // CFA -
src/SymTab/Indexer.cc
rfc19129 r814525c 10 10 // Created On : Sun May 17 21:37:33 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : T hu Mar 30 16:38:47201713 // Update Count : 1 912 // Last Modified On : Tue Mar 14 08:07:34 2017 13 // Update Count : 17 14 14 // 15 15 … … 483 483 void Indexer::visit( CompoundLiteralExpr *compLitExpr ) { 484 484 acceptNewScope( compLitExpr->get_result(), *this ); 485 maybeAccept( compLitExpr->get_type(), *this ); 485 486 maybeAccept( compLitExpr->get_initializer(), *this ); 486 487 } -
src/SymTab/Validate.cc
rfc19129 r814525c 10 10 // Created On : Sun May 17 21:50:04 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 16:50:13201713 // Update Count : 35 712 // Last Modified On : Thu Mar 16 16:39:15 2017 13 // Update Count : 353 14 14 // 15 15 … … 222 222 CompoundLiteral compoundliteral; 223 223 224 EliminateTypedef::eliminateTypedef( translationUnit ); 224 225 HoistStruct::hoistStruct( translationUnit ); 225 EliminateTypedef::eliminateTypedef( translationUnit );226 226 ReturnTypeFixer::fix( translationUnit ); // must happen before autogen 227 227 acceptAll( translationUnit, lrt ); // must happen before autogen, because sized flag needs to propagate to generated functions … … 824 824 static UniqueName indexName( "_compLit" ); 825 825 826 ObjectDecl *tempvar = new ObjectDecl( indexName.newName(), storageClasses, LinkageSpec::C, 0, compLitExpr->get_ result(), compLitExpr->get_initializer() );827 compLitExpr->set_ result( 0 );826 ObjectDecl *tempvar = new ObjectDecl( indexName.newName(), storageClasses, LinkageSpec::C, 0, compLitExpr->get_type(), compLitExpr->get_initializer() ); 827 compLitExpr->set_type( 0 ); 828 828 compLitExpr->set_initializer( 0 ); 829 829 delete compLitExpr; -
src/SynTree/Expression.cc
rfc19129 r814525c 10 10 // Created On : Mon May 18 07:44:20 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 16:41:13201713 // Update Count : 5 212 // Last Modified On : Fri Mar 17 09:42:04 2017 13 // Update Count : 51 14 14 // 15 15 … … 571 571 572 572 573 CompoundLiteralExpr::CompoundLiteralExpr( Type * type, Initializer * initializer ) : initializer( initializer ) {573 CompoundLiteralExpr::CompoundLiteralExpr( Type * type, Initializer * initializer ) : type( type ), initializer( initializer ) { 574 574 assert( type && initializer ); 575 set_result( type );576 } 577 578 CompoundLiteralExpr::CompoundLiteralExpr( const CompoundLiteralExpr &other ) : Expression( other ), initializer( other.initializer->clone() ) {}575 set_result( type->clone() ); 576 } 577 578 CompoundLiteralExpr::CompoundLiteralExpr( const CompoundLiteralExpr &other ) : Expression( other ), type( other.type->clone() ), initializer( other.initializer->clone() ) {} 579 579 580 580 CompoundLiteralExpr::~CompoundLiteralExpr() { 581 581 delete initializer; 582 delete type; 582 583 } 583 584 … … 585 586 os << "Compound Literal Expression: " << std::endl; 586 587 os << std::string( indent+2, ' ' ); 587 get_result()->print( os, indent + 2 );588 type->print( os, indent + 2 ); 588 589 os << std::string( indent+2, ' ' ); 589 590 initializer->print( os, indent + 2 ); -
src/SynTree/Expression.h
rfc19129 r814525c 10 10 // Created On : Mon May 18 07:44:20 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 16:44:00201713 // Update Count : 4112 // Last Modified On : Sat Jan 14 14:37:54 2017 13 // Update Count : 37 14 14 // 15 15 … … 35 35 36 36 Type *& get_result() { return result; } 37 const Type * get_result() const { return result; }38 37 void set_result( Type * newValue ) { result = newValue; } 39 38 bool has_result() const { return result != nullptr; } … … 587 586 virtual ~CompoundLiteralExpr(); 588 587 588 Type * get_type() const { return type; } 589 void set_type( Type * t ) { type = t; } 590 589 591 Initializer * get_initializer() const { return initializer; } 590 592 void set_initializer( Initializer * i ) { initializer = i; } … … 595 597 virtual void print( std::ostream & os, int indent = 0 ) const; 596 598 private: 599 Type * type; 597 600 Initializer * initializer; 598 601 }; -
src/SynTree/Mutator.cc
rfc19129 r814525c 10 10 // Created On : Mon May 18 07:44:20 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 16:45:19201713 // Update Count : 2 212 // Last Modified On : Thu Feb 16 15:02:23 2017 13 // Update Count : 21 14 14 // 15 15 … … 369 369 compLitExpr->set_env( maybeMutate( compLitExpr->get_env(), *this ) ); 370 370 compLitExpr->set_result( maybeMutate( compLitExpr->get_result(), *this ) ); 371 compLitExpr->set_type( maybeMutate( compLitExpr->get_type(), *this ) ); 371 372 compLitExpr->set_initializer( maybeMutate( compLitExpr->get_initializer(), *this ) ); 372 373 return compLitExpr; -
src/SynTree/Visitor.cc
rfc19129 r814525c 10 10 // Created On : Mon May 18 07:44:20 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Mar 30 16:45:25 201713 // Update Count : 2 412 // Last Modified On : Thu Feb 16 15:01:25 2017 13 // Update Count : 23 14 14 // 15 15 … … 292 292 void Visitor::visit( CompoundLiteralExpr *compLitExpr ) { 293 293 maybeAccept( compLitExpr->get_result(), *this ); 294 maybeAccept( compLitExpr->get_type(), *this ); 294 295 maybeAccept( compLitExpr->get_initializer(), *this ); 295 296 } -
src/driver/cfa.cc
rfc19129 r814525c 269 269 args[nargs] = "-lpthread"; 270 270 nargs += 1; 271 args[nargs] = "-ldl";272 nargs += 1;273 args[nargs] = "-Xlinker";274 nargs += 1;275 args[nargs] = "--undefined=__lib_debug_write";276 nargs += 1;277 278 271 } // if 279 272 #endif //HAVE_LIBCFA -
src/libcfa/Makefile.am
rfc19129 r814525c 49 49 50 50 libobjs = ${headers:=.o} 51 libsrc = libcfa-prelude.c interpose.c libhdr/libdebug.c${headers:=.c}51 libsrc = libcfa-prelude.c ${headers:=.c} 52 52 53 53 # not all platforms support concurrency, add option do disable it -
src/libcfa/Makefile.in
rfc19129 r814525c 43 43 44 44 # not all platforms support concurrency, add option do disable it 45 @BUILD_CONCURRENCY_TRUE@am__append_3 = con currency/coroutine concurrency/thread concurrency/kernel concurrency/monitor45 @BUILD_CONCURRENCY_TRUE@am__append_3 = containers/vector concurrency/coroutine concurrency/thread concurrency/kernel concurrency/monitor 46 46 47 47 # not all platforms support concurrency, add option do disable it … … 97 97 libcfa_d_a_AR = $(AR) $(ARFLAGS) 98 98 libcfa_d_a_LIBADD = 99 am__libcfa_d_a_SOURCES_DIST = libcfa-prelude.c interpose.c \100 libhdr/libdebug.c limits.c stdlib.c math.c iostream.c \101 fstream.c iterator.c rational.c assert.c containers/vector.c \102 concurrency/ coroutine.c concurrency/thread.c \103 concurrency/ kernel.c concurrency/monitor.c\104 concurrency/ CtxSwitch-@MACHINE_TYPE@.S concurrency/invoke.c99 am__libcfa_d_a_SOURCES_DIST = libcfa-prelude.c limits.c stdlib.c \ 100 math.c iostream.c fstream.c iterator.c rational.c assert.c \ 101 containers/vector.c concurrency/coroutine.c \ 102 concurrency/thread.c concurrency/kernel.c \ 103 concurrency/monitor.c concurrency/CtxSwitch-@MACHINE_TYPE@.S \ 104 concurrency/invoke.c 105 105 am__dirstamp = $(am__leading_dot)dirstamp 106 @BUILD_CONCURRENCY_TRUE@am__objects_1 = concurrency/libcfa_d_a-coroutine.$(OBJEXT) \ 106 @BUILD_CONCURRENCY_TRUE@am__objects_1 = containers/libcfa_d_a-vector.$(OBJEXT) \ 107 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_d_a-coroutine.$(OBJEXT) \ 107 108 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_d_a-thread.$(OBJEXT) \ 108 109 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_d_a-kernel.$(OBJEXT) \ … … 112 113 libcfa_d_a-iostream.$(OBJEXT) libcfa_d_a-fstream.$(OBJEXT) \ 113 114 libcfa_d_a-iterator.$(OBJEXT) libcfa_d_a-rational.$(OBJEXT) \ 114 libcfa_d_a-assert.$(OBJEXT) \ 115 containers/libcfa_d_a-vector.$(OBJEXT) $(am__objects_1) 115 libcfa_d_a-assert.$(OBJEXT) $(am__objects_1) 116 116 @BUILD_CONCURRENCY_TRUE@am__objects_3 = concurrency/CtxSwitch-@MACHINE_TYPE@.$(OBJEXT) \ 117 117 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_d_a-invoke.$(OBJEXT) 118 am__objects_4 = libcfa_d_a-libcfa-prelude.$(OBJEXT) \ 119 libcfa_d_a-interpose.$(OBJEXT) \ 120 libhdr/libcfa_d_a-libdebug.$(OBJEXT) $(am__objects_2) \ 118 am__objects_4 = libcfa_d_a-libcfa-prelude.$(OBJEXT) $(am__objects_2) \ 121 119 $(am__objects_3) 122 120 am_libcfa_d_a_OBJECTS = $(am__objects_4) … … 124 122 libcfa_a_AR = $(AR) $(ARFLAGS) 125 123 libcfa_a_LIBADD = 126 am__libcfa_a_SOURCES_DIST = libcfa-prelude.c interpose.c \ 127 libhdr/libdebug.c limits.c stdlib.c math.c iostream.c \ 128 fstream.c iterator.c rational.c assert.c containers/vector.c \ 129 concurrency/coroutine.c concurrency/thread.c \ 130 concurrency/kernel.c concurrency/monitor.c \ 131 concurrency/CtxSwitch-@MACHINE_TYPE@.S concurrency/invoke.c 132 @BUILD_CONCURRENCY_TRUE@am__objects_5 = concurrency/libcfa_a-coroutine.$(OBJEXT) \ 124 am__libcfa_a_SOURCES_DIST = libcfa-prelude.c limits.c stdlib.c math.c \ 125 iostream.c fstream.c iterator.c rational.c assert.c \ 126 containers/vector.c concurrency/coroutine.c \ 127 concurrency/thread.c concurrency/kernel.c \ 128 concurrency/monitor.c concurrency/CtxSwitch-@MACHINE_TYPE@.S \ 129 concurrency/invoke.c 130 @BUILD_CONCURRENCY_TRUE@am__objects_5 = \ 131 @BUILD_CONCURRENCY_TRUE@ containers/libcfa_a-vector.$(OBJEXT) \ 132 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_a-coroutine.$(OBJEXT) \ 133 133 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_a-thread.$(OBJEXT) \ 134 134 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_a-kernel.$(OBJEXT) \ … … 138 138 libcfa_a-fstream.$(OBJEXT) libcfa_a-iterator.$(OBJEXT) \ 139 139 libcfa_a-rational.$(OBJEXT) libcfa_a-assert.$(OBJEXT) \ 140 containers/libcfa_a-vector.$(OBJEXT)$(am__objects_5)140 $(am__objects_5) 141 141 @BUILD_CONCURRENCY_TRUE@am__objects_7 = concurrency/CtxSwitch-@MACHINE_TYPE@.$(OBJEXT) \ 142 142 @BUILD_CONCURRENCY_TRUE@ concurrency/libcfa_a-invoke.$(OBJEXT) 143 am__objects_8 = libcfa_a-libcfa-prelude.$(OBJEXT) \ 144 libcfa_a-interpose.$(OBJEXT) \ 145 libhdr/libcfa_a-libdebug.$(OBJEXT) $(am__objects_6) \ 143 am__objects_8 = libcfa_a-libcfa-prelude.$(OBJEXT) $(am__objects_6) \ 146 144 $(am__objects_7) 147 145 am_libcfa_a_OBJECTS = $(am__objects_8) … … 310 308 AM_CCASFLAGS = @CFA_FLAGS@ 311 309 headers = limits stdlib math iostream fstream iterator rational assert \ 312 containers/vector$(am__append_3)310 $(am__append_3) 313 311 libobjs = ${headers:=.o} 314 libsrc = libcfa-prelude.c interpose.c libhdr/libdebug.c ${headers:=.c} \ 315 $(am__append_4) 312 libsrc = libcfa-prelude.c ${headers:=.c} $(am__append_4) 316 313 libcfa_a_SOURCES = ${libsrc} 317 314 libcfa_a_CFLAGS = -nodebug -O2 … … 386 383 clean-libLIBRARIES: 387 384 -test -z "$(lib_LIBRARIES)" || rm -f $(lib_LIBRARIES) 388 libhdr/$(am__dirstamp):389 @$(MKDIR_P) libhdr390 @: > libhdr/$(am__dirstamp)391 libhdr/$(DEPDIR)/$(am__dirstamp):392 @$(MKDIR_P) libhdr/$(DEPDIR)393 @: > libhdr/$(DEPDIR)/$(am__dirstamp)394 libhdr/libcfa_d_a-libdebug.$(OBJEXT): libhdr/$(am__dirstamp) \395 libhdr/$(DEPDIR)/$(am__dirstamp)396 385 containers/$(am__dirstamp): 397 386 @$(MKDIR_P) containers … … 426 415 $(AM_V_AR)$(libcfa_d_a_AR) libcfa-d.a $(libcfa_d_a_OBJECTS) $(libcfa_d_a_LIBADD) 427 416 $(AM_V_at)$(RANLIB) libcfa-d.a 428 libhdr/libcfa_a-libdebug.$(OBJEXT): libhdr/$(am__dirstamp) \429 libhdr/$(DEPDIR)/$(am__dirstamp)430 417 containers/libcfa_a-vector.$(OBJEXT): containers/$(am__dirstamp) \ 431 418 containers/$(DEPDIR)/$(am__dirstamp) … … 460 447 -rm -f containers/libcfa_a-vector.$(OBJEXT) 461 448 -rm -f containers/libcfa_d_a-vector.$(OBJEXT) 462 -rm -f libhdr/libcfa_a-libdebug.$(OBJEXT)463 -rm -f libhdr/libcfa_d_a-libdebug.$(OBJEXT)464 449 465 450 distclean-compile: … … 468 453 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_a-assert.Po@am__quote@ 469 454 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_a-fstream.Po@am__quote@ 470 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_a-interpose.Po@am__quote@471 455 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_a-iostream.Po@am__quote@ 472 456 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_a-iterator.Po@am__quote@ … … 478 462 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_d_a-assert.Po@am__quote@ 479 463 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_d_a-fstream.Po@am__quote@ 480 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_d_a-interpose.Po@am__quote@481 464 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_d_a-iostream.Po@am__quote@ 482 465 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcfa_d_a-iterator.Po@am__quote@ … … 499 482 @AMDEP_TRUE@@am__include@ @am__quote@containers/$(DEPDIR)/libcfa_a-vector.Po@am__quote@ 500 483 @AMDEP_TRUE@@am__include@ @am__quote@containers/$(DEPDIR)/libcfa_d_a-vector.Po@am__quote@ 501 @AMDEP_TRUE@@am__include@ @am__quote@libhdr/$(DEPDIR)/libcfa_a-libdebug.Po@am__quote@502 @AMDEP_TRUE@@am__include@ @am__quote@libhdr/$(DEPDIR)/libcfa_d_a-libdebug.Po@am__quote@503 484 504 485 .S.o: … … 541 522 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -c -o libcfa_d_a-libcfa-prelude.obj `if test -f 'libcfa-prelude.c'; then $(CYGPATH_W) 'libcfa-prelude.c'; else $(CYGPATH_W) '$(srcdir)/libcfa-prelude.c'; fi` 542 523 543 libcfa_d_a-interpose.o: interpose.c544 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -MT libcfa_d_a-interpose.o -MD -MP -MF $(DEPDIR)/libcfa_d_a-interpose.Tpo -c -o libcfa_d_a-interpose.o `test -f 'interpose.c' || echo '$(srcdir)/'`interpose.c545 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libcfa_d_a-interpose.Tpo $(DEPDIR)/libcfa_d_a-interpose.Po546 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='interpose.c' object='libcfa_d_a-interpose.o' libtool=no @AMDEPBACKSLASH@547 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@548 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -c -o libcfa_d_a-interpose.o `test -f 'interpose.c' || echo '$(srcdir)/'`interpose.c549 550 libcfa_d_a-interpose.obj: interpose.c551 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -MT libcfa_d_a-interpose.obj -MD -MP -MF $(DEPDIR)/libcfa_d_a-interpose.Tpo -c -o libcfa_d_a-interpose.obj `if test -f 'interpose.c'; then $(CYGPATH_W) 'interpose.c'; else $(CYGPATH_W) '$(srcdir)/interpose.c'; fi`552 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libcfa_d_a-interpose.Tpo $(DEPDIR)/libcfa_d_a-interpose.Po553 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='interpose.c' object='libcfa_d_a-interpose.obj' libtool=no @AMDEPBACKSLASH@554 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@555 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -c -o libcfa_d_a-interpose.obj `if test -f 'interpose.c'; then $(CYGPATH_W) 'interpose.c'; else $(CYGPATH_W) '$(srcdir)/interpose.c'; fi`556 557 libhdr/libcfa_d_a-libdebug.o: libhdr/libdebug.c558 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -MT libhdr/libcfa_d_a-libdebug.o -MD -MP -MF libhdr/$(DEPDIR)/libcfa_d_a-libdebug.Tpo -c -o libhdr/libcfa_d_a-libdebug.o `test -f 'libhdr/libdebug.c' || echo '$(srcdir)/'`libhdr/libdebug.c559 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) libhdr/$(DEPDIR)/libcfa_d_a-libdebug.Tpo libhdr/$(DEPDIR)/libcfa_d_a-libdebug.Po560 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='libhdr/libdebug.c' object='libhdr/libcfa_d_a-libdebug.o' libtool=no @AMDEPBACKSLASH@561 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@562 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -c -o libhdr/libcfa_d_a-libdebug.o `test -f 'libhdr/libdebug.c' || echo '$(srcdir)/'`libhdr/libdebug.c563 564 libhdr/libcfa_d_a-libdebug.obj: libhdr/libdebug.c565 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -MT libhdr/libcfa_d_a-libdebug.obj -MD -MP -MF libhdr/$(DEPDIR)/libcfa_d_a-libdebug.Tpo -c -o libhdr/libcfa_d_a-libdebug.obj `if test -f 'libhdr/libdebug.c'; then $(CYGPATH_W) 'libhdr/libdebug.c'; else $(CYGPATH_W) '$(srcdir)/libhdr/libdebug.c'; fi`566 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) libhdr/$(DEPDIR)/libcfa_d_a-libdebug.Tpo libhdr/$(DEPDIR)/libcfa_d_a-libdebug.Po567 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='libhdr/libdebug.c' object='libhdr/libcfa_d_a-libdebug.obj' libtool=no @AMDEPBACKSLASH@568 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@569 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -c -o libhdr/libcfa_d_a-libdebug.obj `if test -f 'libhdr/libdebug.c'; then $(CYGPATH_W) 'libhdr/libdebug.c'; else $(CYGPATH_W) '$(srcdir)/libhdr/libdebug.c'; fi`570 571 524 libcfa_d_a-limits.o: limits.c 572 525 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_d_a_CFLAGS) $(CFLAGS) -MT libcfa_d_a-limits.o -MD -MP -MF $(DEPDIR)/libcfa_d_a-limits.Tpo -c -o libcfa_d_a-limits.o `test -f 'limits.c' || echo '$(srcdir)/'`limits.c … … 764 717 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 765 718 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -c -o libcfa_a-libcfa-prelude.obj `if test -f 'libcfa-prelude.c'; then $(CYGPATH_W) 'libcfa-prelude.c'; else $(CYGPATH_W) '$(srcdir)/libcfa-prelude.c'; fi` 766 767 libcfa_a-interpose.o: interpose.c768 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -MT libcfa_a-interpose.o -MD -MP -MF $(DEPDIR)/libcfa_a-interpose.Tpo -c -o libcfa_a-interpose.o `test -f 'interpose.c' || echo '$(srcdir)/'`interpose.c769 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libcfa_a-interpose.Tpo $(DEPDIR)/libcfa_a-interpose.Po770 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='interpose.c' object='libcfa_a-interpose.o' libtool=no @AMDEPBACKSLASH@771 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@772 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -c -o libcfa_a-interpose.o `test -f 'interpose.c' || echo '$(srcdir)/'`interpose.c773 774 libcfa_a-interpose.obj: interpose.c775 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -MT libcfa_a-interpose.obj -MD -MP -MF $(DEPDIR)/libcfa_a-interpose.Tpo -c -o libcfa_a-interpose.obj `if test -f 'interpose.c'; then $(CYGPATH_W) 'interpose.c'; else $(CYGPATH_W) '$(srcdir)/interpose.c'; fi`776 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libcfa_a-interpose.Tpo $(DEPDIR)/libcfa_a-interpose.Po777 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='interpose.c' object='libcfa_a-interpose.obj' libtool=no @AMDEPBACKSLASH@778 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@779 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -c -o libcfa_a-interpose.obj `if test -f 'interpose.c'; then $(CYGPATH_W) 'interpose.c'; else $(CYGPATH_W) '$(srcdir)/interpose.c'; fi`780 781 libhdr/libcfa_a-libdebug.o: libhdr/libdebug.c782 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -MT libhdr/libcfa_a-libdebug.o -MD -MP -MF libhdr/$(DEPDIR)/libcfa_a-libdebug.Tpo -c -o libhdr/libcfa_a-libdebug.o `test -f 'libhdr/libdebug.c' || echo '$(srcdir)/'`libhdr/libdebug.c783 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) libhdr/$(DEPDIR)/libcfa_a-libdebug.Tpo libhdr/$(DEPDIR)/libcfa_a-libdebug.Po784 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='libhdr/libdebug.c' object='libhdr/libcfa_a-libdebug.o' libtool=no @AMDEPBACKSLASH@785 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@786 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -c -o libhdr/libcfa_a-libdebug.o `test -f 'libhdr/libdebug.c' || echo '$(srcdir)/'`libhdr/libdebug.c787 788 libhdr/libcfa_a-libdebug.obj: libhdr/libdebug.c789 @am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -MT libhdr/libcfa_a-libdebug.obj -MD -MP -MF libhdr/$(DEPDIR)/libcfa_a-libdebug.Tpo -c -o libhdr/libcfa_a-libdebug.obj `if test -f 'libhdr/libdebug.c'; then $(CYGPATH_W) 'libhdr/libdebug.c'; else $(CYGPATH_W) '$(srcdir)/libhdr/libdebug.c'; fi`790 @am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) libhdr/$(DEPDIR)/libcfa_a-libdebug.Tpo libhdr/$(DEPDIR)/libcfa_a-libdebug.Po791 @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='libhdr/libdebug.c' object='libhdr/libcfa_a-libdebug.obj' libtool=no @AMDEPBACKSLASH@792 @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@793 @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libcfa_a_CFLAGS) $(CFLAGS) -c -o libhdr/libcfa_a-libdebug.obj `if test -f 'libhdr/libdebug.c'; then $(CYGPATH_W) 'libhdr/libdebug.c'; else $(CYGPATH_W) '$(srcdir)/libhdr/libdebug.c'; fi`794 719 795 720 libcfa_a-limits.o: limits.c … … 1123 1048 -rm -f containers/$(DEPDIR)/$(am__dirstamp) 1124 1049 -rm -f containers/$(am__dirstamp) 1125 -rm -f libhdr/$(DEPDIR)/$(am__dirstamp)1126 -rm -f libhdr/$(am__dirstamp)1127 1050 1128 1051 maintainer-clean-generic: … … 1134 1057 1135 1058 distclean: distclean-am 1136 -rm -rf ./$(DEPDIR) concurrency/$(DEPDIR) containers/$(DEPDIR) libhdr/$(DEPDIR)1059 -rm -rf ./$(DEPDIR) concurrency/$(DEPDIR) containers/$(DEPDIR) 1137 1060 -rm -f Makefile 1138 1061 distclean-am: clean-am distclean-compile distclean-generic \ … … 1180 1103 1181 1104 maintainer-clean: maintainer-clean-am 1182 -rm -rf ./$(DEPDIR) concurrency/$(DEPDIR) containers/$(DEPDIR) libhdr/$(DEPDIR)1105 -rm -rf ./$(DEPDIR) concurrency/$(DEPDIR) containers/$(DEPDIR) 1183 1106 -rm -f Makefile 1184 1107 maintainer-clean-am: distclean-am maintainer-clean-generic \ -
src/libcfa/assert.c
rfc19129 r814525c 17 17 #include "stdlib" // abort 18 18 19 #include "libhdr/libdebug.h"20 21 19 extern "C" { 22 20 #include <stdarg.h> // varargs … … 25 23 extern const char * __progname; // global name of running executable (argv[0]) 26 24 27 #define CFA_ASSERT_FMT " Cforall Assertion errorfrom program \"%s\" in \"%s\" at line %d in file \"%s\""25 #define CFA_ASSERT_FMT "*CFA assertion error* from program \"%s\" in \"%s\" at line %d in file \"%s\"" 28 26 29 27 // called by macro assert in assert.h 30 28 void __assert_fail( const char *assertion, const char *file, unsigned int line, const char *function ) { 31 __lib_debug_print_safe(CFA_ASSERT_FMT ".\n", __progname, function, line, file );29 fprintf( stderr, CFA_ASSERT_FMT ".\n", __progname, function, line, file ); 32 30 abort(); 33 31 } … … 35 33 // called by macro assertf 36 34 void __assert_fail_f( const char *assertion, const char *file, unsigned int line, const char *function, const char *fmt, ... ) { 37 __lib_debug_acquire(); 38 __lib_debug_print_nolock( CFA_ASSERT_FMT ": ", __progname, function, line, file ); 39 35 fprintf( stderr, CFA_ASSERT_FMT ": ", __progname, function, line, file ); 40 36 va_list args; 41 37 va_start( args, fmt ); 42 __lib_debug_print_vararg(fmt, args );38 vfprintf( stderr, fmt, args ); 43 39 va_end( args ); 44 45 __lib_debug_print_nolock( "\n" ); 46 __lib_debug_release(); 40 fprintf( stderr, "\n" ); 47 41 abort(); 48 42 } -
src/libcfa/concurrency/kernel.c
rfc19129 r814525c 15 15 // 16 16 17 #include "startup.h"18 19 17 //Start and stop routine for the kernel, declared first to make sure they run first 20 void kernel_startup(void) __attribute__(( constructor( STARTUP_PRIORITY_KERNEL )));21 void kernel_shutdown(void) __attribute__(( destructor ( STARTUP_PRIORITY_KERNEL )));18 void kernel_startup(void) __attribute__((constructor(101))); 19 void kernel_shutdown(void) __attribute__((destructor(101))); 22 20 23 21 //Header … … 27 25 #include <stddef.h> 28 26 extern "C" { 29 #include <stdio.h>30 27 #include <fenv.h> 31 28 #include <sys/resource.h> 32 #include <signal.h>33 #include <unistd.h>34 29 } 35 30 … … 151 146 152 147 this->runner = runner; 153 LIB_DEBUG_PRINT _SAFE("Kernel : constructing processor context %p\n", runner);148 LIB_DEBUG_PRINTF("Kernel : constructing processor context %p\n", runner); 154 149 runner{ this }; 155 150 } … … 157 152 void ^?{}(processor * this) { 158 153 if( ! this->is_terminated ) { 159 LIB_DEBUG_PRINT _SAFE("Kernel : core %p signaling termination\n", this);154 LIB_DEBUG_PRINTF("Kernel : core %p signaling termination\n", this); 160 155 this->is_terminated = true; 161 156 wait( &this->terminated ); … … 178 173 void main(processorCtx_t * runner) { 179 174 processor * this = runner->proc; 180 LIB_DEBUG_PRINT _SAFE("Kernel : core %p starting\n", this);175 LIB_DEBUG_PRINTF("Kernel : core %p starting\n", this); 181 176 182 177 thread_desc * readyThread = NULL; … … 200 195 } 201 196 202 LIB_DEBUG_PRINT _SAFE("Kernel : core %p unlocking thread\n", this);197 LIB_DEBUG_PRINTF("Kernel : core %p unlocking thread\n", this); 203 198 signal( &this->terminated ); 204 LIB_DEBUG_PRINT _SAFE("Kernel : core %p terminated\n", this);199 LIB_DEBUG_PRINTF("Kernel : core %p terminated\n", this); 205 200 } 206 201 … … 260 255 processorCtx_t proc_cor_storage = { proc, &info }; 261 256 262 LIB_DEBUG_PRINT _SAFE("Coroutine : created stack %p\n", proc_cor_storage.__cor.stack.base);257 LIB_DEBUG_PRINTF("Coroutine : created stack %p\n", proc_cor_storage.__cor.stack.base); 263 258 264 259 //Set global state … … 267 262 268 263 //We now have a proper context from which to schedule threads 269 LIB_DEBUG_PRINT _SAFE("Kernel : core %p created (%p, %p)\n", proc, proc->runner, &ctx);264 LIB_DEBUG_PRINTF("Kernel : core %p created (%p, %p)\n", proc, proc->runner, &ctx); 270 265 271 266 // SKULLDUGGERY: Since the coroutine doesn't have its own stack, we can't … … 278 273 279 274 // Main routine of the core returned, the core is now fully terminated 280 LIB_DEBUG_PRINT _SAFE("Kernel : core %p main ended (%p)\n", proc, proc->runner);275 LIB_DEBUG_PRINTF("Kernel : core %p main ended (%p)\n", proc, proc->runner); 281 276 282 277 return NULL; … … 284 279 285 280 void start(processor * this) { 286 LIB_DEBUG_PRINT _SAFE("Kernel : Starting core %p\n", this);281 LIB_DEBUG_PRINTF("Kernel : Starting core %p\n", this); 287 282 288 283 // pthread_attr_t attributes; … … 293 288 // pthread_attr_destroy( &attributes ); 294 289 295 LIB_DEBUG_PRINT _SAFE("Kernel : core %p started\n", this);290 LIB_DEBUG_PRINTF("Kernel : core %p started\n", this); 296 291 } 297 292 … … 339 334 // Kernel boot procedures 340 335 void kernel_startup(void) { 341 LIB_DEBUG_PRINT _SAFE("Kernel : Starting\n");336 LIB_DEBUG_PRINTF("Kernel : Starting\n"); 342 337 343 338 // Start by initializing the main thread … … 374 369 375 370 // THE SYSTEM IS NOW COMPLETELY RUNNING 376 LIB_DEBUG_PRINT _SAFE("Kernel : Started\n--------------------------------------------------\n\n");371 LIB_DEBUG_PRINTF("Kernel : Started\n--------------------------------------------------\n\n"); 377 372 } 378 373 379 374 void kernel_shutdown(void) { 380 LIB_DEBUG_PRINT _SAFE("\n--------------------------------------------------\nKernel : Shutting down\n");375 LIB_DEBUG_PRINTF("\n--------------------------------------------------\nKernel : Shutting down\n"); 381 376 382 377 // SKULLDUGGERY: Notify the systemProcessor it needs to terminates. … … 397 392 ^(mainThread){}; 398 393 399 LIB_DEBUG_PRINT_SAFE("Kernel : Shutdown complete\n"); 400 } 401 402 static spinlock kernel_abort_lock; 403 static spinlock kernel_debug_lock; 404 static bool kernel_abort_called = false; 405 406 void * kernel_abort (void) __attribute__ ((__nothrow__)) { 407 // abort cannot be recursively entered by the same or different processors because all signal handlers return when 408 // the globalAbort flag is true. 409 lock( &kernel_abort_lock ); 410 411 // first task to abort ? 412 if ( !kernel_abort_called ) { // not first task to abort ? 413 kernel_abort_called = true; 414 unlock( &kernel_abort_lock ); 415 } 416 else { 417 unlock( &kernel_abort_lock ); 418 419 sigset_t mask; 420 sigemptyset( &mask ); 421 sigaddset( &mask, SIGALRM ); // block SIGALRM signals 422 sigaddset( &mask, SIGUSR1 ); // block SIGUSR1 signals 423 sigsuspend( &mask ); // block the processor to prevent further damage during abort 424 _exit( EXIT_FAILURE ); // if processor unblocks before it is killed, terminate it 425 } 426 427 return this_thread(); 428 } 429 430 void kernel_abort_msg( void * kernel_data, char * abort_text, int abort_text_size ) { 431 thread_desc * thrd = kernel_data; 432 433 int len = snprintf( abort_text, abort_text_size, "Error occurred while executing task %.256s (%p)", thrd->cor.name, thrd ); 434 __lib_debug_write( STDERR_FILENO, abort_text, len ); 435 436 if ( thrd != this_coroutine() ) { 437 len = snprintf( abort_text, abort_text_size, " in coroutine %.256s (%p).\n", this_coroutine()->name, this_coroutine() ); 438 __lib_debug_write( STDERR_FILENO, abort_text, len ); 439 } 440 else { 441 __lib_debug_write( STDERR_FILENO, ".\n", 2 ); 442 } 443 } 444 445 extern "C" { 446 void __lib_debug_acquire() { 447 lock(&kernel_debug_lock); 448 } 449 450 void __lib_debug_release() { 451 unlock(&kernel_debug_lock); 452 } 394 LIB_DEBUG_PRINTF("Kernel : Shutdown complete\n"); 453 395 } 454 396 -
src/libcfa/concurrency/thread.c
rfc19129 r814525c 71 71 this_processor->current_coroutine = thrd_c; 72 72 73 LIB_DEBUG_PRINT _SAFE("Thread start : %p (t %p, c %p)\n", this, thrd_c, thrd_h);73 LIB_DEBUG_PRINTF("Thread start : %p (t %p, c %p)\n", this, thrd_c, thrd_h); 74 74 75 75 create_stack(&thrd_c->stack, thrd_c->stack.size); -
src/libcfa/libhdr/libdebug.h
rfc19129 r814525c 25 25 #endif 26 26 27 #ifdef __cforall28 extern "C" {29 #endif30 #include <stdarg.h>31 32 extern void __lib_debug_write( int fd, const char *buffer, int len );33 extern void __lib_debug_acquire();34 extern void __lib_debug_release();35 extern void __lib_debug_print_safe ( const char fmt[], ... ) __attribute__(( format (printf, 1, 2) ));36 extern void __lib_debug_print_nolock( const char fmt[], ... ) __attribute__(( format (printf, 1, 2) ));37 extern void __lib_debug_print_vararg( const char fmt[], va_list arg );38 extern void __lib_debug_print_buffer( char buffer[], int buffer_size, const char fmt[], ... ) __attribute__(( format (printf, 3, 4) ));39 #ifdef __cforall40 }41 #endif42 43 27 #ifdef __CFA_DEBUG_PRINT__ 44 #define LIB_DEBUG_WRITE( fd, buffer, len ) __lib_debug_write( fd, buffer, len ) 45 #define LIB_DEBUG_ACQUIRE() __lib_debug_acquire() 46 #define LIB_DEBUG_RELEASE() __lib_debug_release() 47 #define LIB_DEBUG_PRINT_SAFE(...) __lib_debug_print_safe (__VA_ARGS__) 48 #define LIB_DEBUG_PRINT_NOLOCK(...) __lib_debug_print_nolock (__VA_ARGS__) 49 #define LIB_DEBUG_PRINT_BUFFER(...) __lib_debug_print_buffer (__VA_ARGS__) 28 #define LIB_DEBUG_PRINTF(...) printf (__VA_ARGS__) 29 #define LIB_DEBUG_FPRINTF(...) fprintf (stderr, __VA_ARGS__) 50 30 #else 51 #define LIB_DEBUG_WRITE(...) ((void)0) 52 #define LIB_DEBUG_ACQUIRE() ((void)0) 53 #define LIB_DEBUG_RELEASE() ((void)0) 54 #define LIB_DEBUG_PRINT_SAFE(...) ((void)0) 55 #define LIB_DEBUG_PRINT_NOLOCK(...) ((void)0) 56 #define LIB_DEBUG_PRINT_BUFFER(...) ((void)0) 31 #define LIB_DEBUG_PRINTF(...) ((void)0) 32 #define LIB_DEBUG_FPRINTF(...) ((void)0) 57 33 #endif 58 34 -
src/libcfa/stdlib
rfc19129 r814525c 10 10 // Created On : Thu Jan 28 17:12:35 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sat Apr 1 17:35:24 201713 // Update Count : 10 412 // Last Modified On : Sat Mar 4 22:03:54 2017 13 // Update Count : 102 14 14 // 15 15 … … 84 84 forall( otype T | { int ?<?( T, T ); } ) 85 85 T * bsearch( T key, const T * arr, size_t dimension ); 86 forall( otype T | { int ?<?( T, T ); } )87 unsigned int bsearch( T key, const T * arr, size_t dimension );88 86 89 87 forall( otype T | { int ?<?( T, T ); } ) -
src/libcfa/stdlib.c
rfc19129 r814525c 10 10 // Created On : Thu Jan 28 17:10:29 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sat Apr 1 18:31:26201713 // Update Count : 1 8112 // Last Modified On : Sat Mar 4 22:02:22 2017 13 // Update Count : 172 14 14 // 15 15 … … 228 228 229 229 forall( otype T | { int ?<?( T, T ); } ) 230 unsigned int bsearch( T key, const T * arr, size_t dimension ) {231 int comp( const void * t1, const void * t2 ) { return *(T *)t1 < *(T *)t2 ? -1 : *(T *)t2 < *(T *)t1 ? 1 : 0; }232 T *result = (T *)bsearch( &key, arr, dimension, sizeof(T), comp );233 return result ? result - arr : dimension; // pointer subtraction includes sizeof(T)234 } // bsearch235 236 forall( otype T | { int ?<?( T, T ); } )237 230 void qsort( const T * arr, size_t dimension ) { 238 231 int comp( const void * t1, const void * t2 ) { return *(T *)t1 < *(T *)t2 ? -1 : *(T *)t2 < *(T *)t1 ? 1 : 0; } -
src/tests/.expect/searchsort.txt
rfc19129 r814525c 1 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1 3 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2 4 3 5 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 4 10, 9, 8, 7, 6, 5, 4, 3, 2, 1,5 10, 9, 8, 7, 6, 5, 4, 3, 2, 1,6 10, 9, 8, 7, 6, 5, 4, 3, 2, 1,7 8 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,9 10, 9, 8, 7, 6, 5, 4, 3, 2, 1,10 6 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 11 7 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, … … 14 10 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5, 10.5, 15 11 10.5, 9.5, 8.5, 7.5, 6.5, 5.5, 4.5, 3.5, 2.5, 1.5, 16 10.5, 9.5, 8.5, 7.5, 6.5, 5.5, 4.5, 3.5, 2.5, 1.5,17 12 18 13 10 11, 9 10, 8 9, 7 8, 6 7, 5 6, 4 5, 3 4, 2 3, 1 2, 19 14 1 2, 2 3, 3 4, 4 5, 5 6, 6 7, 7 8, 8 9, 9 10, 10 11, 20 15 10 11, 9 10, 8 9, 7 8, 6 7, 5 6, 4 5, 3 4, 2 3, 1 2, 21 10 11, 9 10, 8 9, 7 8, 6 7, 5 6, 4 5, 3 4, 2 3, 1 2,22 16 -
src/tests/searchsort.c
rfc19129 r814525c 10 10 // Created On : Thu Feb 4 18:17:50 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sun Apr 2 11:29:30 201713 // Update Count : 7612 // Last Modified On : Tue Jul 5 18:06:07 2016 13 // Update Count : 56 14 14 // 15 15 16 16 #include <fstream> 17 17 #include <stdlib> // bsearch, qsort 18 #include <stdlib.h> // C version of bsearch19 20 int comp( const void * t1, const void * t2 ) { return *(int *)t1 < *(int *)t2 ? -1 : *(int *)t2 < *(int *)t1 ? 1 : 0; }21 18 22 19 int main( void ) { … … 28 25 sout | iarr[i] | ", "; 29 26 } // for 30 sout | endl | endl; 31 32 // ascending sort/search by changing < to > 27 sout | endl; 33 28 qsort( iarr, size ); 34 29 for ( unsigned int i = 0; i < size; i += 1 ) { … … 36 31 } // for 37 32 sout | endl; 38 for ( unsigned int i = 0; i < size; i += 1 ) { // C version39 int key = size - i;40 int *v = bsearch( &key, iarr, size, sizeof( iarr[0] ), comp );41 sout | *v | ", ";42 } // for43 sout | endl;44 33 for ( unsigned int i = 0; i < size; i += 1 ) { 45 34 int *v = bsearch( size - i, iarr, size ); 46 35 sout | *v | ", "; 47 } // for48 sout | endl;49 for ( unsigned int i = 0; i < size; i += 1 ) {50 unsigned int posn = bsearch( size - i, iarr, size );51 sout | iarr[posn] | ", ";52 36 } // for 53 37 sout | endl | endl; … … 70 54 sout | *v | ", "; 71 55 } // for 72 sout | endl;73 for ( unsigned int i = 0; i < size; i += 1 ) {74 unsigned int posn = bsearch( size - i, iarr, size );75 sout | iarr[posn] | ", ";76 } // for77 56 } 78 57 sout | endl | endl; … … 92 71 double *v = bsearch( size - i + 0.5, darr, size ); 93 72 sout | *v | ", "; 94 } // for95 sout | endl;96 for ( unsigned int i = 0; i < size; i += 1 ) {97 unsigned int posn = bsearch( size - i + 0.5, darr, size );98 sout | darr[posn] | ", ";99 73 } // for 100 74 sout | endl | endl; … … 119 93 sout | *v | ", "; 120 94 } // for 121 sout | endl;122 for ( unsigned int i = 0; i < size; i += 1 ) {123 S temp = { size - i, size - i + 1 };124 unsigned int posn = bsearch( temp, sarr, size );125 sout | sarr[posn] | ", ";126 } // for127 95 sout | endl | endl; 128 96 } // main
Note:
See TracChangeset
for help on using the changeset viewer.