paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-14 22:26:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ TEST_GENERIC to test generic versions of code

Browse Source
This commit is contained in:
carl 2002-06-16 08:21:26 +00:00
parent 3525611583
commit 2604402b16
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/i386/i386.inc
View File

@ -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