paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* initialize output of process_ea

Browse Source 
git-svn-id: trunk@3323 -
This commit is contained in:
peter 2006-04-23 19:19:49 +00:00
parent 31c3b5963c
commit 22ada6da0d
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/x86/aasmcpu.pas
View File

@ -1403,7 +1403,7 @@ implementation
{$ifdef x86_64}
function process_ea(const input:toper;var output:ea;rfield:longint):boolean;
function process_ea(const input:toper;out output:ea;rfield:longint):boolean;
var
sym : tasmsymbol;
md,s,rv : byte;
@ -1413,12 +1413,11 @@ implementation
isub,bsub : tsubregister;
begin
process_ea:=false;
fillchar(output,sizeof(output),0);
{Register ?}
if (input.typ=top_reg) then
begin
rv:=regval(input.reg);
output.sib_present:=false;
output.bytes:=0;
output.modrm:=$c0 or (rfield shl 3) or rv;
output.size:=1;
@ -1588,7 +1587,7 @@ implementation
{$else x86_64}
function process_ea(const input:toper;var output:ea;rfield:longint):boolean;
function process_ea(const input:toper;out output:ea;rfield:longint):boolean;
var
sym : tasmsymbol;
md,s,rv : byte;
@ -1598,12 +1597,11 @@ implementation
isub,bsub : tsubregister;
begin
process_ea:=false;
fillchar(output,sizeof(output),0);
{Register ?}
if (input.typ=top_reg) then
begin
rv:=regval(input.reg);
output.sib_present:=false;
output.bytes:=0;
output.modrm:=$c0 or (rfield shl 3) or rv;
output.size:=1;
process_ea:=true;
@ -1890,8 +1888,6 @@ implementation
end;
end;
ea_data.rex:=0;
ea_data.rex_present:=false;
{$endif x86_64}
if not process_ea(oper[(c shr 3) and 7]^, ea_data, 0) then
Message(asmw_e_invalid_effective_address)
@ -2073,14 +2069,14 @@ implementation
8,9,10 :
begin
{ rex should be written at this point }
{
(*
{$ifdef x86_64}
{$ifdef extdebug}
if (rex<>0) and not(rexwritten) then
internalerror(200603192);
{$endif extdebug}
{$endif x86_64}
}
*)
{$ifdef x86_64}
if rex<>0 then
begin
@ -2224,7 +2220,7 @@ implementation
Message(asmw_e_64bit_not_supported);
{$endif x86_64}
end;
{
(*
{$ifdef x86_64}
if rex<>0 then
begin
@ -2235,7 +2231,7 @@ implementation
objdata.writebytes(bytes,1);
end;
{$endif x86_64}
}
*)
end;
212 :
begin