From: jesusc <jesusc@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Fri, 20 Jun 2003 22:00:53 +0000 (+0000)
Subject: If a procedure is the last on the list, make sure its size is correct
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=92918ab00299efad3446d5d902eb25b3b0468b63;p=fw%2Fsdcc

If a procedure is the last on the list, make sure its size is correct


git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@2713 4a8a32a2-be11-0410-ad9d-d568d2c75423
---

diff --git a/ChangeLog b/ChangeLog
index a7154e60..4f971d36 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-20  Jesus Calvino-Fraga <jesusc@ece.ubc.ca>
+
+	* as/mcs51/aomf51.c: Make sure the size of the last procedure is correct.
+
 2003-06-19  Borut Razem <borut.razem@siol.net>
 
 	* src/z80/main.c: fixed Z80 port again: missing -k library paths in linker command line
diff --git a/as/mcs51/lkaomf51.c b/as/mcs51/lkaomf51.c
index fa4611c6..fa009e77 100644
--- a/as/mcs51/lkaomf51.c
+++ b/as/mcs51/lkaomf51.c
@@ -378,6 +378,7 @@ void OutputAOEMF51(void)
 
 				/*Content Record*/
 				OutputByte(0x06);/*REC TYPE*/
+				if(procedure[k].EndAdd==-1) procedure[k].EndAdd=HexSize;
 				recsize=procedure[k].EndAdd-procedure[k].BeginAdd+1+4;
 				OutputWord(recsize);/*Record Length*/
 				OutputByte(0x00);/*SEG ID*/