From d4df420802c79459e23de0a79fed39f3ab0b7304 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 9 May 2000 06:39:17 +0000
Subject: [PATCH]  + generate also i386nop.inc containing the number of opcodes

---
 compiler/utils/nasmconv.pp | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/compiler/utils/nasmconv.pp b/compiler/utils/nasmconv.pp
index c556ec5921..5ec7b6c3ae 100644
--- a/compiler/utils/nasmconv.pp
+++ b/compiler/utils/nasmconv.pp
@@ -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