mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-20 11:11:24 +00:00
Code Issues Releases Activity

comment out some debugging messages that slipped in by mistake.

Browse Source 
MFC after:	3 days
This commit is contained in:
Luigi Rizzo 2009-01-13 12:28:14 +00:00
parent f7fc4669a7
commit 2ca710fbbc
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=187143
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
sys/boot/forth/support.4th
View File

@ -820,7 +820,7 @@ only forth also support-functions definitions
\ Interface to loading conf files
: load_conf ( addr len -- )
." ----- Trying conf " 2dup type cr
\ ." ----- Trying conf " 2dup type cr \ debugging
0 to end_of_file?
reset_line_reading
O_RDONLY fopen fd !
@ -912,7 +912,7 @@ string current_file_name_ref \ used to print the file name
\ loader_conf_files processing support functions
: get_conf_files ( -- addr len ) \ put addr/len on stack, reset var
." -- starting on <" conf_files strtype ." >" cr
\ ." -- starting on <" conf_files strtype ." >" cr \ debugging
conf_files strget 0 0 conf_files strset
;
@ -939,8 +939,7 @@ string current_file_name_ref \ used to print the file name
pos char+ to pos
repeat
addr len pos addr r@ + pos r> -
2dup
." get_file_name has " type cr
\ 2dup ." get_file_name has " type cr \ debugging
;
: get_next_file ( addr len ptr -- addr len ptr' addr' len' | 0 )