Changes in libcfa/prelude/builtins.c [c960331:0a25c34]

File:

• libcfa/prelude/builtins.c (modified) (3 diffs)

libcfa/prelude/builtins.c

@@ -9 +9 @@
 // Author           : Peter A. Buhr
 // Created On       : Fri Jul 21 16:21:03 2017
-// Last Modified By : Andrew Beach
-// Last Modified On : Tue Oct 27 14:42:00 2020
-// Update Count     : 111
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Thu Nov 21 16:31:39 2019
+// Update Count     : 101
 //
-
-#define __cforall_builtins__
 
 // type that wraps a pointer and a destructor-like function - used in generating implicit destructor calls for struct members in user-defined functions
@@ -51 +49 @@
 void abort( const char fmt[], ... ) __attribute__ (( format(printf, 1, 2), __nothrow__, __leaf__, __noreturn__ ));
 
-forall(dtype T)
-static inline T & identity(T & i) {
-        return i;
-}
-
-// generator support
-struct $generator {
-        inline int;
-};
-
-static inline void  ?{}($generator & this) { ((int&)this) = 0; }
-static inline void ^?{}($generator &) {}
-
-trait is_generator(dtype T) {
-      void main(T & this);
-      $generator * get_generator(T & this);
-};
-
-forall(dtype T | is_generator(T))
-static inline T & resume(T & gen) {
-        main(gen);
-        return gen;
-}
-
 // implicit increment, decrement if += defined, and implicit not if != defined
 
@@ -96 +70 @@
 // universal typed pointer constant
 static inline forall( dtype DT ) DT * intptr( uintptr_t addr ) { return (DT *)addr; }
-static inline forall( ftype FT ) FT * intptr( uintptr_t addr ) { return (FT *)addr; }
-
-#if defined(__SIZEOF_INT128__)
-// constructor for 128-bit numbers (all constants are unsigned as +/- are operators)
-static inline void ?{}( unsigned int128 & this, unsigned long int h, unsigned long int l ) {
-        this = (unsigned int128)h << 64 | (unsigned int128)l;
-} // ?{}
-#endif // __SIZEOF_INT128__
 
 // exponentiation operator implementation