X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fa2p.h;h=db09edddface4c25e7af207700408eaf4a49b927;hb=d9f30342f9de4793189d81b85a5e32057393e428;hp=1f3c9f692d2bc12ea83156b6fb561e194ce5ca12;hpb=4d09c4dea70059a14cd5e6548ac118d2ad075dcb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/x2p/a2p.h b/x2p/a2p.h
index 1f3c9f6..db09edd 100644
--- a/x2p/a2p.h
+++ b/x2p/a2p.h
@@ -1,12 +1,10 @@
-/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $
+/*    a2p.h
  *
  *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
  *    2000, 2001, 2002, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
- *
- * $Log:	a2p.h,v $
  */
 
 #define VOIDUSED 1
@@ -75,6 +73,18 @@
 #endif /* USE_NEXT_CTYPE */
 
 #define MEM_SIZE Size_t
+#ifdef PERL_MEM_LOG
+/* Blindly copied from ../perl.h. -- AD 2/2006. */
+/* Configure gets this right but the UTS compiler gets it wrong.
+   -- Hal Morris <hom00@utsglobal.com> */
+#  ifdef UTS
+#    undef  UVTYPE
+#    define UVTYPE unsigned
+#  endif
+
+  typedef IVTYPE IV;
+  typedef UVTYPE UV;
+#endif
 
 #ifndef STANDARD_C
     Malloc_t malloc (MEM_SIZE nbytes);
@@ -363,11 +373,7 @@ typedef struct htbl HASH;
 EXT char *Yes INIT("1");
 EXT char *No INIT("");
 
-#define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
-
-#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%"NVgf")",Str->str_nval),buf) : "" )))
 #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
-#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
 EXT STR *Str;
 
 #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)