extrasyn: Fix compilation for 64-bit platform.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6223 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/extrasyn/SyneditHighlighters/SynHighlighterLua.pas

@@ -1432,12 +1432,12 @@ end;
 
 procedure TSynLuaSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynLuaSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 initialization

components/extrasyn/SyneditHighlighters/SynHighlighterProlog.pas

@@ -1838,7 +1838,7 @@ end;
 
 function TSynPrologSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 procedure TSynPrologSyn.ReSetRange;
@@ -1853,7 +1853,7 @@ end;
 
 procedure TSynPrologSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynPrologSyn.AndSymbolProc;

components/extrasyn/SyneditHighlighters/synhighlighteradsp21xx.pas

@@ -1386,12 +1386,12 @@ end;
 
 function TSynADSP21xxSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 procedure TSynADSP21xxSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynADSP21xxSyn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlighterawk.pas

@@ -294,7 +294,7 @@ begin
   StrLCopy(PChar(s), (fLine + Run), (i - Run));
   Run := i;
   if AWKSyntaxList.Find(s, idx) and (AWKSyntaxList.Strings[idx] = s) then begin
-    fTokenID := TtkTokenKind(AWKSyntaxList.Objects[idx]);
+    fTokenID := TtkTokenKind(PtrInt(AWKSyntaxList.Objects[idx]));
     if (fTokenID = tkUnKnown) then begin
       fTokenID := tkKey;
       if (fLine[i] = ' ') then begin

components/extrasyn/SyneditHighlighters/synhighlightercac.pas

@@ -1075,7 +1075,7 @@ end;
 
 function TSynCACSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynCACSyn.GetToken: string;
@@ -1132,7 +1132,7 @@ end;
 
 procedure TSynCACSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynCACSyn.IsFilterStored: Boolean;

components/extrasyn/SyneditHighlighters/synhighlightercache.pas

@@ -1508,7 +1508,7 @@ end;
 
 function TSynCacheSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynCacheSyn.GetToken: String;
@@ -1565,7 +1565,7 @@ end;
 
 procedure TSynCacheSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 //------------------------------------------------------------------------------

components/extrasyn/SyneditHighlighters/synhighlightercobol.pas

@@ -2324,12 +2324,12 @@ end;
 
 procedure TSynCobolSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynCobolSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 initialization

components/extrasyn/SyneditHighlighters/synhighlightercs.pas

@@ -1442,7 +1442,7 @@ end;
 
 function TSynCSSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynCSSyn.GetToken: String;
@@ -1509,7 +1509,7 @@ end;
 
 procedure TSynCSSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynCSSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterdml.pas

@@ -1824,12 +1824,12 @@ end;
 
 function TSynDmlSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 procedure TSynDmlSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynDmlSyn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlighterdot.pas

@@ -1363,12 +1363,12 @@ end;
 
 procedure TSynDOTSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynDOTSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 initialization

components/extrasyn/SyneditHighlighters/synhighlightereiffel.pas

