From 6a44be2ad064ab5a0f9bddf76d294997cae30f67 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Wed, 21 Aug 2013 04:13:52 +0000 Subject: [PATCH] fpvectorial-eps: Patch from Michael Thompson, fixes compilation of fpvectorial in 64 bits git-svn-id: trunk@42436 - --- components/fpvectorial/epsvectorialreader.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/components/fpvectorial/epsvectorialreader.pas b/components/fpvectorial/epsvectorialreader.pas index d420282e8e..6a4a52c867 100644 --- a/components/fpvectorial/epsvectorialreader.pas +++ b/components/fpvectorial/epsvectorialreader.pas @@ -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);