Changeset 19285


Ignore:
Timestamp:
Mar 16, 2006 2:41:23 PM (11 years ago)
Author:
cedric
Message:

NVIZ runs with TCL 8.4 Threaded:
Memory allocated with Tcl_Alloc, such as the result of Tcl_Merge should be freed using
TCL_DYNAMIC.

Location:
grass/trunk/visualization/nviz/src
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • grass/trunk/visualization/nviz/src/draw.c

    r18934 r19285  
    242242
    243243    interp->result = Tcl_Merge(3, list);
    244     interp->freeProc = (Tcl_FreeProc *) free;
     244    interp->freeProc = TCL_DYNAMIC;
    245245
    246246    return (TCL_OK);
  • grass/trunk/visualization/nviz/src/exag.c

    r18667 r19285  
    129129    list[3] = NULL;
    130130    interp->result = Tcl_Merge(3, list);
    131     interp->freeProc = (Tcl_FreeProc *) free;
     131    interp->freeProc = TCL_DYNAMIC;
    132132
    133133    return TCL_OK;
  • grass/trunk/visualization/nviz/src/lights.c

    r15915 r19285  
    122122
    123123    interp->result = Tcl_Merge(3, list);
    124     interp->freeProc = (Tcl_FreeProc *) free;
     124    interp->freeProc = TCL_DYNAMIC;
    125125    return (TCL_OK);
    126126}
     
    143143
    144144    interp->result = Tcl_Merge(3, list);
    145     interp->freeProc = (Tcl_FreeProc *) free;
     145    interp->freeProc = TCL_DYNAMIC;
    146146    return (TCL_OK);
    147147}
     
    167167
    168168    interp->result = Tcl_Merge(4, list);
    169     interp->freeProc = (Tcl_FreeProc *) free;
     169    interp->freeProc = TCL_DYNAMIC;
    170170    return (TCL_OK);
    171171}
  • grass/trunk/visualization/nviz/src/map_obj.c

    r19247 r19285  
    874874
    875875    interp->result = Tcl_Merge(3, list);
    876     interp->freeProc = (Tcl_FreeProc *) free;
     876    interp->freeProc = TCL_DYNAMIC;
    877877    return (TCL_OK);
    878878
     
    997997
    998998    interp->result = Tcl_Merge(n, list);
    999     interp->freeProc = (Tcl_FreeProc *) free;
     999    interp->freeProc = TCL_DYNAMIC;
    10001000
    10011001    return (TCL_OK);
     
    11611161
    11621162    interp->result = Tcl_Merge(3, list);
    1163     interp->freeProc = (Tcl_FreeProc *) free;
     1163    interp->freeProc = TCL_DYNAMIC;
    11641164
    11651165    return (TCL_OK);
  • grass/trunk/visualization/nviz/src/position.c

    r18934 r19285  
    3838
    3939    interp->result = Tcl_Merge(3, list);
    40     interp->freeProc = (Tcl_FreeProc *) free;
     40    interp->freeProc = TCL_DYNAMIC;
    4141    return (TCL_OK);
    4242}
     
    6363
    6464    interp->result = Tcl_Merge(3, list);
    65     interp->freeProc = (Tcl_FreeProc *) free;
     65    interp->freeProc = TCL_DYNAMIC;
    6666
    6767
     
    460460    list[1] = NULL;
    461461    interp->result = Tcl_Merge(1, list);
    462     interp->freeProc = (Tcl_FreeProc *) free;
     462    interp->freeProc = TCL_DYNAMIC;
    463463
    464464
     
    499499    list[1] = NULL;
    500500    interp->result = Tcl_Merge(1, list);
    501     interp->freeProc = (Tcl_FreeProc *) free;
     501    interp->freeProc = TCL_DYNAMIC;
    502502
    503503    return (TCL_OK);
     
    526526
    527527    interp->result = Tcl_Merge(4, list);
    528     interp->freeProc = (Tcl_FreeProc *) free;
     528    interp->freeProc = TCL_DYNAMIC;
    529529
    530530    return (TCL_OK);
     
    552552        list[0] = NULL;
    553553        interp->result = Tcl_Merge(0, list);
    554         interp->freeProc = (Tcl_FreeProc *) free;
     554        interp->freeProc = TCL_DYNAMIC;
    555555
    556556        return (TCL_OK);
     
    569569
    570570    interp->result = Tcl_Merge(4, list);
    571     interp->freeProc = (Tcl_FreeProc *) free;
     571    interp->freeProc = TCL_DYNAMIC;
    572572
    573573    return (TCL_OK);
     
    601601        list[0] = NULL;
    602602        interp->result = Tcl_Merge(0, list);
    603         interp->freeProc = (Tcl_FreeProc *) free;
     603        interp->freeProc = TCL_DYNAMIC;
    604604
    605605        return (TCL_OK);
     
    619619
    620620    interp->result = Tcl_Merge(5, list);
    621     interp->freeProc = (Tcl_FreeProc *) free;
     621    interp->freeProc = TCL_DYNAMIC;
    622622
    623623    return (TCL_OK);
     
    792792
    793793    interp->result = Tcl_Merge(2, list);
    794     interp->freeProc = (Tcl_FreeProc *) free;
     794    interp->freeProc = TCL_DYNAMIC;
    795795    return (TCL_OK);
    796796}
     
    835835
    836836    interp->result = Tcl_Merge(3, list);
    837     interp->freeProc = (Tcl_FreeProc *) free;
     837    interp->freeProc = TCL_DYNAMIC;
    838838
    839839    return (TCL_OK);
  • grass/trunk/visualization/nviz/src/togl_flythrough.c

    r19123 r19285  
    291291
    292292    interp->result = Tcl_Merge(2, list);
    293     interp->freeProc = (Tcl_FreeProc *) free;
     293    interp->freeProc = TCL_DYNAMIC;
    294294    return (TCL_OK);
    295295}
  • grass/trunk/visualization/nviz/src/volume.c

    r18934 r19285  
    5050
    5151    interp->result = Tcl_Merge(3, list);
    52     interp->freeProc = (Tcl_FreeProc *) free;
     52    interp->freeProc = TCL_DYNAMIC;
    5353
    5454    return (TCL_OK);
     
    450450
    451451    interp->result = Tcl_Merge(3, list);
    452     interp->freeProc = (Tcl_FreeProc *) free;
     452    interp->freeProc = TCL_DYNAMIC;
    453453
    454454    return (TCL_OK);
     
    570570
    571571    interp->result = Tcl_Merge(7, list);
    572     interp->freeProc = (Tcl_FreeProc *) free;
     572    interp->freeProc = TCL_DYNAMIC;
    573573
    574574    return (TCL_OK);
Note: See TracChangeset for help on using the changeset viewer.