@@ -1408,12 +1408,12 @@ end;
 
 procedure TSynEiffelSyn.SetRange(Value :Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynEiffelSyn.GetRange :Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 initialization

components/extrasyn/SyneditHighlighters/synhighlightergalaxy.pas

@@ -361,7 +361,7 @@ end;
 
 function TSynGalaxySyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynGalaxySyn.GetToken: String;
@@ -416,7 +416,7 @@ end;
 
 procedure TSynGalaxySyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynGalaxySyn.SetKeyWords(const Value: TStrings);

components/extrasyn/SyneditHighlighters/synhighlightergeneral.pas

@@ -626,7 +626,7 @@ end;
 
 function TSynGeneralSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynGeneralSyn.GetToken: String;
@@ -676,7 +676,7 @@ end;
 
 procedure TSynGeneralSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynGeneralSyn.SetKeyWords(const Value: TStrings);

components/extrasyn/SyneditHighlighters/synhighlightergws.pas

@@ -965,7 +965,7 @@ end;
 
 function TSynGWScriptSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynGWScriptSyn.GetToken: String;
@@ -1026,7 +1026,7 @@ end;
 
 procedure TSynGWScriptSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynGWScriptSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterhaskell.pas

@@ -1049,7 +1049,7 @@ end;
 
 function TSynHaskellSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynHaskellSyn.GetToken: String;
@@ -1109,7 +1109,7 @@ end;
 
 procedure TSynHaskellSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynHaskellSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterhp48.pas

@@ -799,12 +799,12 @@ end;
 
 function TSynHP48Syn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 procedure TSynHP48Syn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynHP48Syn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlighteridl.pas

@@ -909,12 +909,12 @@ end;
 
 procedure TSynIdlSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynIdlSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 initialization

components/extrasyn/SyneditHighlighters/synhighlighterldraw.pas

@@ -564,12 +564,12 @@ end;
 
 procedure TSynLDRSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynLDRSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 initialization

components/extrasyn/SyneditHighlighters/synhighlightermodelica.pas

@@ -885,7 +885,7 @@ end;
 
 function TSynModelicaSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynModelicaSyn.GetToken: string;
@@ -943,7 +943,7 @@ end;
 
 procedure TSynModelicaSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynModelicaSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterrc.pas

@@ -1083,7 +1083,7 @@ end;
 
 function TSynRCSyn.GetRange: pointer;
 begin
-  result:= pointer(fRange);
+  result:= pointer(PtrInt(fRange));
 end;
 
 function TSynRCSyn.GetToken: string;
@@ -1133,7 +1133,7 @@ end;
 
 procedure TSynRCSyn.SetRange(value: pointer);
 begin
-  fRange:= TRangeState(value);
+  fRange:= TRangeState(PtrInt(value));
 end;
 
 procedure TSynRCSyn.EnumUserSettings(Settings: TStrings);

components/extrasyn/SyneditHighlighters/synhighlighterruby.pas

@@ -673,7 +673,7 @@ begin
   end;
   Result := RangePointer.Ptr;
 {$ELSE}
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 {$ENDIF}
 end;
 
@@ -743,7 +743,7 @@ begin
     fHeredocChecksum := RangePointer.Checksum;
   end;
 {$ELSE}
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 {$ENDIF}
 end;
 

components/extrasyn/SyneditHighlighters/synhighlightersdd.pas

@@ -670,13 +670,13 @@ end; { ResetRange }
 procedure TSynSDDSyn.SetRange(Value: Pointer);
 begin
   inherited;
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end; { SetRange }
 
 
 function TSynSDDSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end; { GetRange }
 
 

components/extrasyn/SyneditHighlighters/synhighlightersml.pas

@@ -939,12 +939,12 @@ end;
 
 procedure TSynSMLSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynSMLSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 initialization

components/extrasyn/SyneditHighlighters/synhighlighterst.pas

@@ -1112,12 +1112,12 @@ end;
 
 function TSynSTSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 procedure TSynSTSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynSTSyn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlightertcltk.pas

@@ -631,7 +631,7 @@ end;
 
 function TSynTclTkSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynTclTkSyn.GetToken: string;
@@ -681,7 +681,7 @@ end;
 
 procedure TSynTclTkSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynTclTkSyn.SetKeyWords(const Value: TStrings);

components/extrasyn/SyneditHighlighters/synhighlighterunreal.pas

@@ -1694,7 +1694,7 @@ end;
 
 function TSynUnrealSyn.GetRange: Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynUnrealSyn.GetToken: String;
@@ -1757,7 +1757,7 @@ end;
 
 procedure TSynUnrealSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 procedure TSynUnrealSyn.EnumUserSettings(settings: TStrings);

components/extrasyn/SyneditHighlighters/synhighlightervrml97.pas

@@ -4870,7 +4870,7 @@ end;
 
 function TSynVrml97Syn.GetRange :Pointer;
 begin
-  Result := Pointer(fRange);
+  Result := Pointer(PtrInt(fRange));
 end;
 
 function TSynVrml97Syn.GetToken :string;
@@ -4941,7 +4941,7 @@ end;
 
 procedure TSynVrml97Syn.SetRange(Value :Pointer);
 begin
-  fRange := TRangeState(Value);
+  fRange := TRangeState(PtrInt(Value));
 end;
 
 function TSynVrml97Syn.GetIdentChars :TSynIdentChars;