paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:29:24 +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 if lIsEndOfLine then
begin begin
Tokens.Add(CommentToken); Tokens.Add(CommentToken);
State := TPostScriptScannerState(lReturnState.Pop()); State := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
// {$ifdef FPVECTORIALDEBUG} // {$ifdef FPVECTORIALDEBUG}
// WriteLn(Format('Adding Comment "%s" at Line %d', [CommentToken.StrValue, CurLine])); // WriteLn(Format('Adding Comment "%s" at Line %d', [CommentToken.StrValue, CurLine]));
// {$endif} // {$endif}
@ -649,7 +649,7 @@ begin
ArrayToken.ResolveOperators(); ArrayToken.ResolveOperators();
if ArrayToken.Parent = nil then if ArrayToken.Parent = nil then
begin begin
State := TPostScriptScannerState(lReturnState.Pop()); State := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
if State = ssInDictionary then if State = ssInDictionary then
begin begin
DictionaryToken.Childs.Add(ArrayToken); DictionaryToken.Childs.Add(ArrayToken);
@ -718,7 +718,7 @@ begin
if CurChar = '>' then if CurChar = '>' then
begin begin
Tokens.Add(DictionaryToken); Tokens.Add(DictionaryToken);
State := TPostScriptScannerState(lReturnState.Pop()); State := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
end end
else else
raise Exception.Create(Format('[TPSTokenizer.ReadFromStream] ssInDictionary: Unexpected char while searching for ">>" token: $%s in Line %d', raise Exception.Create(Format('[TPSTokenizer.ReadFromStream] ssInDictionary: Unexpected char while searching for ">>" token: $%s in Line %d',
@ -763,7 +763,7 @@ begin
begin begin
ExpressionToken.PrepareFloatValue(); ExpressionToken.PrepareFloatValue();
if lReturnState.Count = 0 then lExpressionStateReturn := ssSearchingToken if lReturnState.Count = 0 then lExpressionStateReturn := ssSearchingToken
else lExpressionStateReturn := TPostScriptScannerState(lReturnState.Pop()); else lExpressionStateReturn := TPostScriptScannerState(PtrUint(lReturnState.Pop()));
if lExpressionStateReturn = ssInArray then if lExpressionStateReturn = ssInArray then
begin begin
ArrayToken.ArrayData.Add(ExpressionToken); ArrayToken.ArrayData.Add(ExpressionToken);