[TUHS] C from 1980 binaries

[Ralph Corderoy via TUHS]

Hi John,

> This is 100% Claude's output and creation.

Assuming getLink() doesn't have side effects,
line 18's getLink(r4) looks like it can be replaced with r3 given line 6.
Is Claude deliberately rendering a duplicate call in the machine code?

    1   unlinkSubtree(a1)
    2       int a1;
    3   {
    4       register int r3, r4;
    5       r4 = a1;
    6       r3 = getLink(r4);
    7       if (r3 == curNode + 3) {
    8           if (kindList[curKind] == 0) {
    9               if (kindOptional[curKind] == 0) {
   10                   *(char *)curNode = 0116;
   11               } else {
   12                   *(char *)curNode = 26;
   13               }
   14           } else {
   15               *(char *)curNode = 0105;
   16           }
   17       } else {
   18           setLink(curNode, getLink(r4));
   19           parseLine();
   20           if (atListEnd == 0) {
   21               atListHead = 1;
   22           }
   23       }
   24   } 

-- 
Cheers, Ralph.