Remove unused variables, parameters and procedures.
2021-08-02 Gaius Mulley <gaius.mulley@southwales.ac.uk> gcc/m2/ * gm2-compiler/M2BasicBlock.mod (ConvertQuads2BasicBlock): Assign CurrentBB to NIL. (Sub): Commented out. (DisplayBasicBlocks): Commented out. (DisplayBlock): Commented out. * gm2-compiler/M2Code.mod (PrintModule): Commented out. (DisplayQuadsInScope): Commented out. (DisplayQuadNumbers): Commented out. * gm2-compiler/M2Error.mod: Import NulName. (DoFormat1) initialize n. (DoFormat2) initialize n. * gm2-compiler/M2Optimize.mod (DeleteUnReachableProcedures): Commented out. * gm2-compiler/M2Options.mod: Commented out string garbage debugging procedures. (SetDebugging) Commented out. * gm2-compiler/M2Printf.mod (IsDigit): Commented out. * gm2-compiler/P1SymBuild.mod (CheckProcedure): Removed. (CheckFileName) Commented out. (BuildHiddenType) Remove Sym. Use Assert to check return value. * gm2-compiler/P2SymBuild.def (SeenBoolean): Remove sym parameter. (SeenZType): Remove sym parameter. (SeenRType): Remove sym parameter. (SeenCType): Remove sym parameter. * gm2-compiler/P2SymBuild.mod (SeenBoolean): Remove sym parameter. (SeenZType): Remove sym parameter. (SeenRType): Remove sym parameter. (SeenCType): Remove sym parameter. (StartBuildEnumeration): Remove name. (FailParameter) Use default ELSE and Assert. (BuildNulParam) Removed. (BuildFieldRecord) Remove name. Assign Field to NulSym. (BuildVarientSelector) Remove Parent. * gm2-compiler/SymbolTable.def (GCFieldVarient): Removed. (FillInUnboundedFields): Remove field. * gm2-compiler/gm2lcc.mod (CollectObjects): remove s. (WriteModuleName) Removed. * gm2-compiler/gm2lorder.mod (InitRuntimeModules) Remove l. * gm2-gcc/m2expr.c (divFloorOverflowPosPos) Remove unused parameters. (divFloorOverflowPosNeg) Remove unused parameters. (divFloorOverflowNegPos) Remove unused parameters. libgm2/ * libm2pim/Makefile.in: (Rebuilt). Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>
This commit is contained in:
parent
ab813f8b06
commit
7098eb60a3
|
@ -175,6 +175,7 @@ BEGIN
|
|||
since they will never be executed.
|
||||
*)
|
||||
LastBB := NIL ;
|
||||
CurrentBB := NIL ;
|
||||
Quad := Start ;
|
||||
LastQuadConditional := TRUE ; (* Force Rule (i) *)
|
||||
LastQuadCall := FALSE ;
|
||||
|
@ -299,6 +300,7 @@ END Add ;
|
|||
Sub deletes an element from the specified queue.
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE Sub (VAR Head: BasicBlock;
|
||||
b: BasicBlock) ;
|
||||
BEGIN
|
||||
|
@ -314,12 +316,14 @@ BEGIN
|
|||
b^.Right^.Left := b^.Left
|
||||
END
|
||||
END Sub ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
DisplayBasicBlocks - displays the basic block data structure.
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE DisplayBasicBlocks (bb: BasicBlock) ;
|
||||
VAR
|
||||
b: BasicBlock ;
|
||||
|
@ -343,6 +347,7 @@ BEGIN
|
|||
WriteString(' end ') ; WriteCard(EndQuad, 6) ;
|
||||
END
|
||||
END DisplayBlock ;
|
||||
*)
|
||||
|
||||
|
||||
BEGIN
|
||||
|
|
|
@ -178,6 +178,7 @@ END DoModuleDeclare ;
|
|||
PrintModule -
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE PrintModule (sym: CARDINAL) ;
|
||||
VAR
|
||||
n: Name ;
|
||||
|
@ -185,6 +186,7 @@ BEGIN
|
|||
n := GetSymName (sym) ;
|
||||
printf1 ('module %a\n', n)
|
||||
END PrintModule ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
|
@ -388,12 +390,14 @@ END BasicBlockVariableAnalysis ;
|
|||
DisplayQuadsInScope -
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE DisplayQuadsInScope (sb: ScopeBlock) ;
|
||||
BEGIN
|
||||
printf0 ('Quads in scope\n') ;
|
||||
ForeachScopeBlockDo (sb, DisplayQuadRange) ;
|
||||
printf0 ('===============\n')
|
||||
END DisplayQuadsInScope ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
|
@ -425,6 +429,7 @@ END OptimizeScopeBlock ;
|
|||
DisplayQuadNumbers - the range, start..end.
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE DisplayQuadNumbers (start, end: CARDINAL) ;
|
||||
BEGIN
|
||||
IF DisplayQuadruples
|
||||
|
@ -432,6 +437,7 @@ BEGIN
|
|||
printf2 ('Coding [%d..%d]\n', start, end)
|
||||
END
|
||||
END DisplayQuadNumbers ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
|
|
|
@ -21,7 +21,7 @@ along with GNU Modula-2; see the file COPYING3. If not see
|
|||
|
||||
IMPLEMENTATION MODULE M2Error ;
|
||||
|
||||
FROM NameKey IMPORT Name, KeyToCharStar ;
|
||||
FROM NameKey IMPORT NulName, Name, KeyToCharStar ;
|
||||
FROM DynamicStrings IMPORT String, InitString, InitStringCharStar, ConCat, ConCatChar, Mark, string, KillString, Dup ;
|
||||
FROM FIO IMPORT StdOut, WriteNBytes, Close, FlushBuffer ;
|
||||
FROM StrLib IMPORT StrLen, StrEqual ;
|
||||
|
@ -196,6 +196,7 @@ VAR
|
|||
s: String ;
|
||||
n: Name ;
|
||||
BEGIN
|
||||
n := NulName ;
|
||||
IF TranslateNameToCharStar(a, 1)
|
||||
THEN
|
||||
Cast(n, w) ;
|
||||
|
@ -250,6 +251,7 @@ VAR
|
|||
b : BITSET ;
|
||||
BEGIN
|
||||
b := {} ;
|
||||
n := NulName ;
|
||||
IF TranslateNameToCharStar(a, 1)
|
||||
THEN
|
||||
Cast(n, w1) ;
|
||||
|
@ -298,6 +300,7 @@ VAR
|
|||
b : BITSET ;
|
||||
BEGIN
|
||||
b := {} ;
|
||||
n := NulName ;
|
||||
IF TranslateNameToCharStar(a, 1)
|
||||
THEN
|
||||
Cast(n, w1) ;
|
||||
|
|
|
@ -383,6 +383,7 @@ END KnownReach ;
|
|||
DeleteUnReachableProcedures - Deletes all procedures that are unreachable.
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE DeleteUnReachableProcedures ;
|
||||
VAR
|
||||
ProcName: Name ;
|
||||
|
@ -464,6 +465,7 @@ BEGIN
|
|||
END
|
||||
END
|
||||
END Delete ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
|
|
|
@ -58,6 +58,8 @@ VAR
|
|||
ForcedLocationValue: location_t ;
|
||||
|
||||
|
||||
(* String garbage collection debugging routines.
|
||||
|
||||
(*
|
||||
doDSdbEnter -
|
||||
*)
|
||||
|
@ -94,7 +96,7 @@ END DSdbEnter ;
|
|||
PROCEDURE DSdbExit (s: String) ;
|
||||
BEGIN
|
||||
END DSdbExit ;
|
||||
|
||||
*)
|
||||
|
||||
(*
|
||||
#define DSdbEnter doDSdbEnter
|
||||
|
@ -465,6 +467,7 @@ BEGIN
|
|||
END SetUnboundedByReference ;
|
||||
|
||||
|
||||
(*
|
||||
(*
|
||||
SetDebugging - sets the debugging flag to, v.
|
||||
*)
|
||||
|
@ -474,7 +477,7 @@ BEGIN
|
|||
GenerateDebugging := value
|
||||
END SetDebugging ;
|
||||
|
||||
(*
|
||||
|
||||
(*
|
||||
SetProfiling - dummy procedure, as profiling is implemented in the gcc backend.
|
||||
*)
|
||||
|
|
|
@ -33,10 +33,12 @@ FROM NameKey IMPORT Name, KeyToCharStar ;
|
|||
IsDigit - returns TRUE if, ch, is a character 0..9
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE IsDigit (ch: CHAR) : BOOLEAN ;
|
||||
BEGIN
|
||||
RETURN (ch>='0') AND (ch<='9')
|
||||
END IsDigit ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
|
|
|
@ -96,15 +96,12 @@ FROM M2Comp IMPORT CompilingDefinitionModule,
|
|||
CONST
|
||||
Debugging = FALSE ;
|
||||
|
||||
VAR
|
||||
CheckProcedure: BOOLEAN ; (* Set if currently implementing a defined *)
|
||||
(* procedure. *)
|
||||
|
||||
|
||||
(*
|
||||
CheckName - checks to see that the module name matches the file name.
|
||||
CheckFileName - checks to see that the module name matches the file name.
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE CheckFileName (tok: CARDINAL; name: Name; ModuleType: ARRAY OF CHAR) ;
|
||||
VAR
|
||||
ext,
|
||||
|
@ -133,6 +130,7 @@ BEGIN
|
|||
MetaErrorString2 (s, MakeError (tok, name), MakeErrorS (tok, FileName))
|
||||
END
|
||||
END CheckFileName ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
|
@ -888,12 +886,11 @@ PROCEDURE BuildHiddenType ;
|
|||
VAR
|
||||
name : Name ;
|
||||
tokno: CARDINAL ;
|
||||
Sym : CARDINAL ;
|
||||
BEGIN
|
||||
PopTtok (name, tokno) ;
|
||||
(* WriteString('Hidden type encountered: ') ; *)
|
||||
(* WriteKey(Name) ; WriteLn ; *)
|
||||
Sym := MakeHiddenType(tokno, name)
|
||||
Assert (MakeHiddenType (tokno, name) # NulSym)
|
||||
END BuildHiddenType ;
|
||||
|
||||
|
||||
|
|
|
@ -1216,28 +1216,28 @@ PROCEDURE SeenString ;
|
|||
SeenBoolean - sets the operand type to a BOOLEAN.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenBoolean (sym: CARDINAL) ;
|
||||
PROCEDURE SeenBoolean ;
|
||||
|
||||
|
||||
(*
|
||||
SeenZType - sets the operand type to a Z type.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenZType (sym: CARDINAL) ;
|
||||
PROCEDURE SeenZType ;
|
||||
|
||||
|
||||
(*
|
||||
SeenRType - sets the operand type to a R type.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenRType (sym: CARDINAL) ;
|
||||
PROCEDURE SeenRType ;
|
||||
|
||||
|
||||
(*
|
||||
SeenCType - sets the operand type to a C type.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenCType (sym: CARDINAL) ;
|
||||
PROCEDURE SeenCType ;
|
||||
|
||||
|
||||
(*
|
||||
|
|
|
@ -70,7 +70,7 @@ FROM SymbolTable IMPORT NulSym,
|
|||
GetExported,
|
||||
PutExported, PutExportQualified, PutExportUnQualified,
|
||||
PutExportUnImplemented,
|
||||
PutFieldVarient, GCFieldVarient, PutVarientTag,
|
||||
PutFieldVarient, PutVarientTag,
|
||||
IsFieldVarient, IsVarient,
|
||||
CheckForEnumerationInCurrentModule,
|
||||
CheckForExportedImplementation,
|
||||
|
@ -734,13 +734,12 @@ END BuildConst ;
|
|||
|
||||
PROCEDURE StartBuildEnumeration ;
|
||||
VAR
|
||||
name: Name ;
|
||||
n,
|
||||
Type: CARDINAL ;
|
||||
tok : CARDINAL ;
|
||||
BEGIN
|
||||
PopT (n) ; (* n := # *)
|
||||
name := OperandT(n+1) ;
|
||||
(* name is in OperandT(n+1) but we dont need it here. *)
|
||||
tok := OperandTok (n+1) ;
|
||||
GetEnumerationFromFifoQueue (Type) ;
|
||||
CheckForExportedImplementation (Type) ; (* May be an exported hidden type *)
|
||||
|
@ -1795,8 +1794,8 @@ BEGIN
|
|||
THEN
|
||||
FirstModule := InitString('implementation module') ;
|
||||
SecondModule := InitString('definition module')
|
||||
ELSIF CompilingProgramModule()
|
||||
THEN
|
||||
ELSE
|
||||
Assert (CompilingProgramModule ()) ;
|
||||
FirstModule := InitString('program module') ;
|
||||
SecondModule := InitString('definition module')
|
||||
END ;
|
||||
|
@ -1983,24 +1982,6 @@ BEGIN
|
|||
END BuildOptFunction ;
|
||||
|
||||
|
||||
(*
|
||||
BuildNulParam - Builds a nul parameter on the stack.
|
||||
The Stack:
|
||||
|
||||
Entry Exit
|
||||
|
||||
<- Ptr
|
||||
Empty +------------+
|
||||
| 0 |
|
||||
|------------|
|
||||
*)
|
||||
|
||||
PROCEDURE BuildNulParam ;
|
||||
BEGIN
|
||||
PushT(0)
|
||||
END BuildNulParam ;
|
||||
|
||||
|
||||
(*
|
||||
BuildPointerType - builds a pointer type.
|
||||
The Stack:
|
||||
|
@ -2205,7 +2186,7 @@ END HandleRecordFieldPragmas ;
|
|||
|
||||
PROCEDURE BuildFieldRecord ;
|
||||
VAR
|
||||
name, n1 : Name ;
|
||||
n1 : Name ;
|
||||
tok,
|
||||
fsym,
|
||||
Field,
|
||||
|
@ -2219,7 +2200,7 @@ VAR
|
|||
BEGIN
|
||||
PopT(NoOfPragmas) ;
|
||||
Type := OperandT(NoOfPragmas*2+1) ;
|
||||
name := OperandF(NoOfPragmas*2+1) ;
|
||||
(* name := OperandF(NoOfPragmas*2+1) ; *)
|
||||
NoOfFields := OperandT(NoOfPragmas*2+2) ;
|
||||
Record := OperandT(NoOfPragmas*2+NoOfFields+3) ;
|
||||
IF IsRecord(Record)
|
||||
|
@ -2243,6 +2224,7 @@ BEGIN
|
|||
WriteKey(n1) ; WriteLn
|
||||
END
|
||||
END ;
|
||||
Field := NulSym ;
|
||||
i := 1 ;
|
||||
WHILE i<=NoOfFields DO
|
||||
IF Debugging
|
||||
|
@ -2265,7 +2247,7 @@ BEGIN
|
|||
END ;
|
||||
(* adjust the location of declaration to the one on the stack (rather than GetTokenNo). *)
|
||||
tok := OperandTok(NoOfPragmas*2+NoOfFields+3-i) ;
|
||||
IF tok # UnknownTokenNo
|
||||
IF (tok # UnknownTokenNo) AND (Field # NulSym)
|
||||
THEN
|
||||
PutDeclared (tok, Field)
|
||||
END ;
|
||||
|
@ -2308,7 +2290,6 @@ VAR
|
|||
Field,
|
||||
Type,
|
||||
Varient,
|
||||
Parent,
|
||||
VarField,
|
||||
Record : CARDINAL ;
|
||||
BEGIN
|
||||
|
@ -2317,7 +2298,6 @@ BEGIN
|
|||
Record := OperandT(1) ;
|
||||
IF IsRecord(Record)
|
||||
THEN
|
||||
Parent := Record ;
|
||||
Varient := NulSym ;
|
||||
InternalError ('not expecting a record symbol')
|
||||
ELSIF IsVarient(Record)
|
||||
|
@ -2341,7 +2321,6 @@ BEGIN
|
|||
END
|
||||
ELSE
|
||||
(* Record maybe FieldVarient *)
|
||||
Parent := GetParent(Record) ;
|
||||
Assert(IsFieldVarient(Record)) ;
|
||||
Varient := OperandT(1+2) ;
|
||||
Assert(IsVarient(Varient)) ;
|
||||
|
@ -2848,7 +2827,7 @@ END SeenCast ;
|
|||
SeenBoolean - sets the operand type to a BOOLEAN.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenBoolean (sym: CARDINAL) ;
|
||||
PROCEDURE SeenBoolean ;
|
||||
BEGIN
|
||||
type := boolean
|
||||
END SeenBoolean ;
|
||||
|
@ -2858,7 +2837,7 @@ END SeenBoolean ;
|
|||
SeenZType - sets the operand type to a Z type.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenZType (sym: CARDINAL) ;
|
||||
PROCEDURE SeenZType ;
|
||||
BEGIN
|
||||
type := ztype
|
||||
END SeenZType ;
|
||||
|
@ -2868,7 +2847,7 @@ END SeenZType ;
|
|||
SeenRType - sets the operand type to a R type.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenRType (sym: CARDINAL) ;
|
||||
PROCEDURE SeenRType ;
|
||||
BEGIN
|
||||
type := rtype
|
||||
END SeenRType ;
|
||||
|
@ -2878,7 +2857,7 @@ END SeenRType ;
|
|||
SeenCType - sets the operand type to a C type.
|
||||
*)
|
||||
|
||||
PROCEDURE SeenCType (sym: CARDINAL) ;
|
||||
PROCEDURE SeenCType ;
|
||||
BEGIN
|
||||
type := ctype
|
||||
END SeenCType ;
|
||||
|
|
|
@ -149,7 +149,6 @@ EXPORT QUALIFIED NulSym,
|
|||
PutFieldRecord,
|
||||
PutFieldVarient,
|
||||
GetVarient,
|
||||
GCFieldVarient,
|
||||
GetVarientTag,
|
||||
|
||||
PutVarientTag,
|
||||
|
@ -1351,14 +1350,6 @@ PROCEDURE PutFieldVarient (Field, Sym: CARDINAL) ;
|
|||
PROCEDURE GetVarient (Field: CARDINAL) : CARDINAL ;
|
||||
|
||||
|
||||
(*
|
||||
GCFieldVarient - garbage collect the field varient symbol, Sym.
|
||||
This must only be called once per Sym.
|
||||
*)
|
||||
|
||||
PROCEDURE GCFieldVarient (Sym: CARDINAL) ;
|
||||
|
||||
|
||||
(*
|
||||
IsRecordFieldAVarientTag - returns TRUE if record field, sym, is
|
||||
a varient tag.
|
||||
|
|
|
@ -5902,25 +5902,6 @@ BEGIN
|
|||
END GetVarient ;
|
||||
|
||||
|
||||
(*
|
||||
GCFieldVarient - garbage collect the field varient symbol, Sym.
|
||||
This must only be called once per Sym.
|
||||
*)
|
||||
|
||||
PROCEDURE GCFieldVarient (Sym: CARDINAL) ;
|
||||
BEGIN
|
||||
(*
|
||||
IF IsItemInList(UsedFVarientList, Sym)
|
||||
THEN
|
||||
RemoveItemFromList(UsedFVarientList, Sym)
|
||||
ELSE
|
||||
RemoveItemFromList(UsedFVarientList, Sym) ;
|
||||
PutItemIntoList(FreeFVarientList, Sym)
|
||||
END
|
||||
*)
|
||||
END GCFieldVarient ;
|
||||
|
||||
|
||||
(*
|
||||
EnsureOrder - providing that both symbols, a, and, b, exist in
|
||||
list, l. Ensure that, b, is placed after a.
|
||||
|
@ -10282,7 +10263,6 @@ PROCEDURE FillInUnboundedFields (tok: CARDINAL;
|
|||
sym: CARDINAL; SimpleType: CARDINAL; ndim: CARDINAL) ;
|
||||
VAR
|
||||
pSym : PtrToSymbol ;
|
||||
field : CARDINAL ;
|
||||
Contents: CARDINAL ;
|
||||
i : CARDINAL ;
|
||||
BEGIN
|
||||
|
@ -10302,15 +10282,15 @@ BEGIN
|
|||
FillInPointerFields(Contents, NulName, GetScope(SimpleType), NulSym) ;
|
||||
PutPointer(Contents, SimpleType) ;
|
||||
(* create the contents field for the unbounded array. *)
|
||||
field := PutFieldRecord(RecordType,
|
||||
Assert (PutFieldRecord(RecordType,
|
||||
MakeKey(UnboundedAddressName),
|
||||
Contents, NulSym) ;
|
||||
Contents, NulSym) # NulSym) ;
|
||||
(* create all the high fields for the unbounded array. *)
|
||||
i := 1 ;
|
||||
WHILE i<=ndim DO
|
||||
field := PutFieldRecord(RecordType,
|
||||
Assert (PutFieldRecord(RecordType,
|
||||
makekey(string(Mark(Sprintf1(Mark(InitString(UnboundedHighName)), i)))),
|
||||
Cardinal, NulSym) ;
|
||||
Cardinal, NulSym) # NulSym) ;
|
||||
INC(i)
|
||||
END ;
|
||||
Dimensions := ndim
|
||||
|
|
|
@ -63,7 +63,6 @@ VAR
|
|||
ProfileFound : BOOLEAN ;
|
||||
LibrariesFound: BOOLEAN ;
|
||||
TargetFound : BOOLEAN ;
|
||||
PathFound : BOOLEAN ;
|
||||
ExecCommand : BOOLEAN ; (* should we execute the final cmd *)
|
||||
UseAr : BOOLEAN ; (* use 'ar' and create archive *)
|
||||
UseRanlib : BOOLEAN ; (* use 'ranlib' to index archive *)
|
||||
|
@ -333,8 +332,7 @@ END FindModulesInFileList ;
|
|||
PROCEDURE CollectObjects (Command: String) : String ;
|
||||
VAR
|
||||
i, h: CARDINAL ;
|
||||
name,
|
||||
s : String ;
|
||||
name: String ;
|
||||
BEGIN
|
||||
i := 1 ;
|
||||
h := HighIndice (CmdLineObjects) ;
|
||||
|
@ -438,6 +436,7 @@ END GenCC ;
|
|||
after the string.
|
||||
*)
|
||||
|
||||
(*
|
||||
PROCEDURE WriteModuleName (ModuleName: String) ;
|
||||
BEGIN
|
||||
ModuleName := WriteS (fo, ModuleName) ;
|
||||
|
@ -445,6 +444,7 @@ BEGIN
|
|||
THEN
|
||||
END
|
||||
END WriteModuleName ;
|
||||
*)
|
||||
|
||||
|
||||
(*
|
||||
|
|
|
@ -62,15 +62,13 @@ VAR
|
|||
PROCEDURE InitRuntimeModules (s: String) ;
|
||||
VAR
|
||||
a : CARDINAL ;
|
||||
i, l,
|
||||
j : INTEGER ;
|
||||
i, j: INTEGER ;
|
||||
BEGIN
|
||||
IF runTime # NIL
|
||||
THEN
|
||||
runTime := KillIndex (runTime)
|
||||
END ;
|
||||
runTime := InitIndex (0) ;
|
||||
l := Length (s) ;
|
||||
i := 0 ;
|
||||
a := 0 ;
|
||||
REPEAT
|
||||
|
|
|
@ -2252,8 +2252,7 @@ END divFloorOverflowPosNeg ;
|
|||
RETURN i < j_mult_min. */
|
||||
|
||||
static tree
|
||||
divFloorOverflowPosPos (location_t location, tree i, tree j, tree lowest,
|
||||
tree min, tree max)
|
||||
divFloorOverflowPosPos (location_t location, tree i, tree j, tree min)
|
||||
{
|
||||
tree j_mult_min = m2expr_BuildMult (location, j, min, FALSE);
|
||||
tree i_lt_j_mult_min = m2expr_BuildLessThan (location, i, j_mult_min);
|
||||
|
@ -2316,7 +2315,7 @@ divFloorOverflowNegNeg (location_t location, tree i, tree j, tree lowest,
|
|||
return i_ge_j_mult_min_sub_j. */
|
||||
|
||||
static tree
|
||||
divFloorOverflowPosNeg (location_t location, tree i, tree j, tree lowest, tree min, tree max)
|
||||
divFloorOverflowPosNeg (location_t location, tree i, tree j, tree min)
|
||||
{
|
||||
tree j_mult_min = m2expr_BuildMult (location, j, min, FALSE);
|
||||
tree j_mult_min_sub_j = m2expr_BuildSub (location, j_mult_min, j, FALSE);
|
||||
|
@ -2337,7 +2336,7 @@ divFloorOverflowPosNeg (location_t location, tree i, tree j, tree lowest, tree m
|
|||
RETURN i < j_mult_min. */
|
||||
|
||||
static tree
|
||||
divFloorOverflowNegPos (location_t location, tree i, tree j, tree lowest, tree min, tree max)
|
||||
divFloorOverflowNegPos (location_t location, tree i, tree j, tree min)
|
||||
{
|
||||
tree j_mult_min = m2expr_BuildMult (location, j, min, FALSE);
|
||||
tree i_lt_j_mult_min = m2expr_BuildLessThan (location, i, j_mult_min);
|
||||
|
@ -2372,13 +2371,13 @@ divFloorOverflowCases (location_t location, tree i, tree j, tree lowest,
|
|||
tree i_lt_zero = m2expr_BuildLessThanZero (location, i, lowest, min, max);
|
||||
tree j_lt_zero = m2expr_BuildLessThanZero (location, j, lowest, min, max);
|
||||
tree a = m2expr_Build3TruthAndIf (location, i_gt_zero, j_gt_zero,
|
||||
divFloorOverflowPosPos (location, i, j, lowest, min, max));
|
||||
divFloorOverflowPosPos (location, i, j, min));
|
||||
tree b = m2expr_Build3TruthAndIf (location, i_lt_zero, j_lt_zero,
|
||||
divFloorOverflowNegNeg (location, i, j, lowest, min, max));
|
||||
tree c = m2expr_Build3TruthAndIf (location, i_gt_zero, j_lt_zero,
|
||||
divFloorOverflowPosNeg (location, i, j, lowest, min, max));
|
||||
divFloorOverflowPosNeg (location, i, j, min));
|
||||
tree d = m2expr_Build3TruthAndIf (location, i_lt_zero, j_gt_zero,
|
||||
divFloorOverflowNegPos (location, i, j, lowest, min, max));
|
||||
divFloorOverflowNegPos (location, i, j, min));
|
||||
return m2expr_Build4TruthOrIf (location, a, b, c, d);
|
||||
}
|
||||
|
||||
|
|
|
@ -647,8 +647,8 @@ distclean-generic:
|
|||
maintainer-clean-generic:
|
||||
@echo "This command is intended for maintainers to use"
|
||||
@echo "it deletes files that may require special tools to rebuild."
|
||||
@NATIVE_FALSE@uninstall-local:
|
||||
@NATIVE_FALSE@install-exec-local:
|
||||
@NATIVE_FALSE@uninstall-local:
|
||||
clean: clean-am
|
||||
|
||||
clean-am: clean-binPROGRAMS clean-generic mostlyclean-am
|
||||
|
|
|
@ -175,7 +175,7 @@ libm2pim_la_LIBADD =
|
|||
@BUILD_PIMLIB_TRUE@ libm2pim_la-termios.lo \
|
||||
@BUILD_PIMLIB_TRUE@ libm2pim_la-SysExceptions.lo \
|
||||
@BUILD_PIMLIB_TRUE@ libm2pim_la-target.lo libm2pim_la-wrapc.lo \
|
||||
@BUILD_PIMLIB_TRUE@ libm2pim_la-getopt.lo
|
||||
@BUILD_PIMLIB_TRUE@ libm2pim_la-cgetopt.lo
|
||||
libm2pim_la_OBJECTS = $(am_libm2pim_la_OBJECTS)
|
||||
@BUILD_PIMLIB_TRUE@am_libm2pim_la_rpath = -rpath $(toolexeclibdir)
|
||||
AM_V_P = $(am__v_P_@AM_V@)
|
||||
|
@ -196,9 +196,9 @@ am__maybe_remake_depfiles = depfiles
|
|||
am__depfiles_remade = ./$(DEPDIR)/libm2pim_la-Selective.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-SysExceptions.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-UnixArgs.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-cgetopt.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-dtoa.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-errno.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-getopt.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-ldtoa.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-sckt.Plo \
|
||||
./$(DEPDIR)/libm2pim_la-target.Plo \
|
||||
|
@ -516,7 +516,7 @@ FLAGS_TO_PASS = $(AM_MAKEFLAGS)
|
|||
@BUILD_PIMLIB_TRUE@ termios.def TimeString.def \
|
||||
@BUILD_PIMLIB_TRUE@ UnixArgs.def wrapc.def \
|
||||
@BUILD_PIMLIB_TRUE@ GetOpt.def OptLib.def \
|
||||
@BUILD_PIMLIB_TRUE@ getopt.def
|
||||
@BUILD_PIMLIB_TRUE@ cgetopt.def
|
||||
|
||||
@BUILD_PIMLIB_TRUE@libm2pim_la_SOURCES = $(M2MODS) \
|
||||
@BUILD_PIMLIB_TRUE@ UnixArgs.c \
|
||||
|
@ -524,7 +524,7 @@ FLAGS_TO_PASS = $(AM_MAKEFLAGS)
|
|||
@BUILD_PIMLIB_TRUE@ errno.c dtoa.c \
|
||||
@BUILD_PIMLIB_TRUE@ ldtoa.c termios.c \
|
||||
@BUILD_PIMLIB_TRUE@ SysExceptions.c target.c \
|
||||
@BUILD_PIMLIB_TRUE@ wrapc.c getopt.c
|
||||
@BUILD_PIMLIB_TRUE@ wrapc.c cgetopt.c
|
||||
|
||||
@BUILD_PIMLIB_TRUE@libm2pimdir = libm2pim
|
||||
@BUILD_PIMLIB_TRUE@libm2pim_la_DEPENDENCIES = SYSTEM.def
|
||||
|
@ -616,9 +616,9 @@ distclean-compile:
|
|||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-Selective.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-SysExceptions.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-UnixArgs.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-cgetopt.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-dtoa.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-errno.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-getopt.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-ldtoa.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-sckt.Plo@am__quote@ # am--include-marker
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libm2pim_la-target.Plo@am__quote@ # am--include-marker
|
||||
|
@ -722,12 +722,12 @@ libm2pim_la-wrapc.lo: wrapc.c
|
|||
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
|
||||
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libm2pim_la_CFLAGS) $(CFLAGS) -c -o libm2pim_la-wrapc.lo `test -f 'wrapc.c' || echo '$(srcdir)/'`wrapc.c
|
||||
|
||||
libm2pim_la-getopt.lo: getopt.c
|
||||
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libm2pim_la_CFLAGS) $(CFLAGS) -MT libm2pim_la-getopt.lo -MD -MP -MF $(DEPDIR)/libm2pim_la-getopt.Tpo -c -o libm2pim_la-getopt.lo `test -f 'getopt.c' || echo '$(srcdir)/'`getopt.c
|
||||
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libm2pim_la-getopt.Tpo $(DEPDIR)/libm2pim_la-getopt.Plo
|
||||
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='getopt.c' object='libm2pim_la-getopt.lo' libtool=yes @AMDEPBACKSLASH@
|
||||
libm2pim_la-cgetopt.lo: cgetopt.c
|
||||
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libm2pim_la_CFLAGS) $(CFLAGS) -MT libm2pim_la-cgetopt.lo -MD -MP -MF $(DEPDIR)/libm2pim_la-cgetopt.Tpo -c -o libm2pim_la-cgetopt.lo `test -f 'cgetopt.c' || echo '$(srcdir)/'`cgetopt.c
|
||||
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libm2pim_la-cgetopt.Tpo $(DEPDIR)/libm2pim_la-cgetopt.Plo
|
||||
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='cgetopt.c' object='libm2pim_la-cgetopt.lo' libtool=yes @AMDEPBACKSLASH@
|
||||
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
|
||||
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libm2pim_la_CFLAGS) $(CFLAGS) -c -o libm2pim_la-getopt.lo `test -f 'getopt.c' || echo '$(srcdir)/'`getopt.c
|
||||
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libm2pim_la_CFLAGS) $(CFLAGS) -c -o libm2pim_la-cgetopt.lo `test -f 'cgetopt.c' || echo '$(srcdir)/'`cgetopt.c
|
||||
|
||||
mostlyclean-libtool:
|
||||
-rm -f *.lo
|
||||
|
@ -837,9 +837,9 @@ distclean: distclean-am
|
|||
-rm -f ./$(DEPDIR)/libm2pim_la-Selective.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-SysExceptions.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-UnixArgs.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-cgetopt.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-dtoa.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-errno.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-getopt.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-ldtoa.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-sckt.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-target.Plo
|
||||
|
@ -893,9 +893,9 @@ maintainer-clean: maintainer-clean-am
|
|||
-rm -f ./$(DEPDIR)/libm2pim_la-Selective.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-SysExceptions.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-UnixArgs.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-cgetopt.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-dtoa.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-errno.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-getopt.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-ldtoa.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-sckt.Plo
|
||||
-rm -f ./$(DEPDIR)/libm2pim_la-target.Plo
|
||||
|
|
Loading…
Reference in New Issue