Commit e36281cd authored by John P. Willis's avatar John P. Willis
Browse files

Initial work on x11-94-28

parent 904b3645
Pipeline #719 passed with stage
in 1 minute and 25 seconds
......@@ -140,6 +140,8 @@ void symtab_bltin (short action, char *key, char *data) /* symbol table functio
register long i, j, k, k1;
unsigned short *datal_ptr = NULL;
#ifdef DEBUG_SYM
int i0, i1;
......@@ -383,7 +385,10 @@ no_with:
if (key[k] == EOL) {
/* IMPACT: x11-94-28 */
i = UNSIGN (partition[++j]);
//i = UNSIGN (partition[++j]);
datal_ptr = (unsigned short *) &(partition[++j]);
i = (long) *datal_ptr;
j++;
if (i < 4) {
......@@ -505,6 +510,7 @@ no_with:
if (key[k] < partition[j]) break;
i += UNSIGN (partition[i]); /* skip key */
/* IMPACT: x11-94-28 */
i += UNSIGN (partition[i]) + 1; /* skip data */
j = i;
......@@ -558,6 +564,7 @@ no_with:
}
i += UNSIGN (partition[i]); /* skip key */
/* IMPACT: x11-94-28 */
i += UNSIGN (partition[i]) + 1; /* skip data */
j = i;
......@@ -630,7 +637,10 @@ no_with:
i += keyl - 1;
/* IMPACT: x11-94-28 */
partition[i++] = (char) (datal);
//partition[i++] = (char) (datal);
datal_ptr = (unsigned short *) &(partition[i]);
*datal_ptr = (unsigned short) datal;
i += sizeof (unsigned short);
stcpy0 (&partition[i], data, datal); /* store new data */
......@@ -638,10 +648,13 @@ no_with:
/* there is a previous value */
old:
i += UNSIGN (partition[i]);
/* IMPACT?: x11-94-28 */
//i += UNSIGN (partition[i]);
datal_ptr = (unsigned short *) &(partition[i]);
i += *datal_ptr;
if (setop) {
j = UNSIGN (partition[i]);
stcpy0 (tmp1, &partition[i + 1], j);
......@@ -734,7 +747,11 @@ old0: /* entry from getinc */
}
/* IMPACT: x11-94-28 */
partition[i++] = (char) (datal);
//partition[i++] = (char) (datal);
datal_ptr = (unsigned short *) &(partition[i]);
*datal_ptr = (unsigned short) datal;
i += sizeof (unsigned short);
j = datal;
if (j < 4) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment