MODULE  'exec/memory'                           /* Allgemeine Konstanten zum Memoryhandling     */
MODULE  'classes/newmem_dbg'                    /* Das newmem-Modul... (Debug-Variante!)        */

DEF     newmemlist=NIL                          /* Variable (LONG) für den PTR auf die liste    */

PROC main() HANDLE                              /* Das Hauptprogramm (mit Handlerdefinition!)   */
 DEF    mem1=NIL,                               /* PTR auf den 1 Block - wird nicht freigegeben */
        mem2=NIL,                               /* PTR auf den 2 Block - wird korrekt freigeg.  */
        lib=NIL                                 /* PTR auf eine Library-base - wird NICHT geschlossen   */

 WriteF('Starting + Allocating...(DEBUG-Mode)\n\n')     /* Start-Nachricht...                   */

  newmemlist:=initNewMem()                      /* Hier wird die Liste initialisiert (!!!)      */

   mem1:=newAllocMem(1024,MEMF_ANY,newmemlist)  /* Speicher anfordern...                        */

    mem2:=newAllocVec(1024,MEMF_ANY,newmemlist) /* Speicher anfordern (2)                       */

     lib:=newOpenLibrary('workbench.library',37,newmemlist)     /* Library öffnen               */

      WriteF('Now freeing...\n\n')             /* hier die aktivitäten des Programmes...       */

->   ^ wir geben die workbench.library NICHT frei (normalerweise bleibt die dann IMMER im Speicher!

    newFreeVec(mem2,newmemlist)                 /* Speicher wieder freigeben                    */

-> ^ mem1 wird NICHT freigegeben (der Speicher ist nun normalerweise verloren!)

EXCEPT DO                                       /* Exception-Handling (Wird immer durchlaufen!) */
WriteF('\nFreeing all allocated Memory...(EXCEPT DO)\n\n')      /* Meldung zum Exceptionhandling*/
 freeNewMem(newmemlist)                         /* Den ganzen Speicher freigeben!               */
  IF exception                                  /* Wenn eine Exception vorliegt...              */
   SELECT exception                             /* Diese analysieren...                         */

   ENDSELECT                                    /* ende der Exceptionauswertung                 */
  ENDIF                                         /* Ende der Exceptionabfrage                    */
 CleanUp(exception)                             /* Mit der Exception als Returncode aufhören... */
ENDPROC