paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 02:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

[PATCH 182/188] updating file output to use absolute path

Browse Source 
From 538eac2f8d9ba8737d1840b85864a6921204a167 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Wed, 8 Apr 2020 15:37:30 -0400

git-svn-id: branches/wasm@46178 -
This commit is contained in:
nickysn 2020-08-03 13:02:13 +00:00
parent ba7661e6f2
commit 6af6930763
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/wasmbin/wasa.pas
View File

@ -83,8 +83,11 @@ begin
inc(i);
end;
if (p.SrcFile<>'') and (p.DstObjFile = '') then
p.DstObjFile := ChangeFileExt(p.SrcFile, '.wasm')
if (p.SrcFile<>'') then begin
p.SrcFile := ExpandFileName(p.SrcFile);
if (p.DstObjFile = '') then
p.DstObjFile := ChangeFileExt(p.SrcFile, '.wasm')
end;
end;
var