dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
vlp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b479a87
)
Removed dummy GNU function declarations.
author
Rafał Długołęcki
<kontakt@dlugolecki.net.pl>
Sun, 14 Jul 2013 20:10:03 +0000
(22:10 +0200)
committer
Rafał Długołęcki
<kontakt@dlugolecki.net.pl>
Sun, 14 Jul 2013 20:10:03 +0000
(22:10 +0200)
src/int/control.c
patch
|
blob
|
history
diff --git
a/src/int/control.c
b/src/int/control.c
index 314fccedc12e2a7117d5dbec62821377e933a728..243df48ec4a0b1cf2d9c26b9af2a2d375bd28647 100644
(file)
--- 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 */
/* Transfer of control routines */
-
#ifndef NO_PROTOTYPES
static void att2(virtaddr *, word, word);
static void back1(word, word, virtaddr *, word *);
#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
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;
{
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.
*/
* class or coroutine.
*/
-
-void goloc(ah, am)
-word ah, am;
+void goloc(word ah, word am)
{
word t1;
protdescr *ptr;
{
word t1;
protdescr *ptr;
@@
-149,10
+146,8
@@
word ah, am;
M[ am+M[ am ]+STATSL ]++;
}
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;
{
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;
{
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;
{
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;
{
word t1, t2, t3;
@@
-310,11
+298,8
@@
word *am;
else back1(t1, t2, virt, 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;
{
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;
{
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;
{
word t1, ax, phead, chead;
int knd;
@@
-404,9
+386,8
@@
void detach()
att2(&virt, M[ virt.addr ]+M[ M[ virt.addr ] ], t1);
}
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;
{
word t1;
protdescr *ptr;
@@
-418,4
+399,3
@@
word level;
else ic = prototype[ M[ ptr->preflist+level ] ]->codeaddr;
}
else ic = prototype[ M[ ptr->preflist+level ] ]->codeaddr;
}
-