X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FSDCCpeeph.c;h=29942d3d7fc192df62773bab7583a89a12e8fa9e;hb=60cb2e605644de2556d5b30c29ab62c566b96d1e;hp=0a263f41d6d4732e3f4320824e86e6de70bfc54d;hpb=72e493829a61304f219af0a2a296e28a8c7d5331;p=fw%2Fsdcc

diff --git a/src/SDCCpeeph.c b/src/SDCCpeeph.c
index 0a263f41..29942d3d 100644
--- a/src/SDCCpeeph.c
+++ b/src/SDCCpeeph.c
@@ -211,7 +211,8 @@ pcDistance (lineNode * cpos, char *lbl, bool back)
 /*-----------------------------------------------------------------*/
 FBYNAME (flat24bitModeAndPortDS390)
 {
-    return ((strcmp(port->target,"ds390") == 0) && 
+    return (((strcmp(port->target,"ds390") == 0) ||
+	     (strcmp(port->target,"ds400") == 0)) && 
 	    (options.model == MODEL_FLAT24));
 }
 
@@ -220,7 +221,8 @@ FBYNAME (flat24bitModeAndPortDS390)
 /*-----------------------------------------------------------------*/
 FBYNAME (portIsDS390)
 {
-    return (strcmp(port->target,"ds390") == 0);
+    return ((strcmp(port->target,"ds390") == 0) ||
+	    (strcmp(port->target,"ds400") == 0));
 }
 
 /*-----------------------------------------------------------------*/