paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 19:41:18 +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, nopfile,attfile,intfile,
infile,insfile : text; infile,insfile : text;
{ instruction fields } { instruction fields }
skip : boolean;
last, last,
ops : longint; ops : longint;
intopcode, intopcode,
@ -257,8 +258,6 @@ begin
readln(infile,s); readln(infile,s);
while (s[1]=' ') do while (s[1]=' ') do
delete(s,1,1); delete(s,1,1);
if (s=';!!!x86_64') and not(x86_64) then
break;
if (s='') or (s[1]=';') then if (s='') or (s[1]=';') then
continue; continue;
if (s[1]='[') then if (s[1]='[') then
@ -343,6 +342,7 @@ begin
optypes[3]:=''; optypes[3]:='';
codes:=''; codes:='';
flags:=''; flags:='';
skip:=false;
{ ops and optypes } { ops and optypes }
i:=1; i:=1;
repeat repeat
@ -404,11 +404,15 @@ begin
while not(s[i] in [' ',#9,#13,#10]) and (i<=length(s)) do while not(s[i] in [' ',#9,#13,#10]) and (i<=length(s)) do
begin begin
hs:=readstr; hs:=readstr;
if (hs='ignore') or if x86_64 then
((upcase(hs)='X86_64') and not(x86_64)) then
begin begin
flags:='0'; if (upcase(hs)='NOX86_64') then
break; skip:=true;
end
else
begin
if (upcase(hs)='X86_64') then
skip:=true;
end; end;
if hs<>'ND' then if hs<>'ND' then
begin begin
@ -422,6 +426,8 @@ begin
break; break;
end; end;
{ write instruction } { write instruction }
if not skip then
begin
if not(first) then if not(first) then
writeln(insfile,',') writeln(insfile,',')
else else
@ -435,6 +441,7 @@ begin
write(insfile,' )'); write(insfile,' )');
inc(insns); inc(insns);
end; end;
end;
close(infile); close(infile);
closeinc(insfile); closeinc(insfile);
closeinc(intfile); closeinc(intfile);
@ -448,7 +455,10 @@ begin
end. end.
{ {
$Log$ $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 * linux path separators
Revision 1.4 2004/01/15 14:01:32 florian Revision 1.4 2004/01/15 14:01:32 florian