Changeset ebf8ca5

Timestamp:

Sep 19, 2022, 6:25:23 PM (19 months ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, ast-experimental, master, pthread-emulation

Children:

23a08aa0

Parents:

aa122e9

git-author:

Peter A. Buhr <pabuhr@…> (09/19/22 18:21:09)

git-committer:

Peter A. Buhr <pabuhr@…> (09/19/22 18:25:23)

Message:

switch for-loop from C to CFA format

Location:

libcfa/src

Files:

• bits/locks.hfa (modified) (3 diffs)
• iostream.cfa (modified) (3 diffs)

libcfa/src/bits/locks.hfa

@@ -13 +13 @@
 // Created On       : Tue Oct 31 15:14:38 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Wed Aug 12 14:18:07 2020
-// Update Count     : 13
+// Last Modified On : Sat Aug 27 15:06:39 2022
+// Update Count     : 15
 //
 
@@ -32 +32 @@
                 extern void disable_interrupts() OPTIONAL_THREAD;
                 extern void enable_interrupts( bool poll = true ) OPTIONAL_THREAD;
+                extern void poll_interrupts() OPTIONAL_THREAD;
                 #define __cfaabi_dbg_record_lock(x, y)
         }
@@ -59 +60 @@
 
                 disable_interrupts();
-                for ( unsigned int i = 1;; i += 1 ) {
+                for ( i; 1 ~ @ ) {
                         if ( (this.lock == 0) && (__atomic_test_and_set( &this.lock, __ATOMIC_ACQUIRE ) == 0) ) break;
                         #ifndef NOEXPBACK
                                 // exponential spin
-                                for ( volatile unsigned int s = 0; s < spin; s += 1 ) Pause();
+                        for ( volatile unsigned int s; 0 ~ spin ) Pause();
 
                                 // slowly increase by powers of 2

libcfa/src/iostream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Aug 25 18:05:49 2022
-// Update Count     : 1354
+// Last Modified On : Sat Aug 27 15:04:15 2022
+// Update Count     : 1358
 //
 
@@ -765 +765 @@
                         fmtuc.flags.pc = f.flags.pc;
                         fmtuc.flags.nobsdp = f.flags.nobsdp;
-                        for ( unsigned int i = 0; f.val[i] != '\0'; i += 1 ) {
+                        for ( i; 0 ~ @ : @; f.val[i] != '\0' ) {
                                 fmtuc.val = f.val[i];
 //                              os | fmtuc | nonl;
@@ -931 +931 @@
                 if ( fmt( is, "%39[0-9]%*[0-9]", s ) == 1 ) {   // take first 39 characters, ignore remaining
                         ullli = 0;
-                        for ( unsigned int i = 0; s[i] != '\0'; i += 1 ) {
+                        for ( i; 0 ~ @ : @; s[i] != '\0' ) {
                                 ullli = ullli * 10 + s[i] - '0';
                         } // for