Changeset 77bc259 for tests/exceptions

Timestamp:

Feb 12, 2024, 1:07:26 PM (10 months ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

master

Children:

c185ca9

Parents:

6b228cae

Message:

move exception macro to general location, update more code to use macros

File:

• tests/exceptions/pingpong_nonlocal.cfa (modified) (5 diffs)

tests/exceptions/pingpong_nonlocal.cfa

@@ -2 +2 @@
 #include <thread.hfa>
 #include <mutex_stmt.hfa>
+#include <Exception.hfa>
 
-exception num_ping_pongs { int num; };
-vtable(num_ping_pongs) num_ping_pongs_vt;
+ExceptionDecl( num_ping_pongs, int num; );
 
 thread Ping_Pong {
@@ -16 +16 @@
         this.name = name;
         cnt = 0;
-        ?{}( except, &num_ping_pongs_vt, 0 );
+        ?{}( except, ExceptionArgs( num_ping_pongs, 0 ) );
 }
 
@@ -29 +29 @@
                 for () {
                         while( ! poll( this ) ) { yield(); }
-            inc_resume_at( cnt );
+                        inc_resume_at( cnt );
                 }
         } catchResume( num_ping_pongs * e; e->num < numtimes ) {
@@ -37 +37 @@
                 mutex( sout ) sout | name | "catch" | cnt | e->num;
                 if ( e->num == numtimes ) {
-            inc_resume_at( e->num );
+                        inc_resume_at( e->num );
                 }
         }
@@ -49 +49 @@
                 &ping.partner = &pong;                                                  // create cycle
                 &pong.partner = &ping;
-                num_ping_pongs except{ &num_ping_pongs_vt, 0 };
-                resumeAt( pong, except );
+                resumeAt( pong, ExceptionInst( num_ping_pongs, 0 ) );
         }
         sout | "main end";