From 13db04fb8b60464875f9e2edb0341012b78c5230 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 31 Jul 2001 19:36:51 +0000
Subject: [PATCH]   * small cleanup of commented code (merged)

---
 rtl/inc/generic.inc | 62 +++------------------------------------------
 rtl/inc/readme      |  7 +++--
 2 files changed, 9 insertions(+), 60 deletions(-)

diff --git a/rtl/inc/generic.inc b/rtl/inc/generic.inc
index 23f824ba87..1443eac585 100644
--- a/rtl/inc/generic.inc
+++ b/rtl/inc/generic.inc
@@ -423,67 +423,10 @@ end;
 
 {$ifndef FPC_SYSTEM_HAS_FPC_NEW_CLASS}
 {$error No pascal version of Int_new_class}
-(* procedure int_new_class;assembler;saveregisters;[public,alias:'FPC_NEW_CLASS'];
-asm
-        { to be sure in the future, we save also edit }
-        pushl   %edi
-        { create class ? }
-        movl    8(%ebp),%edi
-        orl     %edi,%edi
-        jz      .LNEW_CLASS1
-        { save registers !! }
-        pushl   %ebx
-        pushl   %ecx
-        pushl   %edx
-        { esi contains the vmt }
-        pushl   %esi
-        { call newinstance (class method!) }
-        call    *16(%esi)
-        popl    %edx
-        popl    %ecx
-        popl    %ebx
-        { newinstance returns a pointer to the new created }
-        { instance in eax                                  }
-        { load esi and insert self                         }
-        movl    %eax,%esi
-.LNEW_CLASS1:
-        movl    %esi,8(%ebp)
-        orl     %eax,%eax
-        popl   %edi
-end; *)
-
 {$endif ndef FPC_SYSTEM_HAS_FPC_NEW_CLASS}
 
 {$ifndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
-
 {$error No pascal version of Int_dispose_class}
-(* procedure int_dispose_class;assembler;saveregisters;[public,alias:'FPC_DISPOSE_CLASS'];
-asm
-        { to be sure in the future, we save also edit }
-        pushl   %edi
-        { destroy class ? }
-        movl    12(%ebp),%edi
-        orl     %edi,%edi
-        jz      .LDISPOSE_CLASS1
-        { no inherited call }
-        movl    (%esi),%edi
-        { save registers !! }
-        pushl   %eax
-        pushl   %ebx
-        pushl   %ecx
-        pushl   %edx
-        { push self }
-        pushl   %esi
-        { call freeinstance }
-        call    *20(%edi)
-        popl    %edx
-        popl    %ecx
-        popl    %ebx
-        popl    %eax
-.LDISPOSE_CLASS1:
-        popl   %edi
-end; *)
-
 {$endif ndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
 
 {$ifndef FPC_SYSTEM_HAS_FPC_CHECK_OBJECT}
@@ -883,7 +826,10 @@ end;
 
 {
   $Log$
-  Revision 1.15  2001-07-29 13:49:15  peter
+  Revision 1.16  2001-07-31 19:36:51  peter
+    * small cleanup of commented code (merged)
+
+  Revision 1.15  2001/07/29 13:49:15  peter
     * m68k updates merged
 
   Revision 1.14  2001/07/08 21:00:18  peter
diff --git a/rtl/inc/readme b/rtl/inc/readme
index cf13cd125f..a2f4f2705e 100644
--- a/rtl/inc/readme
+++ b/rtl/inc/readme
@@ -1,4 +1,4 @@
-This directory contains only RTL parts independent 
+This directory contains only RTL parts independent
 of the processor and of the operating system.
 
 The include files contain the following:
@@ -12,7 +12,7 @@ heaph.inc       Declarations of Heap functions.
 innr.inc        Internal function delcarations.
 int64.inc       Support for 64-bit integer arithmetic.
 lstrings.pp     LongStrings routine implementation.
-mathh.inc       Declarations of mathematical functions. 
+mathh.inc       Declarations of mathematical functions.
 real2str.inc    Routine to convert floating point numbers to strings.
 rtti.inc        Delphi like runtime type information
 sstrings.inc    ShortStrings (TP/BP pascal like strings) implementation.
@@ -23,6 +23,9 @@ textrec.inc     Definition of Textrec record.
 typefile.inc    Text file record definition.
 generic.inc     Processor independant implementation of assembler procs on i386
                 (to allow easy porting to new processors).
+genset.inc      Processor independant implementation of set handling
+genmath.inc     Processor independant implementation of mathematical routines
+genrrti.inc     Processor independant implementation of runtime type information routines
 
 The unit files are: