diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2012-07-09 22:17:38 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2012-07-09 22:17:38 +0000 |
commit | cd9b347aa57e1c55d72246a4fb86ab5c5c0976ca (patch) | |
tree | 6b49d8edc310788867cffe39e8146167a572d531 /src/lib/ffmpeg-0.10/rational.pas | |
parent | fd5e68950096cf839e30a8f52eadb1e91e399fef (diff) | |
download | usdx-cd9b347aa57e1c55d72246a4fb86ab5c5c0976ca.tar.gz usdx-cd9b347aa57e1c55d72246a4fb86ab5c5c0976ca.tar.xz usdx-cd9b347aa57e1c55d72246a4fb86ab5c5c0976ca.zip |
replace << and >> by shl and shr. makes Delphi happy.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2906 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/lib/ffmpeg-0.10/rational.pas')
-rw-r--r-- | src/lib/ffmpeg-0.10/rational.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lib/ffmpeg-0.10/rational.pas b/src/lib/ffmpeg-0.10/rational.pas index c0d76168..63c47c9d 100644 --- a/src/lib/ffmpeg-0.10/rational.pas +++ b/src/lib/ffmpeg-0.10/rational.pas @@ -175,11 +175,11 @@ begin } if tmp <> 0 then - Result := ((tmp xor a.den xor b.den) >> 63) or 1 + Result := ((tmp xor a.den xor b.den) shr 63) or 1 else if (b.den and a.den) <> 0 then Result := 0 else if (a.num and b.num) <> 0 then - Result := (a.num >> 31) - (b.num >> 31) + Result := (a.num shr 31) - (b.num shr 31) else Result := low(cint); |