G-format compilers for Ultrix/Unix Vaxes (2 of 4)
sources-request at panda.UUCP
sources-request at panda.UUCP
Mon Nov 11 07:03:31 AEST 1985
Mod.sources: Volume 3, Issue 38
Submitted by: J.D.Aplevich <decvax!watmath!watdcsu!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
More information about the Mod.sources
mailing list