From 7ef18fe4670390ed1fc80332f145990e6d0edb1e Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Thu, 24 May 2012 09:19:38 +0000 Subject: cosmetics: long variable names. no code change. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2888 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/media/UVideo.pas | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'src/media/UVideo.pas') diff --git a/src/media/UVideo.pas b/src/media/UVideo.pas index 605eec78..47c977bb 100644 --- a/src/media/UVideo.pas +++ b/src/media/UVideo.pas @@ -386,7 +386,7 @@ begin // fail if called concurrently by different threads. FFmpegCore.LockAVCodec(); try - {$IF LIBAVCODEC_VERSION >= 5300500)} + {$IF LIBAVCODEC_VERSION >= 53005000)} errnum := avcodec_open2(fCodecContext, fCodec, nil); {$ELSE} errnum := avcodec_open(fCodecContext, fCodec); @@ -633,8 +633,8 @@ var errnum: integer; AVPacket: TAVPacket; pts: double; - fs: integer; - ue: integer; + fileSize: integer; + urlError: integer; begin Result := false; FrameFinished := 0; @@ -665,11 +665,11 @@ begin // check for errors {$IF (LIBAVFORMAT_VERSION >= 52103000)} - ue := pbIOCtx^.error; + urlError := pbIOCtx^.error; {$ELSE} - ue := url_ferror(pbIOCtx); + urlError := url_ferror(pbIOCtx); {$IFEND} - if (ue <> 0) then + if (urlError <> 0) then begin Log.LogError('Video decoding file error', 'TVideoPlayback_FFmpeg.DecodeFrame'); Exit; @@ -678,11 +678,11 @@ begin // url_feof() does not detect an EOF for some mov-files (e.g. deluxe.mov) // so we have to do it this way. {$IF (LIBAVFORMAT_VERSION >= 53009000)} - fs := avio_size(fFormatContext^.pb); + fileSize := avio_size(fFormatContext^.pb); {$ELSE} - fs := fFormatContext^.file_size; + fileSize := fFormatContext^.file_size; {$IFEND} - if ((fs <> 0) and (pbIOCtx^.pos >= fs)) then + if ((fileSize <> 0) and (pbIOCtx^.pos >= fileSize)) then begin fEOF := true; Exit; -- cgit v1.2.3