develooper Front page | perl.perl5.porters | Postings from September 2011

Re: generating win32/config_H.*

Thread Previous | Thread Next
From:
H.Merijn Brand
Date:
September 1, 2011 06:58
Subject:
Re: generating win32/config_H.*
Message ID:
20110901155818.23768dc8@pc09.procura.nl
On Thu, 1 Sep 2011 13:52:33 +0100, "Steve Hay" <SteveHay@planit.com>
wrote:

> H.Merijn Brand wrote on 2011-08-31:
> > On Tue, 30 Aug 2011 09:32:03 +0100, Nicholas Clark <nick@ccl4.org>
> wrote:
> > 
> >> The revision log for the files various Win32 "canned config files"
> >> win32/config_H.* suggest that they are updated manually and
> >> sporadically.
> >> 
> >> As best I can tell each is generated from a corresponding config file
> >> using win32/config_h.PL, and I assume ideally is supposed to be in
> sync.
> >> 
> >> win32/config_h.PL is actually portable. Would it make sense to do the
> >> regeneration as part of regen.pl, and (therefore) keep all the canned
> >> headers up to date automatically?
> > 
> > I manually change these based on Porting/checkcfgvar.pl
> > 
> > will that be pointless too than?
> > /me silently hopes so
> > 
> 
> It's the win32/config.* files that you (kindly) update with the help of
> Porting/checkcfgvar.pl. We're talking about the win32/config_H.* files
> here, which are not so easily updated...
> 
> Btw, Merijn: One of the manual parts of the process of updating them is
> restoring QUADKIND 5 (QUAD_IS___INT64), which gets lost when running
> win32/config_h.PL because it isn't in config_h.SH. Is that something
> that you could sort out? 

Will be in my next update. Metaunit now updated.
http://perl5.git.perl.org/metaconfig.git/commit/55db06f7a3707318f9094c

> (It was added to the win32 configs long ago in 83ff24d4e9, but never
> found its way upstream.)

I'm not "triggered" by changes to win32 files :)

I don't see how this change ought to make it into meta:

--- a/win32/config_H.vc
+++ b/win32/config_H.vc
@@ -909,22 +909,25 @@
 /* HAS_QUAD:
  *     This symbol, if defined, tells that there's a 64-bit integer type,
  *     Quad_t, and its unsigned counterpar, Uquad_t. QUADKIND will be one
- *     of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, or QUAD_IS_INT64_T.
+ *     of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, QUAD_IS_INT64_T.
+ *     or QUAD_IS___INT64.
  */
-/*#define HAS_QUAD     /**/
+#define HAS_QUAD       /**/
 #ifdef HAS_QUAD
 #   ifndef __GNUC__
 #      define Quad_t __int64   /**/
 #      define Uquad_t unsigned __int64 /**/
+#      define QUADKIND 5       /**/
 #   else
 #      define Quad_t long long /**/
 #      define Uquad_t unsigned long long       /**/
+#      define QUADKIND 3       /**/
 #   endif
-#   define QUADKIND 5  /**/
 #   define QUAD_IS_INT 1
 #   define QUAD_IS_LONG        2
 #   define QUAD_IS_LONG_LONG   3
 #   define QUAD_IS_INT64_T     4
+#   define QUAD_IS___INT64     5
 #endif


-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using 5.00307 through 5.14 and porting perl5.15.x on HP-UX 10.20, 11.00,
11.11, 11.23 and 11.31, OpenSuSE 10.1, 11.0 .. 11.4 and AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About