Browse Source

+ TEST_GENERIC to test generic versions of code

carl 23 years ago
parent
commit
2604402b16
1 changed files with 6 additions and 3 deletions
  1. 6 3
      rtl/i386/i386.inc

+ 6 - 3
rtl/i386/i386.inc

@@ -403,7 +403,7 @@ end['EAX','EBX','ECX','EDX','ESI'];
 {****************************************************************************
 {****************************************************************************
                               Object Helpers
                               Object Helpers
 ****************************************************************************}
 ****************************************************************************}
-
+{$ifndef TEST_GENERIC}
 {$define FPC_SYSTEM_HAS_FPC_HELP_CONSTRUCTOR}
 {$define FPC_SYSTEM_HAS_FPC_HELP_CONSTRUCTOR}
 procedure fpc_help_constructor; assembler; [public,alias:'FPC_HELP_CONSTRUCTOR']; {$ifdef hascompilerproc} compilerproc; {$endif}
 procedure fpc_help_constructor; assembler; [public,alias:'FPC_HELP_CONSTRUCTOR']; {$ifdef hascompilerproc} compilerproc; {$endif}
 asm
 asm
@@ -720,7 +720,7 @@ asm
         popl    %ebp
         popl    %ebp
         ret     $8
         ret     $8
 end;
 end;
-
+{$endif TEST_GENERIC}
 
 
 {****************************************************************************
 {****************************************************************************
                                  String
                                  String
@@ -1175,7 +1175,10 @@ procedure inclocked(var l : longint);assembler;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.23  2002-06-09 12:54:37  jonas
+  Revision 1.24  2002-06-16 08:21:26  carl
+  + TEST_GENERIC to test generic versions of code
+
+  Revision 1.23  2002/06/09 12:54:37  jonas
     * fixed memory corruption bug in fpc_help_constructor
     * fixed memory corruption bug in fpc_help_constructor
 
 
   Revision 1.22  2002/04/21 18:56:59  peter
   Revision 1.22  2002/04/21 18:56:59  peter