![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to p2put.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / src|
Return to p2put.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / src |
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. The Berkeley software License Agreement ! 4: * specifies the terms and conditions for redistribution. ! 5: */ ! 6: ! 7: #ifndef lint ! 8: static char sccsid[] = "@(#)p2put.c 5.4 (Berkeley) 11/12/86"; ! 9: #endif not lint ! 10: ! 11: /* ! 12: * functions to help pi put out ! 13: * polish postfix binary portable c compiler intermediate code ! 14: * thereby becoming the portable pascal compiler ! 15: */ ! 16: ! 17: #include "whoami.h" ! 18: #ifdef PC ! 19: #include "0.h" ! 20: #include "objfmt.h" ! 21: #include <pcc.h> ! 22: #include "pc.h" ! 23: #include "align.h" ! 24: #include "tmps.h" ! 25: ! 26: /* ! 27: * emits an ftext operator and a string to the pcstream ! 28: */ ! 29: puttext( string ) ! 30: char *string; ! 31: { ! 32: int length = str4len( string ); ! 33: ! 34: if ( !CGENNING ) ! 35: return; ! 36: p2word( PCCM_TRIPLE( PCCF_FTEXT , length , 0 ) ); ! 37: # ifdef DEBUG ! 38: if ( opt( 'k' ) ) { ! 39: fprintf( stdout , "PCCF_FTEXT | %3d | 0 " , length ); ! 40: } ! 41: # endif ! 42: p2string( string ); ! 43: } ! 44: ! 45: int ! 46: str4len( string ) ! 47: char *string; ! 48: { ! 49: ! 50: return ( ( strlen( string ) + 3 ) / 4 ); ! 51: } ! 52: ! 53: /* ! 54: * put formatted text into a buffer for printing to the pcstream. ! 55: * a call to putpflush actually puts out the text. ! 56: * none of arg1 .. arg5 need be present. ! 57: * and you can add more if you need them. ! 58: */ ! 59: /* VARARGS */ ! 60: putprintf( format , incomplete , arg1 , arg2 , arg3 , arg4 , arg5 ) ! 61: char *format; ! 62: int incomplete; ! 63: { ! 64: static char ppbuffer[ BUFSIZ ]; ! 65: static char *ppbufp = ppbuffer; ! 66: ! 67: if ( !CGENNING ) ! 68: return; ! 69: sprintf( ppbufp , format , arg1 , arg2 , arg3 , arg4 , arg5 ); ! 70: ppbufp = &( ppbuffer[ strlen( ppbuffer ) ] ); ! 71: if ( ppbufp >= &( ppbuffer[ BUFSIZ ] ) ) ! 72: panic( "putprintf" ); ! 73: if ( ! incomplete ) { ! 74: puttext( ppbuffer ); ! 75: ppbufp = ppbuffer; ! 76: } ! 77: } ! 78: ! 79: /* ! 80: * emit a left bracket operator to pcstream ! 81: * with function number, the maximum temp register, and total local bytes ! 82: */ ! 83: putlbracket(ftnno, sizesp) ! 84: int ftnno; ! 85: struct om *sizesp; ! 86: { ! 87: int maxtempreg; ! 88: int alignedframesize; ! 89: ! 90: # if defined(vax) || defined(tahoe) ! 91: maxtempreg = sizesp->curtmps.next_avail[REG_GENERAL]; ! 92: # endif vax || tahoe ! 93: # ifdef mc68000 ! 94: /* ! 95: * this is how /lib/f1 wants it. ! 96: */ ! 97: maxtempreg = (sizesp->curtmps.next_avail[REG_ADDR] << 4) ! 98: | (sizesp->curtmps.next_avail[REG_DATA]); ! 99: # endif mc68000 ! 100: alignedframesize = roundup((int)(BITSPERBYTE * -sizesp->curtmps.om_off), ! 101: (long)(BITSPERBYTE * A_STACK)); ! 102: p2word( PCCM_TRIPLE( PCCF_FLBRAC , maxtempreg , ftnno ) ); ! 103: p2word(alignedframesize); ! 104: # ifdef DEBUG ! 105: if ( opt( 'k' ) ) { ! 106: fprintf(stdout, "PCCF_FLBRAC | %3d | %d %d\n", ! 107: maxtempreg, ftnno, alignedframesize); ! 108: } ! 109: # endif ! 110: } ! 111: ! 112: /* ! 113: * emit a right bracket operator ! 114: * which for the binary interface ! 115: * forces the stack allocate and register mask ! 116: */ ! 117: putrbracket( ftnno ) ! 118: int ftnno; ! 119: { ! 120: ! 121: p2word( PCCM_TRIPLE( PCCF_FRBRAC , 0 , ftnno ) ); ! 122: # ifdef DEBUG ! 123: if ( opt( 'k' ) ) { ! 124: fprintf( stdout , "PCCF_FRBRAC | 0 | %d\n" , ftnno ); ! 125: } ! 126: # endif ! 127: } ! 128: ! 129: /* ! 130: * emit an eof operator ! 131: */ ! 132: puteof() ! 133: { ! 134: ! 135: p2word( PCCF_FEOF ); ! 136: # ifdef DEBUG ! 137: if ( opt( 'k' ) ) { ! 138: fprintf( stdout , "PCCF_FEOF\n" ); ! 139: } ! 140: # endif ! 141: } ! 142: ! 143: /* ! 144: * emit a dot operator, ! 145: * with a source file line number and name ! 146: * if line is negative, there was an error on that line, but who cares? ! 147: */ ! 148: putdot( filename , line ) ! 149: char *filename; ! 150: int line; ! 151: { ! 152: int length = str4len( filename ); ! 153: ! 154: if ( line < 0 ) { ! 155: line = -line; ! 156: } ! 157: p2word( PCCM_TRIPLE( PCCF_FEXPR , length , line ) ); ! 158: # ifdef DEBUG ! 159: if ( opt( 'k' ) ) { ! 160: fprintf( stdout , "PCCF_FEXPR | %3d | %d " , length , line ); ! 161: } ! 162: # endif ! 163: p2string( filename ); ! 164: } ! 165: ! 166: /* ! 167: * put out a leaf node ! 168: */ ! 169: putleaf( op , lval , rval , type , name ) ! 170: int op; ! 171: int lval; ! 172: int rval; ! 173: int type; ! 174: char *name; ! 175: { ! 176: if ( !CGENNING ) ! 177: return; ! 178: switch ( op ) { ! 179: default: ! 180: panic( "[putleaf]" ); ! 181: case PCC_ICON: ! 182: p2word( PCCM_TRIPLE( PCC_ICON , name != NIL , type ) ); ! 183: p2word( lval ); ! 184: # ifdef DEBUG ! 185: if ( opt( 'k' ) ) { ! 186: fprintf( stdout , "PCC_ICON | %3d | 0x%x " ! 187: , name != NIL , type ); ! 188: fprintf( stdout , "%d\n" , lval ); ! 189: } ! 190: # endif ! 191: if ( name ) ! 192: p2name( name ); ! 193: break; ! 194: case PCC_NAME: ! 195: p2word( PCCM_TRIPLE( PCC_NAME , lval != 0 , type ) ); ! 196: if ( lval ) ! 197: p2word( lval ); ! 198: # ifdef DEBUG ! 199: if ( opt( 'k' ) ) { ! 200: fprintf( stdout , "PCC_NAME | %3d | 0x%x " ! 201: , lval != 0 , type ); ! 202: if ( lval ) ! 203: fprintf( stdout , "%d " , lval ); ! 204: } ! 205: # endif ! 206: p2name( name ); ! 207: break; ! 208: case PCC_REG: ! 209: p2word( PCCM_TRIPLE( PCC_REG , rval , type ) ); ! 210: # ifdef DEBUG ! 211: if ( opt( 'k' ) ) { ! 212: fprintf( stdout , "PCC_REG | %3d | 0x%x\n" , ! 213: rval , type ); ! 214: } ! 215: # endif ! 216: break; ! 217: } ! 218: } ! 219: ! 220: /* ! 221: * rvalues are just lvalues with indirection, except ! 222: * special cases for registers and for named globals, ! 223: * whose names are their rvalues. ! 224: */ ! 225: putRV( name , level , offset , other_flags , type ) ! 226: char *name; ! 227: int level; ! 228: int offset; ! 229: char other_flags; ! 230: int type; ! 231: { ! 232: char extname[ BUFSIZ ]; ! 233: char *printname; ! 234: ! 235: if ( !CGENNING ) ! 236: return; ! 237: if ( other_flags & NREGVAR ) { ! 238: if ( ( offset < 0 ) || ( offset > P2FP ) ) { ! 239: panic( "putRV regvar" ); ! 240: } ! 241: putleaf( PCC_REG , 0 , offset , type , (char *) 0 ); ! 242: return; ! 243: } ! 244: if ( whereis( offset , other_flags ) == GLOBALVAR ) { ! 245: if ( name != 0 ) { ! 246: if ( name[0] != '_' ) { ! 247: sprintf( extname , EXTFORMAT , name ); ! 248: printname = extname; ! 249: } else { ! 250: printname = name; ! 251: } ! 252: putleaf( PCC_NAME , offset , 0 , type , printname ); ! 253: return; ! 254: } else { ! 255: panic( "putRV no name" ); ! 256: } ! 257: } ! 258: putLV( name , level , offset , other_flags , type ); ! 259: putop( PCCOM_UNARY PCC_MUL , type ); ! 260: } ! 261: ! 262: /* ! 263: * put out an lvalue ! 264: * given a level and offset ! 265: * special case for ! 266: * named globals, whose lvalues are just their names as constants. ! 267: */ ! 268: putLV( name , level , offset , other_flags , type ) ! 269: char *name; ! 270: int level; ! 271: int offset; ! 272: char other_flags; ! 273: int type; ! 274: { ! 275: char extname[ BUFSIZ ]; ! 276: char *printname; ! 277: ! 278: if ( !CGENNING ) ! 279: return; ! 280: if ( other_flags & NREGVAR ) { ! 281: panic( "putLV regvar" ); ! 282: } ! 283: switch ( whereis( offset , other_flags ) ) { ! 284: case GLOBALVAR: ! 285: if ( ( name != 0 ) ) { ! 286: if ( name[0] != '_' ) { ! 287: sprintf( extname , EXTFORMAT , name ); ! 288: printname = extname; ! 289: } else { ! 290: printname = name; ! 291: } ! 292: putleaf( PCC_ICON , offset , 0 , PCCM_ADDTYPE( type , PCCTM_PTR ) ! 293: , printname ); ! 294: return; ! 295: } else { ! 296: panic( "putLV no name" ); ! 297: } ! 298: case PARAMVAR: ! 299: if ( level == cbn ) { ! 300: putleaf( PCC_REG, 0, P2AP, PCCM_ADDTYPE( type , PCCTM_PTR ), (char *) 0 ); ! 301: } else { ! 302: putleaf( PCC_NAME , (level * sizeof(struct dispsave)) + AP_OFFSET ! 303: , 0 , PCCTM_PTR | PCCT_CHAR , DISPLAYNAME ); ! 304: parts[ level ] |= NONLOCALVAR; ! 305: } ! 306: putleaf( PCC_ICON , offset , 0 , PCCT_INT , (char *) 0 ); ! 307: putop( PCC_PLUS , PCCTM_PTR | PCCT_CHAR ); ! 308: break; ! 309: case LOCALVAR: ! 310: if ( level == cbn ) { ! 311: putleaf( PCC_REG, 0, P2FP, PCCM_ADDTYPE( type , PCCTM_PTR ), (char *) 0 ); ! 312: } else { ! 313: putleaf( PCC_NAME , (level * sizeof(struct dispsave)) + FP_OFFSET ! 314: , 0 , PCCTM_PTR | PCCT_CHAR , DISPLAYNAME ); ! 315: parts[ level ] |= NONLOCALVAR; ! 316: } ! 317: putleaf( PCC_ICON , -offset , 0 , PCCT_INT , (char *) 0 ); ! 318: putop( PCC_MINUS , PCCTM_PTR | PCCT_CHAR ); ! 319: break; ! 320: case NAMEDLOCALVAR: ! 321: if ( level == cbn ) { ! 322: putleaf( PCC_REG, 0, P2FP, PCCM_ADDTYPE( type , PCCTM_PTR ), (char *) 0 ); ! 323: } else { ! 324: putleaf( PCC_NAME , (level * sizeof(struct dispsave)) + FP_OFFSET ! 325: , 0 , PCCTM_PTR | PCCT_CHAR , DISPLAYNAME ); ! 326: parts[ level ] |= NONLOCALVAR; ! 327: } ! 328: putleaf( PCC_ICON , 0 , 0 , PCCT_INT , name ); ! 329: putop( PCC_MINUS , PCCTM_PTR | PCCT_CHAR ); ! 330: break; ! 331: } ! 332: return; ! 333: } ! 334: ! 335: /* ! 336: * put out a floating point constant leaf node ! 337: * the constant is declared in aligned data space ! 338: * and a PCC_NAME leaf put out for it ! 339: */ ! 340: putCON8( val ) ! 341: double val; ! 342: { ! 343: char *label; ! 344: char name[ BUFSIZ ]; ! 345: ! 346: if ( !CGENNING ) ! 347: return; ! 348: label = getlab(); ! 349: putprintf( " .data" , 0 ); ! 350: aligndot(A_DOUBLE); ! 351: (void) putlab( label ); ! 352: # if defined(vax) || defined(tahoe) ! 353: putprintf( " .double 0d%.20e" , 0 , val ); ! 354: # endif vax || tahoe ! 355: # ifdef mc68000 ! 356: putprintf( " .long 0x%x,0x%x", 0, val); ! 357: # endif mc68000 ! 358: putprintf( " .text" , 0 ); ! 359: sprintf( name , PREFIXFORMAT , LABELPREFIX , label ); ! 360: putleaf( PCC_NAME , 0 , 0 , PCCT_DOUBLE , name ); ! 361: } ! 362: ! 363: /* ! 364: * put out either an lvalue or an rvalue for a constant string. ! 365: * an lvalue (for assignment rhs's) is the name as a constant, ! 366: * an rvalue (for parameters) is just the name. ! 367: */ ! 368: putCONG( string , length , required ) ! 369: char *string; ! 370: int length; ! 371: int required; ! 372: { ! 373: char name[ BUFSIZ ]; ! 374: char *label; ! 375: char *cp; ! 376: int pad; ! 377: int others; ! 378: ! 379: if ( !CGENNING ) ! 380: return; ! 381: putprintf( " .data" , 0 ); ! 382: aligndot(A_STRUCT); ! 383: label = getlab(); ! 384: (void) putlab( label ); ! 385: cp = string; ! 386: while ( *cp ) { ! 387: putprintf( " .byte 0%o" , 1 , *cp ++ ); ! 388: for ( others = 2 ; ( others <= 8 ) && *cp ; others ++ ) { ! 389: putprintf( ",0%o" , 1 , *cp++ ); ! 390: } ! 391: putprintf( "" , 0 ); ! 392: } ! 393: pad = length - strlen( string ); ! 394: while ( pad-- > 0 ) { ! 395: putprintf( " .byte 0%o" , 1 , ' ' ); ! 396: for ( others = 2 ; ( others <= 8 ) && ( pad-- > 0 ) ; others++ ) { ! 397: putprintf( ",0%o" , 1 , ' ' ); ! 398: } ! 399: putprintf( "" , 0 ); ! 400: } ! 401: putprintf( " .byte 0" , 0 ); ! 402: putprintf( " .text" , 0 ); ! 403: sprintf( name , PREFIXFORMAT , LABELPREFIX , label ); ! 404: if ( required == RREQ ) { ! 405: putleaf( PCC_NAME , 0 , 0 , PCCTM_ARY | PCCT_CHAR , name ); ! 406: } else { ! 407: putleaf( PCC_ICON , 0 , 0 , PCCTM_PTR | PCCT_CHAR , name ); ! 408: } ! 409: } ! 410: ! 411: /* ! 412: * map a pascal type to a c type ! 413: * this would be tail recursive, but i unfolded it into a for (;;). ! 414: * this is sort of like isa and lwidth ! 415: * a note on the types used by the portable c compiler: ! 416: * they are divided into a basic type (char, short, int, long, etc.) ! 417: * and qualifications on those basic types (pointer, function, array). ! 418: * the basic type is kept in the low 4 bits of the type descriptor, ! 419: * and the qualifications are arranged in two bit chunks, with the ! 420: * most significant on the right, ! 421: * and the least significant on the left ! 422: * e.g. int *foo(); ! 423: * (a function returning a pointer to an integer) ! 424: * is stored as ! 425: * <ptr><ftn><int> ! 426: * so, we build types recursively ! 427: * also, we know that /lib/f1 can only deal with 6 qualifications ! 428: * so we stop the recursion there. this stops infinite type recursion ! 429: * through mutually recursive pointer types. ! 430: */ ! 431: #define MAXQUALS 6 ! 432: int ! 433: p2type( np ) ! 434: struct nl *np; ! 435: { ! 436: ! 437: return typerecur( np , 0 ); ! 438: } ! 439: typerecur( np , quals ) ! 440: struct nl *np; ! 441: int quals; ! 442: { ! 443: ! 444: if ( np == NIL || quals > MAXQUALS ) { ! 445: return PCCT_UNDEF; ! 446: } ! 447: switch ( np -> class ) { ! 448: case SCAL : ! 449: case RANGE : ! 450: case CRANGE : ! 451: if ( np -> type == ( nl + TDOUBLE ) ) { ! 452: return PCCT_DOUBLE; ! 453: } ! 454: switch ( bytes( np -> range[0] , np -> range[1] ) ) { ! 455: case 1: ! 456: return PCCT_CHAR; ! 457: case 2: ! 458: return PCCT_SHORT; ! 459: case 4: ! 460: return PCCT_INT; ! 461: default: ! 462: panic( "p2type int" ); ! 463: /* NOTREACHED */ ! 464: } ! 465: case STR : ! 466: return ( PCCTM_ARY | PCCT_CHAR ); ! 467: case RECORD : ! 468: case SET : ! 469: return PCCT_STRTY; ! 470: case FILET : ! 471: return ( PCCTM_PTR | PCCT_STRTY ); ! 472: case CONST : ! 473: case VAR : ! 474: case FIELD : ! 475: return p2type( np -> type ); ! 476: case TYPE : ! 477: switch ( nloff( np ) ) { ! 478: case TNIL : ! 479: return ( PCCTM_PTR | PCCT_UNDEF ); ! 480: case TSTR : ! 481: return ( PCCTM_ARY | PCCT_CHAR ); ! 482: case TSET : ! 483: return PCCT_STRTY; ! 484: default : ! 485: return ( p2type( np -> type ) ); ! 486: } ! 487: case REF: ! 488: case WITHPTR: ! 489: case PTR : ! 490: return PCCM_ADDTYPE( typerecur( np -> type , quals + 1 ) , PCCTM_PTR ); ! 491: case ARRAY : ! 492: return PCCM_ADDTYPE( typerecur( np -> type , quals + 1 ) , PCCTM_ARY ); ! 493: case FUNC : ! 494: /* ! 495: * functions are really pointers to functions ! 496: * which return their underlying type. ! 497: */ ! 498: return PCCM_ADDTYPE( PCCM_ADDTYPE( typerecur( np -> type , quals + 2 ) , ! 499: PCCTM_FTN ) , PCCTM_PTR ); ! 500: case PROC : ! 501: /* ! 502: * procedures are pointers to functions ! 503: * which return integers (whether you look at them or not) ! 504: */ ! 505: return PCCM_ADDTYPE( PCCM_ADDTYPE( PCCT_INT , PCCTM_FTN ) , PCCTM_PTR ); ! 506: case FFUNC : ! 507: case FPROC : ! 508: /* ! 509: * formal procedures and functions are pointers ! 510: * to structures which describe their environment. ! 511: */ ! 512: return ( PCCTM_PTR | PCCT_STRTY ); ! 513: default : ! 514: panic( "p2type" ); ! 515: /* NOTREACHED */ ! 516: } ! 517: } ! 518: ! 519: /* ! 520: * put a typed operator to the pcstream ! 521: */ ! 522: putop( op , type ) ! 523: int op; ! 524: int type; ! 525: { ! 526: extern char *p2opname(); ! 527: ! 528: if ( !CGENNING ) ! 529: return; ! 530: p2word( PCCM_TRIPLE( op , 0 , type ) ); ! 531: # ifdef DEBUG ! 532: if ( opt( 'k' ) ) { ! 533: fprintf( stdout , "%s (%d) | 0 | 0x%x\n" ! 534: , p2opname( op ) , op , type ); ! 535: } ! 536: # endif ! 537: } ! 538: ! 539: /* ! 540: * put out a structure operator (STASG, STARG, STCALL, UNARY STCALL ) ! 541: * which looks just like a regular operator, only the size and ! 542: * alignment go in the next consecutive words ! 543: */ ! 544: putstrop( op , type , size , alignment ) ! 545: int op; ! 546: int type; ! 547: int size; ! 548: int alignment; ! 549: { ! 550: extern char *p2opname(); ! 551: ! 552: if ( !CGENNING ) ! 553: return; ! 554: p2word( PCCM_TRIPLE( op , 0 , type ) ); ! 555: p2word( size ); ! 556: p2word( alignment ); ! 557: # ifdef DEBUG ! 558: if ( opt( 'k' ) ) { ! 559: fprintf( stdout , "%s (%d) | 0 | 0x%x %d %d\n" ! 560: , p2opname( op ) , op , type , size , alignment ); ! 561: } ! 562: # endif ! 563: } ! 564: ! 565: /* ! 566: * the string names of p2ops ! 567: */ ! 568: ! 569: struct p2op { ! 570: int op; ! 571: char *name; ! 572: }; ! 573: ! 574: static struct p2op p2opnames[] = { ! 575: PCC_ERROR, "PCC_ERROR", ! 576: PCC_NAME, "PCC_NAME", ! 577: PCC_STRING, "PCC_STRING", ! 578: PCC_ICON, "PCC_ICON", ! 579: PCC_FCON, "PCC_FCON", ! 580: PCC_PLUS, "PCC_PLUS", ! 581: PCC_MINUS, "PCC_MINUS", ! 582: PCC_UMINUS, "PCC_UMINUS", ! 583: PCC_MUL, "PCC_MUL", ! 584: PCC_DEREF, "PCC_DEREF", ! 585: PCC_AND, "PCC_AND", ! 586: PCC_ADDROF, "PCC_ADDROF", ! 587: PCC_OR, "PCC_OR", ! 588: PCC_ER, "PCC_ER", ! 589: PCC_QUEST, "PCC_QUEST", ! 590: PCC_COLON, "PCC_COLON", ! 591: PCC_ANDAND, "PCC_ANDAND", ! 592: PCC_OROR, "PCC_OROR", ! 593: PCC_CM, "PCC_CM", ! 594: PCC_ASSIGN, "PCC_ASSIGN", ! 595: PCC_COMOP, "PCC_COMOP", ! 596: PCC_DIV, "PCC_DIV", ! 597: PCC_MOD, "PCC_MOD", ! 598: PCC_LS, "PCC_LS", ! 599: PCC_RS, "PCC_RS", ! 600: PCC_DOT, "PCC_DOT", ! 601: PCC_STREF, "PCC_STREF", ! 602: PCC_CALL, "PCC_CALL", ! 603: PCC_UCALL, "PCC_UCALL", ! 604: PCC_FORTCALL, "PCC_FORTCALL", ! 605: PCC_UFORTCALL, "PCC_UFORTCALL", ! 606: PCC_NOT, "PCC_NOT", ! 607: PCC_COMPL, "PCC_COMPL", ! 608: PCC_INCR, "PCC_INCR", ! 609: PCC_DECR, "PCC_DECR", ! 610: PCC_EQ, "PCC_EQ", ! 611: PCC_NE, "PCC_NE", ! 612: PCC_LE, "PCC_LE", ! 613: PCC_LT, "PCC_LT", ! 614: PCC_GE, "PCC_GE", ! 615: PCC_GT, "PCC_GT", ! 616: PCC_ULE, "PCC_ULE", ! 617: PCC_ULT, "PCC_ULT", ! 618: PCC_UGE, "PCC_UGE", ! 619: PCC_UGT, "PCC_UGT", ! 620: PCC_REG, "PCC_REG", ! 621: PCC_OREG, "PCC_OREG", ! 622: PCC_CCODES, "PCC_CCODES", ! 623: PCC_FREE, "PCC_FREE", ! 624: PCC_STASG, "PCC_STASG", ! 625: PCC_STARG, "PCC_STARG", ! 626: PCC_STCALL, "PCC_STCALL", ! 627: PCC_USTCALL, "PCC_USTCALL", ! 628: PCC_FLD, "PCC_FLD", ! 629: PCC_SCONV, "PCC_SCONV", ! 630: PCC_PCONV, "PCC_PCONV", ! 631: PCC_PMCONV, "PCC_PMCONV", ! 632: PCC_PVCONV, "PCC_PVCONV", ! 633: PCC_FORCE, "PCC_FORCE", ! 634: PCC_CBRANCH, "PCC_CBRANCH", ! 635: PCC_INIT, "PCC_INIT", ! 636: PCC_CAST, "PCC_CAST", ! 637: -1, "" ! 638: }; ! 639: ! 640: char * ! 641: p2opname( op ) ! 642: register int op; ! 643: { ! 644: static char *p2map[PCC_MAXOP+1]; ! 645: static bool mapready = FALSE; ! 646: register struct p2op *pp; ! 647: ! 648: if ( mapready == FALSE ) { ! 649: for ( pp = p2opnames; pp->op >= 0; pp++ ) ! 650: p2map[ pp->op ] = pp->name; ! 651: mapready = TRUE; ! 652: } ! 653: return ( p2map[ op ] ? p2map[ op ] : "unknown" ); ! 654: } ! 655: ! 656: /* ! 657: * low level routines ! 658: */ ! 659: ! 660: /* ! 661: * puts a long word on the pcstream ! 662: */ ! 663: p2word( word ) ! 664: int word; ! 665: { ! 666: ! 667: putw( word , pcstream ); ! 668: } ! 669: ! 670: /* ! 671: * put a length 0 mod 4 null padded string onto the pcstream ! 672: */ ! 673: p2string( string ) ! 674: char *string; ! 675: { ! 676: int slen = strlen( string ); ! 677: int wlen = ( slen + 3 ) / 4; ! 678: int plen = ( wlen * 4 ) - slen; ! 679: char *cp; ! 680: int p; ! 681: ! 682: for ( cp = string ; *cp ; cp++ ) ! 683: putc( *cp , pcstream ); ! 684: for ( p = 1 ; p <= plen ; p++ ) ! 685: putc( '\0' , pcstream ); ! 686: # ifdef DEBUG ! 687: if ( opt( 'k' ) ) { ! 688: fprintf( stdout , "\"%s" , string ); ! 689: for ( p = 1 ; p <= plen ; p++ ) ! 690: fprintf( stdout , "\\0" ); ! 691: fprintf( stdout , "\"\n" ); ! 692: } ! 693: # endif ! 694: } ! 695: ! 696: /* ! 697: * puts a name on the pcstream ! 698: */ ! 699: p2name( name ) ! 700: char *name; ! 701: { ! 702: int pad; ! 703: ! 704: fprintf( pcstream , NAMEFORMAT , name ); ! 705: pad = strlen( name ) % sizeof (long); ! 706: for ( ; pad < sizeof (long) ; pad++ ) { ! 707: putc( '\0' , pcstream ); ! 708: } ! 709: # ifdef DEBUG ! 710: if ( opt( 'k' ) ) { ! 711: fprintf( stdout , NAMEFORMAT , name ); ! 712: pad = strlen( name ) % sizeof (long); ! 713: for ( ; pad < sizeof (long) ; pad++ ) { ! 714: fprintf( stdout , "\\0" ); ! 715: } ! 716: fprintf( stdout , "\n" ); ! 717: } ! 718: # endif ! 719: } ! 720: ! 721: /* ! 722: * put out a jump to a label ! 723: */ ! 724: putjbr( label ) ! 725: long label; ! 726: { ! 727: ! 728: printjbr( LABELPREFIX , label ); ! 729: } ! 730: ! 731: /* ! 732: * put out a jump to any kind of label ! 733: */ ! 734: printjbr( prefix , label ) ! 735: char *prefix; ! 736: long label; ! 737: { ! 738: ! 739: # if defined(vax) || defined(tahoe) ! 740: putprintf( " jbr " , 1 ); ! 741: putprintf( PREFIXFORMAT , 0 , prefix , label ); ! 742: # endif vax || tahoe ! 743: # ifdef mc68000 ! 744: putprintf( " jra " , 1 ); ! 745: putprintf( PREFIXFORMAT , 0 , prefix , label ); ! 746: # endif mc68000 ! 747: } ! 748: ! 749: /* ! 750: * another version of put to catch calls to put ! 751: */ ! 752: /* VARARGS */ ! 753: put() ! 754: { ! 755: ! 756: panic("put()"); ! 757: } ! 758: ! 759: #endif PC
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.