浏览代码

* progname fix.

marco 22 年之前
父节点
当前提交
50917559bd
共有 1 个文件被更改,包括 9 次插入6 次删除
  1. 9 6
      rtl/bsd/osmain.inc

+ 9 - 6
rtl/bsd/osmain.inc

@@ -67,11 +67,11 @@ function paramstr(l: longint) : string;
  begin
    { stricly conforming POSIX applications  }
    { have the executing filename as argv[0] }
-   if l=0 then
-     begin
-       paramstr := execpathstr;
-     end
-   else
+//   if l=0 then
+//     begin
+//       paramstr := execpathstr;
+//     end
+//   else
      paramstr:=strpas(argv[l]);
  end;
 
@@ -613,7 +613,10 @@ End.
 
 {
    $Log$
-   Revision 1.1  2003-01-05 19:01:28  marco
+   Revision 1.2  2003-05-29 20:54:09  marco
+    * progname fix.
+
+   Revision 1.1  2003/01/05 19:01:28  marco
     * FreeBSD compiles now with baseunix mods.