atiran/sovereignx
3
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Process calcrom options first

Browse source
This commit is contained in:
GriffinR 2021-10-14 10:15:08 -04:00
parent 2f6928f016
commit ceb871e3fa
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
.github/calcrom/calcrom.pl vendored
View file

@ -5,14 +5,14 @@ use Getopt::Long;
my $usage = "Usage: calcrom.pl file.map [--data]\n";
(@ARGV >= 1)
my $showData;
GetOptions("data" => \$showData) or die $usage;
(@ARGV == 1)
or die $usage;
open(my $file, $ARGV[0])
or die "ERROR: could not open file '$ARGV[0]'.\n";
my $showData;
GetOptions("data" => \$showData) or die $usage;
my $src = 0;
my $asm = 0;
my $srcdata = 0;