paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 19:49:36 +02: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

13
compiler/options.pas
View File

@ -1101,7 +1101,7 @@ begin
include(initglobalswitches,cs_link_map); include(initglobalswitches,cs_link_map);
's' : 's' :
include(initglobalswitches,cs_link_strip); include(initglobalswitches,cs_link_strip);
'c' : Cshared:=TRUE; 'c' : Cshared:=TRUE;
't' : 't' :
include(initglobalswitches,cs_link_staticflag); include(initglobalswitches,cs_link_staticflag);
'D' : 'D' :
@ -1120,9 +1120,9 @@ begin
More:=''; More:='';
End; End;
'r' : Begin 'r' : Begin
rlinkpath:=Copy(more,2,length(More)-1); rlinkpath:=Copy(more,2,length(More)-1);
More:=''; More:='';
end; end;
'p' : 'p' :
include(initmoduleswitches,cs_create_pic); include(initmoduleswitches,cs_create_pic);
'S' : 'S' :
@ -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