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

Subversion Repositories System09

[/] [System09/] [trunk/] [Tools/] [as09/] [util.c] - Diff between revs 74 and 83

Rev 74	Rev 83
Line 2...	Line 2...
`* fatal --- fatal error handler`	`* fatal --- fatal error handler`
`*/`	`*/`
`fatal(str)`	`fatal(str)`
`char *str;`	`char *str;`
`{`	`{`
`pouterror(); /* added ver TER_2.0 4 Jul 89 */`
`printf("%s\n",str);`	`printf("%s\n",str);`

`#ifdef IBM /* changed ver TER_2.0 */`	`#ifdef IBM /* changed ver TER_2.0 */`
`exit(-1);`	`exit(-1);`
`#else`	`#else`
Line 24...	Line 23...
`{`	`{`
`/* if(N_files > 1) commented out test for N_files in rel TER_2.0`	`/* if(N_files > 1) commented out test for N_files in rel TER_2.0`
`because a single command line source file`	`because a single command line source file`
`(which is what N_files counts) can have multiple`	`(which is what N_files counts) can have multiple`
`include source files. */`	`include source files. */`
`pouterror();`
`printf("%s\n",str);`	`printf("%s\n",str);`
`}`	`}`
`/*`	`/*`
`* warn --- trivial error in a line`	`* warn --- trivial error in a line`
`* print line number and error`	`* print line number and error`
Line 285...	Line 283...
`*/`	`*/`
`char *`	`char *`
`alloc(nbytes)`	`alloc(nbytes)`
`int nbytes;`	`int nbytes;`
`{`	`{`
`char *malloc();`

`return(malloc(nbytes));`	`return(malloc(nbytes));`
`}`	`}`

`/*`	`/*`
`* FNameGet --- Find a file name <file> or "file" in the Operand string`	`* FNameGet --- Find a file name <file> or "file" in the Operand string`