From d945f01f5382a609145528ad185482002586e92d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Mon, 4 Nov 2013 01:12:04 +0000
Subject: [PATCH] A not a for Atom (unused anyway)

---
 H/rclause.h    |  5 -----
 H/saveclause.h | 44 --------------------------------------------
 2 files changed, 49 deletions(-)

diff --git a/H/rclause.h b/H/rclause.h
index c69dd5322..acac29bcd 100644
--- a/H/rclause.h
+++ b/H/rclause.h
@@ -106,11 +106,6 @@ restore_opcodes(yamop *pc, yamop *max USES_REGS)
       pc->u.OtaLl.n = PtoOpAdjust(pc->u.OtaLl.n);
       pc = pc->u.OtaLl.n;
       break;
-      pc->u.OtaLl.s = AtomAdjust(pc->u.OtaLl.s);
-      pc->u.OtaLl.d = PtoLUClauseAdjust(pc->u.OtaLl.d);
-      pc->u.OtaLl.n = PtoOpAdjust(pc->u.OtaLl.n);
-      pc = pc->u.OtaLl.n;
-      break;
       /* instructions type OtapFs */
 #ifdef CUT_C
     case _cut_c:
diff --git a/H/saveclause.h b/H/saveclause.h
index b461dc45c..06b86bbfc 100644
--- a/H/saveclause.h
+++ b/H/saveclause.h
@@ -70,9 +70,6 @@
       CHECK(save_Arity(stream, pc->u.Osbpa.i));
       pc = NEXTOP(pc,Osbpa);
       break;
-      CHECK(save_Atom(stream, pc->u.Osbpa.i));
-      pc = NEXTOP(pc,Osbpa);
-      break;
       /* instructions type Osbpp */
     case _call:
     case _call_cpred:
@@ -119,11 +116,6 @@
       CHECK(save_PtoOp(stream, pc->u.OtaLl.n));
       pc = NEXTOP(pc,OtaLl);
       break;
-      CHECK(save_Atom(stream, pc->u.OtaLl.s));
-      CHECK(save_PtoLUClause(stream, pc->u.OtaLl.d));
-      CHECK(save_PtoOp(stream, pc->u.OtaLl.n));
-      pc = NEXTOP(pc,OtaLl);
-      break;
       /* instructions type OtapFs */
 #ifdef CUT_C
     case _cut_c:
@@ -147,12 +139,6 @@
       CHECK(save_Constant(stream, pc->u.OtapFs.extra));
       pc = NEXTOP(pc,OtapFs);
       break;
-      CHECK(save_Atom(stream, pc->u.OtapFs.s));
-      CHECK(save_PtoPred(stream, pc->u.OtapFs.p));
-      CHECK(save_ExternalFunction(stream, pc->u.OtapFs.f));
-      CHECK(save_Constant(stream, pc->u.OtapFs.extra));
-      pc = NEXTOP(pc,OtapFs);
-      break;
       /* instructions type Otapl */
     case _count_retry_and_mark:
     case _count_retry_me:
@@ -180,11 +166,6 @@
       CHECK(save_PtoOp(stream, pc->u.Otapl.d));
       pc = NEXTOP(pc,Otapl);
       break;
-      CHECK(save_Atom(stream, pc->u.Otapl.s));
-      CHECK(save_PtoPred(stream, pc->u.Otapl.p));
-      CHECK(save_PtoOp(stream, pc->u.Otapl.d));
-      pc = NEXTOP(pc,Otapl);
-      break;
       /* instructions type aFlp */
     case _native_me:
       CHECK(save_Arity(stream, pc->u.aFlp.n));
@@ -193,12 +174,6 @@
       CHECK(save_PtoPred(stream, pc->u.aFlp.p));
       pc = NEXTOP(pc,aFlp);
       break;
-      CHECK(save_Atom(stream, pc->u.aFlp.n));
-      CHECK(save_ExternalFunction(stream, pc->u.aFlp.native));
-      CHECK(save_PtoOp(stream, pc->u.aFlp.native_next));
-      CHECK(save_PtoPred(stream, pc->u.aFlp.p));
-      pc = NEXTOP(pc,aFlp);
-      break;
       /* instructions type c */
     case _write_atom:
       CHECK(save_ConstantTerm(stream, pc->u.c.c));
@@ -296,9 +271,6 @@
       CHECK(save_Arity(stream, pc->u.fa.a));
       pc = NEXTOP(pc,fa);
       break;
-      CHECK(save_Atom(stream, pc->u.fa.a));
-      pc = NEXTOP(pc,fa);
-      break;
       /* instructions type i */
     case _write_longint:
       CHECK(save_IntegerInCode(stream, pc->u.i.i));
@@ -396,9 +368,6 @@
       CHECK(save_Arity(stream, pc->u.ofa.a));
       pc = NEXTOP(pc,ofa);
       break;
-      CHECK(save_Atom(stream, pc->u.ofa.a));
-      pc = NEXTOP(pc,ofa);
-      break;
       /* instructions type oi */
     case _unify_l_longint:
     case _unify_l_longint_write:
@@ -639,9 +608,6 @@
       CHECK(save_Arity(stream, pc->u.xfa.a));
       pc = NEXTOP(pc,xfa);
       break;
-      CHECK(save_Atom(stream, pc->u.xfa.a));
-      pc = NEXTOP(pc,xfa);
-      break;
       /* instructions type xi */
     case _get_longint:
     case _put_longint:
@@ -875,11 +841,6 @@
       CHECK(save_PtoOp(stream, pc->u.Otapl.d));
       pc = NEXTOP(pc,Otapl);
       break;
-      CHECK(save_Atom(stream, pc->u.Otapl.s));
-      CHECK(save_PtoPred(stream, pc->u.Otapl.p));
-      CHECK(save_PtoOp(stream, pc->u.Otapl.d));
-      pc = NEXTOP(pc,Otapl);
-      break;
       /* instructions type e */
     case _getwork_first_time:
       if (op == _Nstop || op == _copy_idb_term || op == _unify_idb_term) return 1;
@@ -913,11 +874,6 @@
       CHECK(save_PtoOp(stream, pc->u.Otapl.d));
       pc = NEXTOP(pc,Otapl);
       break;
-      CHECK(save_Atom(stream, pc->u.Otapl.s));
-      CHECK(save_PtoPred(stream, pc->u.Otapl.p));
-      CHECK(save_PtoOp(stream, pc->u.Otapl.d));
-      pc = NEXTOP(pc,Otapl);
-      break;
       /* instructions type e */
 #ifdef TABLING_INNER_CUTS
     case _clause_with_cut: