luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[Scripter]

Browse source 
* BUG: Cleanup so error code from last fix
This commit is contained in:
Brian G 2021-04-21 18:13:48 -07:00
parent 1a21f8b511
commit 9f171c9a35
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
app/src/gbs3/.src/ScriptMain.module
View file

@ -234,27 +234,24 @@ lExecuteProject:
$sArchivePath = sCacheDir &/ "plugins" &/ $sMd5 &/ sFileName
Try Mkdir sCacheDir &/ "plugins" &/ $sMd5
If Error Then
verbose(Error.text)
CompileError($sArchivePath, 0, "Unable to create plugin md5 directory:" & Error.text)
Endif
Else
Try Mkdir sCacheDir &/ $sMd5
sFileName = sName
$sArchivePath = File.RealPath(sCacheDir) &/ $sMd5 &/ sFilename
$sArchivePath = sCacheDir &/ $sMd5 &/ sFilename
Endif
Dim ArchiveCmd As String[] = [System.Path &/ "bin/gba" & System.Version, "-o", $sArchivePath, $sPrjPath]
If $oContext.$bVerbose Then ArchiveCmd.Add("-v", 1)
Verbose(ArchiveCmd.Join(" "))
' Remove the old md5 info from directory and delete the old file
If $oContext.$bPlugin And If Exist(sCacheDir &/ sFileName) Then
Endif
Exec ArchiveCmd To sRes
verbose(sRes)
If $oContext.$bPlugin Then
Try Kill sCacheDir &/ sFileName
Try Link $sArchivePath To sCacheDir &/ sFileName
$sExecutable = sCacheDir &/ sFileName
$sStartupClass = ScriptPreProcess["Startup"]