paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changes from Olle to get simple programs compiled and assembled

Browse Source
This commit is contained in:
florian 2002-10-10 19:39:37 +00:00
parent 6459b97052
commit 8ad5fe9533
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/powerpc/agppcmpw.pas
View File

@ -323,7 +323,7 @@ interface
end;
end;
Function GetInstruction(hp : tai):string; {CHANGED from methot to proc}
Function GetInstruction(hp : tai):string; {CHANGED from method to proc}
var op: TAsmOp;
s: string;
i: byte;
@ -334,15 +334,15 @@ interface
begin
{ direct BO/BI in op[0] and op[1] not supported, put them in condition! }
case op of
A_B,A_BA,A_BLA:
A_BA,A_BLA:
s:=#9+op2str[op]+#9;
A_BL:
A_B,A_BL:
s:=#9+op2str[op]+#9'.';
else
s:=cond2str(op,taicpu(hp).condition)+',';
end;
s:=s+getopstr_jmp(taicpu(hp).oper[0]);
if op=A_BL then
if (op=A_B) or (op=A_BL) then
s:=s+'[PR]';
end
else
@ -753,16 +753,21 @@ interface
begin
AsmWriteLn(#9'export'#9'.'+s+'[PR] => ''.'+tai_symbol(hp).sym.name+'[PR]''');
AsmWriteLn(#9'export'#9+s+'[DS] => '''+tai_symbol(hp).sym.name+'[DS]''');
AsmWriteLn(#9'csect'#9'.'+s+'[PR]');
end
else
begin
AsmWriteLn(#9'export'#9'.'+s+'[PR]');
AsmWriteLn(#9'export'#9+s+'[DS]');
AsmWriteLn(#9'csect'#9'.'+s+'[PR]');
end;
{Entry in transition vector: }
AsmWriteLn(#9'csect'#9+s+'[DS]');
AsmWriteLn(#9'dc.l'#9'.'+s);
AsmWriteln(#9'dc.l'#9'TOC[tc0]');
{Entry in TOC: }
AsmWriteLn(#9'toc');
AsmWriteLn(#9'tc'#9+s+'[TC],'+s+'[DS]');
{Start the section of the body of the proc: }
AsmWriteLn(#9'csect'#9'.'+s+'[PR]');
AsmWrite('.');
AsmWrite(s);
AsmWriteLn(':');
@ -985,7 +990,10 @@ initialization
end.
{
$Log$
Revision 1.9 2002-10-07 21:19:53 florian
Revision 1.10 2002-10-10 19:39:37 florian
* changes from Olle to get simple programs compiled and assembled
Revision 1.9 2002/10/07 21:19:53 florian
* more mpw fixes
Revision 1.8 2002/10/06 22:46:20 florian
@ -1003,4 +1011,4 @@ end.
Revision 1.1 2002/08/20 21:40:44 florian
+ target macos for ppc added
+ frame work for mpw assembler output
}
}