Inline::Tcl - passing arguments over certain size

[Darren Ball]

If anyone can help...

Tcl 8.4 -
When passing arguments to tcl procs, I am finding that I get a rather large
amount of segmentation faults and malloc errors

Errors Displayed:
*** glibc detected *** malloc(): memory corruption: 0x092d6de0 ***

Segmentation fault


Here is a simple test script:


#!/usr/bin/perl

testing("0123456789 0123456789012345678901234567890123456789
4.10.250.183456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789");
#testing("home/abcdefghi/cfg/install/test","4.10.250.18
","/tmp/test_B26394A6-2E92-11DD-AFCC-2769D6EBC14F.log");
$result = dummy(1);
print "But returned $result\n";

use Inline Tcl => 'DATA';


1;

__DATA__
__Tcl__

   set asdf 2
   proc dummy { val } {
      puts "Dummy says $::asdf + $val = [expr $::asdf + $val]"
      incr val
      return [expr $::asdf + $val]
   }

   proc testing { var1 var2 testLs } {
    puts $var1
    puts $var2
    puts $testLs
   }




 Running this produces:
 perl ./mallocTest.pl
*** glibc detected *** malloc(): memory corruption: 0x0833a2f8 ***
Aborted


I need any help if possible.