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

* fixed direct assembler for i386

Browse Source
This commit is contained in:
peter 2002-09-01 14:43:12 +00:00
parent a4e309d6ae
commit 90308521d5
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pstatmnt.pas
View File

@ -726,7 +726,10 @@ implementation
asmmode_i386_intel: asmmode_i386_intel:
asmstat:=tasmnode(ra386int.assemble); asmstat:=tasmnode(ra386int.assemble);
{$endif NoRA386Int} {$endif NoRA386Int}
{$else} {$else not i386}
asmmode_standard:
asmstat:=tasmnode(rasm.assemble);
{$endif i386}
asmmode_direct: asmmode_direct:
begin begin
if not target_asm.allowdirect then if not target_asm.allowdirect then
@ -740,10 +743,6 @@ implementation
asmstat:=tasmnode(radirect.assemble); asmstat:=tasmnode(radirect.assemble);
end; end;
asmmode_standard:
asmstat:=tasmnode(rasm.assemble);
{$endif}
else else
Message(parser_f_assembler_reader_not_supported); Message(parser_f_assembler_reader_not_supported);
end; end;
@ -1145,7 +1144,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.73 2002-08-25 19:25:20 peter Revision 1.74 2002-09-01 14:43:12 peter
* fixed direct assembler for i386
Revision 1.73 2002/08/25 19:25:20 peter
* sym.insert_in_data removed * sym.insert_in_data removed
* symtable.insertvardata/insertconstdata added * symtable.insertvardata/insertconstdata added
* removed insert_in_data call from symtable.insert, it needs to be * removed insert_in_data call from symtable.insert, it needs to be