From 68267fad21f7506f4613a9f7308e3a7c46d8f8e6 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Fri, 22 Jan 2010 12:20:35 +0000 Subject: constify various filename strings git-svn-id: svn://tug.org/texlive/trunk@16799 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/omegaware/ChangeLog | 8 ++++++++ Build/source/texk/web2c/omegaware/odvitype.ch | 3 +-- Build/source/texk/web2c/omegaware/ofm2opl.ch | 2 +- Build/source/texk/web2c/omegaware/opl2ofm.ch | 2 +- Build/source/texk/web2c/omegaware/otangle.ch | 2 +- Build/source/texk/web2c/omegaware/ovf2ovp.ch | 3 ++- Build/source/texk/web2c/omegaware/ovp2ovf.ch | 2 +- 7 files changed, 15 insertions(+), 7 deletions(-) (limited to 'Build/source/texk/web2c/omegaware') diff --git a/Build/source/texk/web2c/omegaware/ChangeLog b/Build/source/texk/web2c/omegaware/ChangeLog index 9bfbae39443..63e7397f820 100644 --- a/Build/source/texk/web2c/omegaware/ChangeLog +++ b/Build/source/texk/web2c/omegaware/ChangeLog @@ -1,3 +1,11 @@ +2010-01-22 Peter Breitenlohner + + * odvitype.ch (open_dvi_file): Skip use of cur_name. + * ofm2opl.ch (tfm_name, pl_name), opl2ofm.ch (tfm_name, pl_name), + otangle.ch (web_name, chg_name, pascal_name, pool_name), + ovf2ovp.ch (vf_name, vpl_name), ovp2ovf.ch (vpl_name, tfm_name, + vf_name): Declare as const_c_string. + 2010-01-05 Peter Breitenlohner * repeat.test (new): Shell script to test repeat_char handling. diff --git a/Build/source/texk/web2c/omegaware/odvitype.ch b/Build/source/texk/web2c/omegaware/odvitype.ch index be75e4196f7..cf2893dfc66 100644 --- a/Build/source/texk/web2c/omegaware/odvitype.ch +++ b/Build/source/texk/web2c/omegaware/odvitype.ch @@ -122,8 +122,7 @@ end; @y @p procedure open_dvi_file; {prepares to read packed bytes in |dvi_file|} begin - cur_name := extend_filename (cmdline (optind), 'dvi'); - resetbin (dvi_file, cur_name); + resetbin (dvi_file, extend_filename (cmdline (optind), 'dvi')); cur_loc := 0; end; @# diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.ch b/Build/source/texk/web2c/omegaware/ofm2opl.ch index d9a586bfcd8..fac46b06d80 100644 --- a/Build/source/texk/web2c/omegaware/ofm2opl.ch +++ b/Build/source/texk/web2c/omegaware/ofm2opl.ch @@ -457,5 +457,5 @@ long_options[current_option].val := 0; @ Global filenames. @ = -@!tfm_name, @!pl_name:c_string; +@!tfm_name, @!pl_name:const_c_string; @z diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.ch b/Build/source/texk/web2c/omegaware/opl2ofm.ch index 67172f602bd..1e134a69bd3 100644 --- a/Build/source/texk/web2c/omegaware/opl2ofm.ch +++ b/Build/source/texk/web2c/omegaware/opl2ofm.ch @@ -359,5 +359,5 @@ long_options[current_option].val := 0; @ Global filenames. @ = -@!tfm_name,@!pl_name:c_string; +@!tfm_name,@!pl_name:const_c_string; @z diff --git a/Build/source/texk/web2c/omegaware/otangle.ch b/Build/source/texk/web2c/omegaware/otangle.ch index 8fc89c42d15..84e5dc406ba 100644 --- a/Build/source/texk/web2c/omegaware/otangle.ch +++ b/Build/source/texk/web2c/omegaware/otangle.ch @@ -485,5 +485,5 @@ long_options[current_option].val := 0; @ Global filenames. @= -@!web_name,@!chg_name,@!pascal_name,@!pool_name:c_string; +@!web_name,@!chg_name,@!pascal_name,@!pool_name:const_c_string; @z diff --git a/Build/source/texk/web2c/omegaware/ovf2ovp.ch b/Build/source/texk/web2c/omegaware/ovf2ovp.ch index ee8adc26d57..9ab40b511c9 100644 --- a/Build/source/texk/web2c/omegaware/ovf2ovp.ch +++ b/Build/source/texk/web2c/omegaware/ovf2ovp.ch @@ -615,5 +615,6 @@ long_options[current_option].val := 0; @ Global filenames. @ = -@!vf_name, @!tfm_name, @!vpl_name:c_string; +@!tfm_name:c_string; +@!vf_name, @!vpl_name:const_c_string; @z diff --git a/Build/source/texk/web2c/omegaware/ovp2ovf.ch b/Build/source/texk/web2c/omegaware/ovp2ovf.ch index 2fa615d0729..62c2b250bae 100644 --- a/Build/source/texk/web2c/omegaware/ovp2ovf.ch +++ b/Build/source/texk/web2c/omegaware/ovp2ovf.ch @@ -342,5 +342,5 @@ long_options[current_option].val := 0; @ Global filenames. @ = -@!vpl_name, @!tfm_name, @!vf_name:c_string; +@!vpl_name, @!tfm_name, @!vf_name:const_c_string; @z -- cgit v1.2.3