chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1989-07-12 12:14:44 +00:00
parent 4361060e7b
commit 030d20c55a
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
WEGA/contrib/ingres/dbs/src/pqr/rc_case.c Normal file
View File

@ -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;
}