Changeset 7258c6a in buchla-68k for ram/librw.c


Ignore:
Timestamp:
07/09/2017 04:45:34 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
8618599
Parents:
0292fbb
Message:

Use standard integer types.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ram/librw.c

    r0292fbb r7258c6a  
    4242#endif
    4343
    44 extern  char    *slotnam(unsigned slot, unsigned kind);
    45 
    46 extern  long    chksum(char *area, long len);
    47 
    48 extern  short   ldslot, lderrsw, lrasw;
    49 extern  short   tunlib[][128];
    50 
    51 extern  long    lcsum, schksum, sntlreq;
    52 
    53 extern  char    tunname[][32];
    54 extern  char    ldfile[9];
    55 extern  char    ldcmnt[38];
     44extern  int8_t  *slotnam(uint16_t slot, uint16_t kind);
     45
     46extern  int32_t chksum(int8_t *area, int32_t len);
     47
     48extern  int16_t ldslot, lderrsw, lrasw;
     49extern  int16_t tunlib[][128];
     50
     51extern  int32_t lcsum, schksum, sntlreq;
     52
     53extern  int8_t  tunname[][32];
     54extern  int8_t  ldfile[9];
     55extern  int8_t  ldcmnt[38];
    5656
    5757extern  struct  mlibhdr ldhead;
    … …  
    7171*/
    7272
    73 short wrt_asg(short slot)
    74 {
    75         register FILE *fp;
    76         register int    i;
    77         char cstemp[8];
     73int16_t wrt_asg(int16_t slot)
     74{
     75        register FILE *fp;
     76        register int16_t        i;
     77        int8_t cstemp[8];
    7878
    7979        preio();        /* kill LCD backlight */
    … …  
    8484
    8585                ldermsg("Couldn't create a file",
    86                         " for the assignments", (char *)NULL,
     86                        " for the assignments", (int8_t *)NULL,
    8787                        LD_EMCF, LD_EMCB);
    8888
    … …  
    9595
    9696        for (i = 0; i < NASGLIB; i++)
    97                 lcsum += chksum(&asgtab[i + 1], (long)(sizeof (struct asgent)));
     97                lcsum += chksum(&asgtab[i + 1], (int32_t)(sizeof (struct asgent)));
    9898
    9999        sprintf(cstemp, "%08.8lX", lcsum);
    … …  
    108108
    109109*/
    110         if (wr_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     110        if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    111111
    112112                streset();
    … …  
    116116        for (i = 0; i < NASGLIB; i++) {
    117117
    118                 if (wr_ec(fp, &asgtab[i + 1], (long)(sizeof (struct asgent)))) {
     118                if (wr_ec(fp, &asgtab[i + 1], (int32_t)(sizeof (struct asgent)))) {
    119119
    120120                        streset();
    … …  
    138138*/
    139139
    140 short get_asg(void)
    141 {
    142         register FILE *fp;
    143         register int    i;
     140int16_t get_asg(void)
     141{
     142        register FILE *fp;
     143        register int16_t        i;
    144144
    145145        preio();        /* kill LCD backlight */
    … …  
    150150
    151151                ldermsg("Couldn't open the file",
    152                         " for the assignments", (char *)NULL,
     152                        " for the assignments", (int8_t *)NULL,
    153153                        LD_EMCF, LD_EMCB);
    154154
    … …  
    166166
    167167*/
    168         if (rd_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     168        if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    169169
    170170                clrlsel();
    … …  
    180180        for (i = 0; i < NASGLIB; i++) {
    181181
    182                 if (rd_ec(fp, &asgtab[i + 1], (long)(sizeof (struct asgent)))) {
     182                if (rd_ec(fp, &asgtab[i + 1], (int32_t)(sizeof (struct asgent)))) {
    183183
    184184                        clrlsel();
    … …  
    203203*/
    204204
    205 short wrt_orc(short slot, short lorh)
    206 {
    207         register FILE *fp;
    208         register int    i;
     205int16_t wrt_orc(int16_t slot, int16_t lorh)
     206{
     207        register FILE *fp;
     208        register int16_t        i;
    209209        register struct instdef *ip;
    210         char cstemp[8];
     210        int8_t cstemp[8];
    211211
    212212        if (lorh)
    … …  
    222222
    223223                ldermsg("Couldn't create a file",
    224                         " for the orchestra", (char *)NULL,
     224                        " for the orchestra", (int8_t *)NULL,
    225225                        LD_EMCF, LD_EMCB);
    226226
    … …  
    236236                ip = &idefs[i + 1 + (lorh ? NINORC : 0)];
    237237
    238                 lcsum += chksum(ip, (long)OR_LEN1);
    239                 lcsum += chksum(ip->idhwvao, (long)OR_LEN2);
    240                 lcsum += chksum(ip->idhwvbo, (long)OR_LEN2);
     238                lcsum += chksum(ip, (int32_t)OR_LEN1);
     239                lcsum += chksum(ip->idhwvao, (int32_t)OR_LEN2);
     240                lcsum += chksum(ip->idhwvbo, (int32_t)OR_LEN2);
    241241        }
    242242
    … …  
    252252
    253253*/
    254         if (wr_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     254        if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    255255
    256256                streset();
    … …  
    262262                ip = &idefs[i + 1 + (lorh ? NINORC : 0)];
    263263
    264                 if (wr_ec(fp, ip, (long)OR_LEN1)) {             /* functions */
     264                if (wr_ec(fp, ip, (int32_t)OR_LEN1)) {          /* functions */
    265265
    266266                        streset();
    … …  
    268268                }
    269269
    270                 if (wr_ec(fp, ip->idhwvao, (long)OR_LEN2)) {    /* WS A */
     270                if (wr_ec(fp, ip->idhwvao, (int32_t)OR_LEN2)) { /* WS A */
    271271
    272272                        streset();
    … …  
    274274                }
    275275
    276                 if (wr_ec(fp, ip->idhwvbo, (long)OR_LEN2)) {    /* WS B */
     276                if (wr_ec(fp, ip->idhwvbo, (int32_t)OR_LEN2)) { /* WS B */
    277277
    278278                        streset();
    … …  
    296296*/
    297297
    298 short get_orc(short lorh, short kind)
    299 {
    300         register FILE *fp;
    301         register int    i;
     298int16_t get_orc(int16_t lorh, int16_t kind)
     299{
     300        register FILE *fp;
     301        register int16_t        i;
    302302        register struct instdef *ip;
    303303
    … …  
    314314
    315315                ldermsg("Couldn't open the file",
    316                         " for the orchestra", (char *)NULL,
     316                        " for the orchestra", (int8_t *)NULL,
    317317                        LD_EMCF, LD_EMCB);
    318318
    … …  
    330330
    331331*/
    332         if (rd_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     332        if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    333333
    334334                clrlsel();
    … …  
    346346                ip = &idefs[i + 1 + (lorh ? NINORC : 0)];
    347347
    348                 if (rd_ec(fp, ip, (long)OR_LEN1)) {             /* functions */
     348                if (rd_ec(fp, ip, (int32_t)OR_LEN1)) {          /* functions */
    349349
    350350                        clrlsel();
    … …  
    352352                }
    353353
    354                 if (rd_ec(fp, ip->idhwvao, (long)OR_LEN2)) {    /* WS A */
     354                if (rd_ec(fp, ip->idhwvao, (int32_t)OR_LEN2)) { /* WS A */
    355355
    356356                        clrlsel();
    … …  
    358358                }
    359359
    360                 if (rd_ec(fp, ip->idhwvbo, (long)OR_LEN2)) {    /* WS B */
     360                if (rd_ec(fp, ip->idhwvbo, (int32_t)OR_LEN2)) { /* WS B */
    361361
    362362                        clrlsel();
    … …  
    386386*/
    387387
    388 short wrt_tun(short slot)
    389 {
    390         register FILE *fp;
    391         register int    i;
    392         char cstemp[8];
     388int16_t wrt_tun(int16_t slot)
     389{
     390        register FILE *fp;
     391        register int16_t        i;
     392        int8_t cstemp[8];
    393393
    394394        preio();        /* kill LCD backlight */
    … …  
    399399
    400400                ldermsg("Couldn't create a file",
    401                         " for the tunings", (char *)NULL,
     401                        " for the tunings", (int8_t *)NULL,
    402402                        LD_EMCF, LD_EMCB);
    403403
    … …  
    426426
    427427*/
    428         if (wr_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     428        if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    429429
    430430                streset();
    … …  
    462462*/
    463463
    464 short get_tun(void)
    465 {
    466         register FILE *fp;
    467         register int    i;
     464int16_t get_tun(void)
     465{
     466        register FILE *fp;
     467        register int16_t        i;
    468468
    469469        preio();        /* kill LCD backlight */
    … …  
    474474
    475475                ldermsg("Couldn't open the file",
    476                         " for the tunings", (char *)NULL,
     476                        " for the tunings", (int8_t *)NULL,
    477477                        LD_EMCF, LD_EMCB);
    478478
    … …  
    490490
    491491*/
    492         if (rd_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     492        if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    493493
    494494                clrlsel();
    … …  
    533533*/
    534534
    535 short wrt_pat(short slot)
    536 {
    537         register FILE *fp;
    538         char cstemp[8];
     535int16_t wrt_pat(int16_t slot)
     536{
     537        register FILE *fp;
     538        int8_t cstemp[8];
    539539
    540540        preio();        /* kill LCD backlight */
    … …  
    545545
    546546                ldermsg("Couldn't create a file",
    547                         " for the patches", (char *)NULL,
     547                        " for the patches", (int8_t *)NULL,
    548548                        LD_EMCF, LD_EMCB);
    549549
    … …  
    566566
    567567*/
    568         if (wr_ec(fp, &ldhead, (long)LH_LEN)) {         /* header */
     568        if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) {              /* header */
    569569
    570570                streset();
    … …  
    593593*/
    594594
    595 short get_pat(void)
     595int16_t get_pat(void)
    596596{
    597597        register FILE *fp;
    … …  
    604604
    605605                ldermsg("Couldn't open the file",
    606                         " for the patches", (char *)NULL,
     606                        " for the patches", (int8_t *)NULL,
    607607                        LD_EMCF, LD_EMCB);
    608608
    … …  
    620620
    621621*/
    622         if (rd_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     622        if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    623623
    624624                clrlsel();
    … …  
    656656*/
    657657
    658 short wrt_scr(short slot)
    659 {
    660         register FILE *fp;
    661         register int    i;
    662         long tnb;
    663         char cstemp[8];
     658int16_t wrt_scr(int16_t slot)
     659{
     660        register FILE *fp;
     661        register int16_t        i;
     662        int32_t tnb;
     663        int8_t cstemp[8];
    664664
    665665        preio();        /* kill LCD backlight */
    … …  
    670670
    671671                ldermsg("Couldn't create a file",
    672                         " for the scores", (char *)NULL,
     672                        " for the scores", (int8_t *)NULL,
    673673                        LD_EMCF, LD_EMCB);
    674674
    … …  
    693693
    694694*/
    695         if (wr_ec(fp, &ldhead, (long)LH_LEN)) {         /* header */
     695        if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) {              /* header */
    696696
    697697                streset();
    … …  
    729729*/
    730730
    731 short get_scr(void)
    732 {
    733         register FILE *fp;
    734         register int    i;
    735         long tnl;
     731int16_t get_scr(void)
     732{
     733        register FILE *fp;
     734        register int16_t        i;
     735        int32_t tnl;
    736736
    737737        preio();        /* kill LCD backlight */
    … …  
    742742
    743743                ldermsg("Couldn't open the file",
    744                         " for the scores", (char *)NULL,
     744                        " for the scores", (int8_t *)NULL,
    745745                        LD_EMCF, LD_EMCB);
    746746
    … …  
    758758
    759759*/
    760         if (rd_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     760        if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    761761
    762762                clrlsel();
    … …  
    812812*/
    813813
    814 short wrt_seq(short slot)
    815 {
    816         register FILE *fp;
    817         char cstemp[8];
     814int16_t wrt_seq(int16_t slot)
     815{
     816        register FILE *fp;
     817        int8_t cstemp[8];
    818818
    819819        preio();        /* kill LCD backlight */
    … …  
    824824
    825825                ldermsg("Couldn't create a file",
    826                         " for the sequences", (char *)NULL,
     826                        " for the sequences", (int8_t *)NULL,
    827827                        LD_EMCF, LD_EMCB);
    828828
    … …  
    845845
    846846*/
    847         if (wr_ec(fp, &ldhead, (long)LH_LEN)) {         /* header */
     847        if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) {              /* header */
    848848
    849849                streset();
    … …  
    872872*/
    873873
    874 short get_seq(void)
     874int16_t get_seq(void)
    875875{
    876876        register FILE *fp;
    … …  
    883883
    884884                ldermsg("Couldn't open the file",
    885                         " for the sequences", (char *)NULL,
     885                        " for the sequences", (int8_t *)NULL,
    886886                        LD_EMCF, LD_EMCB);
    887887
    … …  
    899899
    900900*/
    901         if (rd_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     901        if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    902902
    903903                clrlsel();
    … …  
    934934*/
    935935
    936 short wrt_wav(short slot)
    937 {
    938         register FILE *fp;
    939         register int    i;
    940         char cstemp[8];
     936int16_t wrt_wav(int16_t slot)
     937{
     938        register FILE *fp;
     939        register int16_t        i;
     940        int8_t cstemp[8];
    941941        register struct wstbl *wp;
    942942
    … …  
    948948
    949949                ldermsg("Couldn't create a file",
    950                         " for the waveshapes", (char *)NULL,
     950                        " for the waveshapes", (int8_t *)NULL,
    951951                        LD_EMCF, LD_EMCB);
    952952
    … …  
    962962                wp = &wslib[i];
    963963
    964                 lcsum += chksum(wp->offset, (long)(NUMWPNT * 2));
    965                 lcsum += chksum(wp->harmon, (long)(NUMHARM * 2));
     964                lcsum += chksum(wp->offset, (int32_t)(NUMWPNT * 2));
     965                lcsum += chksum(wp->harmon, (int32_t)(NUMHARM * 2));
    966966        }
    967967
    … …  
    977977
    978978*/
    979         if (wr_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     979        if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    980980
    981981                streset();
    … …  
    987987                wp = &wslib[i];
    988988
    989                 if (wr_ec(fp, wp->offset, (long)(NUMWPNT * 2))) {
     989                if (wr_ec(fp, wp->offset, (int32_t)(NUMWPNT * 2))) {
    990990
    991991                        streset();
    … …  
    993993                }
    994994
    995                 if (wr_ec(fp, wp->harmon, (long)(NUMHARM * 2))) {
     995                if (wr_ec(fp, wp->harmon, (int32_t)(NUMHARM * 2))) {
    996996
    997997                        streset();
    … …  
    10151015*/
    10161016
    1017 short get_wav(void)
    1018 {
    1019         register FILE *fp;
    1020         register int    i;
     1017int16_t get_wav(void)
     1018{
     1019        register FILE *fp;
     1020        register int16_t        i;
    10211021        register struct wstbl *wp;
    10221022
    … …  
    10281028
    10291029                ldermsg("Couldn't open the file",
    1030                         " for the waveshapes", (char *)NULL,
     1030                        " for the waveshapes", (int8_t *)NULL,
    10311031                        LD_EMCF, LD_EMCB);
    10321032
    … …  
    10441044
    10451045*/
    1046         if (rd_ec(fp, &ldhead, (long)LH_LEN)) {                 /* header */
     1046        if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) {                      /* header */
    10471047
    10481048                clrlsel();
    … …  
    10601060                wp = &wslib[i];
    10611061
    1062                 if (rd_ec(fp, wp->offset, (long)(NUMWPNT * 2))) {
     1062                if (rd_ec(fp, wp->offset, (int32_t)(NUMWPNT * 2))) {
    10631063
    10641064                        clrlsel();
    … …  
    10661066                }
    10671067
    1068                 if (rd_ec(fp, wp->harmon, (long)(NUMHARM * 2))) {
     1068                if (rd_ec(fp, wp->harmon, (int32_t)(NUMHARM * 2))) {
    10691069
    10701070                        clrlsel();
Note: See TracChangeset for help on using the changeset viewer.