testsuite/tests/driver/recomp015/Generate.hs


1
2
3
4
5
6
7

import Control.Monad (forM_)

main :: IO ()
main = forM_ [0..0xffff] $ \i -> do
   putStrLn $ ".section s" ++ show i ++ ",\"\",@progbits"
   putStrLn $ ".asciz \"Section " ++ show i ++ "\""
   putStrLn ""