From 2327556b15bd8d21c3130fd0dd955bb64366abcd Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Thu, 10 Oct 2013 19:19:33 +0400
Subject: [PATCH] ulmSYSTEM.Mod cleanup

---
 src/lib/ulm/ulmSYSTEM.Mod | 42 ---------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/src/lib/ulm/ulmSYSTEM.Mod b/src/lib/ulm/ulmSYSTEM.Mod
index 62583384..a7086abf 100644
--- a/src/lib/ulm/ulmSYSTEM.Mod
+++ b/src/lib/ulm/ulmSYSTEM.Mod
@@ -1,29 +1,6 @@
 MODULE ulmSYSTEM;
 IMPORT SYSTEM(*, ulmObjects, ulmDisciplines, Console*);
 
-
-(* test *)
-(*
-VAR d0, d1 : ulmDisciplines.Discipline;
-*)
-
-   (* noch *)
-(*   PROCEDURE -getaddr*(obj: ulmObjects.Object): LONGINT
-   "(LONGINT)&obj";*)
-(*
-   PROCEDURE -assignObjectPointers* (VAR src,  dst : ulmObjects.Object)
-   "*dst=*src";
-
-   PROCEDURE assignObjectPointer*(src, dst : ulmObjects.Object);
-   BEGIN
-      assignObjectPointers(src, dst);
-   END assignObjectPointer;
-
-   PROCEDURE assignDisciplinePointer (src, dst : ulmDisciplines.Discipline);
-   BEGIN
-    assignObjectPointers(src, dst);
-   END assignDisciplinePointer;
-*)
   PROCEDURE TAS*(VAR flag:BOOLEAN): BOOLEAN; (* added for compatibility with ulmSYSTEM module; noch *)
   VAR oldflag : BOOLEAN;
   BEGIN
@@ -32,23 +9,4 @@ VAR d0, d1 : ulmDisciplines.Discipline;
      RETURN oldflag;
   END TAS;
 
-
-(*
-BEGIN
-NEW (d0);
-NEW (d1);
-
-
-d0.id := 0;
-d1.id := 1;
-Console.String ("d0.id=");Console.Int (d0.id, 0); Console.Ln;
-Console.String ("d1.id=");Console.Int (d1.id, 0); Console.Ln;
-(*
-assignDisciplinePointer(d0, d1);
-*)
-Console.String ("d0.id=");Console.Int (d0.id, 0); Console.Ln;
-Console.String ("d1.id=");Console.Int (d1.id, 0); Console.Ln;
-
-
-*)
 END ulmSYSTEM.