From cda199c63713319970470dfc7563ae7457b6184e Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@mit.edu>
Date: Sat, 20 Jan 2001 01:54:26 +0000
Subject: [PATCH] rebuilt

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@12916 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/util/et/et_c.perl | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/src/util/et/et_c.perl b/src/util/et/et_c.perl
index 8d7062b7a..b097eaaf6 100644
--- a/src/util/et/et_c.perl
+++ b/src/util/et/et_c.perl
@@ -79,7 +79,7 @@ $c2n{'9'} = 62;
 $c2n{'_'} = 63;
 
 line: while (<>) {
-    chomp;	# strip record separator
+    chop;	# strip record separator
     @Fld = split($FS, $_, 9999);
     if (/^#/) {
 	next line;
@@ -264,19 +264,15 @@ else {
 
       '#if !defined(_MSDOS) && !defined(_WIN32) && !defined(macintosh)');
 &Pick('>', $outfile) &&
-    (print $fh 'static struct et_list link = { 0, 0 };');
+    (print $fh 'void initialize_' . $table_name . '_error_table (void)');
 &Pick('>', $outfile) &&
-    (print $fh 'void initialize_' . $table_name . '_error_table (void) {');
+    (print $fh '    /*@modifies internalState@*/');
 &Pick('>', $outfile) &&
-    (print $fh '	   if (!link.table) {');
+    (print $fh '{');
 &Pick('>', $outfile) &&
-    (print $fh '	       link.next = _et_list;');
-&Pick('>', $outfile) &&
-    (print $fh '	       link.table = &et_' . $table_name . '_error_table;');
-&Pick('>', $outfile) &&
-    (print $fh '	       _et_list = &link;');
-&Pick('>', $outfile) &&
-    (print $fh '	   }');
+    (print $fh '    (void) add_error_table (&et_' . $table_name .
+
+      '_error_table);');
 &Pick('>', $outfile) &&
     (print $fh '}');
 &Pick('>', $outfile) &&
-- 
2.26.2