From: ggn <ggn.dbug@gmail.com>
Date: Wed, 27 Apr 2016 19:58:42 +0000 (+0300)
Subject: When selecting ST .o output (-fa), don't write a .prg but an object file instead.
X-Git-Tag: v2.1.0~163
X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=commitdiff_plain;h=ae7127773aa49608da898bb9f9a0e5f87a3c1816

When selecting ST .o output (-fa), don't write a .prg but an object file instead.
---

diff --git a/object.c b/object.c
index 82fc76a..590f263 100644
--- a/object.c
+++ b/object.c
@@ -228,9 +228,8 @@ int WriteObject(int fd)
 	}
 
 	// Write requested object file...
-	switch (obj_format)
-	{
-	case BSD:
+	if (obj_format==BSD || (obj_format==ALCYON && prg_flag==0))
+    {
 		if (verb_flag)
 		{
 			printf("Total       : %d bytes\n", sect[TEXT].sloc + sect[DATA].sloc + sect[BSS].sloc);
@@ -312,9 +311,9 @@ int WriteObject(int fd)
 		if (buf)
 			free(buf);					// Free allocated memory
 
-		break;
-
-	case ALCYON:
+    }
+    else if (obj_format==ALCYON)
+    {
 		if (verb_flag)
 		{
 			if (prg_flag)
@@ -400,7 +399,6 @@ int WriteObject(int fd)
 		 */
 		tds = markimg(buf, tds, sect[TEXT].sloc, 1);
 		write(fd, buf, tds);
-		break;
 	}
 
 	return 0;