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

synedit: fixed compilation under 64bit, bug #27353

Browse Source 
git-svn-id: trunk@47512 -
This commit is contained in:
mattias 2015-01-25 12:15:11 +00:00
parent 67b02120c8
commit c9d7e64a6b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synhighlightercss.pas
View File

@ -1992,7 +1992,7 @@ end;
function TSynCssSyn.GetRange: Pointer; function TSynCssSyn.GetRange: Pointer;
begin begin
Result := Pointer(PtrInt(fRange)); Result := {%H-}Pointer(Integer(fRange));
end; end;
function TSynCssSyn.GetToken: string; function TSynCssSyn.GetToken: string;
@ -2050,7 +2050,7 @@ end;
procedure TSynCssSyn.SetRange(Value: Pointer); procedure TSynCssSyn.SetRange(Value: Pointer);
begin begin
FRange := TRangeStates(PtrUInt(Value)); FRange := TRangeStates({%H-}Cardinal(Value));
end; end;
function TSynCssSyn.GetIdentChars: TSynIdentChars; function TSynCssSyn.GetIdentChars: TSynIdentChars;