mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 12:59:24 +02:00
* Fixed warnings and notes.
git-svn-id: trunk@13139 -
This commit is contained in:
parent
e23a304254
commit
f726e1691b
@ -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 =
|
||||
(
|
||||
|
@ -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 =
|
||||
(
|
||||
|
@ -87,9 +87,7 @@ implementation
|
||||
var
|
||||
{$ifndef cpu64bitalu}
|
||||
hreg2,
|
||||
{$endif not cpu64bitalu}
|
||||
hregister : tregister;
|
||||
{$ifndef cpu64bitalu}
|
||||
href : treference;
|
||||
{$endif not cpu64bitalu}
|
||||
resflags : tresflags;
|
||||
|
@ -491,7 +491,7 @@ unit cpupara;
|
||||
loc : array[1..2] of tcgloc;
|
||||
paralen,
|
||||
locidx,
|
||||
l,i,
|
||||
i,
|
||||
varalign,
|
||||
paraalign : longint;
|
||||
begin
|
||||
|
@ -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 =
|
||||
|
Loading…
Reference in New Issue
Block a user