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

synedit, fix compile for x86_64

Browse Source 
git-svn-id: trunk@13360 -
This commit is contained in:
jesus 2007-12-18 00:07:21 +00:00
parent 58ba924d19
commit dfc10f408e
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/synhighlighterjscript.pas
View File

@ -1767,7 +1767,7 @@ end;
function TSynJScriptSyn.GetRange: Pointer; function TSynJScriptSyn.GetRange: Pointer;
begin begin
Result := Pointer(fRange); Result := Pointer(ptruint(fRange));
end; end;
function TSynJScriptSyn.GetToken: String; function TSynJScriptSyn.GetToken: String;
@ -1825,7 +1825,7 @@ end;
procedure TSynJScriptSyn.SetRange(Value: Pointer); procedure TSynJScriptSyn.SetRange(Value: Pointer);
begin begin
fRange := TRangeState(Value); fRange := TRangeState(ptruint(Value));
end; end;
function TSynJScriptSyn.GetIdentChars: TSynIdentChars; function TSynJScriptSyn.GetIdentChars: TSynIdentChars;