mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 18:06:28 +02:00
+ processor type intialization for x86-64 added
This commit is contained in:
parent
0b48a6a3ec
commit
cedff1a593
@ -1668,6 +1668,18 @@ implementation
|
|||||||
initasmmode:=asmmode_direct;
|
initasmmode:=asmmode_direct;
|
||||||
initfputype:=fpu_fpa;
|
initfputype:=fpu_fpa;
|
||||||
{$endif arm}
|
{$endif arm}
|
||||||
|
{$ifdef x86_64}
|
||||||
|
initoptprocessor:=ClassDefault;
|
||||||
|
initspecificoptprocessor:=ClassDefault;
|
||||||
|
|
||||||
|
initfputype:=fpu_standard;
|
||||||
|
|
||||||
|
initpackenum:=4;
|
||||||
|
{$IFDEF testvarsets}
|
||||||
|
initsetalloc:=0;
|
||||||
|
{$ENDIF}
|
||||||
|
initasmmode:=asmmode_direct;
|
||||||
|
{$endif x86_64}
|
||||||
initinterfacetype:=it_interfacecom;
|
initinterfacetype:=it_interfacecom;
|
||||||
initdefproccall:=pocall_default;
|
initdefproccall:=pocall_default;
|
||||||
initdefines:=TStringList.Create;
|
initdefines:=TStringList.Create;
|
||||||
@ -1683,7 +1695,10 @@ implementation
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.102 2003-09-18 15:38:17 marco
|
Revision 1.103 2003-09-24 17:13:22 florian
|
||||||
|
+ processor type intialization for x86-64 added
|
||||||
|
|
||||||
|
Revision 1.102 2003/09/18 15:38:17 marco
|
||||||
* BSD 1.0.x still uses st_ prefixes.
|
* BSD 1.0.x still uses st_ prefixes.
|
||||||
|
|
||||||
Revision 1.101 2003/09/16 16:17:01 peter
|
Revision 1.101 2003/09/16 16:17:01 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user