Free Pascal 3.0.4报不可达代码警告，程序功能正常求排查原因

嘿，我来帮你拆解这个问题！首先先把你的代码贴出来，方便我们一起分析：

PROGRAM Ejercicio21;
VAR decimal,octal,a,b,c:integer;
BEGIN
writeln('Ingrese el valor decimal: ');
readln(octal);
a:=(octal div 100);
b:=(octal mod 100) div 10;
c:=octal mod 10;
decimal:=(a*sqr(8)+(b*8)+c);
writeln('Octal',octal,'=',decimal);
END.

首先要明确：你的代码逻辑是完全正确的，能输出正确结果，这个不可达代码警告大概率是Free Pascal 3.0.4版本优化器的误判，下面给你具体分析原因和解决办法：

为什么会出现这个警告？ #

你用的编译命令是fpc -Co -Cr -Miso -gl，其中-Co是开启代码优化选项。当编译器开启优化后，会做数据流分析来简化代码，在这个过程中，它可能对表达式的某些部分产生了错误的判断：

• 你代码里的sqr(8)是一个常量计算，编译器会直接把它替换成64，但在处理这个表达式的括号和运算顺序时，优化器误把第8行（也就是c:=octal mod 10;）里的部分字符位置标记成了“不可达”——但实际上这行代码是必须执行的，c的值直接影响最终的十进制计算结果。
• 另外，变量decimal只被赋值一次就直接输出，编译器可能误判某些计算步骤冗余，但这些步骤都是必要的。

怎么消除这个警告？ #

有几个简单的办法：

• 忽略警告：既然程序功能正常，结果正确，这个警告不会影响运行，完全可以不用管它。
• 关闭优化选项：把编译命令里的-Co去掉，改成fpc -Cr -Miso -gl，关闭优化后，编译器不会做激进的数据流分析，警告就会消失。
• 替换常量函数：把sqr(8)直接写成64，代码改成decimal:=a*64 + b*8 + c;——去掉函数调用，直接用常量计算，能避免优化器的误判，同时代码效率也一样。

内容的提问来源于stack exchange，提问作者Thiago Montiel