paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 05:01:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ generate also i386nop.inc containing the number of opcodes

Browse Source
This commit is contained in:
pierre 2000-05-09 06:39:17 +00:00
parent bf20aa47d9
commit d4df420802
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/utils/nasmconv.pp
View File

@ -203,7 +203,8 @@ var
maxinfolen,
code : byte;
insns : longint;
attsuffile,propfile,opfile,attfile,intfile,
attsuffile,propfile,opfile,
nopfile,attfile,intfile,
infile,insfile : text;
{ instruction fields }
last,
@ -224,6 +225,9 @@ begin
{ create inc files }
openinc(insfile,'i386tab.inc');
openinc(opfile,'i386op.inc');
assign(nopfile,'i386nop.inc');
rewrite(nopfile);
writeln(nopfile,'{ don''t edit, this file is generated from i386ins.dat }');
openinc(attfile,'i386att.inc');
openinc(attsuffile,'i386atts.inc');
openinc(intfile,'i386int.inc');
@ -418,12 +422,17 @@ begin
closeinc(attfile);
closeinc(attsuffile);
closeinc(opfile);
writeln(nopfile,insns,';');
close(nopfile);
closeinc(propfile);
writeln(insns,' nodes procesed (maxinfolen=',maxinfolen,')');
end.
{
$Log$
Revision 1.9 2000-04-04 13:44:03 pierre
Revision 1.10 2000-05-09 06:39:17 pierre
+ generate also i386nop.inc containing the number of opcodes
Revision 1.9 2000/04/04 13:44:03 pierre
+ R suffix for integer FPU operations
Revision 1.8 2000/02/09 13:23:11 peter