浏览代码

* use 'with' in tlinkerwasi.SetDefaultInfo

Nikolay Nikolov 3 年之前
父节点
当前提交
f7b7c39129
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/systems/t_wasi.pas

+ 4 - 1
compiler/systems/t_wasi.pas

@@ -94,7 +94,10 @@ end;
 
 
 procedure tlinkerwasi.SetDefaultInfo;
 procedure tlinkerwasi.SetDefaultInfo;
 begin
 begin
-  Info.DllCmd[1] := 'wasm-ld $SONAME $GCSECTIONS $MAP -o $EXE';
+  with Info do
+    begin
+      DllCmd[1] := 'wasm-ld $SONAME $GCSECTIONS $MAP -o $EXE';
+    end;
 end;
 end;
 
 
 procedure tlinkerwasi.InitSysInitUnitName;
 procedure tlinkerwasi.InitSysInitUnitName;