From b6d0a4a6c95b8cc18efbea910c4e868d92f7a9ae Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Sat, 29 Jul 2023 09:28:43 +0000 Subject: [CWEB] Ilk is of type eight_bis. See signatures of id_lookup and names_match. git-svn-id: svn://tug.org/texlive/trunk@67760 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ctangleboot.cin | 2 +- Build/source/texk/web2c/cwebboot.cin | 2 +- Build/source/texk/web2c/cwebdir/ChangeLog | 7 +++++++ Build/source/texk/web2c/cwebdir/comm-w2c.h | 2 +- Build/source/texk/web2c/cwebdir/common.c | 2 +- Build/source/texk/web2c/cwebdir/common.h | 2 +- Build/source/texk/web2c/cwebdir/ctangle.c | 10 +++------- 7 files changed, 15 insertions(+), 12 deletions(-) (limited to 'Build/source') diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin index 0d90b821f74..ab90cc6a006 100644 --- a/Build/source/texk/web2c/ctangleboot.cin +++ b/Build/source/texk/web2c/ctangleboot.cin @@ -237,7 +237,7 @@ struct name_info*link; union{ struct name_info*Rlink; -char Ilk; +eight_bits Ilk; }dummy; void*equiv_or_xref; }name_info; diff --git a/Build/source/texk/web2c/cwebboot.cin b/Build/source/texk/web2c/cwebboot.cin index dd1457481a9..af32f191bda 100644 --- a/Build/source/texk/web2c/cwebboot.cin +++ b/Build/source/texk/web2c/cwebboot.cin @@ -239,7 +239,7 @@ struct name_info*link; union{ struct name_info*Rlink; -char Ilk; +eight_bits Ilk; }dummy; void*equiv_or_xref; }name_info; diff --git a/Build/source/texk/web2c/cwebdir/ChangeLog b/Build/source/texk/web2c/cwebdir/ChangeLog index 659a7396bf3..2b7dd73fe17 100644 --- a/Build/source/texk/web2c/cwebdir/ChangeLog +++ b/Build/source/texk/web2c/cwebdir/ChangeLog @@ -1,3 +1,10 @@ +2023-07-28 Andreas Scherer + + * comm-w2c.h, + * common.c, + * common.h, + * ctangle.c: Ilk is of type eight_bits. + 2023-07-28 Andreas Scherer * comm-mini.ch, diff --git a/Build/source/texk/web2c/cwebdir/comm-w2c.h b/Build/source/texk/web2c/cwebdir/comm-w2c.h index ed5e7e50549..076748cee63 100644 --- a/Build/source/texk/web2c/cwebdir/comm-w2c.h +++ b/Build/source/texk/web2c/cwebdir/comm-w2c.h @@ -175,7 +175,7 @@ typedef struct name_info { union { struct name_info *Rlink; /* right link in binary search tree for section names */ - char Ilk; /* used by identifiers in \.{CWEAVE} only */ + eight_bits Ilk; /* used by identifiers in \.{CWEAVE} only */ } dummy; void *equiv_or_xref; /* info corresponding to names */ } name_info; /* contains information about an identifier or section name */ diff --git a/Build/source/texk/web2c/cwebdir/common.c b/Build/source/texk/web2c/cwebdir/common.c index ce5c0599f55..8636b902f04 100644 --- a/Build/source/texk/web2c/cwebdir/common.c +++ b/Build/source/texk/web2c/cwebdir/common.c @@ -183,7 +183,7 @@ struct name_info*link; union{ struct name_info*Rlink; -char Ilk; +eight_bits Ilk; }dummy; void*equiv_or_xref; }name_info; diff --git a/Build/source/texk/web2c/cwebdir/common.h b/Build/source/texk/web2c/cwebdir/common.h index 0c1f8291119..c70990c98d0 100644 --- a/Build/source/texk/web2c/cwebdir/common.h +++ b/Build/source/texk/web2c/cwebdir/common.h @@ -153,7 +153,7 @@ typedef struct name_info { union { struct name_info *Rlink; /* right link in binary search tree for section names */ - char Ilk; /* used by identifiers in \.{CWEAVE} only */ + eight_bits Ilk; /* used by identifiers in \.{CWEAVE} only */ } dummy; void *equiv_or_xref; /* info corresponding to names */ } name_info; /* contains information about an identifier or section name */ diff --git a/Build/source/texk/web2c/cwebdir/ctangle.c b/Build/source/texk/web2c/cwebdir/ctangle.c index 22316024085..6683184d3f4 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.c +++ b/Build/source/texk/web2c/cwebdir/ctangle.c @@ -15,7 +15,7 @@ /*:5*/ #line 67 "ctangle.w" -#define banner "This is CTANGLE (Version 4.9win32)" \ +#define banner "This is CTANGLE (Version 4.9)" \ #define ctangle false #define cweave true \ @@ -216,7 +216,7 @@ struct name_info*link; union{ struct name_info*Rlink; -char Ilk; +eight_bits Ilk; }dummy; void*equiv_or_xref; }name_info; @@ -527,13 +527,11 @@ return wrap_up(); /*:2*//*24:*/ #line 155 "ctangle.w" -#line 19 "ctang-w32.ch" -boolean __cdecl names_match( +boolean names_match( name_pointer p, const char*first, size_t l, eight_bits t) -#line 161 "ctangle.w" {(void)t; return length(p)==l&&strncmp(first,p->byte_start,l)==0; } @@ -541,14 +539,12 @@ return length(p)==l&&strncmp(first,p->byte_start,l)==0; /*:24*//*25:*/ #line 168 "ctangle.w" -#line 34 "ctang-w32.ch" void init_node( name_pointer node) { node->equiv= (void*)text_info; } -#line 175 "ctangle.w" /*:25*//*29:*/ #line 232 "ctangle.w" -- cgit v1.2.3