diff options
| author | Gaius Mulley <gaiusmod2@gmail.com> | 2024-09-21 10:36:57 +0100 |
|---|---|---|
| committer | Gaius Mulley <gaiusmod2@gmail.com> | 2024-09-21 10:36:57 +0100 |
| commit | 20486ec75734f3e641a3ade4297f6ba64881bca8 (patch) | |
| tree | 1885d6ff59e726d06979c73864edc42921e3262f /gcc | |
| parent | 2484ba167e1c4a52d4989b71e1f5d4d27755500f (diff) | |
| download | gcc-20486ec75734f3e641a3ade4297f6ba64881bca8.zip gcc-20486ec75734f3e641a3ade4297f6ba64881bca8.tar.gz gcc-20486ec75734f3e641a3ade4297f6ba64881bca8.tar.bz2 | |
modula2: Tidyup remove unnecessary parameters
This patch removes ununsed parameters from gm2-compiler/M2Comp.mod.
gcc/m2/ChangeLog:
* gm2-compiler/M2Comp.mod (GenerateDependencies): Remove
unused parameter.
(WriteDep): Remove parameter dep.
(WritePhoneDep): Ditto.
Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/m2/gm2-compiler/M2Comp.mod | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/m2/gm2-compiler/M2Comp.mod b/gcc/m2/gm2-compiler/M2Comp.mod index 719ae66..1655f0c 100644 --- a/gcc/m2/gm2-compiler/M2Comp.mod +++ b/gcc/m2/gm2-compiler/M2Comp.mod @@ -226,7 +226,7 @@ END GenerateDependenciesFromList ; the source code is found in sourcefile. *) -PROCEDURE GenerateDependencies (sourcefile: String) ; +PROCEDURE GenerateDependencies ; BEGIN IF IsDefImp (GetMainModule ()) THEN @@ -252,7 +252,7 @@ BEGIN FlushWarnings ; FlushErrors ; IF GetM () OR GetMM () THEN - GenerateDependencies (s) + GenerateDependencies END ; IF NOT PPonly THEN @@ -652,7 +652,7 @@ END ReadDepContents ; WriteDep - write the dependencies and target to file out. *) -PROCEDURE WriteDep (dep: String; contents: Index; out: File) ; +PROCEDURE WriteDep (contents: Index; out: File) ; VAR i, h: CARDINAL ; line: String ; @@ -692,7 +692,7 @@ END WriteDep ; WritePhonyDep - write the dependencies and target to file out. *) -PROCEDURE WritePhonyDep (dep: String; contents: Index; out: File) ; +PROCEDURE WritePhonyDep (contents: Index; out: File) ; VAR i, h: CARDINAL ; line: String ; @@ -735,10 +735,10 @@ BEGIN END ; IF IsNoError (out) THEN - WriteDep (dep, contents, out) ; + WriteDep (contents, out) ; IF GetMP () THEN - WritePhonyDep (dep, contents, out) + WritePhonyDep (contents, out) END END ; IF GetMF () = NIL |