Browse Source

* branch b does not jump to dotted symbol now

olle 23 years ago
parent
commit
e2f2f22f91
1 changed files with 8 additions and 5 deletions
  1. 8 5
      compiler/powerpc/agppcmpw.pas

+ 8 - 5
compiler/powerpc/agppcmpw.pas

@@ -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_BA,A_BLA:
+             A_B,A_BA,A_BLA:
                s:=#9+op2str[op]+#9;
-             A_B,A_BL:
+             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_B) or (op=A_BL) then
+          if op=A_BL then
             s:=s+'[PR]';
         end
       else
@@ -977,7 +977,7 @@ ait_stab_function_name : ;
             allowdirect : true;
             needar : true;
             labelprefix_only_inside_procedure : true;
-            labelprefix : '@@';
+            labelprefix : '@';
             comment : '; ';
             secnames : ('',
               'csect','csect','csect',  {TODO: Perhaps use other section types.}
@@ -990,7 +990,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.11  2002-10-19 23:52:40  olle
+  Revision 1.12  2002-10-23 15:31:01  olle
+    * branch b does not jump to dotted symbol now
+
+  Revision 1.11  2002/10/19 23:52:40  olle
     * import directive changed
 
   Revision 1.10  2002/10/10 19:39:37  florian