fix calcrom to accept strings.s

2020-08-08 14:15:46 -07:00 · 2020-08-08 14:15:46 -07:00 · 0cb4a64f67
parent 001bf63c61
commit 0cb4a64f67
1 changed files with 7 additions and 1 deletions
--- a/calcrom.pl
+++ b/calcrom.pl
@ -58,7 +58,13 @@ while (my $line = <$file>)
            }
            elsif ($dir eq 'data')
            {
-                $data += $size;
+                if ($basename =~ /(strings)/)
+                {
+                    $srcdata += $size;
+                }
+                else {
+                    $data += $size;
+                }
            }
        }
    }