68f8243cbe
* source/compiler/hvm.c
+ Added PCodes HB_P_JAMPSHORT, HB_P_JAMPSHORTFALSE and HB_P_JAMPSHORTTRUE
* source/compiler/harbour.c
+ Added hb_compOptimizeJumps() - Jumps Optimizer.
+ Added hb_compSort_ULONG() Call back function for qsort - used in the Jump Optimizer.
+ Added support for new elements of _FUNC.
* Modified hb_compGen*Jump*() to support Short Normal and Far Jumps.
* source/include/hbexprb.c
* Reverted handling of .OR. .AND. and IIF() to use default (FAR) JUMPs - note the use of (0) when calling hb_compGenJump*().
* source/compiler/genc.c
+ Added support for HB_P_JAMPSHORT, HB_P_JAMPSHORTFALSE and HB_P_JAMPSHORTTRUE
* source/compiler/cmdcheck.c
+ Added support for new switch -J[0|1] default is J1 which enables the Jump Optimizer - Use -J0 to disable.
* source/compiler/hbgenerr.c
- Removed following errors:
"Jump offset too long for HB_P_JUMP needed HB_P_JUMPFAR",
"Jump offset too long for HB_P_JUMPTRUE needed HB_P_JUMPFARTRUE",
"Jump offset too long for HB_P_JUMPFALSE needed HB_P_JUMPFARFALSE",
* Changed "HB_P_JUMPx not found when fixing offset" to "Jump PCode not found"
* source/include/hberrors.h
- Removed following defines:
#define HB_COMP_ERR_INVALID_JUMPTRUE 46
#define HB_COMP_ERR_INVALID_JUMPFALSE 47
#define HB_COMP_ERR_JUMP_NOT_FOUND 48
* source/include/hberrors.h
+ Added following to __FUNC
ULONG * pNOOPs; /* pointer to the NOOP array */
ULONG * pJumps; /* pointer to the Jumps array */
int iNOOPs; /* NOOPs Counter */
int iJumps; /* Jumps Counter */
* source/include/hbpcode.h
+ Added HB_P_JAMPSHORT, HB_P_JAMPSHORTFALSE and HB_P_JAMPSHORTTRUE
151 lines
10 KiB
C
151 lines
10 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Header file for the PCODE declarations
|
|
*
|
|
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version, with one exception:
|
|
*
|
|
* The exception is that if you link the Harbour Runtime Library (HRL)
|
|
* and/or the Harbour Virtual Machine (HVM) with other files to produce
|
|
* an executable, this does not by itself cause the resulting executable
|
|
* to be covered by the GNU General Public License. Your use of that
|
|
* executable is in no way restricted on account of linking the HRL
|
|
* and/or HVM code into it.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
|
|
* their web site at http://www.gnu.org/).
|
|
*
|
|
*/
|
|
|
|
#ifndef HB_PCODE_H_
|
|
#define HB_PCODE_H_
|
|
|
|
typedef enum
|
|
{
|
|
HB_P_AND, /* peforms the logical AND of two latest stack values, removes them and places result */
|
|
HB_P_ARRAYPUSH, /* places on the virtual machine stack an array element */
|
|
HB_P_ARRAYPOP, /* pops a value from the eval stack into an array element */
|
|
HB_P_ARRAYDIM, /* instructs the virtual machine to build an array with some specific dimensions */
|
|
HB_P_ARRAYGEN, /* instructs the virtual machine to build an array and load elemnst from the stack */
|
|
HB_P_EQUAL, /* check if the latest two values on the stack are equal, removing them and leaving there the result */
|
|
HB_P_ENDBLOCK, /* end of a codeblock definition */
|
|
HB_P_ENDPROC, /* instructs the virtual machine to end execution */
|
|
HB_P_EXACTLYEQUAL, /* check if the latest two values on the stack are exactly equal, removing them and leaving there the result */
|
|
HB_P_FALSE, /* pushes false on the virtual machine stack */
|
|
HB_P_FORTEST, /* For STEP. If step > 1 less. If step < 1 greater. */
|
|
HB_P_FUNCTION, /* instructs the virtual machine to execute a function saving its result */
|
|
HB_P_FRAME, /* instructs the virtual machine about how many parameters and locals a function uses */
|
|
HB_P_FUNCPTR, /* returns a function address pointer */
|
|
HB_P_GREATER, /* checks if the second latest value on the stack is greater that the lastest one */
|
|
HB_P_GREATEREQUAL, /* checks if the second latest value on the stack is greater equal that the latest one, leaves the result only */
|
|
HB_P_DEC, /* decrements the latest value on the virtual machine stack */
|
|
HB_P_DIVIDE, /* divides the latest two values on the stack, removing them and leaving there the result */
|
|
HB_P_DO, /* instructs the virtual machine to execute a function discarding its result */
|
|
HB_P_DUPLICATE, /* places a copy of the latest virtual machine stack value on to the stack */
|
|
HB_P_DUPLTWO, /* places a copy of the latest two virtual machine stack value on to the stack */
|
|
HB_P_INC, /* increments the latest value on the virtual machine stack */
|
|
HB_P_INSTRING, /* checks if the second latest value on the stack is a substring of the latest one */
|
|
HB_P_JUMPSHORT, /* jumps to a relative offset 1 Byte */
|
|
HB_P_JUMP, /* jumps to a relative offset 2 Bytes */
|
|
HB_P_JUMPFAR, /* jumps to a relative offset 3 Bytes */
|
|
HB_P_JUMPSHORTFALSE, /* checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPFALSE, /* checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPFARFALSE, /* checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPSHORTTRUE, /* checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPTRUE, /* checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPFARTRUE, /* checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_LESSEQUAL, /* checks if the second latest value on the stack is less equal that the latest one, leaves the result only */
|
|
HB_P_LESS, /* checks if the second latest value on the stack is less that the lastest one */
|
|
HB_P_LINE, /* currently compiled source code line number */
|
|
HB_P_LOCALNAME, /* sets the name of local variable */
|
|
HB_P_MACROPOP, /* compile and run - pop a value from the stack */
|
|
HB_P_MACROPOPALIASED, /* compile and run - pop a field value from the stack */
|
|
HB_P_MACROPUSH, /* compile and run - leave the result on the stack */
|
|
HB_P_MACROPUSHALIASED, /* compile and run - leave the field value on the stack */
|
|
HB_P_MACROSYMBOL, /* compile into a symbol name (used in function calls) */
|
|
HB_P_MACROTEXT, /* macro text substitution */
|
|
HB_P_MESSAGE, /* sends a message to an object */
|
|
HB_P_MINUS, /* subs the latest two values on the stack, removing them and leaving there the result */
|
|
HB_P_MODULUS, /* calculates the modulus of the two values on the stack, removing them and leaving there the result */
|
|
HB_P_MODULENAME, /* sets the name of debugged module */
|
|
/* start: pcodes generated by the macro compiler - the symbol address is used */
|
|
HB_P_MMESSAGE,
|
|
HB_P_MPOPALIASEDFIELD,
|
|
HB_P_MPOPALIASEDVAR,
|
|
HB_P_MPOPFIELD,
|
|
HB_P_MPOPMEMVAR,
|
|
HB_P_MPUSHALIASEDFIELD,
|
|
HB_P_MPUSHALIASEDVAR,
|
|
HB_P_MPUSHBLOCK,
|
|
HB_P_MPUSHFIELD,
|
|
HB_P_MPUSHMEMVAR,
|
|
HB_P_MPUSHMEMVARREF,
|
|
HB_P_MPUSHSYM,
|
|
HB_P_MPUSHVARIABLE,
|
|
/* end: */
|
|
HB_P_MULT, /* multiplies the latest two values on the stack, removing them and leaving there the result */
|
|
HB_P_NEGATE, /* numerically negates the latest value on the stack */
|
|
HB_P_NOOP, /* no operation */
|
|
HB_P_NOT, /* logically negates the latest value on the stack */
|
|
HB_P_NOTEQUAL, /* checks if the latest two stack values are equal, leaves just the result */
|
|
HB_P_OR, /* peforms the logical OR of two latest stack values, removes them and places result */
|
|
HB_P_PARAMETER, /* creates PRIVATE variables and assigns values to functions paramaters */
|
|
HB_P_PLUS, /* adds the latest two values on the stack, removing them and leaving there the result */
|
|
HB_P_POP, /* removes the latest value from the stack */
|
|
HB_P_POPALIAS, /* pops the item from the eval stack and selects the current workarea */
|
|
HB_P_POPALIASEDFIELD, /* pops aliased field */
|
|
HB_P_POPALIASEDVAR, /* pops aliased variable (either a field or a memvar) */
|
|
HB_P_POPFIELD, /* pops unaliased field */
|
|
HB_P_POPLOCAL, /* pops the contains of the virtual machine stack onto a local variable */
|
|
HB_P_POPMEMVAR, /* pops the contains of a memvar variable to the virtual machine stack */
|
|
HB_P_POPSTATIC, /* pops the contains of the virtual machine stack onto a static variable */
|
|
HB_P_POPVARIABLE, /* pops the contains of an undeclared variable from the virtual machine stack */
|
|
HB_P_POWER, /* calculates the power of the two values on the stack, removing them and leaving there the result */
|
|
HB_P_PUSHALIAS, /* saves the current workarea number on the eval stack */
|
|
HB_P_PUSHALIASEDFIELD, /* pushes aliased field */
|
|
HB_P_PUSHALIASEDVAR, /* pushes aliased variable (either a field or a memvar) */
|
|
HB_P_PUSHBLOCK, /* start of a codeblock definition */
|
|
HB_P_PUSHFIELD, /* pushes unaliased field */
|
|
HB_P_PUSHINT, /* places an integer number on the virtual machine stack */
|
|
HB_P_PUSHLOCAL, /* pushes the contains of a local variable to the virtual machine stack */
|
|
HB_P_PUSHLOCALREF, /* pushes a local variable by reference to the virtual machine stack */
|
|
HB_P_PUSHLONG, /* places an integer number on the virtual machine stack */
|
|
HB_P_PUSHMEMVAR, /* pushes the contains of a memvar variable to the virtual machine stack */
|
|
HB_P_PUSHMEMVARREF, /* pushes the a memvar variable by reference to the virtual machine stack */
|
|
HB_P_PUSHNIL, /* places a nil on the virtual machine stack */
|
|
HB_P_PUSHDOUBLE, /* places a double number on the virtual machine stack */
|
|
HB_P_PUSHSELF, /* pushes Self for the current processed method */
|
|
HB_P_PUSHSTATIC, /* pushes the contains of a static variable to the virtual machine stack */
|
|
HB_P_PUSHSTATICREF, /* pushes the a static variable by reference to the virtual machine stack */
|
|
HB_P_PUSHSTR, /* places a string on the virtual machine stack */
|
|
HB_P_PUSHSYM, /* places a symbol on the virtual machine stack */
|
|
HB_P_PUSHVARIABLE, /* pushes the contains of an undeclared variable to the virtual machine stack */
|
|
HB_P_RETVALUE, /* instructs the virtual machine to return the latest stack value */
|
|
HB_P_SEQBEGIN, /* BEGIN SEQUENCE */
|
|
HB_P_SEQEND, /* END SEQUENCE */
|
|
HB_P_SEQRECOVER, /* RECOVER statement */
|
|
HB_P_SFRAME, /* sets the statics frame for a function */
|
|
HB_P_STATICS, /* defines the number of statics variables for a PRG */
|
|
HB_P_SWAPALIAS, /* restores the current workarea number from the eval stack */
|
|
HB_P_TRUE, /* pushes true on the virtual machine stack */
|
|
HB_P_ZERO /* places a zero on the virtual machine stack */
|
|
} HB_PCODE;
|
|
|
|
#endif /* HB_PCODE_H_ */
|