Quick Search:

Mode

Context

Displaying 3 lines of context. None | Less | More | Full

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.19
 
1.20
 
MAIN:sgk:20081225000659
 
f77.c
_>110110 static flag fortonly    = NO;
 111111 static flag macroflag   = NO;
 112112 
<>113 -char *setdoto(char *), *lastchar(char *), *lastfield(char *);
 114 -ptr ckalloc(int);
 115 -void intrupt(int);
 116 -void enbint(void (*k)(int));
 117 -void crfnames(void);
  113+static char *setdoto(char *), *lastchar(char *), *lastfield(char *);
  114+static void intrupt(int);
  115+static void enbint(void (*)(int));
  116+static void crfnames(void);
118117 static void fatal1(char *, ...);
<>119 -void done(int), texec(char *, char **);
  118+static void done(int), texec(char *, char **);
120119 static char *copyn(int, char *);
<>121 -int dotchar(char *), unreadable(char *), sys(char *), dofort(char *);
 122 -int nodup(char *), dopass2(void);
 123 -int await(int);
 124 -void rmf(char *), doload(char *[], char *[]), doasm(char *);
 125 -static int callsys(char f[], char *v[]);
 126 -static void errorx(char *fmt, ...);
  120+static int dotchar(char *), unreadable(char *), sys(char *), dofort(char *);
  121+static int nodup(char *);
  122+static int await(int);
  123+static void rmf(char *), doload(char *[], char *[]), doasm(char *);
  124+static int callsys(char *, char **);
  125+static void errorx(char *, ...);
127126 
<>128 -
129127 static void
 130128 addarg(char **ary, int *num, char *arg)
 131129 {
     
 !
140138 main(int argc, char **argv)
 141139 {
 142140         int i, c, status;
<>143 -        register char *s;
  141+        char *s;
144142         char fortfile[20], *t;
 145143         char buff[100];
 146144 
     
 !
153151         pid = getpid();
 154152         crfnames();
 155153 
<>156 -        loadargs = (char **) ckalloc( (argc+20) * sizeof(*loadargs) );
  154+        loadargs = (char **)calloc(1, (argc + 20) * sizeof(*loadargs));
  155+        if (!loadargs)
  156+                fatal1("out of memory");
157157         loadp = loadargs;
 158158 
 159159         --argc;
     
 !
378378 
 379379 #define ADD(x)  addarg(params, &nparms, (x))
 380380 
<>381 -int
  381+static int
382382 dofort(char *s)
 383383 {
 384384         int nparms, i;
     
 !
403403 }
 404404 
 405405 
<>406 -void
  406+static void
407407 doasm(char *s)
 408408 {
 409409         char *obj;
     
 !
429429 }
 430430 
 431431 
<>432 -
 433 -void
  432+static void
434433 doload(char *v0[], char *v[])
 435434 {
 436435         int nparms, i;
     
 !
472471  * Execute f[] with parameter array v[].
 473472  * Copied from cc.
 474473  */
<>475 -int
  474+static int
476475 callsys(char f[], char *v[])
 477476 {
 478477         int t, status = 0;
     
 !
524523 }
 525524 
 526525 
<>527 -int
  526+static int
528527 sys(char *str)
 529528 {
<>530 -        register char *s, *t;
  529+        char *s, *t;
531530         char *argv[100], path[100];
 532531         char *inname, *outname;
 533532         int append = 0;
     
 !
595594 }
 596595 
 597596 /* modified version from the Shell */
<>598 -void
  597+static void
599598 texec(char *f, char **av)
 600599 {
 601600 
     
 !
613612 /*
 614613  * Cleanup and exit with value k.
 615614  */
<>616 -void
  615+static void
617616 done(int k)
 618617 {
 619618         static int recurs       = NO;
     
 !
627626 }
 628627 
 629628 
<>630 -void
 631 -enbint(k)
 632 -void (*k)(int);
  629+static void
  630+enbint(void (*k)(int))
633631 {
 634632 if(sigivalue == 0)
 635633         signal(SIGINT,k);
     
 !
639637 
 640638 
 641639 
<>642 -void
  640+static void
643641 intrupt(int a)
 644642 {
 645643 done(2);
 646644 }
 647645 
 648646 
<>649 -int
 650 -await(wait_pid)
 651 -int wait_pid;
  647+static int
  648+await(int wait_pid)
652649 {
 653650 int w, status;
 654651 
     
 !
668665 
 669666 /* File Name and File Manipulation Routines */
 670667 
<>671 -int
  668+static int
672669 unreadable(char *s)
 673670 {
 674671         FILE *fp;
     
 !
684681 }
 685682 
 686683 
<>687 -void
  684+static void
688685 crfnames(void)
 689686 {
 690687         sprintf(asmfname"fort%d.%s", pid, "s");
     
 !
693690 
 694691 
 695692 
<>696 -void
 697 -rmf(fn)
 698 -register char *fn;
  693+static void
  694+rmf(char *fn)
699695 {
 700696 if(!debugflag && fn!=NULL && *fn!='\0')
 701697         unlink(fn);
 702698 }
 703699 
 704700 
<>705 -int
 706 -dotchar(s)
 707 -register char *s;
  701+static int
  702+dotchar(char *s)
708703 {
 709704 for( ; *s ; ++s)
 710705         if(s[0]=='.' && s[1]!='\0' && s[2]=='\0')
     
 !
713708 }
 714709 
 715710 
<>716 -
 717 -char *lastfield(s)
 718 -register char *s;
  711+static char *
  712+lastfield(char *s)
719713 {
<>720 -register char *t;
  714+char *t;
721715 for(t = s; *s ; ++s)
 722716         if(*s == '/')
 723717                 t = s+1;
 724718 return(t);
 725719 }
 726720 
 727721 
<>728 -
 729 -char *lastchar(s)
 730 -register char *s;
  722+static char *
  723+lastchar(char *s)
731724 {
 732725 while(*s)
 733726         ++s;
 734727 return(s-1);
 735728 }
 736729 
<>737 -char *setdoto(s)
 738 -register char *s;
  730+
  731+static char *
  732+setdoto(char *s)
739733 {
 740734 *lastchar(s) = 'o';
 741735 return( lastfield(s) );
 742736 }
 743737 
 744738 
<>745 -ptr ckalloc(n)
 746 -int n;
 747 -{
 748 -ptr p;
 749 -
 750 -if( (p = calloc(1, (unsigned) n) ))
 751 -        return(p);
 752 -
 753 -fatal1("out of memory");
 754 -/* NOTREACHED */
 755 -return NULL;
 756 -}
 757 -
 758 -
759739 static char *
 760740 copyn(int n, char *s)
 761741 {
 762742         char *p, *q;
 763743 
<>764 -        p = q = (char *)ckalloc(n + 1);
  744+        p = q = (char *)calloc(1, (unsigned) n + 1);
  745+        if (!p)
  746+                fatal1("out of memory");
  747+
765748         while(n-- > 0)
 766749                 *q++ = *s++;
 767750         return (p);
 768751 }
 769752 
 770753 
<>771 -int
 772 -nodup(s)
 773 -char *s;
  754+static int
  755+nodup(char *s)
774756 {
<>775 -register char **p;
  757+char **p;
<_776758 
 777759 for(p = loadargs ; p < loadp ; ++p)
 778760         if( !strcmp(*p, s) )
FishEye: Open Source License registered to PCC.
Your maintenance has expired. You can renew your license at http://www.atlassian.com/fisheye/renew
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-10-31 08:43 +0100