paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 21:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ First working revision

Browse Source
This commit is contained in:
carl 2002-07-25 17:55:41 +00:00
parent 86ef6eec0b
commit 9a26de0ea3
1 changed files with 10 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
compiler/ncginl.pas
View File

@ -32,15 +32,14 @@ interface
type
tcginlinenode = class(tinlinenode)
procedure pass_2;override;
{ Handle the assert routine }
procedure second_assigned;virtual; abstract;
procedure second_assert;virtual;
procedure second_sizeoftypeof;virtual;
procedure second_length;virtual;
procedure second_predsucc;virtual;
procedure second_incdec;virtual;
procedure second_typeinfo;virtual;
procedure second_assigned;virtual;
procedure second_includeexclude;virtual;
procedure second_includeexclude;virtual; abstract;
procedure second_pi; virtual;
procedure second_arctan_real; virtual;
procedure second_abs_real; virtual;
@ -414,12 +413,12 @@ implementation
{*****************************************************************************
ASSIGNED GENERIC HANDLING
*****************************************************************************}
(*
procedure tcginlinenode.second_Assigned;
var
hreg : tregister;
ptrvalidlabel : tasmlabel;
begin
WriteLN('Entering assigned node!');
secondpass(tcallparanode(left).left);
location_release(exprasmlist,tcallparanode(left).left.location);
hreg := rg.getregisterint(exprasmlist);
@ -437,95 +436,12 @@ implementation
cg.a_load_const_reg(exprasmlist, OS_INT, 0, hreg);
cg.a_label(exprasmlist,ptrvalidlabel);
end;
location.register := hreg;
location_reset(location,LOC_REGISTER,OS_INT);
WriteLn('Exiting assigned node!');
location_reset(location,LOC_REGISTER,def_cgsize(resulttype.def));
location.register := rg.makeregsize(hreg,def_cgsize(resulttype.def));
end;
*)
{*****************************************************************************
INCLUDE/EXCLUDE GENERIC HANDLING
*****************************************************************************}
procedure tcginlinenode.second_IncludeExclude;
var
scratch_reg : boolean;
hregister : tregister;
asmop : tasmop;
L : longint;
pushedregs : TMaybesave;
cgop : topcg;
{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
begin
location_copy(location,left.location);
secondpass(tcallparanode(left).left);
if tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn then
begin
{ calculate bit position }
l:=1 shl (tordconstnode(tcallparanode(tcallparanode(left).right).left).value mod 32);
{ determine operator }
if inlinenumber=in_include_x_y then
cgop:=OP_OR
else
begin
cgop:=OP_AND;
l:=not(l);
end;
if (tcallparanode(left).left.location.loc=LOC_REFERENCE) then
begin
inc(tcallparanode(left).left.location.reference.offset,
(tordconstnode(tcallparanode(tcallparanode(left).right).left).value div 32)*4);
cg.a_op_const_ref(exprasmlist,cgop,OS_INT,l,tcallparanode(left).left.location.reference);
location_release(exprasmlist,tcallparanode(left).left.location);
end
else
{ LOC_CREGISTER }
begin
cg.a_op_const_reg(exprasmlist,cgop,l,tcallparanode(left).left.location.register);
end;
end
else
begin
{ generate code for the element to set }
maybe_save(exprasmlist,tcallparanode(tcallparanode(left).right).left.registers32,
tcallparanode(left).left.location,pushedregs);
secondpass(tcallparanode(tcallparanode(left).right).left);
maybe_restore(exprasmlist,tcallparanode(left).left.location,pushedregs);
{ determine asm operator }
if inlinenumber=in_include_x_y then
asmop:=A_BTS
else
asmop:=A_BTR;
if tcallparanode(tcallparanode(left).right).left.location.loc in [LOC_CREGISTER,LOC_REGISTER] then
{ we don't need a mod 32 because this is done automatically }
{ by the bts instruction. For proper checking we would }
{ note: bts doesn't do any mod'ing, that's why we can also use }
{ it for normalsets! (JM) }
{ need a cmp and jmp, but this should be done by the }
{ type cast code which does range checking if necessary (FK) }
begin
scratch_reg := FALSE;
WriteLn('HELLO!');
hregister := rg.makeregsize(tcallparanode(tcallparanode(left).right).left.location.register,OS_INT);
end
else
begin
scratch_reg := TRUE;
hregister:=cg.get_scratch_reg_int(exprasmlist);
end;
cg.a_load_loc_reg(exprasmlist,tcallparanode(tcallparanode(left).right).left.location,hregister);
if (tcallparanode(left).left.location.loc=LOC_REFERENCE) then
emit_reg_ref(asmop,S_L,hregister,tcallparanode(left).left.location.reference)
else
emit_reg_reg(asmop,S_L,hregister,tcallparanode(left).left.location.register);
if scratch_reg then
cg.free_scratch_reg(exprasmlist,hregister);
end;
end;
{*****************************************************************************
FLOAT GENERIC HANDLING
*****************************************************************************}
@ -581,7 +497,10 @@ end.
{
$Log$
Revision 1.1 2002-07-24 04:07:49 carl
Revision 1.2 2002-07-25 17:55:41 carl
+ First working revision
Revision 1.1 2002/07/24 04:07:49 carl
+ first revision (incomplete)
}