diff options
| author | Sverker Eriksson <[email protected]> | 2014-05-12 15:13:03 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2014-05-12 15:22:30 +0200 |
| commit | 8eccb186d9f19d1a14f44102acbd7a3a7bf3a029 (patch) | |
| tree | ce70c295f6adb00e9b74fe3eb799ff4e279e7257 /erts | |
| parent | 3b85eee9540b49936d203978369c2a5d7bdd24c4 (diff) | |
| download | otp-8eccb186d9f19d1a14f44102acbd7a3a7bf3a029.tar.gz otp-8eccb186d9f19d1a14f44102acbd7a3a7bf3a029.tar.bz2 otp-8eccb186d9f19d1a14f44102acbd7a3a7bf3a029.zip | |
erts: Fix bug in etp-block commands
Diffstat (limited to 'erts')
| -rw-r--r-- | erts/etc/unix/etp-commands.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/erts/etc/unix/etp-commands.in b/erts/etc/unix/etp-commands.in index ed90e26024..ae1b1734af 100644 --- a/erts/etc/unix/etp-commands.in +++ b/erts/etc/unix/etp-commands.in @@ -3277,7 +3277,7 @@ define etp-block-size-1 else set $etp_MBC_ABLK_OFFSET_SHIFT = (32 - 9) end - set $etp_MBC_ABLK_SZ_MASK = ~(~0 << $etp_MBC_ABLK_OFFSET_SHIFT) & ~7 + set $etp_MBC_ABLK_SZ_MASK = ((UWord)1 << $etp_MBC_ABLK_OFFSET_SHIFT) - 1 - 7 end set $etp_blk_sz = ($arg0)->bhdr & $etp_MBC_ABLK_SZ_MASK end @@ -3300,7 +3300,7 @@ define etp-block2mbc-1 set $etp_MBC_ABLK_OFFSET_SHIFT = (32 - 9) end end - set $etp_mbc = (Carrier_t*) ((((UWord)($arg0)) & (~0 << 18)) - ((($arg0)->bhdr >> $etp_MBC_ABLK_OFFSET_SHIFT) << 18)) + set $etp_mbc = (Carrier_t*) ((((UWord)($arg0) >> 18) - (($arg0)->bhdr >> $etp_MBC_ABLK_OFFSET_SHIFT)) << 18) end end |