Forums Bug Reports COM memory leak

;; /LeakTest <amount_of_times_to_call_function>
alias leaktest {
  var %x = $$1, %error
  var %js = (function(){return{"test":Array(3001).join("a")}})()

  .comopen LeakTest MSScriptControl.ScriptControl

  if (!$com(LeakTest)) || ($comerr) {
    %Error = SCRIPTCONTROL_INIT_FAIL
  }
  elseif (!$com(LeakTest, language, 4, bstr, jscript)) || ($comerr) {
    %Error = LANGUAGE_SET_FAIL
  }
  else {
    while (%x) {
      dec %x
      
      ;; Dispatches the result of the js function, but then immediately closes it
      ;; yet the memory isn't freed even if given time
      if (!$com(LeakTest, eval, 1, bstr, %Js, dispatch* LeakTest/Test) || $comerr || !$com(LeakTest/Test)) {
        %Error = failed to dispatch LeakTest/Test
        goto error
      }
      .comclose LeakTest/Test
      
    }
  }
  :error
  if ($com(LeakTest/Test)) .comclose $v1
  if ($com(LeakTest)) .comclose $v1

  if ($error || %error) {
    Echo -a ERROR: $v1 
  }
  else {
    echo -a Done!
  }
}

//echo -a $os $version $beta $md5($mircexe,2) $file($mircexe).sig $alias(0) $script(0) $dll(0) $com(0)
10 7.47 7fbdee41d89a9a06431e08d52aa7f49b ok 1 1 0 0

WScript.StdOut.Write("How many times to iterate? ");
WScript.StdIn.Read(0);

var x = WScript.StdIn.ReadLine();
var js = '(function(){return{"test":Array(3001).join("a")}})()';

var leakTest, leakTestRes;

// creates an instance of scriptcontrol and sets the language
leakTest = new ActiveXObject("MSScriptControl.ScriptControl");
leakTest.language = "jscript";

while (x) {
 x -= 1;

 // calls the js function as the mSL code did
 leakTestRes = leakTest.eval(js);
}


WScript.StdOut.Write("Press enter to exit...");
WScript.StdIn.Read(0);
WScript.StdIn.ReadLine();

;; /cpu 10000
alias cpu {
  var %Error, %x = $$1
  comopen Locator WbemScripting.SWbemLocator
  if ($comerr) {
    %Error = Failed to open instance
  }
  else {
    while (%x) {
      dec %x
      if ($com(Locator, ConnectServer, 3, dispatch* Services) && !$comerr && $com(Services)) {
        .comclose services
      }
      else {
        %Error = Failed to dispatch services
        break
      }
    }
  }
  :error
  if ($com(Services)) comclose Services
  if ($com(Locator)) comclose Locator
  if (%Error) {
    echo -a $v1
  }
  elseif (!$error) {
    echo -a Done!
  }
}

alias example {
  var %x = $iif($1 isnum, $1, 5000)
  var %com = example
  var %js = (function(){return{"test":Array(4000).join("a")}})()
  var %err

  echo -a Processing %x iterations

  .comopen example MSScriptControl.scriptControl
  if (!$com(example) || $comerr) {
    %err = Failed to create MSScriptControl.ScriptControl
  }
  elseif (!$com(example, language, 4, bstr, jscript) || $comerr) {
    %err = Failed to set language to jscript
  }
  else {
    while (%x) {
      dec %x
      if (!$com(example, Eval, 1, bstr, %js) || $comerr) {
        %err = Failed to execute jscript
      }
    }
  }

  echo -a Done!

  :error
  if ($com(example)) {
    .comclose example
  }
  if (%err) {
    echo -s %err
  }
}

WScript.StdOut.write("How many times to iterate?");
WScript.StdIn.Read(0);

var x = Number(WScript.StdIn.readLine());
var js = '(function(){return{"test":Array(4000).join("a")}})()'

if (isNaN(x)) {
    x = 5000;
}

var leakTest, leakTestRes;

// create an instance of the ScriptControl and set language
leakTest = new ActiveXObject('MSScriptControl.ScriptControl');
leakTest.language = 'jscript';

while (x > 0) {
    x--;
    
    leakTestRes = leakTest.eval(js);
}

// remove reference.
leakTest = null;

WScript.StdOut.Write("Press enter to exit...");
WScript.StdIn.Read(0);
WScript.StdIn.ReadLine();

10 7.51 1561 ad5337d2a735eec9e6ffc9ffa5b097d3 ok 1 1 0 0