paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* delphi and tp7 mode use intel asm by default

Browse Source
This commit is contained in:
peter 2003-10-02 21:16:18 +00:00
parent 13101d50e8
commit 7d3f0468e4
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/globals.pas
View File

@ -1336,11 +1336,19 @@ implementation
end; end;
{ enum packing } { enum packing }
if (m_tp7 in aktmodeswitches) then if (m_tp7 in aktmodeswitches) then
aktpackenum:=1 aktpackenum:=1
else else
aktpackenum:=4; aktpackenum:=4;
if changeinit then if changeinit then
initpackenum:=aktpackenum; initpackenum:=aktpackenum;
{$ifdef i386}
{ Default to intel assembler for delphi/tp7 on i386 }
if (m_delphi in aktmodeswitches) or
(m_tp7 in aktmodeswitches) then
aktasmmode:=asmmode_i386_intel;
if changeinit then
initasmmode:=aktasmmode;
{$endif i386}
end; end;
SetCompileMode:=b; SetCompileMode:=b;
@ -1696,7 +1704,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.104 2003-10-01 20:34:48 peter Revision 1.105 2003-10-02 21:16:18 peter
* delphi and tp7 mode use intel asm by default
Revision 1.104 2003/10/01 20:34:48 peter
* procinfo unit contains tprocinfo * procinfo unit contains tprocinfo
* cginfo renamed to cgbase * cginfo renamed to cgbase
* moved cgmessage to verbose * moved cgmessage to verbose