Example program for Clarion memory leak.

PTSS40365.clw

  PROGRAM

  MAP
  END
  
  Include('cpxml.inc'),ONCE
  Include('xmlclass.inc'),ONCE

myGroup   GROUP
someField   CSTRING(255)
          END
Doc   &Document
startTime LONG
  CODE

  myGroup.someField ='Test Value'
  startTime = Clock()
  LOOP UNTIL Clock()-startTime > (100 * 30)
    Doc &= GroupToDOM(myGroup, 'root', 'label', DOMStyle:ADO_NET)
    !ViewXML(Doc)
    Doc.release()
  END
  
  Stop('Hi')

PTSS40365.cwproj

<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <PropertyGroup>
    <ProjectGuid>{E3AA0E6D-DED3-4252-8344-955DE913709B}</ProjectGuid>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">Win32</Platform>
    <OutputType>Exe</OutputType>
    <RootNamespace>PTSS40365</RootNamespace>
    <AssemblyName>PTSS40365</AssemblyName>
    <OutputName>PTSS40365</OutputName>
    <stack_size>16384</stack_size>
    <CopyCore>True</CopyCore>
    <DefineConstants>_XMLLibLinkMode_=&gt;1%3b_XMLLibDllMode_=&gt;0%3b_ABCDllMode_=&gt;0%3b_ABCLinkMode_=&gt;1</DefineConstants>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)' == 'Debug' ">
    <DebugSymbols>True</DebugSymbols>
    <DebugType>Full</DebugType>
    <vid>full</vid>
    <check_stack>True</check_stack>
    <check_index>True</check_index>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)' == 'Release' ">
    <DebugSymbols>False</DebugSymbols>
    <DebugType>None</DebugType>
    <vid>off</vid>
    <check_stack>False</check_stack>
    <check_index>False</check_index>
    <warnings>on</warnings>
    <GenerateMap>True</GenerateMap>
    <line_numbers>False</line_numbers>
  </PropertyGroup>
  <ItemGroup>
    <Compile Include="PTSS40365.clw" />
  </ItemGroup>
  <Import Project="$(ClarionBinPath)\SoftVelocity.Build.Clarion.targets" />
</Project>