Mercurial > hg > Gears > GearsAgda

diff src/parallel_execution/Stack.cbc @ 452:1432d924c472

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix RedBlackTree.cbc Insert, debug now
author ryokka
date Fri, 08 Dec 2017 15:28:06 +0900
parents 0c113f8e5a3f
children
line wrap: on
line diff
--- a/src/parallel_execution/Stack.cbc	Tue Dec 05 06:33:40 2017 +0900
+++ b/src/parallel_execution/Stack.cbc	Fri Dec 08 15:28:06 2017 +0900
@@ -1,7 +1,10 @@
 typedef struct Stack<Type, Impl>{
-        Type* stack;
-        Type* data;
-        Type* data1;
+        union Data* stack;
+        union Data* data;
+        union Data* data1;
+        /* Type* stack; */
+        /* Type* data; */
+        /* Type* data1; */
         __code whenEmpty(...);
         __code clear(Impl* stack,__code next(...));
         __code push(Impl* stack,Type* data, __code next(...));