From efdb296b4b7958e74a056aa61bbdb628ffa952b3 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 3 Mar 2004 22:03:49 +0000
Subject: [PATCH] fixed compilation for fpc 1.0.x

git-svn-id: trunk@5255 -
---
 components/synedit/synhighlightercss.pas | 4 ++--
 components/synedit/synhighlighterphp.pas | 4 ++--
 components/synedit/synhighlightersql.pas | 4 ++--
 components/synedit/synhighlightertex.pas | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/components/synedit/synhighlightercss.pas b/components/synedit/synhighlightercss.pas
index 2a28c80f97..f56213fece 100644
--- a/components/synedit/synhighlightercss.pas
+++ b/components/synedit/synhighlightercss.pas
@@ -249,7 +249,7 @@ type
     function GetEol: Boolean; override;
     function GetRange: Pointer; override;
     function GetTokenID: TtkTokenKind;
-    procedure SetLine(NewValue: String; LineNumber: Integer); override;
+    procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer); override;
     function GetToken: string; override;
     {$IFDEF SYN_LAZARUS}
     procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
@@ -1471,7 +1471,7 @@ begin
   fRange := rsUnknown;
 end;
 
-procedure TSynCssSyn.SetLine(NewValue: String; LineNumber: Integer);
+procedure TSynCssSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer);
 begin
   fLine := PChar(NewValue);
   Run := 0;
diff --git a/components/synedit/synhighlighterphp.pas b/components/synedit/synhighlighterphp.pas
index e75d3446b7..d5b8a3182d 100644
--- a/components/synedit/synhighlighterphp.pas
+++ b/components/synedit/synhighlighterphp.pas
@@ -204,7 +204,7 @@ type
     function GetEol: Boolean; override;
     function GetRange: Pointer; override;
     function GetTokenID: TtkTokenKind;
-    procedure SetLine(NewValue: String; LineNumber: Integer); override;
+    procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer); override;
     function GetToken: String; override;
     {$IFDEF SYN_LAZARUS}
     procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
@@ -691,7 +691,7 @@ begin
   fRange := rsUnknown;
 end;
 
-procedure TSynPHPSyn.SetLine(NewValue: String; LineNumber: Integer);
+procedure TSynPHPSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer);
 begin
   fLine := PChar(NewValue);
   Run := 0;
diff --git a/components/synedit/synhighlightersql.pas b/components/synedit/synhighlightersql.pas
index bf572b23b5..851ca0deae 100644
--- a/components/synedit/synhighlightersql.pas
+++ b/components/synedit/synhighlightersql.pas
@@ -184,7 +184,7 @@ type
     function IsKeyword(const AKeyword: string): boolean; override;              // DJLP 2000-08-09
     procedure Next; override;
     procedure ResetRange; override;
-    procedure SetLine(NewValue: string; LineNumber: Integer); override;
+    procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: string; LineNumber: Integer); override;
     procedure SetRange(Value: Pointer); override;
   published
     property CommentAttri: TSynHighlighterAttributes read fCommentAttri
@@ -1105,7 +1105,7 @@ begin
     SQLDialect := TSynSQLSyn(Source).SQLDialect;
 end;
 
-procedure TSynSQLSyn.SetLine(NewValue: string; LineNumber: Integer);
+procedure TSynSQLSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: string; LineNumber: Integer);
 begin
   fLine := PChar(NewValue);
   Run := 0;
diff --git a/components/synedit/synhighlightertex.pas b/components/synedit/synhighlightertex.pas
index f204f1f26c..ab4757016f 100644
--- a/components/synedit/synhighlightertex.pas
+++ b/components/synedit/synhighlightertex.pas
@@ -114,7 +114,7 @@ type
       override;
     function GetEol: Boolean; override;
     function GetTokenID: TtkTokenKind;
-    procedure SetLine(NewValue: String; LineNumber:Integer); override;
+    procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer); override;
     function GetToken: String; override;
     {$IFDEF SYN_LAZARUS}
     procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
@@ -205,7 +205,7 @@ begin
   MakeMethodTables;
 end;  { Create }
 
-procedure TSynTeXSyn.SetLine(NewValue: String; LineNumber:Integer);
+procedure TSynTeXSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer);
 begin
   fLine       := PChar(NewValue);
   Run         := 0;