glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

comment out debug prints

Browse Source
This commit is contained in:
Phil Budne
2016-02-25 21:03:39 -05:00
parent 2cca3d4473
commit 815d8bc220
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+1 -2
View File
@@ -125,7 +125,7 @@ sub parse_file {
# Split into a section with possible labels and a # Split into a section with possible labels and a
# statement section with definitely no labels. The ? # statement section with definitely no labels. The ?
# makes the first pattern less greedy. # makes the first pattern less greedy.
print("cmd is >$cmd<\n"); #print("cmd is >$cmd<\n");
$cmd =~ m{(.*?)([^:]*$)}; $cmd =~ m{(.*?)([^:]*$)};
my $labelsect = $1; my $labelsect = $1;
my $statement = $2; my $statement = $2;
@@ -216,7 +216,6 @@ sub parse_statement {
sub parse_expression { sub parse_expression {
my $expression = shift; my $expression = shift;
print "exp: $expression\n";
# If it's a defined variable ( . , .. , etc.) # If it's a defined variable ( . , .. , etc.)
# return the value # return the value
return ( $Var{$expression} ) return ( $Var{$expression} )