• Ömer Sinan Ağacan's avatar
    Minor refactoring in deriveConstants · 821bece9
    Ömer Sinan Ağacan authored
    Mainly we now generate this
    
        data PlatformConstants = PlatformConstants {
              pc_CONTROL_GROUP_CONST_291 :: Int,
              pc_STD_HDR_SIZE :: Int,
              pc_PROF_HDR_SIZE :: Int,
              pc_BLOCK_SIZE :: Int,
          }
    
    instead of
    
        data PlatformConstants = PlatformConstants {
            pc_platformConstants :: ()
            , pc_CONTROL_GROUP_CONST_291 :: Int
            , pc_STD_HDR_SIZE :: Int
            , pc_PROF_HDR_SIZE :: Int
            , pc_BLOCK_SIZE :: Int
            ...
          }
    
    The first field has no use and according to (removed) comments it was to
    make code generator's work easier.. if anything this version is simpler
    because it has less repetition (the commas in strings are gone).
    821bece9
Code owners : Ben Gamari
Main.hs 44.3 KB