URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [fortran/] [gfortranspec.c] - Diff between revs 285 and 378

Rev 285	Rev 378
Line 413...	Line 413...
`{`	`{`
`append_arg (argv[i]); /* Interesting. Just append as is. */`	`append_arg (argv[i]); /* Interesting. Just append as is. */`
`continue;`	`continue;`
`}`	`}`

`if ((argv[i][0] == '-') && (argv[i][1] == 'M'))`
`{`
`char *p;`

`fprintf (stderr, _("Warning: Using -M <directory> is deprecated, "`
`"use -J instead\n"));`
`if (argv[i][2] == '\0')`
`{`
`if (i+1 < argc)`
`{`
`p = XNEWVEC (char, strlen (argv[i + 1]) + 3);`
`p[0] = '-';`
`p[1] = 'J';`
`strcpy (&p[2], argv[i + 1]);`
`i++;`
`}`
`else`
`fatal ("argument to '%s' missing", argv[i]);`
`}`
`else`
`{`
`p = XNEWVEC (char, strlen (argv[i]) + 1);`
`p[0] = '-';`
`p[1] = 'J';`
`strcpy (&p[2], argv[i] + 2);`
`}`
`append_arg (p);`
`continue;`
`}`

`if ((argv[i][0] == '-') && (argv[i][1] != 'l'))`	`if ((argv[i][0] == '-') && (argv[i][1] != 'l'))`
`{`	`{`
`/* Not a filename or library. */`	`/* Not a filename or library. */`

`if (saw_library == 1 && need_math) /* -l<library>. */`	`if (saw_library == 1 && need_math) /* -l<library>. */`