Integrate win32 branch into mainline.
Malcolm Beattie [Fri, 15 May 1998 14:04:17 +0000 (14:04 +0000)]
p4raw-id: //depot/perl@983

1  2 
lib/strict.pm
perl.c
perl.h
pod/perldebug.pod

diff --cc lib/strict.pm
@@@ -77,14 -77,14 +77,6 @@@ See L<perlmodlib/Pragmatic Modules>
  
  =cut
  
--$strict::VERSION = "1.01";
--
--my %bitmask = (
--refs => 0x00000002,
--subs => 0x00000200,
--vars => 0x00000400
--);
--
  sub bits {
      my $bits = 0;
      foreach my $s (@_){ $bits |= $bitmask{$s} || 0; };
diff --cc perl.c
Simple merge
diff --cc perl.h
--- 1/perl.h
--- 2/perl.h
+++ b/perl.h
@@@ -710,6 -710,6 +710,15 @@@ Free_t   Perl_free _((Malloc_t where))
  #  endif
  #endif
  
++/* XXX Experimental set-up for long long.  Just add -DUSE_LONG_LONG
++   to your ccflags.  --Andy Dougherty   4/1998
++*/
++#ifdef USE_LONG_LONG
++#  if defined(HAS_LONG_LONG) && LONGLONGSIZE == 8
++#    define Quad_t long long
++#  endif
++#endif
++
  #ifdef Quad_t
  #   define HAS_QUAD
      typedef Quad_t IV;
@@@ -298,6 -298,6 +298,14 @@@ Add a global watch-expression
  
  Delete all watch-expressions.
  
++=item W [expr]
++
++Add a global watch-expression.
++
++=item W
++
++Delete all watch-expressions.
++
  =item O [opt[=val]] [opt"val"] [opt?]...
  
  Set or query values of options.  val defaults to 1.  opt can