paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support X86_64 and NOX86_64 flags

Browse Source
This commit is contained in:
peter 2004-02-09 20:30:48 +00:00
parent 4372f8ef91
commit e741991cfc
1 changed files with 32 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/utils/mkx86ins.pp
View File

@ -208,6 +208,7 @@ var
nopfile,attfile,intfile,
infile,insfile : text;
{ instruction fields }
skip : boolean;
last,
ops : longint;
intopcode,
@ -257,8 +258,6 @@ begin
readln(infile,s);
while (s[1]=' ') do
delete(s,1,1);
if (s=';!!!x86_64') and not(x86_64) then
break;
if (s='') or (s[1]=';') then
continue;
if (s[1]='[') then
@ -343,6 +342,7 @@ begin
optypes[3]:='';
codes:='';
flags:='';
skip:=false;
{ ops and optypes }
i:=1;
repeat
@ -404,11 +404,15 @@ begin
while not(s[i] in [' ',#9,#13,#10]) and (i<=length(s)) do
begin
hs:=readstr;
if (hs='ignore') or
((upcase(hs)='X86_64') and not(x86_64)) then
if x86_64 then
begin
flags:='0';
break;
if (upcase(hs)='NOX86_64') then
skip:=true;
end
else
begin
if (upcase(hs)='X86_64') then
skip:=true;
end;
if hs<>'ND' then
begin
@ -422,6 +426,8 @@ begin
break;
end;
{ write instruction }
if not skip then
begin
if not(first) then
writeln(insfile,',')
else
@ -435,6 +441,7 @@ begin
write(insfile,' )');
inc(insns);
end;
end;
close(infile);
closeinc(insfile);
closeinc(intfile);
@ -448,7 +455,10 @@ begin
end.
{
$Log$
Revision 1.5 2004-02-03 16:50:51 peter
Revision 1.6 2004-02-09 20:30:48 peter
* support X86_64 and NOX86_64 flags
Revision 1.5 2004/02/03 16:50:51 peter
* linux path separators
Revision 1.4 2004/01/15 14:01:32 florian