d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added a check for unresolved references

Browse source
This commit is contained in:
ceriel 1987-01-29 17:13:37 +00:00
parent 59a08bb733
commit bfb89ae937
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mach/i80/dl/mccpm.c
View file

@ -41,6 +41,9 @@ convert ()
int i;
rd_ohead(&head);
if (head.oh_flags & HF_LINK) {
fatal("%s contains unresolved references\n",s);
}
rd_sect(sect, head.oh_nsect);
for (i = 0; i < head.oh_nsect; i++) {
rd_outsect(i);
@ -107,8 +110,9 @@ int b;
}
fatal (s,a)
char *s, *a;
{
printf (s,a);
fprintf (stderr,s,a);
exit (-1);
}

9
mach/i80/dl/nascom.c
View file

@ -2,6 +2,7 @@
* Download Z80 load module into the NASCOM
*
* Johan Stevenson, Vrije Universiteit, Amsterdam
* Adapted (untested) to new ack.out format by
* Ceriel Jacobs, Vrije Universiteit, Amsterdam
*/
#include <stdio.h>
@ -63,11 +64,11 @@ main(argc,argv) char **argv; {
if (argc == 2)
s = argv[1];
else if (argc != 1) {
fprintf(stderr,"usage: %s [flags] [object file]\n",argv[0]);
fprintf(stderr,"usage: %s [flags] [object file]\n",progname);
stop(-1);
}
if (! rd_open(s)) {
fprintf(stderr,"%s: can't open %s\n",argv[0],s);
fprintf(stderr,"%s: can't open %s\n",progname,s);
stop(-1);
}
if (nascom) {
@ -88,6 +89,10 @@ main(argc,argv) char **argv; {
sleep(5);
}
rd_ohead(&ohead);
if (ohead.oh_flags & HF_LINK) {
fprintf(stderr,"%s: %s contains unresolved references\n",progname,s);
stop(-1);
}
rd_sect(sect, ohead.oh_nsect);
for (i = 0; i < ohead.oh_nsect; i++) {
rd_outsect(i);