* patch by rasberryrabbit to solve another internal error reported in #41487

compiler/scanner.pas

@@ -1587,13 +1587,12 @@ type
           dispose(pnormalset(value.valueptr));
         constguid :
           dispose(pguid(value.valueptr));
+        constnil,
         constpointer,
         constord,
         { error values }
         constnone:
           ;
-        else
-          internalerror(2013112802);
       end;
       inherited destroy;
     end;

tests/webtbs/tw41487.pp

@@ -11,6 +11,11 @@ const
     {$MESSAGE 'ACONSTANT is not equal to b'}
   {$endif}
 
+const
+  ptr = nil;
+
+{$if ptr <> pointer(5)}
+{$endif}
 
 type
   PRECORD = ^TRECORD;