Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Merged revisions 7144-7145 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r7144 | pierre | 2007-04-20 17:23:37 +0200 (Fri, 20 Apr 2007) | 1 line

+ CondAsmOptStr added for IDE
........
r7145 | pierre | 2007-04-20 17:23:53 +0200 (Fri, 20 Apr 2007) | 1 line

+ CondAsmOptStr added for IDE
........

git-svn-id: branches/fixes_2_2@7241 -

Jonas Maebe 18 years ago
parent
f18d6962b4
commit
6d7afb3d27
2 changed files with 8 additions and 0 deletions
Unified View Show Diff Stats
  1. 4 0
      compiler/powerpc/cpubase.pas
  2. 4 0
      compiler/powerpc64/cpubase.pas

+ 4 - 0
compiler/powerpc/cpubase.pas
View File 

@@ -209,6 +209,10 @@ uses
 
       CondAsmOp:array[0..CondAsmOps-1] of TasmOp=(
 
       CondAsmOp:array[0..CondAsmOps-1] of TasmOp=(
 
          A_BC, A_TW, A_TWI
 
          A_BC, A_TW, A_TWI
 
       );
 
       );
 
+      CondAsmOpStr:array[0..CondAsmOps-1] of string[7]=(
 
+        'BC','TW','TWI'
 
+      );
 
+
 
 
 
 {*****************************************************************************
 
 {*****************************************************************************
 
                                    Flags
 
                                    Flags

+ 4 - 0
compiler/powerpc64/cpubase.pas
View File 

@@ -228,6 +228,10 @@ const
 
   CondAsmOp: array[0..CondAsmOps - 1] of TasmOp = (
 
   CondAsmOp: array[0..CondAsmOps - 1] of TasmOp = (
 
     A_BC, A_TW, A_TWI
 
     A_BC, A_TW, A_TWI
 
     );
 
     );
 
+  CondAsmOpStr:array[0..CondAsmOps-1] of string[7]=(
 
+    'B','TW','TWI'
 
+    );
 
+
 
 
 
   {*****************************************************************************
 
   {*****************************************************************************
 
                                      Flags
 
                                      Flags