mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-01 00:10:00 +01:00
15 lines
296 B
ObjectPascal
15 lines
296 B
ObjectPascal
{ generates iA-64 register dat templates }
|
|
|
|
uses
|
|
sysutils;
|
|
var
|
|
i : longint;
|
|
begin
|
|
{ generate int registers }
|
|
for i:=0 to 127 do
|
|
writeln(format('R%d,$01,%d,r%d,r%d',[i,i,i,i]));
|
|
{ generate fp registers }
|
|
for i:=0 to 127 do
|
|
writeln(format('F%d,$02,%d,r%d,r%d',[i,i,i,i]));
|
|
end.
|