Changeset d919f47 for doc/generic_types/evaluation/cfa-stack.c

Timestamp:

Apr 7, 2017, 6:17:03 PM (5 years ago)

Author:

Aaron Moss <a3moss@…>

Branches:

aaron-thesis, arm-eh, cleanup-dtors, deferred_resn, demangler, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, resolv-new, with_gc

Children:

b276be5, c51b5a3

Parents:

a0ad7dc

Message:

Update generics paper benchmarks

File:

• doc/generic_types/evaluation/cfa-stack.c (modified) (3 diffs)

doc/generic_types/evaluation/cfa-stack.c

@@ +1 @@
+#include <assert>
 #include <stdlib>
 #include "cfa-stack.h"
@@ -9 +10 @@
 forall(otype T) void ?{}(stack(T)* s) {
         (&s->head){ 0 };
+}
+
+forall(otype T) void copy(stack(T)* s, stack(T)* t) {
+        stack_node(T)** crnt = &s->head;
+        stack_node(T)* next = t->head;
+        while ( next ) {
+                *crnt = ((stack_node(T)*)malloc()){ next->value };
+                stack_node(T)* acrnt = *crnt;
+                crnt = &acrnt->next;
+                next = next->next;
+        }
+        *crnt = 0;
 }
 
@@ -57 +70 @@
                 delete(crnt);
         }
+        s->head = 0;
 }