Relay-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site seismo.CSS.GOV Posting-Version: version B 2.10.2 9/3/84; site panda.UUCP Path: seismo!harvard!talcott!panda!sources-request From: sources-request@panda.UUCP Newsgroups: mod.sources Subject: G-format compilers for Ultrix/Unix Vaxes (2 of 4) Message-ID: <1084@panda.UUCP> Date: 10 Nov 85 21:03:31 GMT Sender: jpn@panda.UUCP Lines: 1544 Approved: jpn@panda.UUCP Mod.sources: Volume 3, Issue 38 Submitted by: J.D.Aplevich #!/bin/sh # This is a shell archive, meaning: # 1. Remove everything above the #!/bin/sh line. # 2. Save the resulting text in a file. # 3. Execute the file with /bin/sh (not csh) to create the files: # gfloat # This archive created: Tue Oct 29 20:29:25 1985 export PATH; PATH=/bin:$PATH if test ! -d 'gfloat' then mkdir 'gfloat' fi cd 'gfloat' if test ! -d 'f77' then mkdir 'f77' fi cd 'f77' if test ! -d 'src' then mkdir 'src' fi cd 'src' if test ! -d 'f1' then mkdir 'f1' fi cd 'f1' if test -f 'local2.c.diff' then echo shar: over-writing existing file "'local2.c.diff'" fi cat << \SHAR_EOF > 'local2.c.diff' *** ../f77/src/f1/local2.c.orig Tue Oct 29 15:16:24 1985 --- ../f77/src/f1/local2.c Tue Oct 29 15:21:37 1985 *************** *** 77,82 printf( "%s", q->opstring ); /* tbl if( f == 'F' ) printf( "e" ); else if( f == 'D' ) printf( "d" ); tbl */ /* tbl */ --- 77,83 ----- printf( "%s", q->opstring ); /* tbl if( f == 'F' ) printf( "e" ); + #ifndef GFLOAT else if( f == 'D' ) printf( "d" ); #else GFLOAT else if( f == 'D' ) printf( "g" ); *************** *** 78,83 /* tbl if( f == 'F' ) printf( "e" ); else if( f == 'D' ) printf( "d" ); tbl */ /* tbl */ switch( f ) { --- 79,87 ----- if( f == 'F' ) printf( "e" ); #ifndef GFLOAT else if( f == 'D' ) printf( "d" ); + #else GFLOAT + else if( f == 'D' ) printf( "g" ); + #endif GFLOAT tbl */ /* tbl */ switch( f ) { *************** *** 84,89 case 'L': case 'W': case 'B': case 'D': case 'F': printf("%c", tolower(f)); --- 88,97 ----- case 'L': case 'W': case 'B': + #ifdef GFLOAT + printf("%c", tolower(f)); + break; + #endif GFLOAT case 'D': #ifdef GFLOAT printf("g"); *************** *** 85,90 case 'W': case 'B': case 'D': case 'F': printf("%c", tolower(f)); break; --- 93,102 ----- break; #endif GFLOAT case 'D': + #ifdef GFLOAT + printf("g"); + break; + #endif GFLOAT case 'F': printf("%c", tolower(f)); break; *************** *** 143,148 tp = p->in.type; tq = q->in.type; return( (tp==FLOAT || tp==DOUBLE) != (tq==FLOAT || tq==DOUBLE) ); } --- 155,161 ----- tp = p->in.type; tq = q->in.type; + #ifndef GFLOAT return( (tp==FLOAT || tp==DOUBLE) != (tq==FLOAT || tq==DOUBLE) ); #else GFLOAT *************** *** 145,150 return( (tp==FLOAT || tp==DOUBLE) != (tq==FLOAT || tq==DOUBLE) ); } prtype(n) NODE *n; --- 158,167 ----- #ifndef GFLOAT return( (tp==FLOAT || tp==DOUBLE) != (tq==FLOAT || tq==DOUBLE) ); + #else GFLOAT + return( ((tp==FLOAT || tp==DOUBLE) != (tq==FLOAT || tq==DOUBLE)) || + (tp==FLOAT && tq==DOUBLE) || (tp==DOUBLE && tq==FLOAT) ); + #endif GFLOAT } prtype(n) NODE *n; *************** *** 152,157 switch (n->in.type) { case DOUBLE: printf("d"); return; --- 169,175 ----- switch (n->in.type) { case DOUBLE: + #ifndef GFLOAT printf("d"); #else GFLOAT printf("g"); *************** *** 153,158 { case DOUBLE: printf("d"); return; case FLOAT: --- 171,179 ----- case DOUBLE: #ifndef GFLOAT printf("d"); + #else GFLOAT + printf("g"); + #endif GFLOAT return; case FLOAT: *************** *** 386,391 if (xdebug) printf("->%d<-", ty); if ( ty==DOUBLE) printf("d"); else if ( ty==FLOAT ) printf("f"); else printf("l"); --- 407,413 ----- if (xdebug) printf("->%d<-", ty); + #ifndef GFLOAT if ( ty==DOUBLE) printf("d"); #else GFLOAT if ( ty==DOUBLE) printf("g"); *************** *** 387,392 if (xdebug) printf("->%d<-", ty); if ( ty==DOUBLE) printf("d"); else if ( ty==FLOAT ) printf("f"); else printf("l"); return; --- 409,417 ----- #ifndef GFLOAT if ( ty==DOUBLE) printf("d"); + #else GFLOAT + if ( ty==DOUBLE) printf("g"); + #endif GFLOAT else if ( ty==FLOAT ) printf("f"); else printf("l"); return; *************** *** 483,488 rmove( rt, rs, t ){ printf( " %s %s,%s\n", (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")), rnames[rs], rnames[rt] ); } --- 508,514 ----- rmove( rt, rs, t ){ printf( " %s %s,%s\n", + #ifndef GFLOAT (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")), #else GFLOAT (t==FLOAT ? "movf" : (t==DOUBLE ? "movg" : "movl")), *************** *** 484,489 rmove( rt, rs, t ){ printf( " %s %s,%s\n", (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")), rnames[rs], rnames[rt] ); } --- 510,518 ----- printf( " %s %s,%s\n", #ifndef GFLOAT (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")), + #else GFLOAT + (t==FLOAT ? "movf" : (t==DOUBLE ? "movg" : "movl")), + #endif GFLOAT rnames[rs], rnames[rt] ); } SHAR_EOF chmod +x 'local2.c.diff' if test -f 'otable.c.diff' then echo shar: over-writing existing file "'otable.c.diff'" fi cat << \SHAR_EOF > 'otable.c.diff' *** ../f77/src/f1/otable.c.orig Tue Oct 29 15:16:27 1985 --- ../f77/src/f1/otable.c Tue Oct 29 15:21:44 1985 *************** *** 45,50 SAREG|AWD, TDOUBLE, SANY, TFLOAT, NAREG|NASL, RESC1|RESCC, " cvtdf AL,A1\n", SCONV, INTAREG|FORCC, --- 45,51 ----- SAREG|AWD, TDOUBLE, SANY, TFLOAT, NAREG|NASL, RESC1|RESCC, + #ifndef GFLOAT " cvtdf AL,A1\n", #else GFLOAT " cvtgf AL,A1\n", *************** *** 46,51 SANY, TFLOAT, NAREG|NASL, RESC1|RESCC, " cvtdf AL,A1\n", SCONV, INTAREG|FORCC, SAREG|AWD, ANYSIGNED|TUNSIGNED|TULONG|TFLOAT, --- 47,55 ----- NAREG|NASL, RESC1|RESCC, #ifndef GFLOAT " cvtdf AL,A1\n", + #else GFLOAT + " cvtgf AL,A1\n", + #endif GFLOAT SCONV, INTAREG|FORCC, SAREG|AWD, ANYSIGNED|TUNSIGNED|TULONG|TFLOAT, *************** *** 70,75 SAREG|AWD, TUCHAR|TUSHORT, SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, " movzZLl AL,A1\n cvtld A1,A1\n", SCONV, INTAREG|FORCC, --- 74,80 ----- SAREG|AWD, TUCHAR|TUSHORT, SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, + #ifndef GFLOAT " movzZLl AL,A1\n cvtld A1,A1\n", #else GFLOAT " movzZLl AL,A1\n cvtlg A1,A1\n", *************** *** 71,76 SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, " movzZLl AL,A1\n cvtld A1,A1\n", SCONV, INTAREG|FORCC, SAREG|AWD, TFLOAT|TDOUBLE, --- 76,84 ----- NAREG|NASL, RESC1|RESCC, #ifndef GFLOAT " movzZLl AL,A1\n cvtld A1,A1\n", + #else GFLOAT + " movzZLl AL,A1\n cvtlg A1,A1\n", + #endif GFLOAT SCONV, INTAREG|FORCC, SAREG|AWD, TFLOAT|TDOUBLE, *************** *** 229,234 SAREG|AWD, TDOUBLE, SAREG|AWD, TDOUBLE, 0, RESCC, " cmpd AL,AR\nZP", OPLOG, FORCC, --- 237,243 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TDOUBLE, 0, RESCC, + #ifndef GFLOAT " cmpd AL,AR\nZP", #else GFLOAT " cmpg AL,AR\nZP", *************** *** 230,235 SAREG|AWD, TDOUBLE, 0, RESCC, " cmpd AL,AR\nZP", OPLOG, FORCC, SAREG|AWD, TDOUBLE, --- 239,247 ----- 0, RESCC, #ifndef GFLOAT " cmpd AL,AR\nZP", + #else GFLOAT + " cmpg AL,AR\nZP", + #endif GFLOAT OPLOG, FORCC, SAREG|AWD, TDOUBLE, *************** *** 235,240 SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESCC, " cvtfd AR,A1\n cmpd AL,A1\nZP", OPLOG, FORCC, --- 247,253 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESCC, + #ifndef GFLOAT " cvtfd AR,A1\n cmpd AL,A1\nZP", #else GFLOAT " cvtfg AR,A1\n cmpg AL,A1\nZP", *************** *** 236,241 SAREG|AWD, TFLOAT, NAREG|NASR, RESCC, " cvtfd AR,A1\n cmpd AL,A1\nZP", OPLOG, FORCC, SAREG|AWD, TFLOAT, --- 249,257 ----- NAREG|NASR, RESCC, #ifndef GFLOAT " cvtfd AR,A1\n cmpd AL,A1\nZP", + #else GFLOAT + " cvtfg AR,A1\n cmpg AL,A1\nZP", + #endif GFLOAT OPLOG, FORCC, SAREG|AWD, TFLOAT, *************** *** 241,246 SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESCC, " cvtfd AL,A1\n cmpd A1,AR\nZP", OPLOG, FORCC, --- 257,263 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESCC, + #ifndef GFLOAT " cvtfd AL,A1\n cmpd A1,AR\nZP", #else GFLOAT " cvtfg AL,A1\n cmpg A1,AR\nZP", *************** *** 242,247 SAREG|AWD, TDOUBLE, NAREG|NASL, RESCC, " cvtfd AL,A1\n cmpd A1,AR\nZP", OPLOG, FORCC, SAREG|AWD, TFLOAT, --- 259,267 ----- NAREG|NASL, RESCC, #ifndef GFLOAT " cvtfd AL,A1\n cmpd A1,AR\nZP", + #else GFLOAT + " cvtfg AL,A1\n cmpg A1,AR\nZP", + #endif GFLOAT OPLOG, FORCC, SAREG|AWD, TFLOAT, *************** *** 260,265 SCON, TANY, SANY, TFLOAT, NAREG|NASL, RESC1, " calls ZC,CL\n cvtdf r0,r0\n", UNARY CALL, INTAREG, --- 280,286 ----- SCON, TANY, SANY, TFLOAT, NAREG|NASL, RESC1, + #ifndef GFLOAT " calls ZC,CL\n cvtdf r0,r0\n", #else GFLOAT " calls ZC,CL\n cvtgf r0,r0\n", *************** *** 261,266 SANY, TFLOAT, NAREG|NASL, RESC1, " calls ZC,CL\n cvtdf r0,r0\n", UNARY CALL, INTAREG, SCON, TANY, --- 282,290 ----- NAREG|NASL, RESC1, #ifndef GFLOAT " calls ZC,CL\n cvtdf r0,r0\n", + #else GFLOAT + " calls ZC,CL\n cvtgf r0,r0\n", + #endif GFLOAT UNARY CALL, INTAREG, SCON, TANY, *************** *** 440,445 SANY, TANY, SAREG, TDOUBLE, 2*NTEMP, RESC1, " movd AR,A1\n", REG, INTEMP, --- 464,470 ----- SANY, TANY, SAREG, TDOUBLE, 2*NTEMP, RESC1, + #ifndef GFLOAT " movd AR,A1\n", #else GFLOAT " movg AR,A1\n", *************** *** 441,446 SAREG, TDOUBLE, 2*NTEMP, RESC1, " movd AR,A1\n", REG, INTEMP, SANY, TANY, --- 466,474 ----- 2*NTEMP, RESC1, #ifndef GFLOAT " movd AR,A1\n", + #else GFLOAT + " movg AR,A1\n", + #endif GFLOAT REG, INTEMP, SANY, TANY, *************** *** 453,458 SANY, TANY, SAREG, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", REG, FORARG, --- 481,487 ----- SANY, TANY, SAREG, TFLOAT, 0, RNULL, + #ifndef GFLOAT " cvtfd AR,-(sp)\n", #else GFLOAT " cvtfg AR,-(sp)\n", *************** *** 454,459 SAREG, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", REG, FORARG, SANY, TANY, --- 483,491 ----- 0, RNULL, #ifndef GFLOAT " cvtfd AR,-(sp)\n", + #else GFLOAT + " cvtfg AR,-(sp)\n", + #endif GFLOAT REG, FORARG, SANY, TANY, *************** *** 508,513 SANY, TANY, SANY, TDOUBLE, 0, RNULL, " movd AR,-(sp)\n", OPLTYPE, FORARG, --- 540,546 ----- SANY, TANY, SANY, TDOUBLE, 0, RNULL, + #ifndef GFLOAT " movd AR,-(sp)\n", #else GFLOAT " movg AR,-(sp)\n", *************** *** 509,514 SANY, TDOUBLE, 0, RNULL, " movd AR,-(sp)\n", OPLTYPE, FORARG, SANY, TANY, --- 542,550 ----- 0, RNULL, #ifndef GFLOAT " movd AR,-(sp)\n", + #else GFLOAT + " movg AR,-(sp)\n", + #endif GFLOAT OPLTYPE, FORARG, SANY, TANY, *************** *** 514,519 SANY, TANY, SANY, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", #ifdef FORT --- 550,556 ----- SANY, TANY, SANY, TFLOAT, 0, RNULL, + #ifndef GFLOAT " cvtfd AR,-(sp)\n", #else GFLOAT " cvtfg AR,-(sp)\n", *************** *** 515,520 SANY, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", #ifdef FORT UNARY MINUS, INTAREG|FORCC, --- 552,560 ----- 0, RNULL, #ifndef GFLOAT " cvtfd AR,-(sp)\n", + #else GFLOAT + " cvtfg AR,-(sp)\n", + #endif GFLOAT #ifdef FORT UNARY MINUS, INTAREG|FORCC, *************** *** 770,775 SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG, RLEFT|RESCC, " cvtfd AR,A1\n OD2 A1,AL\n", ASG OPFLOAT, INAREG|INTAREG|FOREFF|FORCC, --- 810,816 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG, RLEFT|RESCC, + #ifndef GFLOAT " cvtfd AR,A1\n OD2 A1,AL\n", #else GFLOAT " cvtfg AR,A1\n OD2 A1,AL\n", *************** *** 771,776 SAREG|AWD, TFLOAT, NAREG, RLEFT|RESCC, " cvtfd AR,A1\n OD2 A1,AL\n", ASG OPFLOAT, INAREG|INTAREG|FOREFF|FORCC, SAREG|AWD, TFLOAT, --- 812,820 ----- NAREG, RLEFT|RESCC, #ifndef GFLOAT " cvtfd AR,A1\n OD2 A1,AL\n", + #else GFLOAT + " cvtfg AR,A1\n OD2 A1,AL\n", + #endif GFLOAT ASG OPFLOAT, INAREG|INTAREG|FOREFF|FORCC, SAREG|AWD, TFLOAT, *************** *** 776,781 SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG, RLEFT|RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", OPFLOAT, INAREG|INTAREG|FORCC, --- 820,826 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG, RLEFT|RESC1|RESCC, + #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", #else GFLOAT " cvtfg AL,A1\n OD2 AR,A1\n cvtgf A1,AL\n", *************** *** 777,782 SAREG|AWD, TDOUBLE, NAREG, RLEFT|RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", OPFLOAT, INAREG|INTAREG|FORCC, STAREG, TDOUBLE, --- 822,830 ----- NAREG, RLEFT|RESC1|RESCC, #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", + #else GFLOAT + " cvtfg AL,A1\n OD2 AR,A1\n cvtgf A1,AL\n", + #endif GFLOAT OPFLOAT, INAREG|INTAREG|FORCC, STAREG, TDOUBLE, *************** *** 794,799 SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n", OPFLOAT, INAREG|INTAREG|FORCC, --- 842,848 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESC1|RESCC, + #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n", #else GFLOAT " cvtfg AL,A1\n OD2 AR,A1\n", *************** *** 795,800 SAREG|AWD, TDOUBLE, NAREG|NASL, RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n", OPFLOAT, INAREG|INTAREG|FORCC, SAREG|AWD, TDOUBLE, --- 844,852 ----- NAREG|NASL, RESC1|RESCC, #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n", + #else GFLOAT + " cvtfg AL,A1\n OD2 AR,A1\n", + #endif GFLOAT OPFLOAT, INAREG|INTAREG|FORCC, SAREG|AWD, TDOUBLE, *************** *** 800,805 SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESC1|RESCC, " cvtfd AR,A1\n OD3 A1,AL,A1\n", #ifdef FORT --- 852,858 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESC1|RESCC, + #ifndef GFLOAT " cvtfd AR,A1\n OD3 A1,AL,A1\n", #else GFLOAT " cvtfg AR,A1\n OD3 A1,AL,A1\n", *************** *** 801,806 SAREG|AWD, TFLOAT, NAREG|NASR, RESC1|RESCC, " cvtfd AR,A1\n OD3 A1,AL,A1\n", #ifdef FORT OPFLOAT, INAREG|INTAREG|FORCC, --- 854,862 ----- NAREG|NASR, RESC1|RESCC, #ifndef GFLOAT " cvtfd AR,A1\n OD3 A1,AL,A1\n", + #else GFLOAT + " cvtfg AR,A1\n OD3 A1,AL,A1\n", + #endif GFLOAT #ifdef FORT OPFLOAT, INAREG|INTAREG|FORCC, *************** *** 820,825 SAREG|AWD, TFLOAT, SAREG|AWD, TFLOAT, NAREG|NASL|NASR, RESC1|RESCC, " OF3 AR,AL,A1\n cvtfd A1,A1\n", #endif --- 876,882 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TFLOAT, NAREG|NASL|NASR, RESC1|RESCC, + #ifndef GFLOAT " OF3 AR,AL,A1\n cvtfd A1,A1\n", #else GFLOAT " OF3 AR,AL,A1\n cvtfg A1,A1\n", *************** *** 821,826 SAREG|AWD, TFLOAT, NAREG|NASL|NASR, RESC1|RESCC, " OF3 AR,AL,A1\n cvtfd A1,A1\n", #endif /* Default actions for hard trees ... */ --- 878,886 ----- NAREG|NASL|NASR, RESC1|RESCC, #ifndef GFLOAT " OF3 AR,AL,A1\n cvtfd A1,A1\n", + #else GFLOAT + " OF3 AR,AL,A1\n cvtfg A1,A1\n", + #endif GFLOAT #endif /* Default actions for hard trees ... */ SHAR_EOF chmod +x 'otable.c.diff' if test -f 'Makefile.diff' then echo shar: over-writing existing file "'Makefile.diff'" fi cat << \SHAR_EOF > 'Makefile.diff' *** ../f77/src/f1/Makefile.orig Tue Oct 29 15:16:21 1985 --- ../f77/src/f1/Makefile Tue Oct 29 15:21:54 1985 *************** *** 2,8 # CFLAGS = -O -DASSTRINGS -DSTABDOT -DLCOMM -DBUFSTDERR -DFLEXNAMES \ ! -I$M -I. DEST = $(DESTROOT)/lib --- 2,8 ----- # CFLAGS = -O -DASSTRINGS -DSTABDOT -DLCOMM -DBUFSTDERR -DFLEXNAMES \ ! -DGFLOAT -I$M -I. DEST = $(DESTROOT)/lib SHAR_EOF chmod +x 'Makefile.diff' if test -f 'table.c.diff' then echo shar: over-writing existing file "'table.c.diff'" fi cat << \SHAR_EOF > 'table.c.diff' *** ../f77/src/f1/table.c.orig Tue Oct 29 15:16:28 1985 --- ../f77/src/f1/table.c Tue Oct 29 15:21:50 1985 *************** *** 89,94 SAREG|AWD, TDOUBLE, SANY, TFLOAT, NAREG|NASL, RESC1|RESCC, " cvtdf AL,A1\n", SCONV, INTAREG|FORCC, --- 89,95 ----- SAREG|AWD, TDOUBLE, SANY, TFLOAT, NAREG|NASL, RESC1|RESCC, + #ifndef GFLOAT " cvtdf AL,A1\n", #else GFLOAT " cvtgf AL,A1\n", *************** *** 90,95 SANY, TFLOAT, NAREG|NASL, RESC1|RESCC, " cvtdf AL,A1\n", SCONV, INTAREG|FORCC, SAREG|AWD, ANYSIGNED|TUNSIGNED|TULONG|TFLOAT, --- 91,99 ----- NAREG|NASL, RESC1|RESCC, #ifndef GFLOAT " cvtdf AL,A1\n", + #else GFLOAT + " cvtgf AL,A1\n", + #endif GFLOAT SCONV, INTAREG|FORCC, SAREG|AWD, ANYSIGNED|TUNSIGNED|TULONG|TFLOAT, *************** *** 108,113 SAREG|AWD, ANYSIGNED|TUNSIGNED|TULONG|TFLOAT, SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, " cvtZLd AL,A1\n", SCONV, INTAREG|FORCC, --- 112,118 ----- SAREG|AWD, ANYSIGNED|TUNSIGNED|TULONG|TFLOAT, SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, + #ifndef GFLOAT " cvtZLd AL,A1\n", #else GFLOAT " cvtZLg AL,A1\n", *************** *** 109,114 SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, " cvtZLd AL,A1\n", SCONV, INTAREG|FORCC, SAREG|AWD, TUCHAR|TUSHORT, --- 114,122 ----- NAREG|NASL, RESC1|RESCC, #ifndef GFLOAT " cvtZLd AL,A1\n", + #else GFLOAT + " cvtZLg AL,A1\n", + #endif GFLOAT SCONV, INTAREG|FORCC, SAREG|AWD, TUCHAR|TUSHORT, *************** *** 114,119 SAREG|AWD, TUCHAR|TUSHORT, SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, " movzZLl AL,A1\n cvtld A1,A1\n", SCONV, INTAREG|FORCC, --- 122,128 ----- SAREG|AWD, TUCHAR|TUSHORT, SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, + #ifndef GFLOAT " movzZLl AL,A1\n cvtld A1,A1\n", #else GFLOAT " movzZLl AL,A1\n cvtlg A1,A1\n", *************** *** 115,120 SANY, TFLOAT|TDOUBLE, NAREG|NASL, RESC1|RESCC, " movzZLl AL,A1\n cvtld A1,A1\n", SCONV, INTAREG|FORCC, SAREG|AWD, TFLOAT|TDOUBLE, --- 124,132 ----- NAREG|NASL, RESC1|RESCC, #ifndef GFLOAT " movzZLl AL,A1\n cvtld A1,A1\n", + #else GFLOAT + " movzZLl AL,A1\n cvtlg A1,A1\n", + #endif GFLOAT SCONV, INTAREG|FORCC, SAREG|AWD, TFLOAT|TDOUBLE, *************** *** 273,278 SAREG|AWD, TDOUBLE, SAREG|AWD, TDOUBLE, 0, RESCC, " cmpd AL,AR\nZP", OPLOG, FORCC, --- 285,291 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TDOUBLE, 0, RESCC, + #ifndef GFLOAT " cmpd AL,AR\nZP", #else GFLOAT " cmpg AL,AR\nZP", *************** *** 274,279 SAREG|AWD, TDOUBLE, 0, RESCC, " cmpd AL,AR\nZP", OPLOG, FORCC, SAREG|AWD, TDOUBLE, --- 287,295 ----- 0, RESCC, #ifndef GFLOAT " cmpd AL,AR\nZP", + #else GFLOAT + " cmpg AL,AR\nZP", + #endif GFLOAT OPLOG, FORCC, SAREG|AWD, TDOUBLE, *************** *** 279,284 SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESCC, " cvtfd AR,A1\n cmpd AL,A1\nZP", OPLOG, FORCC, --- 295,301 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESCC, + #ifndef GFLOAT " cvtfd AR,A1\n cmpd AL,A1\nZP", #else GFLOAT " cvtfg AR,A1\n cmpg AL,A1\nZP", *************** *** 280,285 SAREG|AWD, TFLOAT, NAREG|NASR, RESCC, " cvtfd AR,A1\n cmpd AL,A1\nZP", OPLOG, FORCC, SAREG|AWD, TFLOAT, --- 297,305 ----- NAREG|NASR, RESCC, #ifndef GFLOAT " cvtfd AR,A1\n cmpd AL,A1\nZP", + #else GFLOAT + " cvtfg AR,A1\n cmpg AL,A1\nZP", + #endif GFLOAT OPLOG, FORCC, SAREG|AWD, TFLOAT, *************** *** 285,290 SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESCC, " cvtfd AL,A1\n cmpd A1,AR\nZP", OPLOG, FORCC, --- 305,311 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESCC, + #ifndef GFLOAT " cvtfd AL,A1\n cmpd A1,AR\nZP", #else GFLOAT " cvtfg AL,A1\n cmpg A1,AR\nZP", *************** *** 286,291 SAREG|AWD, TDOUBLE, NAREG|NASL, RESCC, " cvtfd AL,A1\n cmpd A1,AR\nZP", OPLOG, FORCC, SAREG|AWD, TFLOAT, --- 307,315 ----- NAREG|NASL, RESCC, #ifndef GFLOAT " cvtfd AL,A1\n cmpd A1,AR\nZP", + #else GFLOAT + " cvtfg AL,A1\n cmpg A1,AR\nZP", + #endif GFLOAT OPLOG, FORCC, SAREG|AWD, TFLOAT, *************** *** 484,489 SANY, TANY, SAREG, TDOUBLE, 2*NTEMP, RESC1, " movd AR,A1\n", REG, INTEMP, --- 508,514 ----- SANY, TANY, SAREG, TDOUBLE, 2*NTEMP, RESC1, + #ifndef GFLOAT " movd AR,A1\n", #else GFLOAT " movg AR,A1\n", *************** *** 485,490 SAREG, TDOUBLE, 2*NTEMP, RESC1, " movd AR,A1\n", REG, INTEMP, SANY, TANY, --- 510,518 ----- 2*NTEMP, RESC1, #ifndef GFLOAT " movd AR,A1\n", + #else GFLOAT + " movg AR,A1\n", + #endif GFLOAT REG, INTEMP, SANY, TANY, *************** *** 497,502 SANY, TANY, SAREG, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", REG, FORARG, --- 525,531 ----- SANY, TANY, SAREG, TFLOAT, 0, RNULL, + #ifndef GFLOAT " cvtfd AR,-(sp)\n", #else GFLOAT " cvtfg AR,-(sp)\n", *************** *** 498,503 SAREG, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", REG, FORARG, SANY, TANY, --- 527,535 ----- 0, RNULL, #ifndef GFLOAT " cvtfd AR,-(sp)\n", + #else GFLOAT + " cvtfg AR,-(sp)\n", + #endif GFLOAT REG, FORARG, SANY, TANY, *************** *** 552,557 SANY, TANY, SANY, TDOUBLE, 0, RNULL, " movd AR,-(sp)\n", OPLTYPE, FORARG, --- 584,590 ----- SANY, TANY, SANY, TDOUBLE, 0, RNULL, + #ifndef GFLOAT " movd AR,-(sp)\n", #else GFLOAT " movg AR,-(sp)\n", *************** *** 553,558 SANY, TDOUBLE, 0, RNULL, " movd AR,-(sp)\n", OPLTYPE, FORARG, SANY, TANY, --- 586,594 ----- 0, RNULL, #ifndef GFLOAT " movd AR,-(sp)\n", + #else GFLOAT + " movg AR,-(sp)\n", + #endif GFLOAT OPLTYPE, FORARG, SANY, TANY, *************** *** 558,563 SANY, TANY, SANY, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", #ifdef FORT --- 594,600 ----- SANY, TANY, SANY, TFLOAT, 0, RNULL, + #ifndef GFLOAT " cvtfd AR,-(sp)\n", #else GFLOAT " cvtfg AR,-(sp)\n", *************** *** 559,564 SANY, TFLOAT, 0, RNULL, " cvtfd AR,-(sp)\n", #ifdef FORT UNARY MINUS, INTAREG|FORCC, --- 596,604 ----- 0, RNULL, #ifndef GFLOAT " cvtfd AR,-(sp)\n", + #else GFLOAT + " cvtfg AR,-(sp)\n", + #endif GFLOAT #ifdef FORT UNARY MINUS, INTAREG|FORCC, *************** *** 814,819 SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG, RLEFT|RESCC, " cvtfd AR,A1\n OD2 A1,AL\n", ASG OPFLOAT, INAREG|INTAREG|FOREFF|FORCC, --- 854,860 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG, RLEFT|RESCC, + #ifndef GFLOAT " cvtfd AR,A1\n OD2 A1,AL\n", #else GFLOAT " cvtfg AR,A1\n OD2 A1,AL\n", *************** *** 815,820 SAREG|AWD, TFLOAT, NAREG, RLEFT|RESCC, " cvtfd AR,A1\n OD2 A1,AL\n", ASG OPFLOAT, INAREG|INTAREG|FOREFF|FORCC, SAREG|AWD, TFLOAT, --- 856,864 ----- NAREG, RLEFT|RESCC, #ifndef GFLOAT " cvtfd AR,A1\n OD2 A1,AL\n", + #else GFLOAT + " cvtfg AR,A1\n OD2 A1,AL\n", + #endif GFLOAT ASG OPFLOAT, INAREG|INTAREG|FOREFF|FORCC, SAREG|AWD, TFLOAT, *************** *** 820,825 SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG, RLEFT|RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", OPFLOAT, INAREG|INTAREG|FORCC, --- 864,870 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG, RLEFT|RESC1|RESCC, + #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", #else GFLOAT " cvtfg AL,A1\n OD2 AR,A1\n cvtgf A1,AL\n", *************** *** 821,826 SAREG|AWD, TDOUBLE, NAREG, RLEFT|RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", OPFLOAT, INAREG|INTAREG|FORCC, STAREG, TDOUBLE, --- 866,874 ----- NAREG, RLEFT|RESC1|RESCC, #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n", + #else GFLOAT + " cvtfg AL,A1\n OD2 AR,A1\n cvtgf A1,AL\n", + #endif GFLOAT OPFLOAT, INAREG|INTAREG|FORCC, STAREG, TDOUBLE, *************** *** 838,843 SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n", OPFLOAT, INAREG|INTAREG|FORCC, --- 886,892 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TDOUBLE, NAREG|NASL, RESC1|RESCC, + #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n", #else GFLOAT " cvtfg AL,A1\n OD2 AR,A1\n", *************** *** 839,844 SAREG|AWD, TDOUBLE, NAREG|NASL, RESC1|RESCC, " cvtfd AL,A1\n OD2 AR,A1\n", OPFLOAT, INAREG|INTAREG|FORCC, SAREG|AWD, TDOUBLE, --- 888,896 ----- NAREG|NASL, RESC1|RESCC, #ifndef GFLOAT " cvtfd AL,A1\n OD2 AR,A1\n", + #else GFLOAT + " cvtfg AL,A1\n OD2 AR,A1\n", + #endif GFLOAT OPFLOAT, INAREG|INTAREG|FORCC, SAREG|AWD, TDOUBLE, *************** *** 844,849 SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESC1|RESCC, " cvtfd AR,A1\n OD3 A1,AL,A1\n", #ifdef FORT --- 896,902 ----- SAREG|AWD, TDOUBLE, SAREG|AWD, TFLOAT, NAREG|NASR, RESC1|RESCC, + #ifndef GFLOAT " cvtfd AR,A1\n OD3 A1,AL,A1\n", #else GFLOAT " cvtfg AR,A1\n OD3 A1,AL,A1\n", *************** *** 845,850 SAREG|AWD, TFLOAT, NAREG|NASR, RESC1|RESCC, " cvtfd AR,A1\n OD3 A1,AL,A1\n", #ifdef FORT OPFLOAT, INAREG|INTAREG|FORCC, --- 898,906 ----- NAREG|NASR, RESC1|RESCC, #ifndef GFLOAT " cvtfd AR,A1\n OD3 A1,AL,A1\n", + #else GFLOAT + " cvtfg AR,A1\n OD3 A1,AL,A1\n", + #endif GFLOAT #ifdef FORT OPFLOAT, INAREG|INTAREG|FORCC, *************** *** 864,869 SAREG|AWD, TFLOAT, SAREG|AWD, TFLOAT, NAREG|NASL|NASR, RESC1|RESCC, " OF3 AR,AL,A1\n cvtfd A1,A1\n", #endif --- 920,926 ----- SAREG|AWD, TFLOAT, SAREG|AWD, TFLOAT, NAREG|NASL|NASR, RESC1|RESCC, + #ifndef GFLOAT " OF3 AR,AL,A1\n cvtfd A1,A1\n", #else GFLOAT " OF3 AR,AL,A1\n cvtfg A1,A1\n", *************** *** 865,870 SAREG|AWD, TFLOAT, NAREG|NASL|NASR, RESC1|RESCC, " OF3 AR,AL,A1\n cvtfd A1,A1\n", #endif /* Default actions for hard trees ... */ --- 922,930 ----- NAREG|NASL|NASR, RESC1|RESCC, #ifndef GFLOAT " OF3 AR,AL,A1\n cvtfd A1,A1\n", + #else GFLOAT + " OF3 AR,AL,A1\n cvtfg A1,A1\n", + #endif GFLOAT #endif /* Default actions for hard trees ... */ SHAR_EOF chmod +x 'table.c.diff' chdir .. if test ! -d 'f2' then mkdir 'f2' fi cd 'f2' if test -f 'c22.c.diff' then echo shar: over-writing existing file "'c22.c.diff'" fi cat << \SHAR_EOF > 'c22.c.diff' 35a36 > #ifndef GFLOAT 36a38,40 > #else GFLOAT > "acbg",T(ACB,DOUBLE), > #endif GFLOAT 41a46 > #ifndef GFLOAT 43a49,52 > #else GFLOAT > "addg2",T(ADD,U(DOUBLE,OP2)), > "addg3",T(ADD,U(DOUBLE,OP3)), > #endif GFLOAT 102a112 > #ifndef GFLOAT 103a114,116 > #else GFLOAT > "clrg",T(CLR,DOUBLE), > #endif GFLOAT 108a122 > #ifndef GFLOAT 109a124,126 > #else GFLOAT > "cmpg",T(CMP,DOUBLE), > #endif GFLOAT 112a130 > #ifndef GFLOAT 113a132,134 > #else GFLOAT > "cvtbg",T(CVT,U(BYTE,DOUBLE)), > #endif GFLOAT 116a138 > #ifndef GFLOAT 120a143,148 > #else GFLOAT > "cvtgb",T(CVT,U(DOUBLE,BYTE)), > "cvtgf",T(CVT,U(DOUBLE,FLOAT)), > "cvtgl",T(CVT,U(DOUBLE,LONG)), > "cvtgw",T(CVT,U(DOUBLE,WORD)), > #endif GFLOAT 121a150 > #ifndef GFLOAT 122a152,154 > #else GFLOAT > "cvtfg",T(CVT,U(FLOAT,DOUBLE)), > #endif GFLOAT 125a158 > #ifndef GFLOAT 126a160,162 > #else GFLOAT > "cvtlg",T(CVT,U(LONG,DOUBLE)), > #endif GFLOAT 128a165 > #ifndef GFLOAT 129a167,169 > #else GFLOAT > "cvtrgl",T(CVT,U(DOUBLE,LONG)), > #endif GFLOAT 131a172 > #ifndef GFLOAT 132a174,176 > #else GFLOAT > "cvtwg",T(CVT,U(WORD,DOUBLE)), > #endif GFLOAT 139a184 > #ifndef GFLOAT 141a187,190 > #else GFLOAT > "divg2",T(DIV,U(DOUBLE,OP2)), > "divg3",T(DIV,U(DOUBLE,OP3)), > #endif GFLOAT 158a208 > #ifndef GFLOAT 159a210,212 > #else GFLOAT > "mnegg",T(NEG,DOUBLE), > #endif GFLOAT 163a217 > #ifndef GFLOAT 164a219,221 > #else GFLOAT > "movag",T(MOVA,DOUBLE), > #endif GFLOAT 169a227 > #ifndef GFLOAT 170a229,231 > #else GFLOAT > "movg",T(MOV,DOUBLE), > #endif GFLOAT 179a241 > #ifndef GFLOAT 181a244,247 > #else GFLOAT > "mulg2",T(MUL,U(DOUBLE,OP2)), > "mulg3",T(MUL,U(DOUBLE,OP3)), > #endif GFLOAT 188a255 > #ifndef GFLOAT 189a257,259 > #else GFLOAT > "pushag",T(PUSHA,DOUBLE), > #endif GFLOAT 199a270 > #ifndef GFLOAT 201a273,276 > #else GFLOAT > "subg2",T(SUB,U(DOUBLE,OP2)), > "subg3",T(SUB,U(DOUBLE,OP3)), > #endif GFLOAT 208a284 > #ifndef GFLOAT 209a286,288 > #else GFLOAT > "tstg",T(TST,DOUBLE), > #endif GFLOAT 266a346 > #ifndef GFLOAT 267a348,350 > #else GFLOAT > "emodg",0, > #endif GFLOAT 284a368 > #ifndef GFLOAT 285a370,372 > #else GFLOAT > "polyg",0, > #endif GFLOAT SHAR_EOF chmod +x 'c22.c.diff' if test -f 'Makefile.diff' then echo shar: over-writing existing file "'Makefile.diff'" fi cat << \SHAR_EOF > 'Makefile.diff' 4c4 < CFLAGS = -w -DCOPYCODE --- > CFLAGS = -w -DCOPYCODE -DGFLOAT SHAR_EOF chmod +x 'Makefile.diff' chdir .. chdir .. chdir .. chdir .. # End of shell archive exit 0