aligned :: LocalAddress -> LocalAddress
aligned addr
    | m == 0 = addr
    | otherwise = addr - m + dmaAlign
    where m = addr `mod` dmaAlign
aligned :: LocalAddress -> LocalAddress
aligned addr
    | m == 0 = addr
    | otherwise = addr - m + dmaAlign
    where m = addr `mod` dmaAlign
aligned addr
    | m == 0 = addr
    | otherwise = addr - m + dmaAlign
    where m = addr `mod` dmaAlign