Ticket #183: patch.patch

File patch.patch, 15.2 KB (added by jimmy, 5 years ago)
  • languages/perl6/src/pmc/perl6str.pmc

     
    261261either side of the letters or digits that return true for C<isalpha()> or 
    262262C<isdigit()> respectively. 
    263263 
     264=cut 
     265 
    264266*/ 
    265267 
    266268    VTABLE void increment() { 
  • src/dynext.c

     
    378378    STRING *type; 
    379379    PMC *(*load_func)(PARROT_INTERP); 
    380380    void (*init_func)(PARROT_INTERP, PMC *); 
    381     char *cinit_func_name; 
    382381    PMC *lib_pmc; 
    383382 
    384383    /* 
     
    387386     */ 
    388387    Parrot_block_GC_mark(interp); 
    389388 
    390     /* get load_func */ 
    391389    if (lib_name) { 
    392         STRING * const load_name  = Parrot_sprintf_c(interp, 
     390        STRING * const load_name       = Parrot_sprintf_c(interp, 
    393391                                        "Parrot_lib_%Ss_load", lib_name); 
     392        STRING * const init_func_name  = Parrot_sprintf_c(interp, 
     393                                        "Parrot_lib_%Ss_init", lib_name); 
    394394        char   * const cload_func_name = string_to_cstring(interp, load_name); 
    395         STRING *init_func_name; 
     395        char   * const cinit_func_name = string_to_cstring(interp, init_func_name); 
    396396 
    397         load_func    = (PMC * (*)(PARROT_INTERP)) 
     397        /* get load_func */ 
     398        load_func       = (PMC * (*)(PARROT_INTERP)) 
    398399            D2FPTR(Parrot_dlsym(handle, cload_func_name)); 
    399  
    400400        string_cstring_free(cload_func_name); 
    401401 
    402402        /* get init_func */ 
    403         init_func_name  = Parrot_sprintf_c(interp, "Parrot_lib_%Ss_init", 
    404                                           lib_name); 
    405         cinit_func_name = string_to_cstring(interp, init_func_name); 
    406403        init_func       = (void (*)(PARROT_INTERP, PMC *)) 
    407404            D2FPTR(Parrot_dlsym(handle, cinit_func_name)); 
    408405        string_cstring_free(cinit_func_name); 
     
    454451clone_string_into(ARGMOD(Interp *d), ARGIN(Interp *s), ARGIN(PMC *value)) 
    455452{ 
    456453    ASSERT_ARGS(clone_string_into) 
    457     STRING * const orig = VTABLE_get_string(s, value); 
     454    STRING * const  orig = VTABLE_get_string(s, value); 
    458455    char * const raw_str = string_to_cstring(s, orig); 
    459     STRING * const ret = 
     456    STRING * const   ret = 
    460457        string_make_direct(d, raw_str, strlen(raw_str), 
    461458            PARROT_DEFAULT_ENCODING, PARROT_DEFAULT_CHARSET, 
    462459            PObj_constant_FLAG); 
  • src/dynpmc/gdbmhash.pmc

     
    116116*/ 
    117117 
    118118    void set_string_native(STRING* value) { 
    119         char *c_db_name      = string_to_cstring(interp, value); 
    120         GDBM_FILE dbf        = gdbm_open(c_db_name, 0, GDBM_NEWDB, 0666, 0); 
     119        char * const c_db_name = string_to_cstring(interp, value); 
     120        GDBM_FILE dbf          =  
     121            gdbm_open(c_db_name, 0, GDBM_NEWDB, 0666, 0); 
    121122 
    122123        string_cstring_free(c_db_name); 
    123124 
  • src/dynpmc/rational.pmc

     
    5454*/ 
    5555static STRING *rat_get_string_to_base(PARROT_INTERP, PMC *self, int base) { 
    5656  #ifdef PARROT_HAS_GMP 
    57     STRING *pstr; 
    58     char *cstr = mpq_get_str(NULL, (int) base, RT(self)); 
    59     pstr = string_from_cstring(interp, cstr, 0); 
     57    char * const cstr = mpq_get_str(NULL, (int) base, RT(self)); 
     58    STRING * pstr     = string_from_cstring(interp, cstr, 0); 
    6059    string_cstring_free(cstr); 
    6160    return pstr; 
    6261  #else 
     
    391390*/ 
    392391    VTABLE void set_string_native(STRING *value) { 
    393392      #ifdef PARROT_HAS_GMP 
    394         char *cstr = string_to_cstring(INTERP, value); 
     393        char * const cstr = string_to_cstring(INTERP, value); 
    395394        mpq_set_str(RT(SELF), cstr, 0); 
    396395        mpq_canonicalize(RT(SELF)); 
    397396        string_cstring_free(cstr); 
     
    409408*/ 
    410409    VTABLE void set_string_keyed_int(INTVAL base, STRING *value) { 
    411410      #ifdef PARROT_HAS_GMP 
    412         char *cstr = string_to_cstring(INTERP, value); 
     411        char * const cstr = string_to_cstring(INTERP, value); 
    413412        mpq_set_str(RT(SELF), cstr, (int) base); 
    414413        mpq_canonicalize(RT(SELF)); 
    415414        string_cstring_free(cstr); 
  • src/hll.c

     
    9595    PMC * const entry = constant_pmc_new(interp, enum_class_FixedPMCArray); 
    9696 
    9797    if (entry_name && !STRING_IS_EMPTY(entry_name)) { 
    98         char   *cstring    = string_to_cstring(interp, entry_name); 
    99         UINTVAL len        = string_length(interp, entry_name); 
    100         STRING *const_name = string_make_direct(interp, cstring, 
     98        char   * const cstring    = string_to_cstring(interp, entry_name); 
     99        const  UINTVAL len        = string_length(interp, entry_name); 
     100        STRING *const_name        = string_make_direct(interp, cstring, 
    101101            len, PARROT_DEFAULT_ENCODING, PARROT_DEFAULT_CHARSET, 
    102102            PObj_constant_FLAG); 
    103103 
  • src/inter_call.c

     
    27952795 
    27962796    /* create the signature string, and the various PMCs that are needed to 
    27972797       store all the parameters and parameter counts. */ 
    2798     char *signature         = string_to_cstring(interp, VTABLE_get_string(interp, sig_obj)); 
     2798    char * const signature  = string_to_cstring(interp, VTABLE_get_string(interp, sig_obj)); 
    27992799    PMC * const args_sig    = temporary_pmc_new(interp, enum_class_FixedIntegerArray); 
    28002800    PMC * const results_sig = temporary_pmc_new(interp, enum_class_FixedIntegerArray); 
    28012801    PMC * const ret_cont    = new_ret_continuation_pmc(interp, NULL); 
  • src/io/portable.c

     
    144144    flags |= PIO_F_FILE; 
    145145 
    146146    { /* scope for temporary C string */ 
    147         const char *spath = string_to_cstring(interp, path); 
     147        char * const spath = string_to_cstring(interp, path); 
    148148        /* Try opening the file 
    149149         * note that this can't really handle O_EXCL, etc. */ 
    150150        fptr = fopen(spath, oflags); 
  • src/io/win32.c

     
    224224    flags |= PIO_F_FILE; 
    225225 
    226226    { /* enclosing scope for temporary C string */ 
    227         char *spath = string_to_cstring(interp, path); 
     227        char * const spath = string_to_cstring(interp, path); 
    228228        fd = CreateFile(spath, fAcc, fShare, NULL, fCreat, 
    229229                    FILE_ATTRIBUTE_NORMAL, NULL); 
    230230        string_cstring_free(spath); 
  • src/jit_debug.c

     
    283283 
    284284    if (interp->code->debugs) { 
    285285        char *ext; 
    286         char *src = string_to_cstring(interp, 
     286        char * const src = string_to_cstring(interp, 
    287287            Parrot_debug_pc_to_filename(interp, 
    288288            interp->code->debugs, 0)); 
    289289        pasmfile = string_make(interp, src, strlen(src), NULL, 
     
    364364    cmd = Parrot_sprintf_c(interp, "as %Ss -o %Ss", stabsfile, ofile); 
    365365 
    366366    { 
    367         char *temp   = string_to_cstring(interp, cmd); 
    368         int   status = system(temp); 
     367        char * const temp   = string_to_cstring(interp, cmd); 
     368        int          status = system(temp); 
    369369        if (status) 
    370370            fprintf(stderr, "Assembly failed: %d\n%s\n", status, temp); 
    371371        string_cstring_free(temp); 
  • src/jit_debug_xcoff.c

     
    254254 
    255255    if (interp->code->debugs) { 
    256256        char *ext; 
    257         char *src = string_to_cstring(interp, 
     257        char * const src = string_to_cstring(interp, 
    258258            Parrot_debug_pc_to_filename(interp, 
    259259            interp->code->debugs, 0)); 
    260260        pasmfile = string_make(interp, src, strlen(src), NULL, 
     
    280280    stabsfile = debug_file(interp, file, "stabs.s"); 
    281281    ofile = debug_file(interp, file, "o"); 
    282282    { 
    283         char *temp = string_to_cstring(interp, stabsfile); 
     283        char * const temp = string_to_cstring(interp, stabsfile); 
    284284        stabs      = fopen(temp, "w"); 
    285285        string_cstring_free(temp); 
    286286    } 
     
    288288        return; 
    289289 
    290290    { 
    291         char *temp = string_to_cstring(interp, pasmfile); 
     291        char * const temp = string_to_cstring(interp, pasmfile); 
    292292        /* filename info */ 
    293293        fprintf(stabs, ".file \"%s\"\n", temp); 
    294294        string_cstring_free(temp); 
     
    334334    cmd = Parrot_sprintf_c(interp, "as %Ss -o %Ss", stabsfile, ofile); 
    335335 
    336336    { 
    337         char *temp = string_to_cstring(interp, cmd); 
     337        char * const temp = string_to_cstring(interp, cmd); 
    338338        system(temp); 
    339339        string_cstring_free(temp); 
    340340    } 
  • src/packfile.c

     
    25902590 
    25912591    Parrot_io_printf(interp, "\n  mappings => [\n"); 
    25922592    for (i = 0; i < debug->num_mappings; i++) { 
    2593         char *filename = string_to_cstring(interp, PF_CONST(debug->code, 
     2593        char * const filename = string_to_cstring(interp, PF_CONST(debug->code, 
    25942594                   debug->mappings[i]->filename)->u.string);; 
    25952595        Parrot_io_printf(interp, "    #%d\n    [\n", i); 
    25962596        Parrot_io_printf(interp, "        OFFSET => %d,\n", 
     
    40584058    /* Dump keys. */ 
    40594059    Parrot_io_printf(interp, "\n  keys => [\n"); 
    40604060    for (i = 0; i < self->num_keys; i++) { 
    4061         char *key_name = string_to_cstring(interp, PF_CONST(self->code, 
     4061        char * const key_name = string_to_cstring(interp, PF_CONST(self->code, 
    40624062               self->keys[i]->name)->u.string); 
    40634063        Parrot_io_printf(interp, "    #%d\n    [\n", i); 
    40644064        Parrot_io_printf(interp, "        NAME => %s\n", key_name); 
  • src/pmc/bigint.pmc

     
    587587*/ 
    588588 
    589589    VTABLE void set_string_native(STRING *value) { 
    590         char *s = string_to_cstring(INTERP, value); 
     590        char * const s = string_to_cstring(INTERP, value); 
    591591        bigint_set_str(INTERP, SELF, s, 10); 
    592592        string_cstring_free(s); 
    593593    } 
    594594 
    595595    VTABLE void set_string_keyed_int(INTVAL base, STRING *value) { 
    596         char *s = string_to_cstring(INTERP, value); 
     596        char * const s = string_to_cstring(INTERP, value); 
    597597        bigint_set_str(INTERP, SELF, s, base); 
    598598        string_cstring_free(s); 
    599599    } 
  • src/pmc/file.pmc

     
    6565 
    6666    METHOD exists(STRING *path) { 
    6767        struct stat info; 
    68         char *cpath = string_to_cstring(interp, path); 
     68        char * const cpath = string_to_cstring(interp, path); 
    6969#ifdef WIN32 
    7070        int error   = stat(cpath, &info); 
    7171#else 
     
    9191 
    9292    METHOD is_dir(STRING *path) { 
    9393        struct stat info; 
    94         char *cpath = string_to_cstring(interp, path); 
     94        char * const cpath = string_to_cstring(interp, path); 
    9595#ifdef WIN32 
    9696        int error   = stat(cpath, &info); 
    9797#else 
     
    123123 
    124124    METHOD is_file(STRING *path) { 
    125125        struct stat info; 
    126         char *cpath = string_to_cstring(interp, path); 
     126        char * const cpath = string_to_cstring(interp, path); 
    127127#ifdef WIN32 
    128128        int error   = stat(cpath, &info); 
    129129#else 
     
    160160#else 
    161161        struct stat info; 
    162162 
    163         char *cpath = string_to_cstring(interp, path); 
    164         int error  = lstat(cpath, &info); 
     163        char * const cpath = string_to_cstring(interp, path); 
     164        int          error = lstat(cpath, &info); 
    165165 
    166166        string_cstring_free(cpath); 
    167167 
     
    197197    METHOD copy(STRING *from, STRING *to) { 
    198198#define CHUNK_SIZE 1024 
    199199 
    200         char *cfrom  = string_to_cstring(interp, from); 
    201         FILE *source = fopen(cfrom, "rb"); 
     200        char * const cfrom  = string_to_cstring(interp, from); 
     201        FILE       * source = fopen(cfrom, "rb"); 
    202202 
    203203        string_cstring_free(cfrom); 
    204204 
    205205        if (source) { 
    206             char *cto    = string_to_cstring(interp, to); 
    207             FILE *target = fopen(cto, "w+b"); 
     206            char * const cto = string_to_cstring(interp, to); 
     207            FILE    * target = fopen(cto, "w+b"); 
    208208 
    209209            string_cstring_free(cto); 
    210210 
     
    251251*/ 
    252252 
    253253    METHOD rename(STRING *from, STRING *to) { 
    254         char *cfrom = string_to_cstring(interp, from); 
    255         char *cto  = string_to_cstring(interp, to); 
    256         int error  = rename(cfrom, cto); 
     254        char * const cfrom = string_to_cstring(interp, from); 
     255        char * const   cto = string_to_cstring(interp, to); 
     256        int          error = rename(cfrom, cto); 
    257257 
    258258        string_cstring_free(cfrom); 
    259259        string_cstring_free(cto); 
  • src/pmc/nci.pmc

     
    167167 
    168168    VTABLE void set_pointer_keyed_str(STRING *key, void *func) { 
    169169        Parrot_NCI_attributes * const nci_info = PARROT_NCI(SELF); 
    170         int                           jitted   = 0; 
    171         char                         *key_c; 
     170        int                             jitted = 0; 
     171        char                     * const key_c =  
     172            string_to_cstring(INTERP, key); 
    172173 
    173174        /* Store the original function and signature. */ 
    174175        PMC_struct_val(SELF) = func; 
    175         key_c                = string_to_cstring(INTERP, key); 
    176176        nci_info->signature  = string_make(interp, key_c, strlen(key_c), 
    177177                                    NULL, PObj_constant_FLAG); 
    178178        string_cstring_free(key_c); 
  • src/pmc/os.pmc

     
    137137 
    138138    METHOD rm(STRING *path) { 
    139139        struct stat info; 
    140         char *cpath = string_to_cstring(interp, path); 
    141         int   error = stat(cpath, &info); 
     140        char * const cpath = string_to_cstring(interp, path); 
     141        int          error = stat(cpath, &info); 
    142142 
    143143        if (error) { 
    144144            const char * const errmsg = strerror(errno); 
  • src/pmc/sub.pmc

     
    832832 
    833833    METHOD __get_regs_used(STRING *reg) { 
    834834        Parrot_sub * const sub  = PMC_sub(SELF); 
    835         char              *kind = string_to_cstring(interp, reg); 
     835        char       * const kind = string_to_cstring(interp, reg); 
    836836        INTVAL             regs_used; 
    837837 
    838838        /* TODO switch to canonical NiSP order