home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BUGS128-C.ARC / BUGS128.C
Text File  |  2019-04-13  |  2KB  |  50 lines
  1. /**************************************************************
  2. * ╘HE FOLLOWING PROGRAM DEMOSTRATES TWO POSSIBLE BUGS WITHIN  *
  3. * THE ├-╨OWER 128 LANGUAGE. ╔ WOULD ASSUME THE BUGS ARE LOCAL *
  4. * TO THE COMPILER OR TRANSLATOR, BUT DON'T KNOW A LOT ABOUT   *
  5. * THE INTERNAL WORKINGS OF ├.                                 *
  6. *                                                             *
  7. *   ┬UG 1: NEGATIVE VALUES ASSIGNED TO STATIC FLOATING POINT  *
  8. *          VARIABLES WHEN DEFINED AREN'T STORED AS NEGATIVE   *
  9. *          VALUES.                                            *
  10. *                                                             *
  11. *   ┬UG 2: THE CONVERSION FROM A FLOAT TO AN INT DOESN'T WORK *
  12. *          IT DOES, HOWEVER, WORK FOR FLOAT TO UNSIGNED OR    *
  13. *          FLOAT TO INT IF THE (UNSIGNED) CAST IS USED.       *
  14. *          SINCE IT IS UNSIGNED, THOUGH NEGATIVE FLOATS       *
  15. *          CAUSE A RUNTIME ERROR.                             *
  16. **************************************************************/
  17.  
  18. MAIN()
  19. █
  20.     STATIC FLOAT SF = -2.0;    /* ├OMPILER ┬╒╟? - ╠OSES NEGATIVE SIGN */
  21.     STATIC FLOAT LSF[] = █-1.,-2.,-3.▌;   /* SAME THING */
  22.     UNSIGNED U;
  23.     INT I;
  24.     FLOAT F;
  25.  
  26.     PRINTF("SF= %F\N",SF);
  27.     FOR (U=0; U<3; U++)
  28.         PRINTF("LSF[%D]=%F\N",U,LSF[U]);
  29.  
  30.     SF = -3.9;                  /* NOTE THAT THIS WORKS */
  31.     PRINTF("SF= %F\N",SF);
  32.  
  33.     F = 2.47;
  34.     I = F;          /* ├OMPILER ┬╒╟? - ├ONVERSION DOESN'T WORK */
  35.     PRINTF("I= %D\N",I);
  36.  
  37.     I = (INT) F;    /* STILL DOESN'T WORK */
  38.     PRINTF("I= %D\N",I);
  39.  
  40.     I = (UNSIGNED) F;   /* THIS WORKS FOR ONLY F > 0 */
  41.     PRINTF("I= %D\N",I);
  42.  
  43.     U = F;          /* THIS WORKS FOR ONLY F > 0 */
  44.     PRINTF("U= %U\N",U);
  45.  
  46.     F = -F;
  47.     I = (UNSIGNED) F;   /* THIS WON'T WORK NOW - STOPS W/RUNTIME ERROR */
  48.     PRINTF("I= %D\N",I);
  49. ▌
  50.