paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 12:44:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added asm directive ALIGNING OFF to avoid unexpected aligning by the assembler

Browse Source
This commit is contained in:
olle 2003-08-18 11:47:15 +00:00
parent 680d60cb40
commit 4c5827fbee
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/powerpc/agppcmpw.pas
View File

@ -1046,7 +1046,7 @@ function getreferencestring(var ref : treference) : string;
begin begin
if tai_symbol(hp).sym.typ=AT_FUNCTION then if tai_symbol(hp).sym.typ=AT_FUNCTION then
GenProcedureHeader(hp) GenProcedureHeader(hp)
else else if tai_symbol(hp).sym.typ=AT_DATA then
begin begin
s:= tai_symbol(hp).sym.name; s:= tai_symbol(hp).sym.name;
replaced:= ReplaceForbiddenChars(s); replaced:= ReplaceForbiddenChars(s);
@ -1068,7 +1068,9 @@ function getreferencestring(var ref : treference) : string;
AsmWriteLn(#9'csect'#9+s+'[TC]'); AsmWriteLn(#9'csect'#9+s+'[TC]');
AsmWriteLn(s+':'); AsmWriteLn(s+':');
end; end;
end; end
else
InternalError(2003071301);
end; end;
ait_symbol_end: ait_symbol_end:
{$ifdef GDB} {$ifdef GDB}
@ -1236,7 +1238,8 @@ function getreferencestring(var ref : treference) : string;
AsmLn; AsmLn;
*) *)
AsmWriteLn(#9'string asis'); {Interpret strings just to be the content between the quotes.} AsmWriteLn(#9'string asis'); {Interpret strings just to be the content between the quotes.}
AsmWriteLn(#9'aligning off'); {We do our own aligning.}
AsmLn; AsmLn;
end; end;
@ -1327,7 +1330,13 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.19 2003-04-06 21:01:40 olle Revision 1.21 2003-08-18 11:47:15 olle
+ added asm directive ALIGNING OFF to avoid unexpected aligning by the assembler
Revision 1.20 2002/10/01 05:17:27 olle
* minor fix
Revision 1.19 2003/04/06 21:01:40 olle
+ line numbers are now emitted in the assembler code + line numbers are now emitted in the assembler code
* bug in export and import directive fixed * bug in export and import directive fixed
* made code more in sync with aggas.pas * made code more in sync with aggas.pas