# 2.11BSD#431 - /usr/src/ucb/pascal/pxp/call.c

##### Functions

    call              X

       1: #
       2: /*
       3:  * pxp - Pascal execution profiler
       4:  *
       5:  * Bill Joy UCB
       6:  * Version 1.2 January 1979
       7:  */
       8:
       9: #include "0.h"
      10: #include "tree.h"
      11:
      12: /*
      13:  * Procedure or function call
      14:  */
      15: call(p, argv)
      16:     register int *argv;
      17: {
      18:     register *al;
      19:
      20:     ppid(p);
      21:     if (argv != NIL) {
      22:         ppbra("(");
      23:         for (;;) {
      24:             al = argv[1];
      25:             if (al[0] == T_WEXP) {
      26:                 rvalue(al[1], NIL);
      27:                 if (al[2] != NIL) {
      28:                     ppsep(": ");
      29:                     rvalue(al[2], NIL);
      30:                 }
      31:                 if (al[3] == OCT || al[3] == HEX) {
      32:                     ppspac();
      33:                     ppkw(al[3] == OCT ? "oct" : "hex");
      34:                 } else if (al[3] != NIL) {
      35:                     ppsep(": ");
      36:                     rvalue(al[3], NIL);
      37:                 }
      38:             } else
      39:                 rvalue(argv[1], NIL);
      40:             argv = argv[2];
      41:             if (argv == NIL)
      42:                 break;
      43:             ppsep(", ");
      44:         }
      45:         ppket(")");
      46:     }
      47: }

#### Defined functions

call defined in line 15; used 2 times

- in /usr/src/ucb/pascal/pxp/func.c line 19
- in /usr/src/ucb/pascal/pxp/proc.c line 16

Last modified: 1981-07-10 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 463 |