paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 11:24:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't give an internal error when freeing an error token in the preprocessor

Browse Source 
(mantis #25573)

git-svn-id: trunk@26614 -
This commit is contained in:
Jonas Maebe 2014-01-29 19:26:03 +00:00
parent 3b4f59c316
commit 2f741121e9
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -13787,6 +13787,7 @@ tests/webtbs/tw25210.pp svneol=native#text/pascal
tests/webtbs/tw2525.pp svneol=native#text/plain
tests/webtbs/tw25269.pp svneol=native#text/pascal
tests/webtbs/tw25289.pp svneol=native#text/plain
tests/webtbs/tw25296.pp svneol=native#text/plain
tests/webtbs/tw25318.pp svneol=native#text/pascal
tests/webtbs/tw25332.pp svneol=native#text/plain
tests/webtbs/tw25332a.pp svneol=native#text/plain

4
compiler/scanner.pas
View File

@ -1294,7 +1294,9 @@ type
dispose(pnormalset(value.valueptr));
constguid :
dispose(pguid(value.valueptr));
constord :
constord,
{ error values }
constnone:
;
else
internalerror(2013112802);

7
tests/webtbs/tw25296.pp Normal file
View File

@ -0,0 +1,7 @@
{ %norun }
{$mode delphi}
begin
{$IF Declared(XY) And (XY = 56)}WriteLn(56);{$IFEND}
end.