Turbo Pascal中$M编译指令致文件操作失效问题求助

问题根源 #

• {$M 4000,0,0}指令的第三个参数设为0，意味着程序堆的最大大小和初始大小完全一致，没有任何扩展空间。Turbo Pascal的文件操作（如assign、reset等）依赖动态堆内存分配，当堆空间耗尽且无法扩展时，就会出现无响应或完全失效的情况，这种堆溢出行为本身不稳定，所以难以稳定复现。
• 移除该指令后EXEC失效，是因为EXEC函数需要足够的堆空间来加载子进程的环境变量和参数，默认堆大小不足以支撑这个操作。

解决方案 #

修改{$M}指令的参数，给堆保留扩展空间，同时保证初始堆满足EXEC的需求：

• 将第三个参数设为DOS环境下的堆最大限制65535，或者根据实际需求设置合理最大值，示例：

  {$M 4000,4000,65535}
  

  参数含义：初始堆大小4000字节，最小堆大小4000字节，最大堆大小65535字节，既满足EXEC的内存需求，又给文件操作留足动态分配空间。

调整后的代码示例 #

{$M 4000,4000,65535}  // 允许堆扩展，同时保留足够初始堆用于EXEC

uses dos, windos;

begin
  SwapVectors;
  Exec('c:\command.com', '/c dir');
  SwapVectors;

  // 示例文件操作
  var f: file;
  assign(f, 'test.txt');
  rewrite(f);
  writeln(f, '测试内容');
  close(f);
end.

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