diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2012-07-13 17:05:41 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2012-07-13 17:05:41 +0000 |
| commit | 9c836b13bb4277de91bee191e10e18e1c95953d8 (patch) | |
| tree | e387d0b70e3de6f5bb9c16fcc86f51929b2b8209 /src/lib/ffmpeg/avutil.pas | |
| parent | 1118da7b66ae82d490b4ea06a7343798bf7ca120 (diff) | |
| download | usdx-9c836b13bb4277de91bee191e10e18e1c95953d8.tar.gz usdx-9c836b13bb4277de91bee191e10e18e1c95953d8.tar.xz usdx-9c836b13bb4277de91bee191e10e18e1c95953d8.zip | |
fixed revision numbers, macros, ...
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2917 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/lib/ffmpeg/avutil.pas')
| -rw-r--r-- | src/lib/ffmpeg/avutil.pas | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/lib/ffmpeg/avutil.pas b/src/lib/ffmpeg/avutil.pas index 2f8c79f7..c02ac4cb 100644 --- a/src/lib/ffmpeg/avutil.pas +++ b/src/lib/ffmpeg/avutil.pas @@ -326,8 +326,13 @@ const (* libavutil/common.h *) // until now MKTAG and MKBETAG is all from common.h KMS 19/5/2010 -function MKTAG(a, b, c, d: AnsiChar): integer; -function MKBETAG(a, b, c, d: AnsiChar): integer; +(** + * MKTAG and MKBETAG are usually used to convert a magic string to an enumeration index. + * In Pascal this can probably not be used and the functions could be removed. + * KMS 8/6/2012 + *) +function MKTAG(a, b, c, d: AnsiChar): integer; {$IFDEF HasInline}inline;{$ENDIF} +function MKBETAG(a, b, c, d: AnsiChar): integer; {$IFDEF HasInline}inline;{$ENDIF} (* libavutil/mem.h *) @@ -491,12 +496,12 @@ implementation (* libavutil/common.h *) -function MKTAG(a, b, c, d: AnsiChar): integer; +function MKTAG(a, b, c, d: AnsiChar): integer; {$IFDEF HasInline}inline;{$ENDIF} begin Result := (ord(a) or (ord(b) shl 8) or (ord(c) shl 16) or (ord(d) shl 24)); end; -function MKBETAG(a, b, c, d: AnsiChar): integer; +function MKBETAG(a, b, c, d: AnsiChar): integer; {$IFDEF HasInline}inline;{$ENDIF} begin Result := (ord(d) or (ord(c) shl 8) or (ord(b) shl 16) or (ord(a) shl 24)); end; |