mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-15 23:29:44 +00:00
Remove some unused or write-only variables.
This commit is contained in:
parent
7e860e60df
commit
ae89e77bbe
6
Gen.pas
6
Gen.pas
|
@ -692,7 +692,6 @@ var
|
||||||
adc_dir,inc_abs,adc_s: integer;
|
adc_dir,inc_abs,adc_s: integer;
|
||||||
disp: integer; {direct page location}
|
disp: integer; {direct page location}
|
||||||
lab1: integer; {label number}
|
lab1: integer; {label number}
|
||||||
lLong: longType; {used to reserve gLong}
|
|
||||||
nd: icptr; {for swapping left/right children}
|
nd: icptr; {for swapping left/right children}
|
||||||
opcode: pcodes; {temp storage; for efficiency}
|
opcode: pcodes; {temp storage; for efficiency}
|
||||||
simpleStore: boolean; {is the store absolute or direct?}
|
simpleStore: boolean; {is the store absolute or direct?}
|
||||||
|
@ -722,7 +721,6 @@ begin {GenAdlSbl}
|
||||||
if save <> nil then
|
if save <> nil then
|
||||||
gLong.preference :=
|
gLong.preference :=
|
||||||
A_X+onStack+inPointer+localAddress+globalLabel+constant;
|
A_X+onStack+inPointer+localAddress+globalLabel+constant;
|
||||||
lLong := gLong;
|
|
||||||
|
|
||||||
{set up the master instructions}
|
{set up the master instructions}
|
||||||
opcode := op^.opcode;
|
opcode := op^.opcode;
|
||||||
|
@ -2021,7 +2019,6 @@ var
|
||||||
lab1,lab2,lab3: integer; {label numbers}
|
lab1,lab2,lab3: integer; {label numbers}
|
||||||
bne: integer; {instruction for a pc_equ bne branch}
|
bne: integer; {instruction for a pc_equ bne branch}
|
||||||
beq: integer; {instruction for a pc_equ beq branch}
|
beq: integer; {instruction for a pc_equ beq branch}
|
||||||
lLong: longType; {local long value information}
|
|
||||||
leftOp,rightOp: pcodes; {opcode codes to left, right}
|
leftOp,rightOp: pcodes; {opcode codes to left, right}
|
||||||
|
|
||||||
|
|
||||||
|
@ -2269,7 +2266,6 @@ else
|
||||||
cgLong,cgULong: begin
|
cgLong,cgULong: begin
|
||||||
gLong.preference := onStack;
|
gLong.preference := onStack;
|
||||||
GenTree(op^.left);
|
GenTree(op^.left);
|
||||||
lLong := gLong;
|
|
||||||
gLong.preference := A_X;
|
gLong.preference := A_X;
|
||||||
GenTree(op^.right);
|
GenTree(op^.right);
|
||||||
if gLong.where = onStack then begin
|
if gLong.where = onStack then begin
|
||||||
|
@ -3937,7 +3933,6 @@ var
|
||||||
opcode: pcodes; {op^.opcode}
|
opcode: pcodes; {op^.opcode}
|
||||||
optype: baseTypeEnum; {op^.optype}
|
optype: baseTypeEnum; {op^.optype}
|
||||||
q: integer; {op^.q}
|
q: integer; {op^.q}
|
||||||
special: boolean; {special save?}
|
|
||||||
|
|
||||||
begin {GenSroCpo}
|
begin {GenSroCpo}
|
||||||
opcode := op^.opcode;
|
opcode := op^.opcode;
|
||||||
|
@ -4693,7 +4688,6 @@ procedure GenStrCop (op: icptr);
|
||||||
var
|
var
|
||||||
disp: integer; {store location}
|
disp: integer; {store location}
|
||||||
optype: baseTypeEnum; {op^.optype}
|
optype: baseTypeEnum; {op^.optype}
|
||||||
special: boolean; {use special processing?}
|
|
||||||
zero: boolean; {is the operand a constant zero?}
|
zero: boolean; {is the operand a constant zero?}
|
||||||
|
|
||||||
begin {GenStrCop}
|
begin {GenStrCop}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user