From: Rafał Długołęcki <kontakt@dlugolecki.net.pl>
Date: Sun, 14 Jul 2013 20:10:03 +0000 (+0200)
Subject: Removed dummy GNU function declarations.
X-Git-Tag: 3.1~45
X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=2afe205bc1363e4c1b38cade75ca9ac93dd9def2;p=vlp.git

Removed dummy GNU function declarations.
---

diff --git a/src/int/control.c b/src/int/control.c
index 314fcce..243df48 100644
--- a/src/int/control.c
+++ b/src/int/control.c
@@ -28,14 +28,13 @@ or             Andrzej Salwicki
 =======================================================================
 */
 
-#include	"depend.h"
-#include	"genint.h"
-#include	"int.h"
-#include	"process.h"
-#include	"intproto.h"
+#include "depend.h"
+#include "genint.h"
+#include "int.h"
+#include "process.h"
+#include "intproto.h"
 
 /* Transfer of control routines */
-
 #ifndef NO_PROTOTYPES
 static void att2(virtaddr *, word, word);
 static void back1(word, word, virtaddr *, word *);
@@ -44,11 +43,10 @@ static void att2();
 static void back1();
 #endif
 
-/* Transfer control to the newly created object.
+/**
+ *Transfer control to the newly created object.
  */
-
-void go(ah, am)
-word ah, am;
+void go(word ah, word am)
 {
     protdescr *ptr;
     word pnum, plen, node, apt;
@@ -128,12 +126,11 @@ word ah, am;
 }
 
 
-/* Transfer control to a local unprefixed procedure, function, block,
+/**
+ * Transfer control to a local unprefixed procedure, function, block,
  * class or coroutine.
  */
-
-void goloc(ah, am)
-word ah, am;
+void goloc(word ah, word am)
 {
     word t1;
     protdescr *ptr;
@@ -149,10 +146,8 @@ word ah, am;
     M[ am+M[ am ]+STATSL ]++;
 }
 
-
-void backbl(virt, am)			/* Return from block. */
-virtaddr *virt;
-word *am;
+/* Return from block. */
+void backbl(virtaddr *virt, word *am)			
 {
     word t1;
 
@@ -172,10 +167,8 @@ word *am;
 }
 
 
-static void back1(at1, at2, virt, am)	/* Common code for some backs below. */
-word at1, at2;
-virtaddr *virt;
-word *am;
+/* Common code for some backs below. */
+static void back1(word at1, word at2, virtaddr *virt, word *am)
 {
     word t1;
 
@@ -194,13 +187,10 @@ word *am;
 }
 
 
-/* Return from classes, coroutines and by end from procedures.
+/**
+ * Return from classes, coroutines and by end from procedures.
  */
-
-void back(virt, am, length)
-virtaddr *virt;
-word *am;
-word length;
+void back(virtaddr *virt, word *am, word length)
 {
     word t1, t2, plist;
     int i;
@@ -294,12 +284,10 @@ word length;
 }
 
 
-/* Return, end in procedures and functions without prefix.
+/**
+ * Return, end in procedures and functions without prefix.
  */
-
-void backpr(virt, am)
-virtaddr *virt;
-word *am;
+void backpr(virtaddr *virt, word *am)
 {
     word t1, t2, t3;
 
@@ -310,11 +298,8 @@ word *am;
     else back1(t1, t2, virt, am);
 }
 
-
-void fin(backic, virt, am)		/* End in classes and coroutines. */
-word backic;
-virtaddr *virt;
-word *am;
+/* End in classes and coroutines. */
+void fin(word backic, virtaddr *virt, word *am)
 {
     word t1, t2, knd;
 
@@ -341,10 +326,8 @@ word *am;
     }
 }
 
-
-static void att2(virt, ax, at1)		/* Helper for attach/detach */
-virtaddr *virt;
-word ax, at1;
+/* Helper for attach/detach */
+static void att2(virtaddr *virt, word ax, word at1)
 {
     word t1, t2, phead;
 
@@ -367,8 +350,7 @@ word ax, at1;
 }
 
 
-void attach(virt)
-virtaddr *virt;
+void attach(virtaddr *virt)
 {
     word t1, ax, phead, chead;
     int knd;
@@ -404,9 +386,8 @@ void detach()
     att2(&virt, M[ virt.addr ]+M[ M[ virt.addr ] ], t1);
 }
 
-
-void inner(level)			/* Simulate execution of inner */
-word level;
+/* Simulate execution of inner */
+void inner(word level)
 {
     word t1;
     protdescr *ptr;
@@ -418,4 +399,3 @@ word level;
 	else ic = prototype[ M[ ptr->preflist+level ] ]->codeaddr;
 }
 
-