Changes in / [cf34e82:1ee0a4da]

Files:

• libcfa/src/concurrency/cofor.cfa (modified) (1 diff)
• libcfa/src/concurrency/cofor.hfa (modified) (2 diffs)
• src/Parser/lex.ll (modified) (2 diffs)
• src/Parser/parser.yy (modified) (5 diffs)

libcfa/src/concurrency/cofor.cfa

@@ -20 +20 @@
 }
 
-void __Cofor__( ssize_t low, ssize_t high, __cofor_body_t loop_body ) libcfa_public {
+void cofor( ssize_t low, ssize_t high, __cofor_body_t loop_body ) libcfa_public {
         ssize_t range = high - low;
   if ( range <= 0 ) return;

libcfa/src/concurrency/cofor.hfa

@@ -5 +5 @@
 typedef void (*__cofor_body_t)( ssize_t );
 
-void __Cofor__( ssize_t low, ssize_t high, __cofor_body_t loop_body );
+void cofor( ssize_t low, ssize_t high, __cofor_body_t loop_body );
 
 #define COFOR( lidname, low, high, loopbody ) \
@@ -12 +12 @@
                         loopbody \
                 } \
-                __Cofor__( low, high, __CFA_loopLambda__ ); \
+                cofor( low, high, __CFA_loopLambda__ ); \
         }
 

src/Parser/lex.ll

@@ -10 +10 @@
  * Created On       : Sat Sep 22 08:58:10 2001
  * Last Modified By : Peter A. Buhr
- * Last Modified On : Tue Oct  3 17:10:57 2023
- * Update Count     : 773
+ * Last Modified On : Mon Oct  2 17:15:11 2023
+ * Update Count     : 772
  */
 
@@ -241 +241 @@
 choose                  { KEYWORD_RETURN(CHOOSE); }                             // CFA
 coerce                  { KEYWORD_RETURN(COERCE); }                             // CFA
-corun                   { KEYWORD_RETURN(CORUN); }                              // CFA
-cofor                   { KEYWORD_RETURN(COFOR); }                              // CFA
 _Complex                { KEYWORD_RETURN(COMPLEX); }                    // C99
 __complex               { KEYWORD_RETURN(COMPLEX); }                    // GCC

src/Parser/parser.yy

@@ -10 +10 @@
 // Created On       : Sat Sep  1 20:22:55 2001
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Tue Oct  3 17:14:12 2023
-// Update Count     : 6396
+// Last Modified On : Mon Sep  4 18:28:12 2023
+// Update Count     : 6393
 //
 
@@ -350 +350 @@
 %token IF ELSE SWITCH CASE DEFAULT DO WHILE FOR BREAK CONTINUE GOTO RETURN
 %token CHOOSE FALLTHRU FALLTHROUGH WITH WHEN WAITFOR WAITUNTIL // CFA
-%token CORUN COFOR
 %token DISABLE ENABLE TRY THROW THROWRESUME AT                  // CFA
 %token ASM                                                                                              // C99, extension ISO/IEC 9899:1999 Section J.5.10(1)
@@ -423 +422 @@
 %type<stmt> with_statement
 %type<expr> with_clause_opt
-%type<stmt> corun_statement                             cofor_statement
 %type<stmt> exception_statement
 %type<clause> handler_clause                    finally_clause
@@ -1142 +1140 @@
         | waitfor_statement
         | waituntil_statement
-        | corun_statement
-        | cofor_statement
         | exception_statement
         | enable_disable_statement
@@ -1717 +1713 @@
         wor_waituntil_clause                                                            %prec THEN
                 { $$ = new StatementNode( build_waituntil_stmt( yylloc, $1 ) ); }
-        ;
-
-corun_statement:
-        CORUN statement
-                { SemanticError( yylloc, "corun statement is currently unimplemented." ); $$ = nullptr; }
-        ;
-
-cofor_statement:
-        COFOR '(' for_control_expression_list ')' statement
-                { SemanticError( yylloc, "cofor statement is currently unimplemented." ); $$ = nullptr; }
         ;