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

made more portable

Browse source
This commit is contained in:
ceriel 1988-04-21 18:53:31 +00:00
parent e0d31020c8
commit fd4bda4865
4 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
util/led/memory.c
View file

@ -377,6 +377,11 @@ alloc(piece, size)
return full;
if (size != (ind_t)size)
return BADOFF;
switch(piece) {
case ALLOMODL:
case ALLORANL:
size = int_align(size);
}
if (size - left > 0)
incr = ((size - left + (INCRSIZE - 1)) / INCRSIZE) * INCRSIZE;

2
util/led/memory.h
View file

@ -35,6 +35,8 @@ extern struct memory mems[];
#define address(piece,offset) (mems[(piece)].mem_base+(offset))
#define modulptr(offset) (mems[ALLOMODL].mem_base+core_position+(offset))
#define int_align(sz) (((sz)+(sizeof(int)-1))&~(sizeof(int)-1))
extern ind_t core_position;
extern ind_t hard_alloc();
extern ind_t alloc();

6
util/led/save.c
View file

@ -26,9 +26,9 @@ savemagic()
if (!incore)
return;
if ((p = core_alloc(ALLOMODL, (long)sizeof(ushort))) != (char *)0) {
if ((p = core_alloc(ALLOMODL, (long)sizeof(int))) != (char *)0) {
*(ushort *)p = AALMAG;
core_position += sizeof(ushort);
core_position += sizeof(int);
}
}
@ -42,7 +42,7 @@ savehdr(hdr)
if ((p=core_alloc(ALLOMODL,(long)sizeof(struct ar_hdr)))!=(char *)0) {
*(struct ar_hdr *)p = *hdr;
core_position += sizeof(struct ar_hdr);
core_position += int_align(sizeof(struct ar_hdr));
}
}

12
util/led/scan.c
View file

@ -104,8 +104,8 @@ getfile(filename)
if (strcmp(archive_header.ar_name, SYMDEF))
fatal("no table of contents");
} else if (incore) {
modulbase += sizeof(ushort);
core_position += sizeof(ushort);
modulbase += sizeof(int);
core_position += sizeof(int);
}
return ARCHIVE;
default:
@ -130,8 +130,8 @@ get_archive_header(archive_header)
} else {
/* Copy structs. */
*archive_header = *(struct ar_hdr *)modulbase;
modulbase += sizeof(struct ar_hdr);
core_position += sizeof(struct ar_hdr);
modulbase += int_align(sizeof(struct ar_hdr));
core_position += int_align(sizeof(struct ar_hdr));
}
#ifdef SYMDBUG
objectsize = archive_header.ar_size;
@ -408,9 +408,9 @@ skip_modul(head)
register ind_t skip = modulsize(head);
if (incore) {
core_position += skip;
core_position += int_align(skip);
if (passnumber == SECOND)
modulbase += skip;
modulbase += int_align(skip);
} else {
dealloc(ALLOMODL);
core_position = (ind_t)0;