Get rid of a now-unused variable; it's the only variable of type
[obnox/wireshark/wip.git] / packet-ppp.c
index 06f97d33d63ae00a6dc868f2e1a9296edc367ba5..12bdcebde51c20534515e6384b16df03f845a406 100644 (file)
@@ -1,10 +1,10 @@
 /* packet-ppp.c
  * Routines for ppp packet disassembly
  *
- * $Id: packet-ppp.c,v 1.40 2000/11/16 07:35:38 guy Exp $
+ * $Id: packet-ppp.c,v 1.68 2001/06/18 02:17:50 guy Exp $
  *
  * Ethereal - Network traffic analyzer
- * By Gerald Combs <gerald@zing.org>
+ * By Gerald Combs <gerald@ethereal.com>
  *
  * This file created and by Mike Hall <mlh@io.com>
  * Copyright 1998
 #endif
 
 #include <glib.h>
+#include "prefs.h"
 #include "packet.h"
 #include "packet-ppp.h"
 #include "ppptypes.h"
-#include "packet-atalk.h"
+#include "etypes.h"
+#include "atalk-utils.h"
+#include "packet-chdlc.h"
 #include "packet-ip.h"
-#include "packet-ipv6.h"
 #include "packet-ipx.h"
 #include "packet-vines.h"
+#include "nlpid.h"
+
+#define ppp_min(a, b)  ((a<b) ? a : b)
 
 static int proto_ppp = -1;
 
 static gint ett_ppp = -1;
-static gint ett_ipcp = -1;
-static gint ett_ipcp_options = -1;
-static gint ett_ipcp_ipaddrs_opt = -1;
-static gint ett_ipcp_compressprot_opt = -1;
+
+static int proto_lcp = -1;
+
 static gint ett_lcp = -1;
 static gint ett_lcp_options = -1;
 static gint ett_lcp_mru_opt = -1;
@@ -62,7 +66,12 @@ static gint ett_lcp_callback_opt = -1;
 static gint ett_lcp_multilink_ep_disc_opt = -1;
 static gint ett_lcp_internationalization_opt = -1;
 
-static dissector_table_t subdissector_table;
+static int proto_ipcp = -1;
+
+static gint ett_ipcp = -1;
+static gint ett_ipcp_options = -1;
+static gint ett_ipcp_ipaddrs_opt = -1;
+static gint ett_ipcp_compressprot_opt = -1;
 
 static int proto_mp = -1;
 static int hf_mp_frag_first = -1;
@@ -72,25 +81,41 @@ static int hf_mp_sequence_num = -1;
 static int ett_mp = -1;
 static int ett_mp_flags = -1;
 
-/* PPP structs and definitions */
+static int proto_pap                   = -1;           /* PAP vars */
+static gint ett_pap                    = -1;
+static gint ett_pap_data               = -1;
+static gint ett_pap_peer_id            = -1;
+static gint ett_pap_password           = -1;
+static gint ett_pap_message            = -1;
 
-typedef struct _e_ppphdr {
-  guint8  ppp_addr;
-  guint8  ppp_ctl;
-  guint16 ppp_prot;
-} e_ppphdr;
+static dissector_table_t subdissector_table;
+static dissector_handle_t chdlc_handle;
+
+/* options */
+static gint ppp_fcs_decode = 0; /* 0 = No FCS, 1 = 16 bit FCS, 2 = 32 bit FCS */
+#define NO_FCS 0
+#define FCS_16 1
+#define FCS_32 2
+
+/* PPP definitions */
 
 static const value_string ppp_vals[] = {
        {PPP_IP,        "IP"             },
+       {PPP_OSI,       "OSI"            },
        {PPP_AT,        "Appletalk"      },
        {PPP_IPX,       "Netware IPX/SPX"},
        {PPP_VJC_COMP,  "VJ compressed TCP"},
-       {PPP_VJC_UNCOMP,"VJ uncompressed TCP"}, 
+       {PPP_VJC_UNCOMP,"VJ uncompressed TCP"},
+       {PPP_BPDU,      "Bridging PDU"},
        {PPP_VINES,     "Vines"          },
         {PPP_MP,       "Multilink"},
        {PPP_IPV6,      "IPv6"           },
        {PPP_COMP,      "compressed packet" },
+       {PPP_DEC_LB,    "DEC LANBridge100 Spanning Tree"},
+       {PPP_MPLS_UNI,  "MPLS Unicast"},
+       {PPP_MPLS_MULTI, "MPLS Multicast"},
        {PPP_IPCP,      "IP Control Protocol" },
+       {PPP_OSICP,     "OSI Control Protocol" },
        {PPP_ATCP,      "AppleTalk Control Protocol" },
        {PPP_IPXCP,     "IPX Control Protocol" },
        {PPP_CCP,       "Compression Control Protocol" },
@@ -184,38 +209,42 @@ static const value_string lcp_vals[] = {
 #define CI_INTERNATIONALIZATION        28      /* Internationalization (RFC 2484) */
 #define        CI_SDL_ON_SONET_SDH     29      /* Simple Data Link on SONET/SDH */
 
-static void dissect_lcp_mru_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree);
-static void dissect_lcp_async_map_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree);
-static void dissect_lcp_protocol_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree);
-static void dissect_lcp_magicnumber_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
+static void dissect_lcp_mru_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
                        proto_tree *tree);
-static void dissect_lcp_fcs_alternatives_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
+static void dissect_lcp_async_map_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
                        proto_tree *tree);
-static void dissect_lcp_numbered_mode_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
+static void dissect_lcp_protocol_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
                        proto_tree *tree);
+static void dissect_lcp_magicnumber_opt(const ip_tcp_opt *optp,
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
+static void dissect_lcp_fcs_alternatives_opt(const ip_tcp_opt *optp,
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
+static void dissect_lcp_numbered_mode_opt(const ip_tcp_opt *optp,
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
 static void dissect_lcp_self_describing_pad_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
+static void dissect_lcp_callback_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
                        proto_tree *tree);
-static void dissect_lcp_callback_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree);
 static void dissect_lcp_multilink_mrru_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
-                       proto_tree *tree);
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
 static void dissect_lcp_multilink_ep_disc_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
-                       proto_tree *tree);
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
 static void dissect_lcp_bap_link_discriminator_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
