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

Merged revisions 584-585 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@672 -
This commit is contained in:
peter 2005-07-19 07:25:37 +00:00
parent a17c51871b
commit e2dcc3e428
3 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5963,6 +5963,7 @@ tests/webtbs/tw4115.pp svneol=native#text/plain
tests/webtbs/tw4119.pp svneol=native#text/plain
tests/webtbs/tw4140.pp svneol=native#text/plain
tests/webtbs/tw4150.pp svneol=native#text/plain
tests/webtbs/tw4151.pp svneol=native#text/plain
tests/webtbs/tw4155.pp svneol=native#text/plain
tests/webtbs/tw4188.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain

6
compiler/scanner.pas
View File

@ -673,12 +673,10 @@ implementation
read_factor := upper(pchar(value.valueptr));
constset :
begin
hs:='';
hs:=',';
for l:=0 to 255 do
if l in pconstset(tconstsym(srsym).value.valueptr)^ then
hs:=hs+','+tostr(l);
if hs<>'' then
hs:=hs+',';
hs:=hs+tostr(l)+',';
read_factor := hs;
end;
end;

16
tests/webtbs/tw4151.pp Executable file
View File

@ -0,0 +1,16 @@
{ Source provided for Free Pascal Bug Report 4151 }
{ Submitted by "Christian Iversen" on 2005-07-03 }
{ e-mail: chrivers@iversen-net.dk }
{$mode delphi}
program foo;
type
t = (a, b, c);
const bar = [];
{$IF a in bar}{$MESSAGE ERROR '1'}{$IFEND}
{$IF a in []}{$MESSAGE ERROR '2'}{$IFEND}
begin
end.