Skip to content

Commit 9646366

Browse files
committed
Patch IRA to remove plenty of warnings.
1 parent 7757313 commit 9646366

File tree

5 files changed

+137
-0
lines changed

5 files changed

+137
-0
lines changed

patches/ira/Makefile.diff

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
--- ira/Makefile 2015-09-11 09:25:13.000000000 +0200
2+
+++ ira/Makefile 2015-09-11 09:21:37.000000000 +0200
3+
@@ -2,7 +2,7 @@
4+
EXT =
5+
CC = gcc
6+
CCOUT = -o
7+
-COPTS = -c -O2
8+
+COPTS = -c -O2 -Wall -Wno-pointer-sign
9+
LD = $(CC)
10+
LDOUT = $(CCOUT)
11+
LDFLAGS =

patches/ira/ira.c.diff

Lines changed: 73 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,73 @@
1+
--- ira/ira.c 2015-09-11 09:25:13.000000000 +0200
2+
+++ ira/ira.c 2015-09-11 09:19:33.000000000 +0200
3+
@@ -254,7 +254,7 @@
4+
if (baseoff > 0)
5+
fprintf(f,"+%hd,A%hu\n",baseoff,basereg);
6+
else if (baseoff < 0)
7+
- fprintf(f,"-%hd,A%hu\n",-baseoff,basereg);
8+
+ fprintf(f,"-%hd,A%hu\n",(WORD)-baseoff,basereg);
9+
else
10+
fprintf(f,",A%hu\n",basereg);
11+
}
12+
@@ -479,7 +479,7 @@
13+
FILE *configfile;
14+
ULONG machine;
15+
16+
- if (configfile=fopen(configname,"r")) {
17+
+ if ((configfile=fopen(configname,"r"))) {
18+
fclose(configfile);
19+
ExitPrg("Config file \"%s\" is already present! Remove it first.",
20+
configname);
21+
@@ -508,7 +508,7 @@
22+
if (pflags&BASEREG2) {
23+
fprintf(configfile,"BASEREG %u\n",(unsigned)basereg);
24+
fprintf(configfile,"BASEADR $%lX\n",(unsigned long)baseadr);
25+
- fprintf(configfile,"BASEOFF %h\n",baseoff);
26+
+ fprintf(configfile,"BASEOFF %hu\n",baseoff);
27+
}
28+
29+
for(i=0;i<SymbolCount;i++)
30+
@@ -648,7 +648,7 @@
31+
if (ptr1 && (ptr2 = strchr(ptr1+1,'$'))) stch_l(ptr2+1,&area2);
32+
if (ptr1 && ptr2 && (ptr3 = strchr(ptr2+1,'$'))) stch_l(ptr3+1,&base);
33+
if (ptr1 && ptr2) {
34+
- int sz;
35+
+ int sz = 0;
36+
37+
if (!ptr3) base = area1;
38+
if (area1<prgstart || area1>prgende || area2<prgstart || area2>prgende)
39+
@@ -1833,7 +1833,7 @@
40+
}
41+
42+
/* Labels fuer aktuelle Adresse schreiben */
43+
- if (LabelAdr2[p2labind]<adr && p2labind<labcount) fprintf(stderr,"%lx adr=%lx This=%?x\n",(unsigned long)p2labind,(unsigned long)adr,(unsigned long)LabelAdr2[p2labind]);
44+
+ if (LabelAdr2[p2labind]<adr && p2labind<labcount) fprintf(stderr,"%lx adr=%lx This=%lx\n",(unsigned long)p2labind,(unsigned long)adr,(unsigned long)LabelAdr2[p2labind]);
45+
if (LabelAdr2[p2labind]==adr && p2labind<labcount) {
46+
flag = 1;index=p2labind;
47+
while(LabelAdr2[p2labind]==adr && p2labind<labcount) {
48+
@@ -2806,7 +2806,7 @@
49+
if (!(strnicmp(odata,"OMPAT=",6))) {
50+
char c,*p = odata+6;
51+
52+
- while (c = *p++) {
53+
+ while ((c = *p++)) {
54+
switch (tolower((unsigned)c)) {
55+
case 'b': bitrange=1; break;
56+
case 'i': immedbyte=1; break;
57+
@@ -3657,7 +3657,6 @@
58+
STATIC int AutoScan(void)
59+
{
60+
FILE *file;
61+
-ULONG seg;
62+
ULONG dummy;
63+
64+
if (!(file = fopen(sourcename,"rb")))
65+
@@ -3710,7 +3709,7 @@
66+
if (pflags&SHOW_RELOCINFO) printf(" Unit : %s\n",StdName);
67+
68+
69+
- while (hunk = readbe32(sourcefile)) { /* Modulart (Code,Data,...) */
70+
+ while ((hunk = readbe32(sourcefile))) { /* Modulart (Code,Data,...) */
71+
72+
if ((hunk>>30) == 3)
73+
length = readbe32(sourcefile); /* Aufwaertskompatibel */

patches/ira/ira_2.c.diff

Lines changed: 42 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,42 @@
1+
--- ira/ira_2.c 2015-09-11 09:25:13.000000000 +0200
2+
+++ ira/ira_2.c 2015-09-11 09:17:20.000000000 +0200
3+
@@ -586,7 +588,7 @@
4+
5+
ULONG FileLength(UBYTE *name)
6+
{
7+
- LONG len;
8+
+ LONG len = 0;
9+
FILE *file;
10+
if (name) {
11+
if (!(file = fopen(name,"rb")))
12+
@@ -828,9 +830,9 @@
13+
}
14+
if (LabelAdr[r]!=adr) {
15+
fprintf(stderr,"ADR=%08lx not found! (mode=%d) relocount=%ld nextreloc=%ld\n",(unsigned long)adr,(int)adrmode,(long)relocount,(long)nextreloc);
16+
- fprintf(stderr,"LabelAdr[l=%lu]=%08lx\n",l,(unsigned long)LabelAdr[l]);
17+
- fprintf(stderr,"LabelAdr[m=%lu]=%08lx\n",m,(unsigned long)LabelAdr[m]);
18+
- fprintf(stderr,"LabelAdr[r=%lu]=%08lx\n\n",r,(unsigned long)LabelAdr[r]);
19+
+ fprintf(stderr,"LabelAdr[l=%u]=%08lx\n",l,(unsigned long)LabelAdr[l]);
20+
+ fprintf(stderr,"LabelAdr[m=%u]=%08lx\n",m,(unsigned long)LabelAdr[m]);
21+
+ fprintf(stderr,"LabelAdr[r=%u]=%08lx\n\n",r,(unsigned long)LabelAdr[r]);
22+
adrcat("LAB_");
23+
adrcat(itohex(adr,8));
24+
return;
25+
@@ -857,7 +859,7 @@
26+
}
27+
} else {
28+
if (!GetSymbol(LabelAdr[r2])) {
29+
- sprintf(buf,"LAB_%04lX",(unsigned)r);
30+
+ sprintf(buf,"LAB_%04X",(unsigned)r);
31+
adrcat(buf);
32+
}
33+
if ((dummy = LabelAdr[r2]-LabelAdr2[r])) {
34+
@@ -892,7 +894,7 @@
35+
}
36+
else {
37+
if (!GetSymbol(LabelAdr[r2])) {
38+
- sprintf(buf,"LAB_%04lX",(unsigned)r);
39+
+ sprintf(buf,"LAB_%04X",(unsigned)r);
40+
adrcat(buf);
41+
}
42+
if ((dummy = LabelAdr[r2]-LabelAdr2[r])) {

patches/ira/make.rules.diff

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
--- ira/make.rules 2015-09-11 09:25:13.000000000 +0200
2+
+++ ira/make.rules 2015-09-11 09:22:43.000000000 +0200
3+
@@ -18,6 +18,7 @@
4+
5+
clean:
6+
$(RM) ira$(OS)$(EXT) $(OBJS)
7+
+ $(RM) *~
8+
9+
FILES = ira_68k ira_mos ira_os4 ira.readme ira.doc ira.c ira.h ira_2.c \
10+
make.rules Makefile Makefile.mos Makefile.os3 Makefile.os4 \

toolchain-m68k

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -372,6 +372,7 @@ def build():
372372
make('{gcc}', 'install', MAKEINFO='makeinfo', CFLAGS_FOR_TARGET='-noixemul')
373373

374374
unpack('ira', top_dir='.', work_dir='{build}')
375+
patch('ira', work_dir='{build}')
375376
make('ira')
376377

377378
install_tools()

0 commit comments

Comments
 (0)