Mercurial > hg > Members > tobaru > CbC_xv6

changeset 137:7f9dac064c5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove dead code at perl scripts
author anatofuz
date Thu, 12 Dec 2019 14:01:06 +0900
parents fb75c5e661c2
children e3dd8f96c2fb f49d1bb1b947
files src/gearsTools/update_context.pl
diffstat 1 files changed, 0 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/update_context.pl	Thu Dec 12 13:52:45 2019 +0900
+++ b/src/gearsTools/update_context.pl	Thu Dec 12 14:01:06 2019 +0900
@@ -56,25 +56,6 @@
   return (\@first_context_headers,\@last_context_headers);
 }
 
-sub dump_h2context {
-  my $h2context = shift;
-  my $context = '';
-  my $space = '    ';
-  #print "${space}struct $h2context->{name} {\n";
-  $context =  "${space}struct $h2context->{name} {\n";
-  for my $datum (@{$h2context->{data}}) {
-    #print "${space}${space}$datum; \n";
-    $context .= "${space}${space}$datum;\n";
-  }
-  for my $code (@{$h2context->{codes}}) {
-    #print "${space}${space}enum Code $code;\n";
-    $context .= "${space}${space}enum Code $code;\n";
-  }
-  #print "${space}} $h2context->{name};\n";
-  $context .= "${space}} $h2context->{name};\n";
-  return $context;
-}
-
 sub context_dump {
   for my $line (@_) {
     print "$line";