浏览代码

* More option processing

Michaël Van Canneyt 2 年之前
父节点
当前提交
d3111517d5
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      compiler/utils/dummyas.pp

+ 5 - 0
compiler/utils/dummyas.pp

@@ -83,6 +83,11 @@ begin
           // ignore format in nasm
           skipnext:=true;
         end
+      else if copy(param,1,4)='-fo=' then  
+        begin
+        // Watcom
+        object_name:=copy(param,5,length(Param)-4);
+        end
       else if (Param[1]='-') then
         begin
           { option Param not handled }