Free Pascal+MSEgui程序在OpenBSD/NetBSD双击启动冻结求助

一、环境差异排查工具 #

• env命令对比环境变量：终端启动和双击启动的环境变量可能存在差异，这是这类问题的常见根源。编写一个启动脚本：

  #!/bin/sh
  env > ~/app_doubleclick_env.log
  /path/to/your/application
  

  将脚本设为可执行后双击启动，再在终端执行env > ~/app_terminal_env.log，对比两个日志文件，重点关注DISPLAY、HOME、LC_ALL、PATH这些与图形环境、本地化相关的变量，缺失或异常的变量可能触发死循环。

• truss（OpenBSD）/ktrace（NetBSD）跟踪系统调用：这类工具能记录程序的所有系统调用，定位死循环时重复执行的操作。用脚本启动程序并生成跟踪日志：

  # OpenBSD
  #!/bin/sh
  truss -f -o ~/app_truss.log /path/to/your/application
  
  # NetBSD
  #!/bin/sh
  ktrace -d -f ~/app_ktrace.log /path/to/your/application
  

  双击运行脚本后，查看日志末尾的重复调用记录，比如反复尝试读取不存在的文件、访问无效的资源，即可锁定死循环的触发点。

二、程序内调试手段 #

• 添加初始化阶段日志：在程序启动的关键节点写入日志，明确卡死的阶段。示例Pascal代码：

  procedure TMainForm.FormCreate(Sender: TObject);
  var
    LogFile: TextFile;
  begin
    AssignFile(LogFile, '/tmp/app_debug.log');
    try
      Rewrite(LogFile);
      Writeln(LogFile, 'FormCreate triggered');
      Writeln(LogFile, 'DISPLAY variable: ', GetEnvironmentVariable('DISPLAY'));
      Writeln(LogFile, 'Current working dir: ', GetCurrentDir);
      Flush(LogFile);
      // 其他初始化步骤的日志
    finally
      CloseFile(LogFile);
    end;
  end;
  

  双击启动后查看日志，判断程序卡在初始化的哪个环节。

• 强制重定向标准流：MSEgui在无终端环境下可能因标准输入输出未初始化陷入循环，可在启动脚本中重定向：

  #!/bin/sh
  /path/to/your/application < /dev/null > /tmp/app_output.log 2>&1
  

  或在程序初始化时强制绑定空设备：

  initialization
    Assign(Input, '/dev/null'); Reset(Input);
    Assign(Output, '/dev/null'); Rewrite(Output);
    Assign(ErrOutput, '/dev/null'); Rewrite(ErrOutput);
  

三、进阶跟踪工具 #

• dtrace（OpenBSD）：如果系统调用跟踪不够详细，可用dtrace定位用户级函数的重复调用：

  dtrace -n 'pid$target:::entry { printf("%s -> %s\n", probemod, probefunc); }' -p $(pgrep your_app_name)
  

  需在程序启动后快速执行命令，或直接写入启动脚本，通过输出的函数调用链找到循环点。

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