Lines Matching refs:body

113 static int NumTokens(Body body)
116 while (body) { n++; body = body->next; }
300 t->body.cnst = tag;
305 must be told when execution if the body is complete. The
306 following boilerplate is tacked on to the end of the body
311 static Body AppendResultFlush(Body body, long n)
316 if (body == NULL) return NULL;
317 for (t = body; t->next; t = t->next) ;
329 return body;
411 /* Procedures for generating type declarations in the body */
446 static int CheckSize(Body body)
455 bodies = ConsToken(body, (TokenList) NULL); /* the work list */
472 c->token->body = nextAdr;
476 /* foreach token in this body */
592 Body body, Adr *sz, long int *nObjs, unsigned *psize)
602 bodies = ConsToken(body, (TokenList) NULL); /* the work list */
624 c->token->body = nextAdr;
628 /* foreach token in this body */
729 t->body = nextAdr;
741 t->body = nextAdr;
756 t->body = nextAdr;
757 t->body.cnst = loc;
764 t->body = nextAdr;
865 NumTokens((Body) (t->val)), t->body.cnst);
869 NumTokens((Body) (t->val)), t->body.cnst);
880 ln, t->body.cnst);
885 ATT_SEP,item->subscript->val, t->body.cnst);
889 ATT_SEP,t->body.cnst);
899 fprintf(datafil, "DPS_LITERAL%cDPS_NAME, 0, DPSSYSNAME, %ld", ATT_SEP, t->body.cnst);
905 fprintf(datafil, "DPS_LITERAL%cDPS_NAME, 0, %d, %ld", ATT_SEP, ln, t->body.cnst);
910 fprintf(datafil, "DPS_LITERAL%cDPS_NAME, 0, 0, %ld", ATT_SEP, t->body.cnst);
918 fprintf(datafil, "DPS_EXEC%cDPS_NAME, 0, DPSSYSNAME, %ld", ATT_SEP, t->body.cnst);
925 ln, t->body.cnst);
934 t->namedFormal->subscript->val, t->body.cnst);
938 fprintf(datafil, "DPS_EXEC%cDPS_NAME, 0, 0, %ld", ATT_SEP, t->body.cnst);
948 + NUMSTR_HEADER_SIZE, t->body.cnst);
952 t->body.cnst);
957 ATT_SEP, t->body.cnst);
960 t->body.cnst);
998 static void ConstructStatics(Body body, Adr *sz, int nObjs)
1009 bodies = ConsToken(body, (TokenList) NULL); /* the work list */
1013 FirstStatic(NumTokens(body), sz);
1021 /* foreach token in this body */
1282 static boolean AllLiterals(Body body)
1286 for (t = body; t; t = t->next) {
1314 static void FlattenSomeArrays(Body body, boolean inSquiggles)
1317 for (t = body; t; t = t->next) {
1481 static int EmitValueAssignments(Body body, Item item)
1486 for (t = body; t; t = t->next) {
1566 static void EmitElementValueAssignments(Body body, Item item)
1570 for (t = body; t; t = t->next) {
1576 t->tokenIndex, item->name, t->body.var);
1586 t->tokenIndex, item->name, t->body.var);
1592 t->tokenIndex, item->name, t->body.var);
1606 static void ScanParamsAndEmitValues(Body body, Args args)
1617 gotit = EmitValueAssignments(body,item);
1656 EmitElementValueAssignments(body,item);
1815 void EmitBody(Tokens body, Header hdr)
1825 if(NumTokens(body) == 0)
1828 if (outArgs) body = AppendResultFlush(body, NumArgs(outArgs));
1830 FlattenSomeArrays(body, false);
1832 if ((large = (((NumTokens(body) > 0xff)) || CheckSize(body))) != 0)
1849 BuildTypesAndAssignAddresses(body, &sizeAdr, &nObjs, &structSize);
1852 ConstructStatics(body, &sizeAdr, nObjs);
1867 ScanParamsAndEmitValues(body,hdr->inArgs);
1932 FreeBody(body) Body body; {
1935 for (t = body; t; t = nexttoken) {
1950 free (t->val); free(t->body.var);