paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 12:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed warnings and notes.

Browse Source 
git-svn-id: trunk@13139 -
This commit is contained in:
yury 2009-05-13 11:26:01 +00:00
parent e23a304254
commit f726e1691b
5 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/t_win.pas
View File

@ -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 =
( (

3
compiler/x86/agx86int.pas
View File

@ -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 =
( (

2
compiler/x86/nx86cnv.pas
View File

@ -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;

2
compiler/x86_64/cpupara.pas
View File

@ -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

4
compiler/x86_64/rax64int.pas
View File

@ -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 =