shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Match the output format of `mhs -ofoo.c`. This avoids a segfault when
compiling via `.comb` files.

--- a/Tools/Addcombs.hs

+++ b/Tools/Addcombs.hs

@@ -23,9 +23,9 @@

   file <- hGetContents ifile

   let size = length file

       chunks = chunkify 20 file

-  hPutStrLn ofile $ "const unsigned char combexprdata[] = {"

+  hPutStrLn ofile $ "static unsigned char combexprdata[] = {"

   mapM_ (hPutStrLn ofile . showChunk) chunks

-  hPutStrLn ofile "0 };"

+  hPutStrLn ofile "};"

   hPutStrLn ofile "const unsigned char *combexpr = combexprdata;"

   hPutStrLn ofile $ "const int combexprlen = " ++ show size ++ ";"

 --  hClose ifile

-- 

⑨