浏览代码

* Fixed warnings and notes.

git-svn-id: trunk@13139 -
yury 16 年之前
父节点
当前提交
f726e1691b
共有 5 个文件被更改,包括 7 次插入6 次删除
  1. 2 0
      compiler/systems/t_win.pas
  2. 2 1
      compiler/x86/agx86int.pas
  3. 0 2
      compiler/x86/nx86cnv.pas
  4. 1 1
      compiler/x86_64/cpupara.pas
  5. 2 2
      compiler/x86_64/rax64int.pas

+ 2 - 0
compiler/systems/t_win.pas

@@ -100,6 +100,7 @@ implementation
 
 
 
 
   const
   const
+{$ifdef i386}
     res_gnu_windres_info : tresinfo =
     res_gnu_windres_info : tresinfo =
         (
         (
           id     : res_gnu_windres;
           id     : res_gnu_windres;
@@ -110,6 +111,7 @@ implementation
           resourcefileclass : nil;
           resourcefileclass : nil;
           resflags : [];
           resflags : [];
         );
         );
+{$endif i386}
 {$ifdef x86_64}
 {$ifdef x86_64}
     res_win64_gorc_info : tresinfo =
     res_win64_gorc_info : tresinfo =
         (
         (

+ 2 - 1
compiler/x86/agx86int.pas

@@ -972,6 +972,7 @@ implementation
 *****************************************************************************}
 *****************************************************************************}
 
 
     const
     const
+{$ifdef i386}
        as_i386_tasm_info : tasminfo =
        as_i386_tasm_info : tasminfo =
           (
           (
             id           : as_i386_tasm;
             id           : as_i386_tasm;
@@ -1007,7 +1008,7 @@ implementation
             labelprefix : '@@';
             labelprefix : '@@';
             comment : '; ';
             comment : '; ';
           );
           );
-
+{$endif i386}
 {$ifdef x86_64}
 {$ifdef x86_64}
        as_x86_64_masm_info : tasminfo =
        as_x86_64_masm_info : tasminfo =
           (
           (

+ 0 - 2
compiler/x86/nx86cnv.pas

@@ -87,9 +87,7 @@ implementation
       var
       var
 {$ifndef cpu64bitalu}
 {$ifndef cpu64bitalu}
         hreg2,
         hreg2,
-{$endif not cpu64bitalu}
         hregister : tregister;
         hregister : tregister;
-{$ifndef cpu64bitalu}
         href      : treference;
         href      : treference;
 {$endif not cpu64bitalu}
 {$endif not cpu64bitalu}
         resflags  : tresflags;
         resflags  : tresflags;

+ 1 - 1
compiler/x86_64/cpupara.pas

@@ -491,7 +491,7 @@ unit cpupara;
         loc        : array[1..2] of tcgloc;
         loc        : array[1..2] of tcgloc;
         paralen,
         paralen,
         locidx,
         locidx,
-        l,i,
+        i,
         varalign,
         varalign,
         paraalign  : longint;
         paraalign  : longint;
       begin
       begin

+ 2 - 2
compiler/x86_64/rax64int.pas

@@ -39,7 +39,7 @@ Unit rax64int;
     uses
     uses
       rabase,systems,rax86,aasmcpu;
       rabase,systems,rax86,aasmcpu;
 
 
-{
+(*
     procedure tx8664intreader.handleopcode;
     procedure tx8664intreader.handleopcode;
       var
       var
         instr : Tx86Instruction;
         instr : Tx86Instruction;
@@ -55,7 +55,7 @@ Unit rax64int;
         instr.ConcatInstruction(curlist);
         instr.ConcatInstruction(curlist);
         instr.Free;
         instr.Free;
       end;
       end;
-}
+*)
 
 
 const
 const
   asmmode_x86_64_intel_info : tasmmodeinfo =
   asmmode_x86_64_intel_info : tasmmodeinfo =