paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-28 14:47:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* define REGCALL when pocall_default=pocall_register

Browse Source
This commit is contained in:
peter 2003-11-11 21:10:34 +00:00
parent a1cb920b51
commit 765b1b51b6
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/options.pas
View File

@ -1682,6 +1682,8 @@ begin
def_symbol('HASTHREADVAR'); def_symbol('HASTHREADVAR');
def_symbol('HAS_GENERICCONSTRUCTOR'); def_symbol('HAS_GENERICCONSTRUCTOR');
def_symbol('NOCLASSHELPERS'); def_symbol('NOCLASSHELPERS');
if pocall_default = pocall_register then
def_symbol('REGCALL');
{ using a case is pretty useless here (FK) } { using a case is pretty useless here (FK) }
{ some stuff for TP compatibility } { some stuff for TP compatibility }
@ -1983,7 +1985,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.114 2003-11-07 15:58:32 florian Revision 1.115 2003-11-11 21:10:34 peter
* define REGCALL when pocall_default=pocall_register
Revision 1.114 2003/11/07 15:58:32 florian
* Florian's culmutative nr. 1; contains: * Florian's culmutative nr. 1; contains:
- invalid calling conventions for a certain cpu are rejected - invalid calling conventions for a certain cpu are rejected
- arm softfloat calling conventions - arm softfloat calling conventions