mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
63ce04fd00
instead of letting the resulting stringconstn decide for itself
(mantis #14174)
git-svn-id: trunk@13419 -
37 lines
871 B
ObjectPascal
37 lines
871 B
ObjectPascal
program Test;
|
|
|
|
type
|
|
TToken = (
|
|
tkNil,tkEOF,tkNumber,tkOpenBrace,tkCloseBrace,
|
|
tkPlus,tkMinus,tkTimes,tkSlash,tkCaret,tkSemiColon
|
|
);
|
|
|
|
function TokenToStr(const Token: TToken): String;
|
|
|
|
function Quote(const S: String): String;
|
|
inline; // comment out to avoid the internal error
|
|
begin
|
|
Quote:='"'+S+'"';
|
|
end;
|
|
|
|
begin
|
|
case Token of
|
|
tkNil : TokenToStr:=Quote('Unknown');
|
|
tkEOF : TokenToStr:=Quote('EOF');
|
|
tkNumber : TokenToStr:=Quote('Number');
|
|
tkOpenBrace : TokenToStr:=Quote('(');
|
|
tkCloseBrace: TokenToStr:=Quote(')');
|
|
tkPlus : TokenToStr:=Quote('+');
|
|
tkMinus : TokenToStr:=Quote('-');
|
|
tkTimes : TokenToStr:=Quote('*');
|
|
tkSlash : TokenToStr:=Quote('/');
|
|
tkCaret : TokenToStr:=Quote('^');
|
|
tkSemiColon : TokenToStr:=Quote(';');
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
if (TokenToStr(tkNil)<>'"Unknown"') then
|
|
halt(1);
|
|
end.
|