optimize (x>>c)<<c
Merge pull request #2355 from WalterBright/shlshr

optimize (x>>c)<<c