summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cpascal.h
diff options
context:
space:
mode:
authorJonathan Kew <jfkthame@googlemail.com>2008-03-27 09:14:58 +0000
committerJonathan Kew <jfkthame@googlemail.com>2008-03-27 09:14:58 +0000
commit8fa331c4a7ed20194a81c2a9c5a9511ca2ab66dd (patch)
treeee493d30c99ceb5c734a159563bede09e88fe6be /Build/source/texk/web2c/cpascal.h
parentee5049fdbb8acbbac0e06dd1450e94a3ccdba59f (diff)
clean up some const-string warnings
git-svn-id: svn://tug.org/texlive/trunk@7184 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cpascal.h')
-rw-r--r--Build/source/texk/web2c/cpascal.h13
1 files changed, 8 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/cpascal.h b/Build/source/texk/web2c/cpascal.h
index 4ee02aac7fc..9330f0695cb 100644
--- a/Build/source/texk/web2c/cpascal.h
+++ b/Build/source/texk/web2c/cpascal.h
@@ -124,6 +124,7 @@ typedef FILE *text;
/* To work around casting problems. */
#define intcast(x) ((integer) (x))
#define stringcast(x) ((string) (x))
+#define conststringcast(x) ((const_string) (x))
/* For throwing away input from the file F. */
#define vgetc(f) (void) getc (f)
@@ -177,6 +178,8 @@ typedef unsigned char *pointertobyte;
-- var2 lacks the *. */
#define cstring string
+#define constcstring const_string
+
/* Not all C libraries have fabs, so we'll roll our own. */
#undef fabs
#define fabs(x) ((x) >= 0.0 ? (x) : -(x))
@@ -200,11 +203,11 @@ typedef unsigned char *pointertobyte;
/* We use this rather than a simple fputs so that the string will end up
in the .log file, too. */
-#define printcstring(STR) \
- do { \
- char *ch_ptr = (STR); \
- while (*ch_ptr) \
- printchar(*(ch_ptr++)); \
+#define printcstring(STR) \
+ do { \
+ const_string ch_ptr = (STR); \
+ while (*ch_ptr) \
+ printchar(*(ch_ptr++)); \
} while (0)