Browse Source

* Fixed warnings and notes.

git-svn-id: trunk@13139 -
yury 16 năm trước cách đây
mục cha
commit
f726e1691b

+ 2 - 0
compiler/systems/t_win.pas

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

+ 2 - 1
compiler/x86/agx86int.pas

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

+ 0 - 2
compiler/x86/nx86cnv.pas

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

+ 1 - 1
compiler/x86_64/cpupara.pas

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

+ 2 - 2
compiler/x86_64/rax64int.pas

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