paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 07:37:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial-eps: Patch from Michael Thompson, fixes compilation of fpvectorial in 64 bits

Browse Source 
git-svn-id: trunk@42436 -
This commit is contained in:
sekelsenmat 2013-08-21 04:13:52 +00:00
parent a7975265e6
commit 6a44be2ad0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpvectorial/epsvectorialreader.pas
View File

@ -616,7 +616,7 @@ begin
if lIsEndOfLine then
begin
Tokens.Add(CommentToken);
State := TPostScriptScannerState(lReturnState.Pop());
State := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
// {$ifdef FPVECTORIALDEBUG}
// WriteLn(Format('Adding Comment "%s" at Line %d', [CommentToken.StrValue, CurLine]));
// {$endif}
@ -649,7 +649,7 @@ begin
ArrayToken.ResolveOperators();
if ArrayToken.Parent = nil then
begin
State := TPostScriptScannerState(lReturnState.Pop());
State := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
if State = ssInDictionary then
begin
DictionaryToken.Childs.Add(ArrayToken);
@ -718,7 +718,7 @@ begin
if CurChar = '>' then
begin
Tokens.Add(DictionaryToken);
State := TPostScriptScannerState(lReturnState.Pop());
State := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
end
else
raise Exception.Create(Format('[TPSTokenizer.ReadFromStream] ssInDictionary: Unexpected char while searching for ">>" token: $%s in Line %d',
@ -763,7 +763,7 @@ begin
begin
ExpressionToken.PrepareFloatValue();
if lReturnState.Count = 0 then lExpressionStateReturn := ssSearchingToken
else lExpressionStateReturn := TPostScriptScannerState(lReturnState.Pop());
else lExpressionStateReturn := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
if lExpressionStateReturn = ssInArray then
begin
ArrayToken.ArrayData.Add(ExpressionToken);