mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-28 22:40:56 +02:00
fpc 1.9.5 has no saveregisters calling convention anymore.
git-svn-id: trunk@6163 -
This commit is contained in:
parent
42b95dd1c7
commit
66c17e960d
@ -760,7 +760,7 @@ var
|
||||
data_end : longword;external name '__data_end__';
|
||||
{$endif}
|
||||
|
||||
procedure CheckPointer(p : pointer);[saveregisters,public, alias : 'FPC_CHECKPOINTER'];
|
||||
procedure CheckPointer(p : pointer);[{$IFNDEF NOSAVEREGISTERS}saveregisters,{$ENDIF}public, alias : 'FPC_CHECKPOINTER'];
|
||||
var
|
||||
i : ptrint;
|
||||
pp : pheap_mem_info;
|
||||
@ -2318,6 +2318,9 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.34 2004/10/25 17:59:29 vincents
|
||||
fpc 1.9.5 has no saveregisters calling convention anymore.
|
||||
|
||||
Revision 1.33 2004/07/15 17:29:59 vincents
|
||||
fix compilation for win32
|
||||
|
||||
|
@ -92,7 +92,7 @@ uses
|
||||
SysUtils;
|
||||
|
||||
{------------------------------------------------------------------------------
|
||||
Function: SendBreak
|
||||
Procedure: SendBreak
|
||||
Params: APID The proces ID to send break to
|
||||
Returns:
|
||||
------------------------------------------------------------------------------}
|
||||
@ -435,6 +435,9 @@ initialization
|
||||
end.
|
||||
{ =============================================================================
|
||||
$Log$
|
||||
Revision 1.36 2004/10/25 17:59:29 vincents
|
||||
fpc 1.9.5 has no saveregisters calling convention anymore.
|
||||
|
||||
Revision 1.35 2004/09/14 21:30:36 vincents
|
||||
replaced writeln by DebugLn
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user