-                       proto_tree *tree);
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
 static void dissect_lcp_internationalization_opt(const ip_tcp_opt *optp,
-                       const u_char *opd, int offset, guint length,
-                       proto_tree *tree);
+                       tvbuff_t *tvb, int offset, guint length,
+                       frame_data *fd, proto_tree *tree);
 static void dissect_mp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree);
 
 static const ip_tcp_opt lcp_opts[] = {
@@ -427,10 +456,12 @@ static const ip_tcp_opt lcp_opts[] = {
 #define CI_MS_DNS2     131     /* Secondary DNS value (RFC 1877) */
 #define CI_MS_WINS2    132     /* Secondary WINS value (RFC 1877) */
 
-static void dissect_ipcp_addrs_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree);
-static void dissect_ipcp_addr_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree);
+static void dissect_ipcp_addrs_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree);
+static void dissect_ipcp_addr_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree);
 
 static const ip_tcp_opt ipcp_opts[] = {
        {
@@ -501,8 +532,176 @@ static const ip_tcp_opt ipcp_opts[] = {
 
 #define N_IPCP_OPTS    (sizeof ipcp_opts / sizeof ipcp_opts[0])
 
+static void dissect_ppp(tvbuff_t *tvb, packet_info *pinfo,
+    proto_tree *tree);
+
+static const value_string pap_vals[] = {
+       {CONFREQ,    "Authenticate-Request" },
+       {CONFACK,    "Authenticate-Ack" },
+       {CONFNAK,    "Authenticate-Nak" },
+       {0,          NULL            } };
+
+static void dissect_pap(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree);
+
+
+const unsigned int fcstab_32[256] =
+      {
+      0x00000000, 0x77073096, 0xee0e612c, 0x990951ba,
+      0x076dc419, 0x706af48f, 0xe963a535, 0x9e6495a3,
+      0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988,
+      0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91,
+      0x1db71064, 0x6ab020f2, 0xf3b97148, 0x84be41de,
+      0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
+      0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec,
+      0x14015c4f, 0x63066cd9, 0xfa0f3d63, 0x8d080df5,
+      0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172,
+      0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b,
+      0x35b5a8fa, 0x42b2986c, 0xdbbbc9d6, 0xacbcf940,
+      0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
+      0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116,
+      0x21b4f4b5, 0x56b3c423, 0xcfba9599, 0xb8bda50f,
+      0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924,
+      0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d,
+      0x76dc4190, 0x01db7106, 0x98d220bc, 0xefd5102a,
+      0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
+      0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818,
+      0x7f6a0dbb, 0x086d3d2d, 0x91646c97, 0xe6635c01,
+      0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e,
+      0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457,
+      0x65b0d9c6, 0x12b7e950, 0x8bbeb8ea, 0xfcb9887c,
+      0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
+      0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2,
+      0x4adfa541, 0x3dd895d7, 0xa4d1c46d, 0xd3d6f4fb,
+      0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0,
+      0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9,
+      0x5005713c, 0x270241aa, 0xbe0b1010, 0xc90c2086,
+      0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
+      0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4,
+      0x59b33d17, 0x2eb40d81, 0xb7bd5c3b, 0xc0ba6cad,
+      0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a,
+      0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683,
+      0xe3630b12, 0x94643b84, 0x0d6d6a3e, 0x7a6a5aa8,
+      0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
+      0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe,
+      0xf762575d, 0x806567cb, 0x196c3671, 0x6e6b06e7,
+      0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc,
+      0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5,
+      0xd6d6a3e8, 0xa1d1937e, 0x38d8c2c4, 0x4fdff252,
+      0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
+      0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60,
+      0xdf60efc3, 0xa867df55, 0x316e8eef, 0x4669be79,
+      0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236,
+      0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f,
+      0xc5ba3bbe, 0xb2bd0b28, 0x2bb45a92, 0x5cb36a04,
+      0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
+      0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a,
+      0x9c0906a9, 0xeb0e363f, 0x72076785, 0x05005713,
+      0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38,
+      0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21,
+      0x86d3d2d4, 0xf1d4e242, 0x68ddb3f8, 0x1fda836e,
+      0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
+      0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c,
+      0x8f659eff, 0xf862ae69, 0x616bffd3, 0x166ccf45,
+      0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2,
+      0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db,
+      0xaed16a4a, 0xd9d65adc, 0x40df0b66, 0x37d83bf0,
+      0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
+      0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6,
+      0xbad03605, 0xcdd70693, 0x54de5729, 0x23d967bf,
+      0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94,
+      0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
+      };
+
+const unsigned short fcstab_16[256] = {
+        0x0000, 0x1189, 0x2312, 0x329b, 0x4624, 0x57ad, 0x6536, 0x74bf,
+        0x8c48, 0x9dc1, 0xaf5a, 0xbed3, 0xca6c, 0xdbe5, 0xe97e, 0xf8f7,
+        0x1081, 0x0108, 0x3393, 0x221a, 0x56a5, 0x472c, 0x75b7, 0x643e,
+        0x9cc9, 0x8d40, 0xbfdb, 0xae52, 0xdaed, 0xcb64, 0xf9ff, 0xe876,
+        0x2102, 0x308b, 0x0210, 0x1399, 0x6726, 0x76af, 0x4434, 0x55bd,
+        0xad4a, 0xbcc3, 0x8e58, 0x9fd1, 0xeb6e, 0xfae7, 0xc87c, 0xd9f5,
+        0x3183, 0x200a, 0x1291, 0x0318, 0x77a7, 0x662e, 0x54b5, 0x453c,
+        0xbdcb, 0xac42, 0x9ed9, 0x8f50, 0xfbef, 0xea66, 0xd8fd, 0xc974,
+        0x4204, 0x538d, 0x6116, 0x709f, 0x0420, 0x15a9, 0x2732, 0x36bb,
+        0xce4c, 0xdfc5, 0xed5e, 0xfcd7, 0x8868, 0x99e1, 0xab7a, 0xbaf3,
+        0x5285, 0x430c, 0x7197, 0x601e, 0x14a1, 0x0528, 0x37b3, 0x263a,
+        0xdecd, 0xcf44, 0xfddf, 0xec56, 0x98e9, 0x8960, 0xbbfb, 0xaa72,
+        0x6306, 0x728f, 0x4014, 0x519d, 0x2522, 0x34ab, 0x0630, 0x17b9,
+        0xef4e, 0xfec7, 0xcc5c, 0xddd5, 0xa96a, 0xb8e3, 0x8a78, 0x9bf1,
+        0x7387, 0x620e, 0x5095, 0x411c, 0x35a3, 0x242a, 0x16b1, 0x0738,
+        0xffcf, 0xee46, 0xdcdd, 0xcd54, 0xb9eb, 0xa862, 0x9af9, 0x8b70,
+        0x8408, 0x9581, 0xa71a, 0xb693, 0xc22c, 0xd3a5, 0xe13e, 0xf0b7,
+        0x0840, 0x19c9, 0x2b52, 0x3adb, 0x4e64, 0x5fed, 0x6d76, 0x7cff,
+        0x9489, 0x8500, 0xb79b, 0xa612, 0xd2ad, 0xc324, 0xf1bf, 0xe036,
+        0x18c1, 0x0948, 0x3bd3, 0x2a5a, 0x5ee5, 0x4f6c, 0x7df7, 0x6c7e,
+        0xa50a, 0xb483, 0x8618, 0x9791, 0xe32e, 0xf2a7, 0xc03c, 0xd1b5,
+        0x2942, 0x38cb, 0x0a50, 0x1bd9, 0x6f66, 0x7eef, 0x4c74, 0x5dfd,
+        0xb58b, 0xa402, 0x9699, 0x8710, 0xf3af, 0xe226, 0xd0bd, 0xc134,
+        0x39c3, 0x284a, 0x1ad1, 0x0b58, 0x7fe7, 0x6e6e, 0x5cf5, 0x4d7c,
+        0xc60c, 0xd785, 0xe51e, 0xf497, 0x8028, 0x91a1, 0xa33a, 0xb2b3,
+        0x4a44, 0x5bcd, 0x6956, 0x78df, 0x0c60, 0x1de9, 0x2f72, 0x3efb,
+        0xd68d, 0xc704, 0xf59f, 0xe416, 0x90a9, 0x8120, 0xb3bb, 0xa232,
+        0x5ac5, 0x4b4c, 0x79d7, 0x685e, 0x1ce1, 0x0d68, 0x3ff3, 0x2e7a,
+        0xe70e, 0xf687, 0xc41c, 0xd595, 0xa12a, 0xb0a3, 0x8238, 0x93b1,
+        0x6b46, 0x7acf, 0x4854, 0x59dd, 0x2d62, 0x3ceb, 0x0e70, 0x1ff9,
+        0xf78f, 0xe606, 0xd49d, 0xc514, 0xb1ab, 0xa022, 0x92b9, 0x8330,
+        0x7bc7, 0x6a4e, 0x58d5, 0x495c, 0x3de3, 0x2c6a, 0x1ef1, 0x0f78
+    };
+  
+/*
+*******************************************************************************
+* DETAILS : Calculate a new FCS-16 given the current FCS-16 and the new data.
+*******************************************************************************
+*/
+guint16
+fcs16(register guint16 fcs,
+         tvbuff_t * tvbuff,
+         guint32 offset,
+         guint32 len)
+{
+    guint8 val;
+
+    /* Check for Invalid Length */
+    if (len == 0)
+        return (0x0000);
+    while (len--) {
+       val = tvb_get_guint8(tvbuff, offset++);
+       fcs = (guint16)((fcs >> 8) & 0x00ff) ^
+            fcstab_16[((guint16)(fcs ^ (guint16)((val) & 0x00ff)) & 0x00ff)];
+    }
+
+    return (fcs ^ 0xffff);
+}
+  
+/*
+*******************************************************************************
+* DETAILS : Calculate a new FCS-32 given the current FCS-32 and the new data.
+*******************************************************************************
+*/
+guint32
+fcs32(guint32 fcs,
+         tvbuff_t * tvbuff,
+         guint32 offset,
+         guint32 len)
+{
+    guint8 val;
+
+    /* Check for invalid Length */
+    if (len == 0)
+        return (0x00000000);
+
+    while (len--) {
+       val = tvb_get_guint8(tvbuff, offset++);
+       fcs = (((fcs) >> 8) ^ fcstab_32[((fcs) ^ (val)) & 0xff]);
+    }
+    return (fcs ^ 0xffffffff);
+}
+
 void
-capture_ppp( const u_char *pd, int offset, packet_counts *ld ) {
+capture_ppp_hdlc( const u_char *pd, int offset, packet_counts *ld ) {
+  if (pd[0] == CHDLC_ADDR_UNICAST || pd[0] == CHDLC_ADDR_MULTICAST) {
+    capture_chdlc(pd, offset, ld);
+    return;
+  }
   switch (pntohs(&pd[offset + 2])) {
     case PPP_IP:
       capture_ip(pd, offset + 4, ld);
@@ -520,103 +719,107 @@ capture_ppp( const u_char *pd, int offset, packet_counts *ld ) {
 }
 
 static void
-dissect_lcp_mru_opt(const ip_tcp_opt *optp, const u_char *opd, int offset,
-                       guint length, proto_tree *tree)
+dissect_lcp_mru_opt(const ip_tcp_opt *optp, tvbuff_t *tvb, int offset,
+                       guint length, frame_data *fd, proto_tree *tree)
 {
-  proto_tree_add_text(tree, NullTVB, offset, length, "MRU: %u", pntohs(opd));
+  proto_tree_add_text(tree, tvb, offset, length, "MRU: %u",
+                       tvb_get_ntohs(tvb, offset + 2));
 }
 
 static void
-dissect_lcp_async_map_opt(const ip_tcp_opt *optp, const u_char *opd, int offset,
-                       guint length, proto_tree *tree)
+dissect_lcp_async_map_opt(const ip_tcp_opt *optp, tvbuff_t *tvb, int offset,
+                       guint length, frame_data *fd, proto_tree *tree)
 {
-  proto_tree_add_text(tree, NullTVB, offset, length, "Async characters to map: 0x%08x",
-                       pntohl(opd));
+  proto_tree_add_text(tree, tvb, offset, length, "Async characters to map: 0x%08x",
+                       tvb_get_ntohl(tvb, offset + 2));
 }
 
 static void
-dissect_lcp_protocol_opt(const ip_tcp_opt *optp, const u_char *opd, int offset,
-                       guint length, proto_tree *tree)
+dissect_lcp_protocol_opt(const ip_tcp_opt *optp, tvbuff_t *tvb, int offset,
+                       guint length, frame_data *fd, proto_tree *tree)
 {
   guint16 protocol;
   proto_item *tf;
   proto_tree *field_tree = NULL;
   
-  tf = proto_tree_add_text(tree, NullTVB, offset, length, "%s: %u byte%s",
+  tf = proto_tree_add_text(tree, tvb, offset, length, "%s: %u byte%s",
          optp->name, length, plurality(length, "", "s"));
   field_tree = proto_item_add_subtree(tf, *optp->subtree_index);
   offset += 2;
   length -= 2;
-  protocol = pntohs(opd);
-  proto_tree_add_text(field_tree, NullTVB, offset, 2, "%s: %s (0x%02x)", optp->name,
+  protocol = tvb_get_ntohs(tvb, offset);
+  proto_tree_add_text(field_tree, tvb, offset, 2, "%s: %s (0x%02x)", optp->name,
                val_to_str(protocol, ppp_vals, "Unknown"), protocol);
   offset += 2;
-  opd += 2;
   length -= 2;
   if (length > 0)
-    proto_tree_add_text(field_tree, NullTVB, offset, length, "Data (%d byte%s)", length,
+    proto_tree_add_text(field_tree, tvb, offset, length, "Data (%d byte%s)", length,
                        plurality(length, "", "s"));
 }
 
 static void
-dissect_lcp_magicnumber_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_magicnumber_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
-  proto_tree_add_text(tree, NullTVB, offset, length, "Magic number: 0x%08x",
-                       pntohl(opd));
+  proto_tree_add_text(tree, tvb, offset, length, "Magic number: 0x%08x",
+                       tvb_get_ntohl(tvb, offset + 2));
 }
 
 static void
-dissect_lcp_fcs_alternatives_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_fcs_alternatives_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
   proto_item *tf;
   proto_tree *field_tree = NULL;
   guint8 alternatives;
   
-  alternatives = *opd;
-  tf = proto_tree_add_text(tree, NullTVB, offset, length, "%s: 0x%02x",
+  alternatives = tvb_get_guint8(tvb, offset + 2);
+  tf = proto_tree_add_text(tree, tvb, offset, length, "%s: 0x%02x",
          optp->name, alternatives);
   field_tree = proto_item_add_subtree(tf, *optp->subtree_index);
   offset += 2;
   if (alternatives & 0x1)
-    proto_tree_add_text(field_tree, NullTVB, offset + 2, 1, "%s",
+    proto_tree_add_text(field_tree, tvb, offset + 2, 1, "%s",
        decode_boolean_bitfield(alternatives, 0x1, 8, "Null FCS", NULL));
   if (alternatives & 0x2)
-    proto_tree_add_text(field_tree, NullTVB, offset + 2, 1, "%s",
+    proto_tree_add_text(field_tree, tvb, offset + 2, 1, "%s",
        decode_boolean_bitfield(alternatives, 0x2, 8, "CCITT 16-bit FCS", NULL));
   if (alternatives & 0x4)
-    proto_tree_add_text(field_tree, NullTVB, offset + 2, 1, "%s",
+    proto_tree_add_text(field_tree, tvb, offset + 2, 1, "%s",
        decode_boolean_bitfield(alternatives, 0x4, 8, "CCITT 32-bit FCS", NULL));
 }
 
 static void
-dissect_lcp_self_describing_pad_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_self_describing_pad_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
-  proto_tree_add_text(tree, NullTVB, offset, length,
+  proto_tree_add_text(tree, tvb, offset, length,
                        "Maximum octets of self-describing padding: %u",
-                       *opd);
+                       tvb_get_guint8(tvb, offset + 2));
 }
 
 static void
-dissect_lcp_numbered_mode_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_numbered_mode_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
   proto_item *tf;
   proto_tree *field_tree = NULL;
   
-  tf = proto_tree_add_text(tree, NullTVB, offset, length, "%s: %u byte%s",
+  tf = proto_tree_add_text(tree, tvb, offset, length, "%s: %u byte%s",
          optp->name, length, plurality(length, "", "s"));
   field_tree = proto_item_add_subtree(tf, *optp->subtree_index);
   offset += 2;
   length -= 2;
-  proto_tree_add_text(field_tree, NullTVB, offset, 1, "Window: %u", *opd);
+  proto_tree_add_text(field_tree, tvb, offset, 1, "Window: %u",
+                       tvb_get_guint8(tvb, offset));
   offset += 1;
-  opd += 1;
   length -= 1;
   if (length > 0)
-    proto_tree_add_text(field_tree, NullTVB, offset, length, "Address (%d byte%s)",
+    proto_tree_add_text(field_tree, tvb, offset, length, "Address (%d byte%s)",
                        length, plurality(length, "", "s"));
 }
 
@@ -630,34 +833,36 @@ static const value_string callback_op_vals[] = {
 };
 
 static void
-dissect_lcp_callback_opt(const ip_tcp_opt *optp, const u_char *opd, int offset,
-                       guint length, proto_tree *tree)
+dissect_lcp_callback_opt(const ip_tcp_opt *optp, tvbuff_t *tvb, int offset,
+                       guint length, frame_data *fd, proto_tree *tree)
 {
   proto_item *tf;
   proto_tree *field_tree = NULL;
+  guint8 operation;
   
-  tf = proto_tree_add_text(tree, NullTVB, offset, length, "%s: %u byte%s",
+  tf = proto_tree_add_text(tree, tvb, offset, length, "%s: %u byte%s",
          optp->name, length, plurality(length, "", "s"));
   field_tree = proto_item_add_subtree(tf, *optp->subtree_index);
   offset += 2;
   length -= 2;
-  proto_tree_add_text(field_tree, NullTVB, offset, 1, "Operation: %s (0x%02x)",
-               val_to_str(*opd, callback_op_vals, "Unknown"),
-               *opd);
+  operation = tvb_get_guint8(tvb, offset);
+  proto_tree_add_text(field_tree, tvb, offset, 1, "Operation: %s (0x%02x)",
+               val_to_str(operation, callback_op_vals, "Unknown"),
+               operation);
   offset += 1;
-  opd += 1;
   length -= 1;
   if (length > 0)
-    proto_tree_add_text(field_tree, NullTVB, offset, length, "Message (%d byte%s)",
+    proto_tree_add_text(field_tree, tvb, offset, length, "Message (%d byte%s)",
                        length, plurality(length, "", "s"));
 }
 
 static void
-dissect_lcp_multilink_mrru_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_multilink_mrru_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
-  proto_tree_add_text(tree, NullTVB, offset, length, "Multilink MRRU: %u",
-                       pntohs(opd));
+  proto_tree_add_text(tree, tvb, offset, length, "Multilink MRRU: %u",
+                       tvb_get_ntohs(tvb, offset + 2));
 }
 
 #define CLASS_NULL                     0
@@ -678,41 +883,41 @@ static const value_string multilink_ep_disc_class_vals[] = {
 };
 
 static void
-dissect_lcp_multilink_ep_disc_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_multilink_ep_disc_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
   proto_item *tf;
   proto_tree *field_tree = NULL;
   guint8 ep_disc_class;
 
-  tf = proto_tree_add_text(tree, NullTVB, offset, length, "%s: %u byte%s",
+  tf = proto_tree_add_text(tree, tvb, offset, length, "%s: %u byte%s",
          optp->name, length, plurality(length, "", "s"));
   field_tree = proto_item_add_subtree(tf, *optp->subtree_index);
   offset += 2;
   length -= 2;
-  ep_disc_class = *opd;
-  proto_tree_add_text(field_tree, NullTVB, offset, 1, "Class: %s (%u)",
+  ep_disc_class = tvb_get_guint8(tvb, offset);
+  proto_tree_add_text(field_tree, tvb, offset, 1, "Class: %s (%u)",
                val_to_str(ep_disc_class, multilink_ep_disc_class_vals, "Unknown"),
                ep_disc_class);
   offset += 1;
-  opd += 1;
   length -= 1;
   if (length > 0) {
     switch (ep_disc_class) {
 
     case CLASS_NULL:
-      proto_tree_add_text(field_tree, NullTVB, offset, length,
+      proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s), should have been empty",
                        length, plurality(length, "", "s"));
       break;
 
     case CLASS_LOCAL:
       if (length > 20) {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s), should have been <20",
                        length, plurality(length, "", "s"));
       } else {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s)",
                        length, plurality(length, "", "s"));
       }
@@ -720,34 +925,34 @@ dissect_lcp_multilink_ep_disc_opt(const ip_tcp_opt *optp, const u_char *opd,
 
     case CLASS_IP:
       if (length != 4) {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s), should have been 4",
                        length, plurality(length, "", "s"));
       } else {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
-                       "Address: %s", ip_to_str(opd));
+        proto_tree_add_text(field_tree, tvb, offset, length,
+                       "Address: %s", ip_to_str(tvb_get_ptr(tvb, offset, 4)));
       }
       break;
 
     case CLASS_IEEE_802_1:
       if (length != 6) {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s), should have been 6",
                        length, plurality(length, "", "s"));
       } else {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
-                       "Address: %s", ether_to_str(opd));
+        proto_tree_add_text(field_tree, tvb, offset, length,
+                       "Address: %s", ether_to_str(tvb_get_ptr(tvb, offset, 6)));
       }
       break;
 
     case CLASS_PPP_MAGIC_NUMBER:
       /* XXX - dissect as 32-bit magic numbers */
       if (length > 20) {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s), should have been <20",
                        length, plurality(length, "", "s"));
       } else {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s)",
                        length, plurality(length, "", "s"));
       }
@@ -755,18 +960,18 @@ dissect_lcp_multilink_ep_disc_opt(const ip_tcp_opt *optp, const u_char *opd,
 
     case CLASS_PSDN_DIRECTORY_NUMBER:
       if (length > 15) {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s), should have been <20",
                        length, plurality(length, "", "s"));
       } else {
-        proto_tree_add_text(field_tree, NullTVB, offset, length,
+        proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s)",
                        length, plurality(length, "", "s"));
       }
       break;
 
     default:
