Changeset 7d4cf30 in buchla-68k for rom


Ignore:
Timestamp:
07/14/2017 02:15:29 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
add86dd
Parents:
298f0b4
Message:

Added setp() for pointers.

Location:
rom
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • rom/romp.c

    r298f0b4 r7d4cf30  
    967967}
    968968
     969/*
     970   ============================================================================
     971        setp -- parse an expression and set a pointer variable
     972   ============================================================================
     973*/
     974
     975int16_t setp(void *var, void *deflt)
     976{
     977        return setvar((int32_t *)var, (int32_t)deflt);
     978}
     979
    969980/*
    970981
    … …  
    11421153                return(FALSE);
    11431154
    1144         if (setvar(&p_from, p_from) EQ FALSE)
     1155        if (setp(&p_from, p_from) EQ FALSE)
    11451156                return(FALSE);
    11461157
    … …  
    11911202                return(FALSE);
    11921203
    1193         if (setvar(&p_from, p_from) EQ FALSE)
     1204        if (setp(&p_from, p_from) EQ FALSE)
    11941205                return(FALSE);
    11951206
    … …  
    12541265
    12551266        if (getarg())
    1256                 if (setvar(&p_from, USER_RAM) EQ FALSE)
     1267                if (setp(&p_from, (int8_t *)USER_RAM) EQ FALSE)
    12571268                        return(FALSE);
    12581269
    … …  
    12611272
    12621273        if (getarg())
    1263                 if (setvar(&p_to, RAM_TOP) EQ FALSE)
     1274                if (setp(&p_to, (int8_t *)RAM_TOP) EQ FALSE)
    12641275                        return(FALSE);
    12651276
    … …  
    13531364        if (getarg()) {
    13541365
    1355                 if (setvar(&p_goto, p_goto) EQ FALSE)
     1366                if (setp(&p_goto, p_goto) EQ FALSE)
    13561367                        return(FALSE);
    13571368
    … …  
    13651376        if (getarg()) {
    13661377
    1367                 if (setvar(&tba0, 0L) EQ FALSE)
     1378                if (setp(&tba0, NULL) EQ FALSE)
    13681379                        return(FALSE);
    13691380
    … …  
    13761387        if (getarg()) {
    13771388
    1378                 if (setvar(&tba1, 0L) EQ FALSE)
     1389                if (setp(&tba1, NULL) EQ FALSE)
    13791390                        return(FALSE);
    13801391
    … …  
    16491660
    16501661        if (getarg())
    1651                 if (setvar(&p_from, p_from) EQ FALSE) {
     1662                if (setp(&p_from, p_from) EQ FALSE) {
    16521663
    16531664                        redo = FALSE;
    … …  
    16641675
    16651676        if (getarg())
    1666                 if (setvar(&p_to, p_to) EQ FALSE) {
     1677                if (setp(&p_to, p_to) EQ FALSE) {
    16671678
    16681679                        redo = FALSE;
    … …  
    17101721
    17111722        if (getarg())
    1712                 if (setvar(&p_from, p_from) EQ FALSE)
     1723                if (setp(&p_from, p_from) EQ FALSE)
    17131724                        return(FALSE);
    17141725
    … …  
    17421753
    17431754        if (getarg())
    1744                 if (setvar(&p_from, p_from) EQ FALSE)
     1755                if (setp(&p_from, p_from) EQ FALSE)
    17451756                        return(FALSE);
    17461757
    … …  
    17771788
    17781789        if (getarg())
    1779                 if (setvar(&p_from, p_from) EQ FALSE)
     1790                if (setp(&p_from, p_from) EQ FALSE)
    17801791                        return(FALSE);
    17811792
    17821793        if (getarg())
    1783                 if (setvar(&p_to, p_to) EQ FALSE)
     1794                if (setp(&p_to, p_to) EQ FALSE)
    17841795                        return(FALSE);
    17851796
    … …  
    18051816
    18061817        if (getarg())
    1807                 if (setvar(&p_from, p_from) EQ FALSE)
     1818                if (setp(&p_from, p_from) EQ FALSE)
    18081819                        return(FALSE);
    18091820
    18101821        if (getarg())
    1811                 if (setvar(&p_to, p_to) EQ FALSE)
     1822                if (setp(&p_to, p_to) EQ FALSE)
    18121823                        return(FALSE);
    18131824
    … …  
    18301841
    18311842        if (getarg())
    1832                 if (setvar(&p_from, p_from) EQ FALSE)
     1843                if (setp(&p_from, p_from) EQ FALSE)
    18331844                        return(FALSE);
    18341845
    18351846        if (getarg())
    1836                 if (setvar(&p_to, p_to) EQ FALSE)
     1847                if (setp(&p_to, p_to) EQ FALSE)
    18371848                        return(FALSE);
    18381849
    … …  
    25552566
    25562567        if (getarg())
    2557                 if (setvar(&p_from, p_from) EQ FALSE) {
     2568                if (setp(&p_from, p_from) EQ FALSE) {
    25582569
    25592570                        redo = FALSE;
    … …  
    25762587
    25772588        if (getarg())
    2578                 if (setvar(&p_to, p_to) EQ FALSE) {
     2589                if (setp(&p_to, p_to) EQ FALSE) {
    25792590
    25802591                        redo = FALSE;
    … …  
    26212632
    26222633        if (getarg())
    2623                 if (setvar(&p_from, p_from) EQ FALSE) {
     2634                if (setp(&p_from, p_from) EQ FALSE) {
    26242635
    26252636                        redo = FALSE;
    … …  
    26422653
    26432654        if (getarg())
    2644                 if (setvar(&p_to, p_to) EQ FALSE) {
     2655                if (setp(&p_to, p_to) EQ FALSE) {
    26452656
    26462657                        redo = FALSE;
    … …  
    27322743{
    27332744        if (getarg())
    2734                 if (setvar(&monptr, monptr) EQ FALSE)
     2745                if (setp(&monptr, monptr) EQ FALSE)
    27352746                        return(FALSE);
    27362747
    … …  
    27492760{
    27502761        if (getarg())
    2751                 if (setvar(&monptr, monptr) EQ FALSE)
     2762                if (setp(&monptr, monptr) EQ FALSE)
    27522763                        return(FALSE);
    27532764
    … …  
    27702781{
    27712782        if (getarg())
    2772                 if (setvar(&monptr, monptr) EQ FALSE)
     2783                if (setp(&monptr, monptr) EQ FALSE)
    27732784                        return(FALSE);
    27742785
    … …  
    38113822                                return(FALSE);
    38123823                        else
    3813                                 sjumpto(B_buf_a, ISTACK);
     3824                                sjumpto(B_buf_a, (void *)ISTACK);
    38143825
    38153826                } else if (astat AND (asig EQ ROMPKEY)) {       /* ROMP key */

  • rom/romp.x

    r298f0b4 r7d4cf30  
    165165extern  void            putn(uint32_t num, int16_t cw, int16_t unit);
    166166extern  void            rompbp(int32_t d0, int32_t d1, int32_t d2, int32_t d3, int32_t d4, int32_t d5, int32_t d6, int32_t d7, int8_t *a0, int8_t *a1, int8_t *a2, int8_t *a3, int8_t *a4, int8_t *a5, int8_t *a6, int8_t *a7, uint16_t sr0, uint16_t sr, int8_t *pc);
     167extern  int16_t         setp(void *var, void *deflt);
    167168extern  int16_t         setvar(int32_t *var, int32_t deflt);
    168169extern  void            showcr(void);
Note: See TracChangeset for help on using the changeset viewer.