builder.report: Put a maximum size on the boot-log in the report

db4
Eduardo Cavazos 2008-05-09 20:30:49 -05:00
parent af8da7d804
commit 50732a297b
1 changed files with 2 additions and 2 deletions

View File

@ -15,8 +15,8 @@ IN: builder.report
"Build directory: " write build-dir print
"git id: " write "git-id" eval-file print nl
status-vm get f = [ "compile-log" cat "vm compile error" throw ] when
status-boot get f = [ "boot-log" cat "Boot error" throw ] when
status-vm get f = [ "compile-log" cat "vm compile error" throw ] when
status-boot get f = [ "boot-log" 100 cat-n "Boot error" throw ] when
status-test get f = [ "test-log" 100 cat-n "Test error" throw ] when
"Boot time: " write "boot-time" eval-file milli-seconds>time print