Changeset a8b81c2 in buchla-68k for ram

Timestamp:

11/12/2017 07:42:11 PM (6 years ago)

Author:

Thomas Lopatic <thomas@…>

Branches:

master

Children:

7c05959

Parents:

908b6ab

Message:

Fixed etres1.c.

File:

• ram/etres1.c (modified) (8 diffs)

ram/etres1.c

@@ -16 +16 @@
 int16_t et_res1(int16_t n)
 {
-        ebuf[0] = anrs[n][abs(angroup)-1];
+        ebuf[0] = (int8_t)anrs[n][abs(angroup)-1];
         ebflag = TRUE;
         return(SUCCESS);
@@ -48 +48 @@
                 if (E_NULL NE (ep = findev(p_cur, t_cur, EV_ANRS, vg, -1))) {
 
-                        ep->e_data2 = ival;
+                        ep->e_data2 = (int8_t)ival;
 
                 } else if (E_NULL NE (ep = e_alc(E_SIZE2))) {
 
                         ep->e_type  = EV_ANRS;
-                        ep->e_data1 = vg;
-                        ep->e_data2 = ival;
+                        ep->e_data1 = (int8_t)vg;
+                        ep->e_data2 = (int8_t)ival;
                         ep->e_time  = t_cur;
                         p_cur = e_ins(ep, ep_adj(p_cur, 0, t_cur))->e_fwd;
@@ -99 +99 @@
         (void)n;
 
-        ebuf[0] = k;
+        ebuf[0] = (int8_t)k;
 
         if (v_regs[5] & 0x0180)
@@ -135 +135 @@
 
         val1 = val / 100;
-        ebuf[4] = (val - (val1 * 100)) / 10;
+        ebuf[4] = (int8_t)((val - (val1 * 100)) / 10);
         val2 = val1 / 10;
-        ebuf[2] = val1 - (val2 * 10);
-        ebuf[1] = val2;
+        ebuf[2] = (int8_t)(val1 - (val2 * 10));
+        ebuf[1] = (int8_t)val2;
 
         ebflag = TRUE;
@@ -183 +183 @@
 
                         ep->e_type  = EV_ANVL;
-                        ep->e_data1 = vg;
+                        ep->e_data1 = (int8_t)vg;
                         ep->e_dn    = (struct s_entry *)((int32_t)val << 16);
                         ep->e_time  = t_cur;
@@ -223 +223 @@
 
         val1 = val / 100;
-        buf[4] = '0' + ((val - (val1 * 100)) / 10);
+        buf[4] = (int8_t)('0' + ((val - (val1 * 100)) / 10));
         val2 = val1 / 10;
-        buf[2] = '0' + (val1 - (val2 * 10));
-        buf[1] = '0' + val2;
+        buf[2] = (int8_t)('0' + (val1 - (val2 * 10)));
+        buf[1] = (int8_t)('0' + val2);
         buf[3] = '.';
         buf[5] = '\0';
@@ -255 +255 @@
                 return(FAILURE);
 
-        ebuf[ec] = k;
+        ebuf[ec] = (int8_t)k;
 
         if (ec EQ 0)
@@ -355 +355 @@
         ec = stccol - cfetp->flcol;
 
-        ebuf[ec] = k + '0';
+        ebuf[ec] = (int8_t)(k + '0');
 
         if (v_regs[5] & 0x0180)