paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ also support & to escape identifiers (and for octal notation) in Delplhi

Browse Source 
mode (patch by Blaise Thorn, mantis #15930)

git-svn-id: trunk@15031 -
This commit is contained in:
Jonas Maebe 2010-03-21 23:33:44 +00:00
parent 6db635210a
commit 87c9773ac0
3 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10317,6 +10317,7 @@ tests/webtbs/tw15777f.pp svneol=native#text/plain
tests/webtbs/tw15812.pp svneol=native#text/plain tests/webtbs/tw15812.pp svneol=native#text/plain
tests/webtbs/tw15909.pp svneol=native#text/plain tests/webtbs/tw15909.pp svneol=native#text/plain
tests/webtbs/tw1592.pp svneol=native#text/plain tests/webtbs/tw1592.pp svneol=native#text/plain
tests/webtbs/tw15930.pp svneol=native#text/plain
tests/webtbs/tw1617.pp svneol=native#text/plain tests/webtbs/tw1617.pp svneol=native#text/plain
tests/webtbs/tw1622.pp svneol=native#text/plain tests/webtbs/tw1622.pp svneol=native#text/plain
tests/webtbs/tw1623.pp svneol=native#text/plain tests/webtbs/tw1623.pp svneol=native#text/plain

2
compiler/scanner.pas
View File

@ -3494,7 +3494,7 @@ In case not, the value returned can be arbitrary.
'&' : '&' :
begin begin
if m_fpc in current_settings.modeswitches then if [m_fpc,m_delphi] * current_settings.modeswitches <> [] then
begin begin
readnumber; readnumber;
if length(pattern)=1 then if length(pattern)=1 then

16
tests/webtbs/tw15930.pp Normal file
View File

@ -0,0 +1,16 @@
{ %norun }
{$mode delphi}
var
&file: integer;
&do: string;
&in: boolean;
&for: char;
begin
&file:=1;
&do:='abc';
&in:=true;
&for:='h'
end.