fixes for language-c-quote-0.10 - make quasiquoter parse comments cor…

…rectly
pchickey · Oct 6, 2014 · e2bb98e · e2bb98e
1 parent a79c11c
commit e2bb98e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/Codegen/CgOpt.hs b/src/Codegen/CgOpt.hs
@@ -720,6 +720,7 @@ codeGenComp dflags comp k =
                                            //case, it is just the return value 1.  Here we return
                                            //CONTINUE - 1 to indicate EOF on channel -1 (the input
                                            //channel).  See [CgSetupThreads.hs] for more information.
+                                           ;
                               |]
                    kontYield k
         else

diff --git a/src/Codegen/CgSetupThreads.hs b/src/Codegen/CgSetupThreads.hs
@@ -59,7 +59,8 @@ thread_setup affinity_mask name buf_tys tids
                                  typename DWORD_PTR affinityMask = $int:affinity_mask;
                                  SetProcessAffinityMask(procHdl, affinityMask);
                                  $decl:my_sizes_decl;
-                                 // no_threads = $id:no_threads; 
+                                 // no_threads = $id:no_threads;
+                                 ;
                                  $stms:(my_sizes_inits (zip [0..] buf_tys)) 
                                  $stms:(user_routines (zip [0..] $ map ("__go" ++) tids'))
                                  $stms:ts_init_stmts