Mercurial > emacs

diff src/bytecode.c @ 25645:a14111a2a100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
author Ken Raeburn <raeburn@raeburn.org>
date Sun, 12 Sep 1999 05:07:01 +0000
parents c69d612b0819
children efb608f1cb10
line wrap: on
line diff
--- a/src/bytecode.c	Sun Sep 12 03:40:44 1999 +0000
+++ b/src/bytecode.c	Sun Sep 12 05:07:01 1999 +0000
@@ -629,7 +629,7 @@
 	  while (--op >= 0)
 	    {
 	      if (CONSP (v1))
-		v1 = XCONS (v1)->cdr;
+		v1 = XCDR (v1);
 	      else if (!NILP (v1))
 		{
 		  immediate_quit = 0;
@@ -674,14 +674,14 @@
 	case Bcar:
 	  v1 = TOP;
 	docar:
-	  if (CONSP (v1)) TOP = XCONS (v1)->car;
+	  if (CONSP (v1)) TOP = XCAR (v1);
 	  else if (NILP (v1)) TOP = Qnil;
 	  else Fcar (wrong_type_argument (Qlistp, v1));
 	  break;
 
 	case Bcdr:
 	  v1 = TOP;
-	  if (CONSP (v1)) TOP = XCONS (v1)->cdr;
+	  if (CONSP (v1)) TOP = XCDR (v1);
 	  else if (NILP (v1)) TOP = Qnil;
 	  else Fcdr (wrong_type_argument (Qlistp, v1));
 	  break;
@@ -810,8 +810,8 @@
 	    {
 	      double f1, f2;
 
-	      f1 = (FLOATP (v1) ? XFLOAT (v1)->data : XINT (v1));
-	      f2 = (FLOATP (v2) ? XFLOAT (v2)->data : XINT (v2));
+	      f1 = (FLOATP (v1) ? XFLOAT_DATA (v1) : XINT (v1));
+	      f2 = (FLOATP (v2) ? XFLOAT_DATA (v2) : XINT (v2));
 	      TOP = (f1 == f2 ? Qt : Qnil);
 	    }
 	  else
@@ -1097,7 +1097,7 @@
 	case Bcar_safe:
 	  v1 = TOP;
 	  if (CONSP (v1))
-	    TOP = XCONS (v1)->car;
+	    TOP = XCAR (v1);
 	  else
 	    TOP = Qnil;
 	  break;
@@ -1105,7 +1105,7 @@
 	case Bcdr_safe:
 	  v1 = TOP;
 	  if (CONSP (v1))
-	    TOP = XCONS (v1)->cdr;
+	    TOP = XCDR (v1);
 	  else
 	    TOP = Qnil;
 	  break;