home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / f2c.lha / f2c_ami.zoo / f2csrc.diffs < prev    next >
Encoding:
C/C++ Source or Header  |  1992-05-08  |  4.5 KB  |  208 lines
  1. Only in f2c/src: amath.h
  2. Only in f2c/src: f2c
  3. Only in f2c/src: f2c.with
  4. diff -a -d +context f2c_org/src/formatdata.c f2c/src/formatdata.c
  5. *** f2c_org/src/formatdata.c    Mon Dec 10 15:21:42 1990
  6. --- f2c/src/formatdata.c    Sat Feb 02 12:28:57 1991
  7. ***************
  8. *** 860,865 ****
  9. --- 860,869 ----
  10.       extern int htype;
  11.       char *z;
  12.   
  13. + #ifdef AMIGA
  14. +   dL = 0;
  15. + #endif
  16. + 
  17.       /* add sentinel */
  18.       if (iscomm) {
  19.           L = extsymtab[memno].maxleng;
  20. Only in f2c/src: gram.c
  21. Only in f2c/src: makefile.gram
  22. diff -a -d +context f2c_org/src/malloc.c f2c/src/malloc.c
  23. *** f2c_org/src/malloc.c    Mon Dec 10 15:21:50 1990
  24. --- f2c/src/malloc.c    Sat Feb 02 12:35:36 1991
  25. ***************
  26. *** 45,51 ****
  27.   register unsigned size;
  28.   {
  29.       register struct mem *p, *q, *r, *s;
  30. !     unsigned register k, m;
  31.       extern char *sbrk();
  32.       char *top, *top1;
  33.   
  34. --- 45,51 ----
  35.   register unsigned size;
  36.   {
  37.       register struct mem *p, *q, *r, *s;
  38. !     register unsigned k, m;
  39.       extern char *sbrk();
  40.       char *top, *top1;
  41.   
  42. diff -a -d +context f2c_org/src/misc.c f2c/src/misc.c
  43. *** f2c_org/src/misc.c    Mon Dec 10 15:21:52 1990
  44. --- f2c/src/misc.c    Sat Feb 02 12:31:23 1991
  45. ***************
  46. *** 29,37 ****
  47.   {
  48.       if (stg == STGCOMMON && name) {
  49.           if ((mask & M(STGEQUIV)))
  50. !             return name->vcommequiv;
  51.           if ((mask & M(STGCOMMON)))
  52. !             return !name->vcommequiv;
  53.           }
  54.       return ONEOF(stg, mask);
  55.       }
  56. --- 29,37 ----
  57.   {
  58.       if (stg == STGCOMMON && name) {
  59.           if ((mask & M(STGEQUIV)))
  60. !             return (name->vcommequiv);
  61.           if ((mask & M(STGCOMMON)))
  62. !             return !(name->vcommequiv);
  63.           }
  64.       return ONEOF(stg, mask);
  65.       }
  66. Only in f2c/src: mklinks
  67. diff -a -d +context f2c_org/src/sysdep.c f2c/src/sysdep.c
  68. *** f2c_org/src/sysdep.c    Mon Dec 10 15:22:02 1990
  69. --- f2c/src/sysdep.c    Fri May 08 15:28:18 1992
  70. ***************
  71. *** 40,48 ****
  72. --- 40,52 ----
  73.   #ifdef MSDOS
  74.   #define TMPDIR ""
  75.   #else
  76. + #ifdef AMIGA
  77. + #define TMPDIR "T:"
  78. + #else
  79.   #define TMPDIR "/tmp"
  80.   #endif
  81.   #endif
  82. + #endif
  83.   
  84.   char *tmpdir = TMPDIR;
  85.   
  86. ***************
  87. *** 99,104 ****
  88. --- 103,132 ----
  89.       sprintf(p1_bakfile, "%sf2c_p1fb", t);
  90.       sprintf(sortfname, "%sf2c_sort", t);
  91.   #else
  92. + #ifdef AMIGA
  93. +     char buf[64], *s, *t;
  94. +     if (!*tmpdir || *tmpdir == '.' && !tmpdir[1])
  95. +         t = "";
  96. +     else {
  97. +         /* substitute \ for / to avoid confusion with a
  98. +          * switch indicator in the system("sort ...")
  99. +          * call in formatdata.c
  100. +          */
  101. +         for(s = tmpdir, t = buf; *s; s++, t++)
  102. +             if ((*t = *s) == '/')
  103. +                 *t = '\\';
  104. +         if (t[-1] != '\\')
  105. +             *t++ = '\\';
  106. +         *t = 0;
  107. +         t = buf;
  108. +         }
  109. +     sprintf(c_functions, "%sf2c_func", t);
  110. +     sprintf(initfname, "%sf2c_rd", t);
  111. +     sprintf(blkdfname, "%sf2c_blkd", t);
  112. +     sprintf(p1_file, "%sf2c_p1f", t);
  113. +     sprintf(p1_bakfile, "%sf2c_p1fb", t);
  114. +     sprintf(sortfname, "%sf2c_sort", t);
  115. + #else
  116.       int pid = getpid();
  117.       sprintf(c_functions, "%s/f2c%d_func", tmpdir, pid);
  118.       sprintf(initfname, "%s/f2c%d_rd", tmpdir, pid);
  119. ***************
  120. *** 107,112 ****
  121. --- 135,141 ----
  122.       sprintf(p1_bakfile, "%s/f2c%d_p1fb", tmpdir, pid);
  123.       sprintf(sortfname, "%s/f2c%d_sort", tmpdir, pid);
  124.   #endif
  125. + #endif
  126.       sprintf(initbname, "%s.b", initfname);
  127.       }
  128.       if (debugflag)
  129. ***************
  130. *** 145,151 ****
  131. --- 174,182 ----
  132.   #ifdef SIGHUP
  133.       signal(SIGHUP, SIG_IGN);
  134.   #endif
  135. + #ifndef AMIGA
  136.       signal(SIGTERM, SIG_IGN);
  137. + #endif
  138.       Un_link_all(1);
  139.       exit(126);
  140.       }
  141. ***************
  142. *** 178,184 ****
  143. --- 209,217 ----
  144.   #ifdef SIGHUP
  145.       sig1catch(SIGHUP);
  146.   #endif
  147. + #ifndef AMIGA
  148.       sig1catch(SIGTERM);
  149. + #endif
  150.       signal(SIGFPE, flovflo);  /* catch overflows */
  151.       }
  152.   
  153. ***************
  154. *** 188,193 ****
  155. --- 221,229 ----
  156.   #ifdef MSDOS
  157.       Fatal("Only one Fortran input file allowed under MS-DOS");
  158.   #else
  159. + #ifdef AMIGA
  160. +     Fatal("Only one Fortran input file allowed under AmigaDOS");
  161. + #else
  162.       int pid, status, w;
  163.       extern int retcode;
  164.   
  165. ***************
  166. *** 200,205 ****
  167. --- 236,242 ----
  168.               Fatal("bad wait code");
  169.       retcode |= status >> 8;
  170.   #endif
  171. + #endif
  172.       return 0;
  173.       }
  174.   
  175. ***************
  176. *** 359,365 ****
  177.   {
  178.       extern char *Alloc();
  179.   
  180. !     struct Memb {
  181.           struct Memb *next;
  182.           int n;
  183.           char buf[32000];
  184. --- 396,402 ----
  185.   {
  186.       extern char *Alloc();
  187.   
  188. !     static struct Memb {
  189.           struct Memb *next;
  190.           int n;
  191.           char buf[32000];
  192. Only in f2c/src: tokdefs.h
  193. diff -a -d +context f2c_org/src/usignal.h f2c/src/usignal.h
  194. *** f2c_org/src/usignal.h    Mon Dec 10 15:22:02 1990
  195. --- f2c/src/usignal.h    Fri May 08 14:35:49 1992
  196. ***************
  197. *** 1,7 ****
  198. --- 1,9 ----
  199.   #include <signal.h>
  200. + #ifndef AMIGA
  201.   #ifndef SIGHUP
  202.   #define    SIGHUP    1    /* hangup */
  203.   #endif
  204.   #ifndef SIGQUIT
  205.   #define    SIGQUIT    3    /* quit */
  206. + #endif
  207.   #endif
  208.