-      proto_tree_add_text(field_tree, NullTVB, offset, length,
+      proto_tree_add_text(field_tree, tvb, offset, length,
                        "Address (%d byte%s)",
                        length, plurality(length, "", "s"));
       break;
@@ -775,12 +980,13 @@ dissect_lcp_multilink_ep_disc_opt(const ip_tcp_opt *optp, const u_char *opd,
 }
 
 static void
-dissect_lcp_bap_link_discriminator_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_bap_link_discriminator_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
-  proto_tree_add_text(tree, NullTVB, offset, length,
+  proto_tree_add_text(tree, tvb, offset, length,
                        "Link discriminator for BAP: 0x%04x",
-                       pntohs(opd));
+                       tvb_get_ntohs(tvb, offset + 2));
 }
 
 /* Character set numbers from the IANA charset registry. */
@@ -790,61 +996,65 @@ static const value_string charset_num_vals[] = {
 };
 
 static void
-dissect_lcp_internationalization_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_lcp_internationalization_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
   proto_item *tf;
   proto_tree *field_tree = NULL;
+  guint32 charset;
   
-  tf = proto_tree_add_text(tree, NullTVB, offset, length, "%s: %u byte%s",
+  tf = proto_tree_add_text(tree, tvb, offset, length, "%s: %u byte%s",
          optp->name, length, plurality(length, "", "s"));
   field_tree = proto_item_add_subtree(tf, *optp->subtree_index);
   offset += 2;
   length -= 2;
-  proto_tree_add_text(field_tree, NullTVB, offset, 4, "Character set: %s (0x%04x)",
-               val_to_str(pntohl(opd), charset_num_vals, "Unknown"),
-               pntohl(opd));
+  charset = tvb_get_ntohl(tvb, offset);
+  proto_tree_add_text(field_tree, tvb, offset, 4, "Character set: %s (0x%04x)",
+               val_to_str(charset, charset_num_vals, "Unknown"),
+               charset);
   offset += 4;
-  opd += 4;
   length -= 4;
   if (length > 0) {
     /* XXX - should be displayed as an ASCII string */
-    proto_tree_add_text(field_tree, NullTVB, offset, length, "Language tag (%d byte%s)",
+    proto_tree_add_text(field_tree, tvb, offset, length, "Language tag (%d byte%s)",
                        length, plurality(length, "", "s"));
   }
 }
 
 static void
-dissect_ipcp_addrs_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+dissect_ipcp_addrs_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
   proto_item *tf;
   proto_tree *field_tree = NULL;
   
-  tf = proto_tree_add_text(tree, NullTVB, offset, length, "%s: %u byte%s",
+  tf = proto_tree_add_text(tree, tvb, offset, length, "%s: %u byte%s",
          optp->name, length, plurality(length, "", "s"));
   field_tree = proto_item_add_subtree(tf, *optp->subtree_index);
   offset += 2;
   length -= 2;
-  proto_tree_add_text(field_tree, NullTVB, offset, 4,
-                       "Source IP address: %s", ip_to_str(opd));
+  proto_tree_add_text(field_tree, tvb, offset, 4,
+                       "Source IP address: %s",
+                       ip_to_str(tvb_get_ptr(tvb, offset, 4)));
   offset += 4;
-  opd += 4;
   length -= 4;
-  proto_tree_add_text(field_tree, NullTVB, offset, 4,
-                       "Destination IP address: %s", ip_to_str(opd));
+  proto_tree_add_text(field_tree, tvb, offset, 4,
+                       "Destination IP address: %s",
+                       ip_to_str(tvb_get_ptr(tvb, offset, 4)));
 }
 
-static void dissect_ipcp_addr_opt(const ip_tcp_opt *optp, const u_char *opd,
-                       int offset, guint length, proto_tree *tree)
+static void dissect_ipcp_addr_opt(const ip_tcp_opt *optp, tvbuff_t *tvb,
+                       int offset, guint length, frame_data *fd,
+                       proto_tree *tree)
 {
-  proto_tree_add_text(tree, NullTVB, offset, length, "%s: %s", optp->name,
-                       ip_to_str((guint8 *)opd));
+  proto_tree_add_text(tree, tvb, offset, length, "%s: %s", optp->name,
+                       ip_to_str(tvb_get_ptr(tvb, offset + 2, 4)));
 }
 
 static void
-dissect_cp( tvbuff_t *tvb, const char *proto_short_name,
-       const char *proto_long_name, int proto_subtree_index,
+dissect_cp( tvbuff_t *tvb, int proto_id, int proto_subtree_index,
        const value_string *proto_vals, int options_subtree_index,
        const ip_tcp_opt *opts, int nopts, packet_info *pinfo, proto_tree *tree ) {
   proto_item *ti;
@@ -861,13 +1071,17 @@ dissect_cp( tvbuff_t *tvb, const char *proto_short_name,
   id = tvb_get_guint8(tvb, 1);
   length = tvb_get_ntohs(tvb, 2);
 
+  if(check_col(pinfo->fd, COL_PROTOCOL))
+    col_set_str(pinfo->fd, COL_PROTOCOL,
+               proto_get_protocol_short_name(proto_id));
+
   if(check_col(pinfo->fd, COL_INFO))
-       col_add_fstr(pinfo->fd, COL_INFO, "%sCP %s", proto_short_name,
+       col_add_fstr(pinfo->fd, COL_INFO, "%s %s",
+               proto_get_protocol_short_name(proto_id),
                val_to_str(code, proto_vals, "Unknown"));
 
   if(tree) {
-    ti = proto_tree_add_text(tree, tvb, 0, 4, "%s Control Protocol",
-                               proto_long_name);
+    ti = proto_tree_add_item(tree, proto_id, tvb, 0, length, FALSE);
     fh_tree = proto_item_add_subtree(ti, proto_subtree_index);
     proto_tree_add_text(fh_tree, tvb, 0, 1, "Code: %s (0x%02x)",
       val_to_str(code, proto_vals, "Unknown"), code);
@@ -886,16 +1100,11 @@ dissect_cp( tvbuff_t *tvb, const char *proto_short_name,
     case CONFREJ:
       if(tree) {
         if (length > 0) {
-         const guint8  *this_pd;
-         int           this_offset;
-
-         tvb_compat(tvb, &this_pd, &this_offset);
-
           tf = proto_tree_add_text(fh_tree, tvb, offset, length,
             "Options: (%d byte%s)", length, plurality(length, "", "s"));
           field_tree = proto_item_add_subtree(tf, options_subtree_index);
-          dissect_ip_tcp_options(&this_pd[this_offset + offset],this_offset + offset,
-                         length, opts, nopts, -1, field_tree);
+          dissect_ip_tcp_options(tvb, offset, length, opts, nopts, -1,
+                                pinfo->fd, field_tree);
         }
       }
       break;
@@ -970,66 +1179,75 @@ dissect_cp( tvbuff_t *tvb, const char *proto_short_name,
 /* Protocol field compression */
 #define PFC_BIT 0x01
 
-static gboolean
-dissect_ppp_stuff( tvbuff_t *tvb, packet_info *pinfo,
-               proto_tree *tree, proto_tree *fh_tree ) {
+static void
+dissect_ppp_common( tvbuff_t *tvb, int offset, packet_info *pinfo,
+               proto_tree *tree, proto_tree *fh_tree,
+               proto_item *ti ) {
   guint16 ppp_prot;
   int     proto_len;
   tvbuff_t     *next_tvb;
-  const guint8 *next_pd;
-  int          next_offset;
 
-  if (tvb_get_guint8(tvb, 0) & PFC_BIT) {
-    ppp_prot = tvb_get_guint8(tvb, 0);
+  ppp_prot = tvb_get_guint8(tvb, offset);
+  if (ppp_prot & PFC_BIT) {
+    /* Compressed protocol field - just the byte we fetched. */
     proto_len = 1;
   } else {
-    ppp_prot = tvb_get_ntohs(tvb, 0);
+    /* Uncompressed protocol field - fetch all of it. */
+    ppp_prot = tvb_get_ntohs(tvb, offset);
     proto_len = 2;
   }
 
+  /* If "ti" is not null, it refers to the top-level "proto_ppp" item
+     for PPP, and was given a length equal to the length of any
+     stuff in the header preceding the protocol type, e.g. an HDLC
+     header, which is just "offset"; add the length of the protocol
+     type field to it. */
+  if (ti != NULL)
+    proto_item_set_len(ti, offset + proto_len);
+
   if (tree) {
-    proto_tree_add_text(fh_tree, tvb, 0, proto_len, "Protocol: %s (0x%04x)",
+    proto_tree_add_text(fh_tree, tvb, offset, proto_len, "Protocol: %s (0x%04x)",
       val_to_str(ppp_prot, ppp_vals, "Unknown"), ppp_prot);
   }
 
-  next_tvb = tvb_new_subset(tvb, proto_len, -1, -1);
-  tvb_compat(next_tvb, &next_pd, &next_offset);
+  next_tvb = tvb_new_subset(tvb, offset + proto_len, -1, -1);
 
   /* do lookup with the subdissector table */
-  if (old_dissector_try_port(subdissector_table, ppp_prot, next_pd, next_offset, pinfo->fd, tree))
-      return TRUE;
-
-  /* XXX - make "dissect_lcp()" and "dissect_ipcp()", have them just
-     call "dissect_cp()", and register them as well?
-
-     We can do that for "dissect_mp()", too. */
-  switch (ppp_prot) {
-    case PPP_MP:
-      dissect_mp(next_tvb, pinfo, tree);
-      return TRUE;
-    case PPP_LCP:
-      dissect_cp(next_tvb, "L", "Link", ett_lcp, lcp_vals, ett_lcp_options,
-               lcp_opts, N_LCP_OPTS, pinfo, tree);
-      return TRUE;
-    case PPP_IPCP:
-      dissect_cp(next_tvb, "IP", "IP", ett_ipcp, cp_vals, ett_ipcp_options,
-               ipcp_opts, N_IPCP_OPTS, pinfo, tree);
-      return TRUE;
-    default:
-      if (check_col(pinfo->fd, COL_INFO))
-        col_add_fstr(pinfo->fd, COL_INFO, "PPP %s (0x%04x)",
-               val_to_str(ppp_prot, ppp_vals, "Unknown"), ppp_prot);
-      dissect_data(next_tvb, 0, pinfo, tree);
-      return FALSE;
+  if (!dissector_try_port(subdissector_table, ppp_prot, next_tvb, pinfo, tree)) {
+    if (check_col(pinfo->fd, COL_PROTOCOL))
+      col_add_fstr(pinfo->fd, COL_PROTOCOL, "0x%04x", ppp_prot);
+    if (check_col(pinfo->fd, COL_INFO))
+      col_add_fstr(pinfo->fd, COL_INFO, "PPP %s (0x%04x)",
+                  val_to_str(ppp_prot, ppp_vals, "Unknown"), ppp_prot);
+    dissect_data(next_tvb, 0, pinfo, tree);
   }
 }
 
+static void
+dissect_lcp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
+{
+  dissect_cp(tvb, proto_lcp, ett_lcp, lcp_vals, ett_lcp_options,
+            lcp_opts, N_LCP_OPTS, pinfo, tree);
+}
+
+static void
+dissect_ipcp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
+{
+  dissect_cp(tvb, proto_ipcp, ett_ipcp, cp_vals, ett_ipcp_options,
+            ipcp_opts, N_IPCP_OPTS, pinfo, tree);
+}
+
 #define MP_FRAG_MASK     0xC0
 #define MP_FRAG(bits)    ((bits) & MP_FRAG_MASK)
 #define MP_FRAG_FIRST    0x80
 #define MP_FRAG_LAST     0x40
 #define MP_FRAG_RESERVED 0x3f
 
+static const true_false_string frag_truth = {
+  "Yes",
+  "No"
+};
+
 /* According to RFC 1717, the length the MP header isn't indicated anywhere
    in the header itself.  It starts out at four bytes and can be
    negotiated down to two using LCP.  We currently assume that all
@@ -1038,23 +1256,19 @@ dissect_ppp_stuff( tvbuff_t *tvb, packet_info *pinfo,
 static void
 dissect_mp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
 {
-  proto_tree *mp_tree, *hdr_tree, *fh_tree = NULL;
-  proto_item *ti;
+  proto_tree *mp_tree, *hdr_tree;
+  proto_item *ti = NULL;
   guint8      flags;
-  guint32     seq;
-  gchar       *flag_str;
-  int         first, last;
-  tvbuff_t     *next_tvb;
-
-  CHECK_DISPLAY_AS_DATA(proto_mp, tvb, pinfo, tree);
+  gchar      *flag_str;
+  tvbuff_t   *next_tvb;
 
-  flags = tvb_get_guint8(tvb, 0);
-  first = flags && MP_FRAG_FIRST;
-  last  = flags && MP_FRAG_LAST;
-  seq   = tvb_get_ntoh24(tvb, 1);
+  if (check_col(pinfo->fd, COL_PROTOCOL))
+    col_set_str(pinfo->fd, COL_PROTOCOL, "PPP MP");
 
   if (check_col(pinfo->fd, COL_INFO))
-    col_add_fstr(pinfo->fd, COL_INFO, "PPP Multilink");
+    col_set_str(pinfo->fd, COL_INFO, "PPP Multilink");
+
+  flags = tvb_get_guint8(tvb, 0);
 
   if (tree) {
     switch (flags) {
@@ -1076,69 +1290,66 @@ dissect_mp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
     ti = proto_tree_add_text(mp_tree, tvb, 0, 1, "Fragment: 0x%2X (%s)",
       flags, flag_str);
     hdr_tree = proto_item_add_subtree(ti, ett_mp_flags);
-    proto_tree_add_boolean_format(hdr_tree, hf_mp_frag_first, tvb, 0, 1, first,
-      "%s", decode_boolean_bitfield(flags, MP_FRAG_FIRST, sizeof(flags) * 8,
-        "first", "not first"));
-    proto_tree_add_boolean_format(hdr_tree, hf_mp_frag_last, tvb, 0, 1, last,
-      "%s", decode_boolean_bitfield(flags, MP_FRAG_LAST, sizeof(flags) * 8,
-        "last", "not last"));
+    proto_tree_add_boolean(hdr_tree, hf_mp_frag_first, tvb, 0, 1, flags);
+    proto_tree_add_boolean(hdr_tree, hf_mp_frag_last, tvb, 0, 1, flags),
     proto_tree_add_text(hdr_tree, tvb, 0, 1, "%s",
       decode_boolean_bitfield(flags, MP_FRAG_RESERVED, sizeof(flags) * 8,
         "reserved", "reserved"));
-    proto_tree_add_uint(mp_tree, hf_mp_sequence_num, tvb,  1, 3, seq);
- }
-
-  next_tvb = tvb_new_subset(tvb, 4, -1, -1);
+    proto_tree_add_item(mp_tree, hf_mp_sequence_num, tvb,  1, 3, FALSE);
+  }
 
-  if (tvb_length(next_tvb) > 0) {
-         if (tree) {
-           ti = proto_tree_add_item(tree, proto_ppp, next_tvb, 0, 1, FALSE);
-           fh_tree = proto_item_add_subtree(ti, ett_ppp);
-         }
-         dissect_ppp_stuff(next_tvb, pinfo, tree, fh_tree);
+  if (tvb_reported_length_remaining(tvb, 4) > 0) {
+    next_tvb = tvb_new_subset(tvb, 4, -1, -1);
+    dissect_ppp(next_tvb, pinfo, tree);
   }
 }
 
-void
-dissect_payload_ppp( const u_char *pd, int offset, frame_data *fd, proto_tree *tree ) {
-  proto_item *ti;
+/*
+ * Handles PPP without HDLC framing, just a protocol field (RFC 1661).
+ */
+static void
+dissect_ppp( tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree ) {
+  proto_item *ti = NULL;
   proto_tree *fh_tree = NULL;
-  tvbuff_t   *next_tvb;
 
-  /* populate a tree in the second pane with the status of the link
-     layer (ie none) */
   if(tree) {
-    ti = proto_tree_add_item(tree, proto_ppp, NullTVB, 0+offset, 2, FALSE);
+    ti = proto_tree_add_item(tree, proto_ppp, tvb, 0, 0, FALSE);
     fh_tree = proto_item_add_subtree(ti, ett_ppp);
   }
 
-  next_tvb = tvb_create_from_top(offset);
-  dissect_ppp_stuff(next_tvb, &pi, tree, fh_tree);
+  dissect_ppp_common(tvb, 0, pinfo, tree, fh_tree, ti);
 }
 
-void
-dissect_ppp( tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree ) {
-  e_ppphdr   ph;
-  proto_item *ti;
+/*
+ * Handles link-layer encapsulations where the frame might be
+ * a PPP in HDLC-like Framing frame (RFC 1662) or a Cisco HDLC frame.
+ */
+static void
+dissect_ppp_hdlc( tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree ) {
+  proto_item *ti = NULL;
   proto_tree *fh_tree = NULL;
-  int        proto_offset;
-  tvbuff_t   *next_tvb;
   guint8     byte0;
+  int        proto_offset;
+  int        rx_fcs_offset;
+  guint32    rx_fcs_exp;
+  guint32    rx_fcs_got;
 
-  CHECK_DISPLAY_AS_DATA(proto_ppp, tvb, pinfo, tree);
-
-  pinfo->current_proto = "PPP";
   byte0 = tvb_get_guint8(tvb, 0);
-
-  if (byte0 == 0xff) {
-    ph.ppp_addr = tvb_get_guint8(tvb, 0);
-    ph.ppp_ctl  = tvb_get_guint8(tvb, 1);
-    ph.ppp_prot = tvb_get_ntohs(tvb, 2);
-    proto_offset =  2;
+  if (byte0 == CHDLC_ADDR_UNICAST || byte0 == CHDLC_ADDR_MULTICAST) {
+    /* Cisco HDLC encapsulation */
+    call_dissector(chdlc_handle, tvb, pinfo, tree);
   }
+
+  /*
+   * XXX - should we have a routine that always dissects PPP, for use
+   * when we know the packets are PPP, not CHDLC?
+   */
+
+  /* PPP HDLC encapsulation */
+  if (byte0 == 0xff)
+    proto_offset = 2;
   else {
     /* address and control are compressed (NULL) */
-    ph.ppp_prot = tvb_get_ntohs(tvb, 0);
     proto_offset = 0;
   }
 
@@ -1146,28 +1357,148 @@ dissect_ppp( tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree ) {
      the next protocol in the stack */
 
   if(check_col(pinfo->fd, COL_RES_DL_SRC))
-    col_add_str(pinfo->fd, COL_RES_DL_SRC, "N/A" );
+    col_set_str(pinfo->fd, COL_RES_DL_SRC, "N/A" );
   if(check_col(pinfo->fd, COL_RES_DL_DST))
-    col_add_str(pinfo->fd, COL_RES_DL_DST, "N/A" );
+    col_set_str(pinfo->fd, COL_RES_DL_DST, "N/A" );
   if(check_col(pinfo->fd, COL_PROTOCOL))
-    col_add_str(pinfo->fd, COL_PROTOCOL, "PPP" );
+    col_set_str(pinfo->fd, COL_PROTOCOL, "PPP" );
 
-  /* populate a tree in the second pane with the status of the link
-     layer (ie none) */
   if(tree) {
-    ti = proto_tree_add_item(tree, proto_ppp, tvb, 0, 4, FALSE);
+    ti = proto_tree_add_item(tree, proto_ppp, tvb, 0, proto_offset, FALSE);
     fh_tree = proto_item_add_subtree(ti, ett_ppp);
     if (byte0 == 0xff) {
-      proto_tree_add_text(fh_tree, tvb, 0, 1, "Address: %02x", ph.ppp_addr);
-      proto_tree_add_text(fh_tree, tvb, 1, 1, "Control: %02x", ph.ppp_ctl);
+      proto_tree_add_text(fh_tree, tvb, 0, 1, "Address: %02x",
+                         tvb_get_guint8(tvb, 0));
+      proto_tree_add_text(fh_tree, tvb, 1, 1, "Control: %02x",
+                         tvb_get_guint8(tvb, 1));
     }
   }
 
-  next_tvb = tvb_new_subset(tvb, proto_offset, -1, -1);
+  dissect_ppp_common(tvb, proto_offset, pinfo, tree, fh_tree, ti);
+
+  /* Calculate the FCS check */
+  /* XXX - deal with packets cut off by the snapshot length */
+  if (ppp_fcs_decode == FCS_16) {
+    rx_fcs_offset = tvb_length(tvb) - 2;
+    rx_fcs_exp = fcs16(0xFFFF, tvb, 0, rx_fcs_offset);
+    rx_fcs_got = tvb_get_letohs(tvb, rx_fcs_offset);
+    if (rx_fcs_got != rx_fcs_exp) {
+      proto_tree_add_text(fh_tree, tvb, rx_fcs_offset, 2, "FCS 16: %04x (incorrect, should be %04x)", rx_fcs_got, rx_fcs_exp);
+    } else {
+      proto_tree_add_text(fh_tree, tvb, rx_fcs_offset, 2, "FCS 16: %04x (correct)", rx_fcs_got);
+    }
+  } else if (ppp_fcs_decode == FCS_32) {
+    rx_fcs_offset = tvb_length(tvb) - 4;
+    rx_fcs_exp = fcs32(0xFFFFFFFF, tvb, 0, rx_fcs_offset);
+    rx_fcs_got = tvb_get_letohl(tvb, rx_fcs_offset);
+    if (rx_fcs_got != rx_fcs_exp) {
+      proto_tree_add_text(fh_tree, tvb, rx_fcs_offset, 4, "FCS 32: %08x (incorrect, should be %08x) ", rx_fcs_got, rx_fcs_exp);
+    } else {
+      proto_tree_add_text(fh_tree, tvb, rx_fcs_offset, 4, "FCS 32: %08x (correct)", rx_fcs_got);
+    }
+  }
+}
 
-  if (!dissect_ppp_stuff(next_tvb, pinfo, tree, fh_tree)) {
-    if (check_col(pinfo->fd, COL_PROTOCOL))
-      col_add_fstr(pinfo->fd, COL_PROTOCOL, "0x%04x", ph.ppp_prot);
+/*
+ * Handles PAP just as a protocol field
+ */
+static void
+dissect_pap( tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree ) {
+  proto_item *ti;
+  proto_tree *fh_tree = NULL;
+  proto_item *tf;
+  proto_tree *field_tree;
+  proto_item *tm;
+  proto_tree *message_tree;
+  proto_item *tp;
+  proto_tree *peer_id_tree;
+  proto_item *tpw;
+  proto_tree *passwd_tree;
+
+  guint8 code;
+  guint8 id, peer_id_length, password_length, msg_length;
+  int length, offset;
+
+  code = tvb_get_guint8(tvb, 0);
+  id = tvb_get_guint8(tvb, 1);
+  length = tvb_get_ntohs(tvb, 2);
+
+  if(check_col(pinfo->fd, COL_PROTOCOL))
+    col_set_str(pinfo->fd, COL_PROTOCOL,
+               proto_get_protocol_short_name(proto_pap));
+
+  if(check_col(pinfo->fd, COL_INFO))
+       col_add_fstr(pinfo->fd, COL_INFO, "%s %s",
+               proto_get_protocol_short_name(proto_pap),
+               val_to_str(code, pap_vals, "Unknown"));
+
+  if(tree) {
+    ti = proto_tree_add_item(tree, proto_pap, tvb, 0, length, FALSE);
+    fh_tree = proto_item_add_subtree(ti, ett_pap);
+    proto_tree_add_text(fh_tree, tvb, 0, 1, "Code: %s (0x%02x)",
+      val_to_str(code, pap_vals, "Unknown"), code);
+    proto_tree_add_text(fh_tree, tvb, 1, 1, "Identifier: 0x%02x",
+                       id);
+    proto_tree_add_text(fh_tree, tvb, 2, 2, "Length: %u",
+                       length);
+  }
+  offset = 4;
+  length -= 4;
+
+  switch (code) {
+    case CONFREQ:
+      if(tree) {
+        if (length > 0) {
+          tf = proto_tree_add_text(fh_tree, tvb, offset, length,
+            "Data: (%d byte%s)", length, plurality(length, "", "s"));
+          field_tree = proto_item_add_subtree(tf, ett_pap_data);
+                 peer_id_length = tvb_get_guint8(tvb, offset);
+                 tp = proto_tree_add_text(field_tree, tvb, offset,      1,
+              "Peer ID length: %d byte%s", peer_id_length, plurality(peer_id_length, "", "s"));
+                 if (--length > 0) {
+                         peer_id_tree = proto_item_add_subtree(tp, ett_pap_peer_id);
+                         proto_tree_add_text(peer_id_tree, tvb, ++offset, ppp_min(peer_id_length, length),
+              "Peer-ID (%d byte%s)", peer_id_length, plurality(peer_id_length, "", "s"));
+                         offset+=peer_id_length;
+                         length-=peer_id_length;
+                         if (length > 0) {
+                               password_length = tvb_get_guint8(tvb, offset);
+                               if (--length > 0) {
+                                       tpw = proto_tree_add_text(field_tree, tvb, offset,      1,
+                                               "Password length: %d byte%s", password_length, plurality(password_length, "", "s"));
+                                       passwd_tree = proto_item_add_subtree(tpw, ett_pap_password);
+                                       proto_tree_add_text(passwd_tree, tvb, ++offset, ppp_min(password_length, length),
+                                               "Password (%d byte%s)", password_length, plurality(password_length, "", "s"));
+                               }
+                         }
+                 }
+        }
+      }
+      break;
+
+    case CONFACK:
+    case CONFNAK:
+      if(tree) {
+        if (length > 0) {
+          tf = proto_tree_add_text(fh_tree, tvb, offset, length,
+            "Data: (%d byte%s)", length, plurality(length, "", "s"));
+          field_tree = proto_item_add_subtree(tf, ett_pap_data);
+                 msg_length = tvb_get_guint8(tvb, offset);
+                 tm = proto_tree_add_text(field_tree, tvb, offset,      1,
+              "Message length: %d byte%s", msg_length, plurality(msg_length, "", "s"));
+                 if (--length > 0) {
+                       message_tree = proto_item_add_subtree(tm, ett_pap_message);
+                   proto_tree_add_text(message_tree, tvb, ++offset, ppp_min(msg_length, length),
+              "Message (%d byte%s)", msg_length, plurality(msg_length, "", "s"));
+                 }
+        }
+      }
+      break;
+    default:
+      if (length > 0)
+        proto_tree_add_text(fh_tree, tvb, offset, length, "Stuff (%d byte%s)",
+                               length, plurality(length, "", "s"));
+      break;
   }
 }
 
@@ -1180,30 +1511,51 @@ proto_register_ppp(void)
         };*/
        static gint *ett[] = {
                &ett_ppp,
-               &ett_ipcp,
-               &ett_ipcp_options,
-               &ett_ipcp_ipaddrs_opt,
-               &ett_ipcp_compressprot_opt,
-               &ett_lcp,
-               &ett_lcp_options,
-               &ett_lcp_mru_opt,
-               &ett_lcp_async_map_opt,
-               &ett_lcp_authprot_opt,
-               &ett_lcp_qualprot_opt,
-               &ett_lcp_magicnum_opt,
-               &ett_lcp_fcs_alternatives_opt,
-               &ett_lcp_numbered_mode_opt,
-               &ett_lcp_callback_opt,
-               &ett_lcp_multilink_ep_disc_opt,
-               &ett_lcp_internationalization_opt,
        };
 
-        proto_ppp = proto_register_protocol("Point-to-Point Protocol", "ppp");
+       static enum_val_t ppp_options[] = {
+               {"None", 0},
+               {"16-Bit", 1},
+               {"32-Bit", 2},
+               {NULL, -1}
+       };
+
+       module_t *ppp_module;
+
+        proto_ppp = proto_register_protocol("Point-to-Point Protocol",
+           "PPP", "ppp");
  /*       proto_register_field_array(proto_ppp, hf, array_length(hf));*/
        proto_register_subtree_array(ett, array_length(ett));
 
 /* subdissector code */
        subdissector_table = register_dissector_table("ppp.protocol");
+
+       register_dissector("ppp_hdlc", dissect_ppp_hdlc, proto_ppp);
+       register_dissector("ppp", dissect_ppp, proto_ppp);
+
+       /* Register the preferences for the ppp protocol */
+       ppp_module = prefs_register_protocol(proto_ppp, NULL);
+
+       prefs_register_enum_preference(ppp_module,
+           "ppp_fcs",
+           "PPP Frame Checksum",
+           "PPP Frame Checksum",
+           &ppp_fcs_decode,
+           ppp_options, FALSE);
+}
+
+void
+proto_reg_handoff_ppp(void)
+{
+  /*
+   * Get a handle for the CHDLC dissector.
+   */
+  chdlc_handle = find_dissector("chdlc");
+
+  dissector_add("wtap_encap", WTAP_ENCAP_PPP, dissect_ppp_hdlc, proto_ppp);
+  dissector_add("wtap_encap", WTAP_ENCAP_PPP_WITH_PHDR, dissect_ppp_hdlc, proto_ppp);
+  dissector_add("fr.ietf", NLPID_PPP, dissect_ppp, proto_ppp);
+  dissector_add("gre.proto", ETHERTYPE_PPP, dissect_ppp_hdlc, proto_ppp);
 }
 
 void
@@ -1211,23 +1563,131 @@ proto_register_mp(void)
 {
   static hf_register_info hf[] = {
     { &hf_mp_frag_first,
-    { "First fragment",                "mp.first",     FT_BOOLEAN, BASE_NONE, NULL, 0x0,
-       "" }},
+    { "First fragment",                "mp.first",     FT_BOOLEAN, 8,
+        TFS(&frag_truth), MP_FRAG_FIRST, "", HFILL }},
 
     { &hf_mp_frag_last,
-    { "Last fragment",         "mp.last",      FT_BOOLEAN, BASE_NONE, NULL, 0x0,
-       "" }},
+    { "Last fragment",         "mp.last",      FT_BOOLEAN, 8,
+        TFS(&frag_truth), MP_FRAG_LAST, "", HFILL }},
 
     { &hf_mp_sequence_num,
     { "Sequence number",       "mp.seq",       FT_UINT24, BASE_DEC, NULL, 0x0,
-       "" }}
+       "", HFILL }}
   };
   static gint *ett[] = {
     &ett_mp,
     &ett_mp_flags,
   };
 
-  proto_mp = proto_register_protocol("PPP Multilink Protocol", "mp");
+  proto_mp = proto_register_protocol("PPP Multilink Protocol", "PPP MP", "mp");
   proto_register_field_array(proto_mp, hf, array_length(hf));
   proto_register_subtree_array(ett, array_length(ett));
 }
+
+void
+proto_reg_handoff_mp(void)
+{
+  dissector_add("ppp.protocol", PPP_MP, dissect_mp, proto_mp);
+}
+
+void
+proto_register_lcp(void)
+{
+  static gint *ett[] = {
+    &ett_lcp,
+    &ett_lcp_options,
+    &ett_lcp_mru_opt,
+    &ett_lcp_async_map_opt,
+    &ett_lcp_authprot_opt,
+    &ett_lcp_qualprot_opt,
+    &ett_lcp_magicnum_opt,
+    &ett_lcp_fcs_alternatives_opt,
+    &ett_lcp_numbered_mode_opt,
+    &ett_lcp_callback_opt,
+    &ett_lcp_multilink_ep_disc_opt,
+    &ett_lcp_internationalization_opt,
+  };
+
+  proto_lcp = proto_register_protocol("PPP Link Control Protocol", "PPP LCP",
+                                     "lcp");
+  proto_register_subtree_array(ett, array_length(ett));
+}
+
+void
+proto_reg_handoff_lcp(void)
+{
+  dissector_add("ppp.protocol", PPP_LCP, dissect_lcp, proto_lcp);
+
+  /*
+   * NDISWAN on Windows translates Ethernet frames from higher-level
+   * protocols into PPP frames to hand to the PPP driver, and translates
+   * PPP frames from the PPP driver to hand to the higher-level protocols.
+   *
+   * Apparently the PPP driver, on at least some versions of Windows,
+   * passes frames for internal-to-PPP protocols up through NDISWAN;
+   * the protocol type field appears to be passed through unchanged
+   * (unlike what's done with, for example, the protocol type field
+   * for IP, which is mapped from its PPP value to its Ethernet value).
+   *
+   * This means that we may see, on Ethernet captures, frames for
+   * protocols internal to PPP, so we register PPP_LCP with the
+   * "ethertype" dissector table as well as the PPP protocol dissector
+   * table.
+   */
+  dissector_add("ethertype", PPP_LCP, dissect_lcp, proto_lcp);
+}
+
+void
+proto_register_ipcp(void)
+{
+  static gint *ett[] = {
+    &ett_ipcp,
+    &ett_ipcp_options,
+    &ett_ipcp_ipaddrs_opt,
+    &ett_ipcp_compressprot_opt,
+  };
+
+  proto_ipcp = proto_register_protocol("PPP IP Control Protocol", "PPP IPCP",
+                                     "ipcp");
+  proto_register_subtree_array(ett, array_length(ett));
+}
+
+void
+proto_reg_handoff_ipcp(void)
+{
+  dissector_add("ppp.protocol", PPP_IPCP, dissect_ipcp, proto_ipcp);
+
+  /*
+   * See above comment about NDISWAN for an explanation of why we're
+   * registering with the "ethertype" dissector table.
+   */
+  dissector_add("ethertype", PPP_IPCP, dissect_ipcp, proto_ipcp);
+}
+
+void
+proto_register_pap(void)
+{
+  static gint *ett[] = {
+    &ett_pap,
+       &ett_pap_data,
+       &ett_pap_peer_id,
+       &ett_pap_password,
+       &ett_pap_message,
+  };
+
+  proto_pap = proto_register_protocol("PPP Password Authentication Protocol", "PPP PAP",
+                                     "pap");
+  proto_register_subtree_array(ett, array_length(ett));
+}
+
+void
+proto_reg_handoff_pap(void)
+{
+  dissector_add("ppp.protocol", PPP_PAP, dissect_pap, proto_pap);
+
+  /*
+   * See above comment about NDISWAN for an explanation of why we're
+   * registering with the "ethertype" dissector table.
+   */
+  dissector_add("ethertype", PPP_PAP, dissect_pap, proto_pap);
+}