Enlightenment CVS committal
Author : tsauerbeck
Project : e17
Module : libs/embryo
Dir : e17/libs/embryo/src/bin
Modified Files:
embryo_cc_sc.h embryo_cc_sc1.c embryo_cc_sc2.c embryo_cc_sc3.c
embryo_cc_sc4.c embryo_cc_sc5.scp embryo_cc_sc6.c
embryo_cc_sc7.c embryo_cc_sc7.scp
Log Message:
some more cleanup
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -3 -r1.11 -r1.12
--- embryo_cc_sc.h 1 Apr 2005 15:15:38 -0000 1.11
+++ embryo_cc_sc.h 13 Apr 2005 19:36:58 -0000 1.12
@@ -9,7 +9,7 @@
* Copyright J.E. Hendrix, 1982, 1983
* Copyright T. Riemersma, 1997-2003
*
- * Version: $Id: embryo_cc_sc.h,v 1.11 2005/04/01 15:15:38 tsauerbeck Exp $
+ * Version: $Id: embryo_cc_sc.h,v 1.12 2005/04/13 19:36:58 tsauerbeck Exp $
*
* This software is provided "as-is", without any express or implied warranty.
* In no event will the authors be held liable for any damages arising from
@@ -427,9 +427,6 @@
/* by default, functions and variables used in throughout the compiler
* files are "external"
*/
-#if !defined SC_FUNC
-#define SC_FUNC
-#endif
#if !defined SC_VDECL
#define SC_VDECL extern
#endif
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc1.c,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -3 -r1.27 -r1.28
--- embryo_cc_sc1.c 13 Apr 2005 19:21:07 -0000 1.27
+++ embryo_cc_sc1.c 13 Apr 2005 19:36:59 -0000 1.28
@@ -21,7 +21,7 @@
* must not be misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source
* distribution.
- * Version: $Id: embryo_cc_sc1.c,v 1.27 2005/04/13 19:21:07 tsauerbeck Exp $
+ * Version: $Id: embryo_cc_sc1.c,v 1.28 2005/04/13 19:36:59 tsauerbeck Exp $
*/
#include <assert.h>
#include <ctype.h>
@@ -1671,7 +1671,7 @@
* Finds a function in the global symbol table or creates a new entry.
* It does some basic processing and error checking.
*/
-SC_FUNC symbol *
+symbol *
fetchfunc(char *name, int tag)
{
symbol *sym;
@@ -1952,7 +1952,7 @@
return isdigit(dest[1]) ? &dest[1] : dest;
}
-SC_FUNC char *
+char *
operator_symname(char *symname, char *opername, int tag1, int tag2,
int numtags, int resulttag)
{
@@ -2002,7 +2002,7 @@
return unary;
}
-SC_FUNC char *
+char *
funcdisplayname(char *dest, char *funcname)
{
int tags[2];
@@ -3028,7 +3028,7 @@
return cur;
}
-SC_FUNC constvalue *
+constvalue *
append_constval(constvalue * table, char *name, cell val, short index)
{
constvalue *cur, *prev;
@@ -3040,7 +3040,7 @@
return insert_constval(prev, NULL, name, val, index);
}
-SC_FUNC constvalue *
+constvalue *
find_constval(constvalue * table, char *name, short index)
{
constvalue *ptr = table->next;
@@ -3090,7 +3090,7 @@
}
#endif
-SC_FUNC void
+void
delete_consttable(constvalue * table)
{
constvalue *cur = table->next, *next;
@@ -3108,7 +3108,7 @@
*
* Adds a symbol to the #define symbol table.
*/
-SC_FUNC void
+void
add_constant(char *name, cell val, int vclass, int tag)
{
symbol *sym;
@@ -3366,7 +3366,7 @@
/* constexpr
*/
-SC_FUNC int
+int
constexpr(cell * val, int *tag)
{
int constant, index;
@@ -3982,7 +3982,7 @@
jumplabel(ptr[wqLOOP]);
}
-SC_FUNC void
+void
exporttag(int tag)
{
/* find the tag by value in the table, then set the top bit to mark it
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc2.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -3 -r1.17 -r1.18
--- embryo_cc_sc2.c 1 Apr 2005 15:15:38 -0000 1.17
+++ embryo_cc_sc2.c 13 Apr 2005 19:36:59 -0000 1.18
@@ -21,7 +21,7 @@
* misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source distribution.
*
- * Version: $Id: embryo_cc_sc2.c,v 1.17 2005/04/01 15:15:38 tsauerbeck Exp $
+ * Version: $Id: embryo_cc_sc2.c,v 1.18 2005/04/13 19:36:59 tsauerbeck Exp $
*/
#include <assert.h>
#include <stdio.h>
@@ -58,7 +58,7 @@
*/
static stkitem stack[sSTKMAX];
static int stkidx;
-SC_FUNC void
+void
pushstk(stkitem val)
{
if (stkidx >= sSTKMAX)
@@ -67,7 +67,7 @@
stkidx += 1;
}
-SC_FUNC stkitem
+stkitem
popstk(void)
{
if (stkidx == 0)
@@ -76,7 +76,7 @@
return stack[stkidx];
}
-SC_FUNC int
+int
plungequalifiedfile(char *name)
{
static char *extensions[] = { ".inc", ".sma", ".small" };
@@ -131,7 +131,7 @@
return TRUE;
}
-SC_FUNC int
+int
plungefile(char *name, int try_currentpath, int try_includepaths)
{
int result = FALSE;
@@ -1692,7 +1692,7 @@
* pline (altered)
* freading (referred to only)
*/
-SC_FUNC void
+void
preprocess(void)
{
int iscommand;
@@ -1836,7 +1836,7 @@
static char _lexstr[sLINEMAX + 1];
static int _lexnewline;
-SC_FUNC void
+void
lexinit(void)
{
stkidx = 0; /* index for pushstk() and popstk() */
@@ -1861,7 +1861,7 @@
"-label-", "-string-"
};
-SC_FUNC int
+int
lex(cell * lexvalue, char **lexsym)
{
int i, toolong, newline, rawstring;
@@ -2055,7 +2055,7 @@
* to read and return the information from these variables, rather than
* to read in a new token from the input file.
*/
-SC_FUNC void
+void
lexpush(void)
{
assert(_pushed == FALSE);
@@ -2068,7 +2068,7 @@
* symbol (a not continue with some old one). This is required upon return
* from Assembler mode.
*/
-SC_FUNC void
+void
lexclr(int clreol)
{
_pushed = FALSE;
@@ -2084,7 +2084,7 @@
* This routine is useful if only a simple check is needed. If the token
* differs from the one expected, it is pushed back.
*/
-SC_FUNC int
+int
matchtoken(int token)
{
cell val;
@@ -2116,7 +2116,7 @@
*
* The token itself is the return value. Normally, this one is already known.
*/
-SC_FUNC int
+int
tokeninfo(cell * val, char **str)
{
/* if the token was pushed back, tokeninfo() returns the token and
@@ -2135,7 +2135,7 @@
*
* Global references: _lextok;
*/
-SC_FUNC int
+int
needtoken(int token)
{
char s1[20], s2[20];
@@ -2207,7 +2207,7 @@
* Global references: litidx (altered)
* litq (altered)
*/
-SC_FUNC void
+void
stowlit(cell value)
{
if (litidx >= litmax)
@@ -2331,7 +2331,7 @@
*
* Test if character "c" is alphanumeric ("a".."z", "0".."9", "_" or "@")
*/
-SC_FUNC int
+int
alphanum(char c)
{
return (alpha(c) || isdigit(c));
@@ -2395,7 +2395,7 @@
free(sym);
}
-SC_FUNC void
+void
delete_symbol(symbol * root, symbol * sym)
{
/* find the symbol and its predecessor
@@ -2414,7 +2414,7 @@
free_symbol(sym);
}
-SC_FUNC void
+void
delete_symbols(symbol * root, int level, int delete_labels,
int delete_functions)
{
@@ -2466,7 +2466,7 @@
* comparison (which is costly). There is little interest in avoiding
* clusters in similar names, which is why this function is plain simple.
*/
-SC_FUNC unsigned int
+unsigned int
namehash(char *name)
{
unsigned char *ptr = (unsigned char *)name;
@@ -2514,7 +2514,7 @@
* bywhom will be the function that uses a variable or that calls
* the function.
*/
-SC_FUNC int
+int
refer_symbol(symbol * entry, symbol * bywhom)
{
int count;
@@ -2562,7 +2562,7 @@
return TRUE;
}
-SC_FUNC void
+void
markusage(symbol * sym, int usage)
{
sym->usage |= (char)usage;
@@ -2586,7 +2586,7 @@
*
* Returns a pointer to the global symbol (if found) or NULL (if not found)
*/
-SC_FUNC symbol *
+symbol *
findglb(char *name)
{
return find_symbol(&glbtab, name, fcurrent);
@@ -2597,13 +2597,13 @@
* Returns a pointer to the local symbol (if found) or NULL (if not found).
* See add_symbol() how the deepest nesting level is searched first.
*/
-SC_FUNC symbol *
+symbol *
findloc(char *name)
{
return find_symbol(&loctab, name, -1);
}
-SC_FUNC symbol *
+symbol *
findconst(char *name)
{
symbol *sym;
@@ -2617,7 +2617,7 @@
return sym;
}
-SC_FUNC symbol *
+symbol *
finddepend(symbol * parent)
{
symbol *sym;
@@ -2633,7 +2633,7 @@
* Adds a symbol to the symbol table (either global or local variables,
* or global and local constants).
*/
-SC_FUNC symbol *
+symbol *
addsym(char *name, cell addr, int ident, int vclass, int tag, int usage)
{
symbol entry, **refer;
@@ -2673,7 +2673,7 @@
return add_symbol(&loctab, &entry, FALSE);
}
-SC_FUNC symbol *
+symbol *
addvariable(char *name, cell addr, int ident, int vclass, int tag,
int dim[], int numdim, int idxtag[])
{
@@ -2711,7 +2711,7 @@
*
* Return next available internal label number.
*/
-SC_FUNC int
+int
getlabel(void)
{
return labnum++;
@@ -2722,7 +2722,7 @@
* Converts a number to a hexadecimal string and returns a pointer to that
* string.
*/
-SC_FUNC char *
+char *
itoh(ucell val)
{
static char itohstr[15]; /* hex number is 10 characters long at
most */
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc3.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -3 -r1.6 -r1.7
--- embryo_cc_sc3.c 13 Apr 2005 19:22:57 -0000 1.6
+++ embryo_cc_sc3.c 13 Apr 2005 19:37:00 -0000 1.7
@@ -18,7 +18,7 @@
* misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source distribution.
*
- * Version: $Id: embryo_cc_sc3.c,v 1.6 2005/04/13 19:22:57 tsauerbeck Exp $
+ * Version: $Id: embryo_cc_sc3.c,v 1.7 2005/04/13 19:37:00 tsauerbeck Exp $
*/
#include <assert.h>
#include <stdio.h>
@@ -116,7 +116,7 @@
return FALSE; /* entire list scanned, nothing found */
}
-SC_FUNC int
+int
check_userop(void (*oper) (void), int tag1, int tag2, int numparam,
value * lval, int *resulttag)
{
@@ -318,7 +318,7 @@
return TRUE;
}
-SC_FUNC int
+int
matchtag(int formaltag, int actualtag, int allowcoerce)
{
if (formaltag != actualtag)
@@ -752,7 +752,7 @@
return 0;
}
-SC_FUNC int
+int
expression(int *constant, cell * val, int *tag, int chkfuncresult)
{
value lval = { 0 };
@@ -815,7 +815,7 @@
*
* Global references: intest (reffered to only)
*/
-SC_FUNC int
+int
hier14(value * lval1)
{
int lvalue;
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc4.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -3 -r1.4 -r1.5
--- embryo_cc_sc4.c 13 Apr 2005 19:22:57 -0000 1.4
+++ embryo_cc_sc4.c 13 Apr 2005 19:37:00 -0000 1.5
@@ -18,7 +18,7 @@
* misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source distribution.
*
- * Version: $Id: embryo_cc_sc4.c,v 1.4 2005/04/13 19:22:57 tsauerbeck Exp $
+ * Version: $Id: embryo_cc_sc4.c,v 1.5 2005/04/13 19:37:00 tsauerbeck Exp $
*/
#include <assert.h>
#include <ctype.h>
@@ -33,7 +33,7 @@
* Today, the compiler simply generates a HALT instruction at address 0. So
* a subroutine can savely return to 0, and then encounter a HALT.
*/
-SC_FUNC void
+void
writeleader(void)
{
assert(code_idx == 0);
@@ -51,7 +51,7 @@
* code_idx (altered)
* glb_declared (altered)
*/
-SC_FUNC void
+void
writetrailer(void)
{
assert(sc_dataalign % opcodes(1) == 0); /* alignment must be a multiple
of
@@ -94,7 +94,7 @@
*
* Global references: curseg
*/
-SC_FUNC void
+void
begcseg(void)
{
if (curseg != sIN_CSEG)
@@ -111,7 +111,7 @@
*
* Global references: curseg
*/
-SC_FUNC void
+void
begdseg(void)
{
if (curseg != sIN_DSEG)
@@ -123,14 +123,14 @@
} /* if */
}
-SC_FUNC void
+void
setactivefile(int fnumber)
{
stgwrite("curfile ");
outval(fnumber, TRUE);
}
-SC_FUNC cell
+cell
nameincells(char *name)
{
cell clen =
@@ -138,7 +138,7 @@
return clen;
}
-SC_FUNC void
+void
setfile(char *name, int fileno)
{
if ((sc_debug & sSYMBOLIC) != 0)
@@ -154,7 +154,7 @@
} /* if */
}
-SC_FUNC void
+void
setline(int line, int fileno)
{
if ((sc_debug & (sSYMBOLIC | sCHKBOUNDS)) != 0)
@@ -173,7 +173,7 @@
*
* Post a code label (specified as a number), on a new line.
*/
-SC_FUNC void
+void
setlabel(int number)
{
assert(number >= 0);
@@ -196,7 +196,7 @@
* function parameter. This allows several simple optimizations by the peephole
* optimizer.
*/
-SC_FUNC void
+void
endexpr(int fullexpr)
{
if (fullexpr)
@@ -209,7 +209,7 @@
*
* Global references: funcstatus (referred to only)
*/
-SC_FUNC void
+void
startfunc(char *fname)
{
stgwrite("\tproc");
@@ -221,7 +221,7 @@
*
* Declare a CODE ending point (function end)
*/
-SC_FUNC void
+void
endfunc(void)
{
stgwrite("\n"); /* skip a line */
@@ -234,7 +234,7 @@
* be a power of 2, and this alignment must be done right after the frame
* is set up (before the first variable is declared)
*/
-SC_FUNC void
+void
alignframe(int numbytes)
{
#if !defined NDEBUG
@@ -258,7 +258,7 @@
/* Define a variable or function
*/
-SC_FUNC void
+void
defsymbol(char *name, int ident, int vclass, cell offset, int tag)
{
if ((sc_debug & sSYMBOLIC) != 0)
@@ -290,7 +290,7 @@
} /* if */
}
-SC_FUNC void
+void
symbolrange(int level, cell size)
{
if ((sc_debug & sSYMBOLIC) != 0)
@@ -308,7 +308,7 @@
*
* Generate code to get the value of a symbol into "primary".
*/
-SC_FUNC void
+void
rvalue(value * lval)
{
symbol *sym;
@@ -358,7 +358,7 @@
* Get the address of a symbol into the primary register (used for arrays,
* and for passing arguments by reference).
*/
-SC_FUNC void
+void
address(symbol * sym)
{
assert(sym != NULL);
@@ -389,7 +389,7 @@
* Saves the contents of "primary" into a memory cell, either directly
* or indirectly (at the address given in the alternate register).
*/
-SC_FUNC void
+void
store(value * lval)
{
symbol *sym;
@@ -434,7 +434,7 @@
/* source must in PRI, destination address in ALT. The "size"
* parameter is in bytes, not cells.
*/
-SC_FUNC void
+void
memcopy(cell size)
{
stgwrite("\tmovs ");
@@ -446,7 +446,7 @@
/* Address of the source must already have been loaded in PRI
* "size" is the size in bytes (not cells).
*/
-SC_FUNC void
+void
copyarray(symbol * sym, cell size)
{
assert(sym != NULL);
@@ -474,7 +474,7 @@
memcopy(size);
}
-SC_FUNC void
+void
fillarray(symbol * sym, cell size, cell value)
{
const1(value); /* load value in PRI */
@@ -509,7 +509,7 @@
/*
* Instruction to get an immediate value into the primary register
*/
-SC_FUNC void
+void
const1(cell val)
{
if (val == 0)
@@ -528,7 +528,7 @@
/*
* Instruction to get an immediate value into the secondary register
*/
-SC_FUNC void
+void
const2(cell val)
{
if (val == 0)
@@ -545,7 +545,7 @@
}
/* Copy value in secondary register to the primary register */
-SC_FUNC void
+void
moveto1(void)
{
stgwrite("\tmove.pri\n");
@@ -555,7 +555,7 @@
/*
* Push primary register onto the stack
*/
-SC_FUNC void
+void
push1(void)
{
stgwrite("\tpush.pri\n");
@@ -565,7 +565,7 @@
/*
* Push alternate register onto the stack
*/
-SC_FUNC void
+void
push2(void)
{
stgwrite("\tpush.alt\n");
@@ -575,7 +575,7 @@
/*
* Push a constant value onto the stack
*/
-SC_FUNC void
+void
pushval(cell val)
{
stgwrite("\tpush.c ");
@@ -586,7 +586,7 @@
/*
* pop stack to the primary register
*/
-SC_FUNC void
+void
pop1(void)
{
stgwrite("\tpop.pri\n");
@@ -596,7 +596,7 @@
/*
* pop stack to the secondary register
*/
-SC_FUNC void
+void
pop2(void)
{
stgwrite("\tpop.alt\n");
@@ -606,7 +606,7 @@
/*
* swap the top-of-stack with the value in primary register
*/
-SC_FUNC void
+void
swap1(void)
{
stgwrite("\tswap.pri\n");
@@ -622,7 +622,7 @@
* The case table is sorted on the comparison value. This allows more advanced
* abstract machines to sift the case table with a binary search.
*/
-SC_FUNC void
+void
ffswitch(int label)
{
stgwrite("\tswitch ");
@@ -630,7 +630,7 @@
code_idx += opcodes(1) + opargs(1);
}
-SC_FUNC void
+void
ffcase(cell value, char *labelname, int newtable)
{
if (newtable)
@@ -649,7 +649,7 @@
/*
* Call specified function
*/
-SC_FUNC void
+void
ffcall(symbol * sym, int numargs)
{
assert(sym != NULL);
@@ -680,14 +680,14 @@
*
* Global references: funcstatus (referred to only)
*/
-SC_FUNC void
+void
ffret(void)
{
stgwrite("\tretn\n");
code_idx += opcodes(1);
}
-SC_FUNC void
+void
ffabort(int reason)
{
stgwrite("\thalt ");
@@ -695,7 +695,7 @@
code_idx += opcodes(1) + opargs(1);
}
-SC_FUNC void
+void
ffbounds(cell size)
{
if ((sc_debug & sCHKBOUNDS) != 0)
@@ -709,7 +709,7 @@
/*
* Jump to local label number (the number is converted to a name)
*/
-SC_FUNC void
+void
jumplabel(int number)
{
stgwrite("\tjump ");
@@ -720,7 +720,7 @@
/*
* Define storage (global and static variables)
*/
-SC_FUNC void
+void
defstorage(void)
{
stgwrite("dump ");
@@ -730,7 +730,7 @@
* Inclrement/decrement stack pointer. Note that this routine does
* nothing if the delta is zero.
*/
-SC_FUNC void
+void
modstk(int delta)
{
if (delta)
@@ -742,7 +742,7 @@
}
/* set the stack to a hard offset from the frame */
-SC_FUNC void
+void
setstk(cell value)
{
stgwrite("\tlctrl 5\n"); /* get FRM */
@@ -761,7 +761,7 @@
code_idx += opcodes(2) + opargs(2);
}
-SC_FUNC void
+void
modheap(int delta)
{
if (delta)
@@ -772,7 +772,7 @@
} /* if */
}
-SC_FUNC void
+void
setheap_pri(void)
{
stgwrite("\theap "); /* ALT = HEA++ */
@@ -782,7 +782,7 @@
code_idx += opcodes(3) + opargs(1);
}
-SC_FUNC void
+void
setheap(cell value)
{
stgwrite("\tconst.pri "); /* load default value in PRI */
@@ -795,7 +795,7 @@
* Convert a cell number to a "byte" address; i.e. double or quadruple
* the primary register.
*/
-SC_FUNC void
+void
cell2addr(void)
{
#if defined(BIT16)
@@ -809,7 +809,7 @@
/*
* Double or quadruple the alternate register.
*/
-SC_FUNC void
+void
cell2addr_alt(void)
{
#if defined(BIT16)
@@ -825,7 +825,7 @@
* Or convert a number of packed characters to the number of cells (with
* truncation).
*/
-SC_FUNC void
+void
addr2cell(void)
{
#if defined(BIT16)
@@ -839,7 +839,7 @@
/* Convert from character index to byte address. This routine does
* nothing if a character has the size of a byte.
*/
-SC_FUNC void
+void
char2addr(void)
{
if (charbits == 16)
@@ -857,7 +857,7 @@
* that is, on Big Endian computers, ALIGN.pri/alt shuold do nothing
* and on Little Endian computers they should toggle the address.
*/
-SC_FUNC void
+void
charalign(void)
{
stgwrite("\talign.pri ");
@@ -868,7 +868,7 @@
/*
* Add a constant to the primary register.
*/
-SC_FUNC void
+void
addconst(cell value)
{
if (value != 0)
@@ -882,7 +882,7 @@
/*
* signed multiply of primary and secundairy registers (result in primary)
*/
-SC_FUNC void
+void
os_mult(void)
{
stgwrite("\tsmul\n");
@@ -893,7 +893,7 @@
* signed divide of alternate register by primary register (quotient in
* primary; remainder in alternate)
*/
-SC_FUNC void
+void
os_div(void)
{
stgwrite("\tsdiv.alt\n");
@@ -903,7 +903,7 @@
/*
* modulus of (alternate % primary), result in primary (signed)
*/
-SC_FUNC void
+void
os_mod(void)
{
stgwrite("\tsdiv.alt\n");
@@ -914,7 +914,7 @@
/*
* Add primary and alternate registers (result in primary).
*/
-SC_FUNC void
+void
ob_add(void)
{
stgwrite("\tadd\n");
@@ -924,7 +924,7 @@
/*
* subtract primary register from alternate register (result in primary)
*/
-SC_FUNC void
+void
ob_sub(void)
{
stgwrite("\tsub.alt\n");
@@ -937,7 +937,7 @@
* There is no need for a "logical shift left" routine, since
* logical shift left is identical to arithmic shift left.
*/
-SC_FUNC void
+void
ob_sal(void)
{
stgwrite("\txchg\n");
@@ -949,7 +949,7 @@
* arithmic shift right alternate register the number of bits
* given in the primary register (result in primary).
*/
-SC_FUNC void
+void
os_sar(void)
{
stgwrite("\txchg\n");
@@ -961,7 +961,7 @@
* logical (unsigned) shift right of the alternate register by the
* number of bits given in the primary register (result in primary).
*/
-SC_FUNC void
+void
ou_sar(void)
{
stgwrite("\txchg\n");
@@ -972,7 +972,7 @@
/*
* inclusive "or" of primary and secondary registers (result in primary)
*/
-SC_FUNC void
+void
ob_or(void)
{
stgwrite("\tor\n");
@@ -982,7 +982,7 @@
/*
* "exclusive or" of primary and alternate registers (result in primary)
*/
-SC_FUNC void
+void
ob_xor(void)
{
stgwrite("\txor\n");
@@ -992,7 +992,7 @@
/*
* "and" of primary and secundairy registers (result in primary)
*/
-SC_FUNC void
+void
ob_and(void)
{
stgwrite("\tand\n");
@@ -1002,7 +1002,7 @@
/*
* test ALT==PRI; result in primary register (1 or 0).
*/
-SC_FUNC void
+void
ob_eq(void)
{
stgwrite("\teq\n");
@@ -1012,7 +1012,7 @@
/*
* test ALT!=PRI
*/
-SC_FUNC void
+void
ob_ne(void)
{
stgwrite("\tneq\n");
@@ -1039,7 +1039,7 @@
* stack and moves the value of ALT into PRI. If there is a next comparison,
* PRI can now serve as the "left" operand of the relational operator.
*/
-SC_FUNC void
+void
relop_prefix(void)
{
stgwrite("\tpush.pri\n");
@@ -1047,7 +1047,7 @@
code_idx += opcodes(2);
}
-SC_FUNC void
+void
relop_suffix(void)
{
stgwrite("\tswap.alt\n");
@@ -1059,7 +1059,7 @@
/*
* test ALT<PRI (signed)
*/
-SC_FUNC void
+void
os_lt(void)
{
stgwrite("\txchg\n");
@@ -1070,7 +1070,7 @@
/*
* test ALT<=PRI (signed)
*/
-SC_FUNC void
+void
os_le(void)
{
stgwrite("\txchg\n");
@@ -1081,7 +1081,7 @@
/*
* test ALT>PRI (signed)
*/
-SC_FUNC void
+void
os_gt(void)
{
stgwrite("\txchg\n");
@@ -1092,7 +1092,7 @@
/*
* test ALT>=PRI (signed)
*/
-SC_FUNC void
+void
os_ge(void)
{
stgwrite("\txchg\n");
@@ -1103,7 +1103,7 @@
/*
* logical negation of primary register
*/
-SC_FUNC void
+void
lneg(void)
{
stgwrite("\tnot\n");
@@ -1113,7 +1113,7 @@
/*
* two's complement primary register
*/
-SC_FUNC void
+void
neg(void)
{
stgwrite("\tneg\n");
@@ -1123,7 +1123,7 @@
/*
* one's complement of primary register
*/
-SC_FUNC void
+void
invert(void)
{
stgwrite("\tinvert\n");
@@ -1133,7 +1133,7 @@
/*
* nop
*/
-SC_FUNC void
+void
nooperation(void)
{
stgwrite("\tnop\n");
@@ -1142,7 +1142,7 @@
/* increment symbol
*/
-SC_FUNC void
+void
inc(value * lval)
{
symbol *sym;
@@ -1208,7 +1208,7 @@
*
* in case of an integer pointer, the symbol must be incremented by 2.
*/
-SC_FUNC void
+void
dec(value * lval)
{
symbol *sym;
@@ -1273,7 +1273,7 @@
/*
* Jumps to "label" if PRI != 0
*/
-SC_FUNC void
+void
jmp_ne0(int number)
{
stgwrite("\tjnz ");
@@ -1284,7 +1284,7 @@
/*
* Jumps to "label" if PRI == 0
*/
-SC_FUNC void
+void
jmp_eq0(int number)
{
stgwrite("\tjzer ");
@@ -1293,7 +1293,7 @@
}
/* write a value in hexadecimal; optionally adds a newline */
-SC_FUNC void
+void
outval(cell val, int newline)
{
stgwrite(itoh(val));
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc5.scp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- embryo_cc_sc5.scp 20 Apr 2004 03:50:11 -0000 1.2
+++ embryo_cc_sc5.scp 13 Apr 2005 19:37:01 -0000 1.3
@@ -18,10 +18,10 @@
* misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source distribution.
*
- * Version: $Id: embryo_cc_sc5.scp,v 1.2 2004/04/20 03:50:11 raster Exp $
+ * Version: $Id: embryo_cc_sc5.scp,v 1.3 2005/04/13 19:37:01 tsauerbeck Exp $
*/
-SC_FUNC int strexpand(char *dest, unsigned char *source, int maxlen,
+int strexpand(char *dest, unsigned char *source, int maxlen,
unsigned char pairtable[128][2]);
#define SCPACK_TABLE errstr_table
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc6.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -3 -r1.6 -r1.7
--- embryo_cc_sc6.c 9 Sep 2004 00:48:12 -0000 1.6
+++ embryo_cc_sc6.c 13 Apr 2005 19:37:01 -0000 1.7
@@ -18,7 +18,7 @@
* misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source distribution.
*
- * Version: $Id: embryo_cc_sc6.c,v 1.6 2004/09/09 00:48:12 raster Exp $
+ * Version: $Id: embryo_cc_sc6.c,v 1.7 2005/04/13 19:37:01 tsauerbeck Exp $
*/
#include <assert.h>
#include <stdio.h>
@@ -629,7 +629,7 @@
return 0; /* not found, return special index */
}
-SC_FUNC void
+void
assemble(FILE * fout, FILE * fin)
{
typedef struct tagFUNCSTUB
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc7.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -3 -r1.5 -r1.6
--- embryo_cc_sc7.c 13 Apr 2005 19:22:58 -0000 1.5
+++ embryo_cc_sc7.c 13 Apr 2005 19:37:01 -0000 1.6
@@ -35,7 +35,7 @@
* misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source distribution.
*
- * Version: $Id: embryo_cc_sc7.c,v 1.5 2005/04/13 19:22:58 tsauerbeck Exp $
+ * Version: $Id: embryo_cc_sc7.c,v 1.6 2005/04/13 19:37:01 tsauerbeck Exp $
*/
#include <assert.h>
#include <stdio.h>
@@ -91,7 +91,7 @@
*stgbuf = '\0';
}
-SC_FUNC void
+void
stgbuffer_cleanup(void)
{
if (stgbuf != NULL)
@@ -120,7 +120,7 @@
* stgbuf (altered)
* staging (referred to only)
*/
-SC_FUNC void
+void
stgmark(char mark)
{
if (staging)
@@ -155,7 +155,7 @@
* stgbuf (altered)
* staging (referred to only)
*/
-SC_FUNC void
+void
stgwrite(char *st)
{
int len;
@@ -197,7 +197,7 @@
* stgbuf (referred to only)
* staging (referred to only)
*/
-SC_FUNC void
+void
stgout(int index)
{
if (!staging)
@@ -312,7 +312,7 @@
* Global references: stgidx (altered)
* staging (reffered to only)
*/
-SC_FUNC void
+void
stgdel(int index, cell code_index)
{
if (staging)
@@ -322,7 +322,7 @@
} /* if */
}
-SC_FUNC int
+int
stgget(int *index, cell * code_index)
{
if (staging)
@@ -343,7 +343,7 @@
* stgidx (altered)
* stgbuf (contents altered)
*/
-SC_FUNC void
+void
stgset(int onoff)
{
staging = onoff;
@@ -368,7 +368,7 @@
*/
static SEQUENCE *sequences;
-SC_FUNC int
+int
phopt_init(void)
{
int number, i, len;
@@ -417,7 +417,7 @@
return TRUE;
}
-SC_FUNC int
+int
phopt_cleanup(void)
{
int i;
===================================================================
RCS file: /cvsroot/enlightenment/e17/libs/embryo/src/bin/embryo_cc_sc7.scp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- embryo_cc_sc7.scp 20 Apr 2004 03:50:11 -0000 1.2
+++ embryo_cc_sc7.scp 13 Apr 2005 19:37:01 -0000 1.3
@@ -19,10 +19,10 @@
* misrepresented as being the original software.
* 3. This notice may not be removed or altered from any source distribution.
*
- * Version: $Id: embryo_cc_sc7.scp,v 1.2 2004/04/20 03:50:11 raster Exp $
+ * Version: $Id: embryo_cc_sc7.scp,v 1.3 2005/04/13 19:37:01 tsauerbeck Exp $
*/
-SC_FUNC int strexpand(char *dest, unsigned char *source, int maxlen,
+int strexpand(char *dest, unsigned char *source, int maxlen,
unsigned char pairtable[128][2]);
#define SCPACK_TERMINATOR , /* end each section with a comma */
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
