paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 00:39:34 +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;
{ enum packing }
if (m_tp7 in aktmodeswitches) then
aktpackenum:=1
aktpackenum:=1
else
aktpackenum:=4;
aktpackenum:=4;
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;
SetCompileMode:=b;
@ -1696,7 +1704,10 @@ implementation
end.
{
$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
* cginfo renamed to cgbase
* moved cgmessage to verbose