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

    (mantis #25573)

git-svn-id: trunk@26614 -

.gitattributes

@@ -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

compiler/scanner.pas

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

tests/webtbs/tw25296.pp

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