paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-13 20:26:00 +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
****************************************************************************}
{$ifndef TEST_GENERIC}
{$define FPC_SYSTEM_HAS_FPC_HELP_CONSTRUCTOR}
procedure fpc_help_constructor; assembler; [public,alias:'FPC_HELP_CONSTRUCTOR']; {$ifdef hascompilerproc} compilerproc; {$endif}
asm
@ -720,7 +720,7 @@ asm
popl %ebp
ret $8
end;
{$endif TEST_GENERIC}
{****************************************************************************
String
@ -1175,7 +1175,10 @@ procedure inclocked(var l : longint);assembler;
{
$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
Revision 1.22 2002/04/21 18:56:59 peter