From e083bdf89d31440fee7384cae4a11bc22812ba39 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Tue, 7 Jan 2014 08:00:08 +0000 Subject: web2c: Consistent white space git-svn-id: svn://tug.org/texlive/trunk@32597 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ChangeLog | 4 ++++ Build/source/texk/web2c/mplibdir/mp.w | 2 +- Build/source/texk/web2c/pltotf.ch | 3 +-- Build/source/texk/web2c/vptovf.ch | 5 ++--- 4 files changed, 8 insertions(+), 6 deletions(-) diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index 4f22f9e6a66..650ddabbf12 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -1,3 +1,7 @@ +2014-01-06 Peter Breitenlohner + + * pltotf.ch, vptovf.ch: Consistent white space. + 2014-01-02 Peter Breitenlohner * ac/web2c.ac, configure.ac: Use X toolkit for METAFONT only if diff --git a/Build/source/texk/web2c/mplibdir/mp.w b/Build/source/texk/web2c/mplibdir/mp.w index ebd6897e38d..3b9a81e2f74 100644 --- a/Build/source/texk/web2c/mplibdir/mp.w +++ b/Build/source/texk/web2c/mplibdir/mp.w @@ -30068,7 +30068,7 @@ void mp_do_new_internal (MP mp) { set_equiv (cur_sym(), mp->int_ptr); if (internal_name (mp->int_ptr) != NULL) xfree (internal_name (mp->int_ptr)); - set_internal_name (mp->int_ptr, + set_internal_name (mp->int_ptr, mp_xstrdup (mp, mp_str (mp, text (cur_sym())))); if (the_type == mp_string_type) { set_internal_string (mp->int_ptr, mp_rts(mp,"")); diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch index 921cdaeec79..417fda30907 100644 --- a/Build/source/texk/web2c/pltotf.ch +++ b/Build/source/texk/web2c/pltotf.ch @@ -34,8 +34,7 @@ procedure initialize; {this procedure gets things started properly} @ procedure initialize; {this procedure gets things started properly} var @@/ -begin - kpse_set_program_name (argv[0], my_name); + begin kpse_set_program_name (argv[0], my_name); parse_arguments; @z diff --git a/Build/source/texk/web2c/vptovf.ch b/Build/source/texk/web2c/vptovf.ch index 333f132c51c..7c3c4abffb0 100644 --- a/Build/source/texk/web2c/vptovf.ch +++ b/Build/source/texk/web2c/vptovf.ch @@ -23,9 +23,8 @@ procedure initialize; {this procedure gets things started properly} @ procedure initialize; {this procedure gets things started properly} var @@/ - begin - kpse_set_program_name (argv[0], my_name); - parse_arguments; + begin kpse_set_program_name (argv[0], my_name); + parse_arguments; @z @x [3] Increase constants. -- cgit v1.2.3