From 030d20c55a10b2174e0cce0d160a294a135148bf Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Wed, 12 Jul 1989 12:14:44 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/pqr/rc_case.c | 31 +++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/pqr/rc_case.c

diff --git a/WEGA/contrib/ingres/dbs/src/pqr/rc_case.c b/WEGA/contrib/ingres/dbs/src/pqr/rc_case.c
new file mode 100644
index 0000000..4a75d23
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/pqr/rc_case.c
@@ -0,0 +1,31 @@
+/*
+** ---  RC_CASE.C ------- UPDATE CASE JUMP TABLE  -----------------------------
+**
+**	Version: @(#)rc_case.c		4.0	02/05/89
+**
+*/
+
+# include	"rc.h"
+
+
+rc_case(rc)
+register char	*rc;
+{
+	register int	i;
+	register char	*rc_save;
+
+	/* write CASE # and addr(CASE jump table) */
+	rc_save = R_rc;
+	R_rc = rc;
+	RC_WORD(Case_no++);
+	R_rc = rc_save;
+	RC_UPDATE(rc + sizeof (short));
+
+	/* update CASE jump table, relativ to table and write */
+	rc = R_rc;
+	for (i = 0; i < Case_no; i++)
+		RC_WORD(Case[i] - rc);
+
+	/* initialize new CASE */
+	Case[0] = 0;
+}