Changeset 81e8ab0 for doc/papers/general/evaluation/cfa-stack.c

Timestamp:

Mar 9, 2018, 9:30:47 AM (5 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

aaron-thesis, arm-eh, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc

Children:

8b001bd

Parents:

29db723

Message:

more updates

File:

• doc/papers/general/evaluation/cfa-stack.c (modified) (2 diffs)

doc/papers/general/evaluation/cfa-stack.c

@@ -17 +17 @@
         }
         *crnt = 0;
+}
+
+forall( otype T ) void clear( stack(T) & s ) with( s ) {
+        for ( stack_node(T) * next = head; next; ) {
+                stack_node(T) * crnt = next;
+                next = crnt->next;
+                ^(*crnt){};
+                free(crnt);
+        }
+        head = 0;
 }
 
@@ -44 +54 @@
         return v;
 }
-
-forall( otype T ) void clear( stack(T) & s ) with( s ) {
-        for ( stack_node(T) * next = head; next; ) {
-                stack_node(T) * crnt = next;
-                next = crnt->next;
-                ^(*crnt){};
-                free(crnt);
-        }
-        head = 0;
-}