paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 20:57:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix 2.6.4 compilation

Browse Source 
git-svn-id: trunk@33176 -
This commit is contained in:
michael 2016-03-06 10:36:53 +00:00
parent 94f8db4951
commit 3ee5661ff1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-pdf/src/fpparsettf.pp
View File

@ -843,7 +843,7 @@ begin
{$IFDEF VER3} {$IFDEF VER3}
N := Default(TNameRecord); N := Default(TNameRecord);
{$ELSE} {$ELSE}
FillChar(N,SizeOf(TNameRecord),0) FillChar(N,SizeOf(TNameRecord),0);
{$ENDIF} {$ENDIF}
for I:=0 to Count-1 do for I:=0 to Count-1 do
begin begin