paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Silvio Clecio to remove some hints/warnings

Browse Source 
git-svn-id: trunk@33175 -
This commit is contained in:
michael 2016-03-06 10:34:48 +00:00
parent ecd8e21443
commit 94f8db4951
2 changed files with 9 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-pdf/examples/testfppdf.lpr
View File

@ -43,19 +43,6 @@ begin
end;
end;
Procedure EmptyPage;
Var
D : TPDFDocument;
begin
D:=SetupDocument;
try
SaveDocument(D);
finally
D.Free;
end;
end;
{ all units of measure are in millimeters }
Procedure SimpleText(D: TPDFDocument; APage: integer);
Var

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

@ -765,7 +765,7 @@ begin
S:=TMemoryStream.Create;
try
// Speed up the process, read everything in a single mem block.
S.CopyFrom(AStream,FUnicodeMap.Length-4);
S.CopyFrom(AStream,Int64(FUnicodeMap.Length)-4);
S.Position:=0;
FUnicodeMap.LanguageID:=ReadUShort(S);
FUnicodeMap.SegmentCount2:=ReadUShort(S); // 2 bytes - Segments count
@ -828,19 +828,23 @@ var
TableStartPos: LongWord;
S : AnsiString;
W : Widestring;
FMT : Word;
N : TNameRecord;
E : TNameEntries;
WA : Array of word;
begin
TableStartPos:= AStream.Position; // memorize Table start position
Fmt:=ReadUShort(AStream); // skip 2 bytes - Format
ReadUShort(AStream); // skip 2 bytes - Format
Count:=ReadUShort(AStream); // 2 bytes
StringOffset:=ReadUShort(AStream); // 2 bytes
E := FNameEntries;
SetLength(E,Count);
// Read Descriptors
{$IFDEF VER3}
N := Default(TNameRecord);
{$ELSE}
FillChar(N,SizeOf(TNameRecord),0)
{$ENDIF}
for I:=0 to Count-1 do
begin
AStream.ReadBuffer(N,SizeOf(TNameRecord));
@ -855,7 +859,7 @@ begin
// Read Values
for I:=0 to Count-1 do
begin
AStream.Position:=TableStartPos+StringOffset+E[i].Info.StringOffset;
AStream.Position:=Int64(TableStartPos)+StringOffset+E[i].Info.StringOffset;
if E[i].Info.EncodingID=1 then
begin
SetLength(WA,E[i].Info.StringLength div 2);
@ -863,7 +867,7 @@ begin
AStream.Read(WA[0],SizeOf(Word)*Length(W)); // 1 byte
For J:=0 to Length(WA)-1 do
W[J+1]:=WideChar(Beton(WA[J]));
E[i].Value:=W;
E[i].Value:=string(W);
end
else
begin