pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix crash of JvID3v2 demo on 64bit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6976 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-30 16:59:30 +00:00
parent 17dad69c3e
commit db82b4bbd6
5 changed files with 29 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jvcllaz/run/JvMM/jvid3v2base.pas
View File

@ -151,7 +151,7 @@ type
function ReadSyncSafeInteger(var AInt: Cardinal; const ASize: Byte): Longint; overload;
function ReadSyncSafeInteger(var AInt: Int64; const ASize: Byte = 4): Longint; overload;
procedure ReadFromStream(AStream: TStream; const ASize: Integer);
procedure ReadFromStream(AStream: TStream; const ASize: PtrInt);
{ Write }
function WriteDate(const ADate: TDateTime): Longint;
@ -7715,7 +7715,7 @@ begin
end;
procedure TJvID3Stream.ReadFromStream(AStream: TStream;
const ASize: Integer);
const ASize: PtrInt);
begin
Position := 0;
SetSize(ASize);