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

*** empty log message ***

Browse source
This commit is contained in:
ceriel 1987-02-05 14:11:46 +00:00
parent 49b619cec2
commit 10f6d88ba1
3 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
util/led/Makefile
View file

@ -29,6 +29,8 @@ led: $(OFILES)
install:led install:led
cp led $(LIBDIR)/em_led cp led $(LIBDIR)/em_led
cp led.6 $(EM)/man/led.6
cp ack.out.5 $(EM)/man/ack.out.5
cmp: led cmp: led
cmp led $(LIBDIR)/em_led cmp led $(LIBDIR)/em_led

1
util/led/const.h
View file

@ -10,6 +10,7 @@ typedef int bool;
#define RFLAG 0x01 /* -r flag given. */ #define RFLAG 0x01 /* -r flag given. */
#define SFLAG 0x02 /* -s flag given. */ #define SFLAG 0x02 /* -s flag given. */
#define CFLAG 0x04 /* -c flag given. */
#define PLAIN 0 /* Input file is a normal file. */ #define PLAIN 0 /* Input file is a normal file. */
#define ARCHIVE 1 /* Input file is an archive. */ #define ARCHIVE 1 /* Input file is an archive. */

10
util/led/main.c
View file

@ -131,6 +131,13 @@ first_pass(argv)
fatal("usage: -b<section number>:<base>"); fatal("usage: -b<section number>:<base>");
setbase(sectno, number(++argp)); setbase(sectno, number(++argp));
break; break;
case 'c':
/*
* Might be used in combination with 'r', to produce
* relocatable output, but handle commons now.
*/
flagword |= CFLAG;
break;
#ifndef NDEBUG #ifndef NDEBUG
case 'd': case 'd':
DEB = 1; DEB = 1;
@ -413,10 +420,11 @@ complete_sections()
outsect[sectindex].os_foff = foff; outsect[sectindex].os_foff = foff;
foff += outsect[sectindex].os_flen; foff += outsect[sectindex].os_flen;
if (flagword & RFLAG) if ((flagword & RFLAG) && !(flagword & CFLAG))
continue; continue;
outsect[sectindex].os_size += sect_comm[sectindex]; outsect[sectindex].os_size += sect_comm[sectindex];
if (flagword & RFLAG)
outsect[sectindex].os_lign = outsect[sectindex].os_lign =
tstbit(sectindex, lignmap) ? sect_lign[sectindex] : 1; tstbit(sectindex, lignmap) ? sect_lign[sectindex] : 1;
if (tstbit(sectindex, basemap)) { if (tstbit(sectindex, basemap)) {