Procházet zdrojové kódy

Support ait_ent and ait_ent_end

git-svn-id: trunk@21784 -
pierre před 13 roky
rodič
revize
9b7fec59bb
1 změnil soubory, kde provedl 14 přidání a 22 odebrání
  1. 14 22
      compiler/aggas.pas

+ 14 - 22
compiler/aggas.pas

@@ -1177,15 +1177,6 @@ implementation
                   else
                     AsmWriteln(tai_symbol(hp).sym.name);
                 end;
-               if (target_info.system in [system_mipsel_linux,system_mipseb_linux])
-                  and (tai_symbol(hp).sym.typ = AT_FUNCTION) then
-                begin
-                  AsmWrite(#9'.ent'#9);
-                  if replaceforbidden then
-                    AsmWriteln(ReplaceForbiddenAsmSymbolChars(tai_symbol(hp).sym.name))
-                  else
-                    AsmWriteln(tai_symbol(hp).sym.name);
-                end;
                if (target_info.system = system_powerpc64_linux) and
                  (tai_symbol(hp).sym.typ = AT_FUNCTION) then
                  begin
@@ -1256,28 +1247,29 @@ implementation
                AsmWriteLn(#9'.thumb_func');
              end;
 {$endif arm}
-{$if defined(alpha)}
            ait_ent:
              begin
-               AsmWriteLn(#9'.ent'#9+tai_ent(hp).Name);
+               AsmWrite(#9'.ent'#9);
+			   if replaceforbidden then
+                 AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_ent(hp).Name))
+               else
+                 AsmWriteLn(tai_ent(hp).Name);
              end;
-{$endif alpha}
-           ait_symbol_end :
+           ait_ent_end:
+             begin
+               AsmWrite(#9'.end'#9);
+			   if replaceforbidden then
+                 AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_ent_end(hp).Name))
+               else
+  			     AsmWriteLn(tai_ent_end(hp).Name);
+             end;
+            ait_symbol_end :
              begin
                if tf_needs_symbol_size in target_info.flags then
                 begin
                   s:=target_asm.labelprefix+'e'+tostr(symendcount);
                   inc(symendcount);
                   AsmWriteLn(s+':');
-                  if (target_info.system in [system_mipsel_linux,system_mipseb_linux])
-                     and (tai_symbol_end(hp).sym.typ = AT_FUNCTION) then
-                    begin
-                      AsmWrite(#9'.end'#9);
-                      if replaceforbidden then
-                        AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbol_end(hp).sym.name))
-                      else
-                        AsmWriteLn(tai_symbol_end(hp).sym.name);
-                    end;
                   AsmWrite(#9'.size'#9);
                   if (target_info.system = system_powerpc64_linux) and (tai_symbol_end(hp).sym.typ = AT_FUNCTION) then
                     AsmWrite('.');