Skip to content

Commit 2bd8dcb

Browse files
committed
HLL::Compiler --stagestats=3 (or greater) now introduces prompts after each compilation stage.
This makes it easier to determine the system resources consumed by each stage. check for system resource usage.
1 parent bec0eba commit 2bd8dcb

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

src/HLL/Compiler.pm

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -418,6 +418,7 @@ class HLL::Compiler {
418418
my $target := nqp::lc(%adverbs<target>);
419419
my $result := $source;
420420
my $stderr := pir::getinterp().stderr_handle;
421+
my $stdin := pir::getinterp().stdin_handle;
421422
for self.stages() {
422423
my $timestamp := nqp::time_n();
423424
$result := self."$_"($result, |%adverbs);
@@ -427,6 +428,10 @@ class HLL::Compiler {
427428
$stderr.print(nqp::sprintf(" %11d %11d %9d %9d", self.vmstat()))
428429
if %adverbs<stagestats> > 1;
429430
$stderr.print("\n");
431+
if %adverbs<stagestats> > 2 {
432+
$stderr.print("continue> ");
433+
$stdin.readline();
434+
}
430435
}
431436
last if $_ eq $target;
432437
}

0 commit comments

Comments
 (0)