On 5/30/24 06:23, Peter Maydell wrote:
+sub open_asm($) +{ + my ($basename) = @_; + my $fname = $basename . ".s"; + open(ASM, ">", $fname) or die "can't open $fname: $!"; + select ASM;I think that using Perl select like this is liable to be rather confusing, because it has "action at a distance" effects on every other print statement. I would prefer it if we passed in the filehandle to the print statements explicitly. (We can use a global if handing the filehandle around to all the functions is annoying.)
I think I tried that and something didn't work exporting or importing the variable. My perl fu is weak, so I probably made some trivial error.
r~
