paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 05:47:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Unterminated strings now get the shInvalid style

Browse Source
This commit is contained in:
sg 2000-02-22 14:29:17 +00:00
parent 49ffc2422a
commit 1b246cf8a0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/shedit/sh_pas.pp
View File

@ -46,7 +46,7 @@ uses Strings;
const
LF_SH_Comment1 = LF_SH_Multiline1; { {} Comments}
LF_SH_Comment1 = LF_SH_Multiline1; { Normal braced Comments}
LF_SH_Comment2 = LF_SH_Multiline2; { (* *) Comments}
LF_SH_Asm = LF_SH_Multiline3;
@ -297,6 +297,8 @@ begin
end;
if StringLength = 1 then
dest[LastSHPos] := Chr(shCharacters);
if (source[0] = #0) and (dest[dp - 1] <> '''') then
dest[LastSHPos] := Chr(shInvalid);
AddSH(shDefault);
end;
'_', 'A'..'Z', 'a'..'z': begin
@ -309,6 +311,7 @@ begin
else begin
AddSH(shInvalid);
PutChar; // = found an invalid char!
AddSH(shDefault);
end;
end;
end;
@ -322,7 +325,10 @@ end.
{
$Log$
Revision 1.7 2000-02-20 10:59:46 sg
Revision 1.8 2000-02-22 14:29:17 sg
* Unterminated strings now get the shInvalid style
Revision 1.7 2000/02/20 10:59:46 sg
* Added new style: shInvalid
* Cosmetic changes