Changeset b067d9b for tests/function-operator.cfa

Timestamp:

Oct 29, 2019, 4:01:24 PM (6 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

773db65, 9421f3d8

Parents:

7951100 (diff), 8364209 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

File:

• tests/function-operator.cfa (moved) (moved from src/tests/function-operator.c ) (5 diffs)

tests/function-operator.cfa

@@ -10 +10 @@
 // Created On       : Fri Aug 25 15:21:11 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Dec  7 12:42:26 2017
-// Update Count     : 6
+// Last Modified On : Thu Apr 11 18:27:45 2019
+// Update Count     : 10
 //
 
-#include <fstream>
-#include <stdlib>
+#include <fstream.hfa>
+#include <stdlib.hfa>
 
 #define length(array) (sizeof((array))/sizeof((array)[0]))
@@ -62 +62 @@
 
 // test ?()(T, ...) -- ?() with function call-by-reference
-forall(otype Generator, otype GenRet | { GenRet ?()(Generator &); }, dtype Iter, otype T| Iterator(Iter, T) | Assignable(T, GenRet))
+forall(otype Generator, otype GenRet | { GenRet ?()(Generator &); }, dtype Iter, otype T | Iterator(Iter, T) | Assignable(T, GenRet))
 void generate(Iter first, Iter last, Generator & gen) {
         int i = 0;
@@ -83 +83 @@
 // TODO: abstract over (os, T)
 os_wrapper ?=?(os_wrapper & wrapper, int x) {
-        *wrapper.out | x | endl;
+        *wrapper.out | x;
         return wrapper;
 }
@@ -92 +92 @@
 void ?{}(ostream_iterator & iter, ofstream * out) {
         iter.out = new(out);
-                }
+}
 // no destructor, memory leak. This is necessary for this to work at the moment, since
 // *? requires its parameter by value and returns a reference.
@@ -168 +168 @@
         transform(begin(x), end(x), begin(x), &times2);
         copy(begin(x), end(x), out_iter);
+
+        // REMOVE WHEN ?* PROBLEM FIXED.
+        delete(out_iter.out);
 }