perl 3.0 patch #22 patch #19, continued

[p5sagit/p5-mst-13.2.git] / str.h

diff --git a/str.h b/str.h
index f4ea90f..2c14029 100644 (file)
--- a/str.h
+++ b/str.h
@@ -1,4 +1,4 @@
-/* $Header: str.h,v 3.0 89/10/18 15:23:49 lwall Locked $
+/* $Header: str.h,v 3.0.1.1 89/10/26 23:24:42 lwall Locked $
  *
  *    Copyright (c) 1989, Larry Wall
  *
@@ -6,6 +6,9 @@
  *    as specified in the README file that comes with the perl 3.0 kit.
  *
  * $Log:       str.h,v $
+ * Revision 3.0.1.1  89/10/26  23:24:42  lwall
+ * patch1: rearranged some structures to align doubles better on Gould
+ * 
  * Revision 3.0  89/10/18  15:23:49  lwall
  * 3.0 baseline
  * 
@@ -13,6 +16,7 @@
 
 struct string {
     char *     str_ptr;        /* pointer to malloced string */
+    int                str_len;        /* allocated size */
     union {
        double  str_nval;       /* numeric value, if any */
        STAB    *str_stab;      /* magic stab for magic "key" string */
@@ -21,7 +25,6 @@ struct string {
        HASH    *str_hash;      /* string represents an assoc array (stab?) */
        ARRAY   *str_array;     /* string represents an array */
     } str_u;
-    int                str_len;        /* allocated size */
     int                str_cur;        /* length of str_ptr as a C string */
     STR *str_magic;            /* while free, link to next free str */
                                /* while in use, ptr to "key" for magic items */
@@ -37,6 +40,7 @@ struct string {
 
 struct stab {  /* should be identical, except for str_ptr */
     STBP *     str_ptr;        /* pointer to malloced string */
+    int                str_len;        /* allocated size */
     union {
        double  str_nval;       /* numeric value, if any */
        STAB    *str_stab;      /* magic stab for magic "key" string */
@@ -45,7 +49,6 @@ struct stab { /* should be identical, except for str_ptr */
        HASH    *str_hash;      /* string represents an assoc array (stab?) */
        ARRAY   *str_array;     /* string represents an array */
     } str_u;
-    int                str_len;        /* allocated size */
     int                str_cur;        /* length of str_ptr as a C string */
     STR *str_magic;            /* while free, link to next free str */
                                /* while in use, ptr to "key" for magic items */