/* * $Id$ */ /* * Harbour Project source code: * Compiler PCode generation functions * * Copyright 1999 {list of individual authors and e-mail addresses} * 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/). * */ #include #include "hbcomp.h" static BYTE s_pcode_len[] = { 1, /* HB_P_AND, */ 1, /* HB_P_ARRAYPUSH, */ 1, /* HB_P_ARRAYPOP, */ 3, /* HB_P_ARRAYDIM, */ 3, /* HB_P_ARRAYGEN, */ 1, /* HB_P_EQUAL, */ 1, /* HB_P_ENDBLOCK, */ 1, /* HB_P_ENDPROC, */ 1, /* HB_P_EXACTLYEQUAL, */ 1, /* HB_P_FALSE, */ 1, /* HB_P_FORTEST, */ 3, /* HB_P_FUNCTION, */ 2, /* HB_P_FUNCTIONSHORT, */ 3, /* HB_P_FRAME, */ 1, /* HB_P_FUNCPTR, */ 1, /* HB_P_GREATER, */ 1, /* HB_P_GREATEREQUAL, */ 1, /* HB_P_DEC, */ 1, /* HB_P_DIVIDE, */ 3, /* HB_P_DO, */ 2, /* HB_P_DOSHORT, */ 1, /* HB_P_DUPLICATE, */ 1, /* HB_P_DUPLTWO, */ 1, /* HB_P_INC, */ 1, /* HB_P_INSTRING, */ 2, /* HB_P_JUMPNEAR, */ 3, /* HB_P_JUMP, */ 4, /* HB_P_JUMPFAR, */ 2, /* HB_P_JUMPFALSENEAR, */ 3, /* HB_P_JUMPFALSE, */ 4, /* HB_P_JUMPFALSEFAR, */ 2, /* HB_P_JUMPTRUENEAR, */ 3, /* HB_P_JUMPTRUE, */ 4, /* HB_P_JUMPTRUEFAR, */ 1, /* HB_P_LESSEQUAL, */ 1, /* HB_P_LESS, */ 3, /* HB_P_LINE, */ 0, /* HB_P_LOCALNAME, */ 1, /* HB_P_MACROPOP, */ 1, /* HB_P_MACROPOPALIASED, */ 1, /* HB_P_MACROPUSH, */ 1, /* HB_P_MACROPUSHALIASED, */ 1, /* HB_P_MACROSYMBOL, */ 1, /* HB_P_MACROTEXT, */ 3, /* HB_P_MESSAGE, */ 1, /* HB_P_MINUS, */ 1, /* HB_P_MODULUS, */ 0, /* HB_P_MODULENAME, */ /* start: pcodes generated by macro compiler */ 3, /* HB_P_MMESSAGE, */ 3, /* HB_P_MPOPALIASEDFIELD, */ 3, /* HB_P_MPOPALIASEDVAR, */ 3, /* HB_P_MPOPFIELD, */ 3, /* HB_P_MPOPMEMVAR, */ 3, /* HB_P_MPUSHALIASEDFIELD, */ 3, /* HB_P_MPUSHALIASEDVAR, */ 0, /* HB_P_MPUSHBLOCK, */ 3, /* HB_P_MPUSHFIELD, */ 3, /* HB_P_MPUSHMEMVAR, */ 3, /* HB_P_MPUSHMEMVARREF, */ 3, /* HB_P_MPUSHSYM, */ 3, /* HB_P_MPUSHVARIABLE, */ /* end: */ 1, /* HB_P_MULT, */ 1, /* HB_P_NEGATE, */ 1, /* HB_P_NOOP, */ 1, /* HB_P_NOT, */ 1, /* HB_P_NOTEQUAL, */ 1, /* HB_P_OR, */ 4, /* HB_P_PARAMETER, */ 1, /* HB_P_PLUS, */ 1, /* HB_P_POP, */ 1, /* HB_P_POPALIAS, */ 3, /* HB_P_POPALIASEDFIELD, */ 3, /* HB_P_POPALIASEDVAR, */ 3, /* HB_P_POPFIELD, */ 3, /* HB_P_POPLOCAL, */ 3, /* HB_P_POPLOCALNEAR, */ 3, /* HB_P_POPMEMVAR, */ 3, /* HB_P_POPSTATIC, */ 3, /* HB_P_POPVARIABLE, */ 1, /* HB_P_POWER, */ 1, /* HB_P_PUSHALIAS, */ 3, /* HB_P_PUSHALIASEDFIELD, */ 3, /* HB_P_PUSHALIASEDVAR, */ 0, /* HB_P_PUSHBLOCK, */ 3, /* HB_P_PUSHFIELD, */ 2, /* HB_P_PUSHBYTE, */ 3, /* HB_P_PUSHINT, */ 3, /* HB_P_PUSHLOCAL, */ 3, /* HB_P_PUSHLOCALNEAR, */ 3, /* HB_P_PUSHLOCALREF, */ 1+sizeof(long), /* HB_P_PUSHLONG, */ 3, /* HB_P_PUSHMEMVAR, */ 3, /* HB_P_PUSHMEMVARREF, */ 1, /* HB_P_PUSHNIL, */ 1+sizeof(double), /* HB_P_PUSHDOUBLE, */ 1, /* HB_P_PUSHSELF, */ 3, /* HB_P_PUSHSTATIC, */ 3, /* HB_P_PUSHSTATICREF, */ 0, /* HB_P_PUSHSTR, */ 0, /* HB_P_PUSHSTRSHORT, */ 3, /* HB_P_PUSHSYM, */ 2, /* HB_P_PUSHSYMNEAR, */ 3, /* HB_P_PUSHVARIABLE, */ 1, /* HB_P_RETVALUE, */ 4, /* HB_P_SEQBEGIN, */ 4, /* HB_P_SEQEND, */ 1, /* HB_P_SEQRECOVER, */ 3, /* HB_P_SFRAME, */ 5, /* HB_P_STATICS, */ 1, /* HB_P_SWAPALIAS, */ 1, /* HB_P_TRUE, */ 1, /* HB_P_ZERO, */ 1 /* HB_P_ONE, */ }; void hb_compPCodeEval( PFUNCTION pFunc, HB_PCODE_FUNC_PTR * pFunctions, void * cargo ) { ULONG ulPos = 0; USHORT usSkip; BYTE opcode; HB_PCODE_FUNC_PTR pCall; /* Make sure that table is correct */ assert( sizeof( s_pcode_len ) == HB_P_LAST_PCODE ); while( ulPos < pFunc->lPCodePos ) { opcode = pFunc->pCode[ ulPos ]; if( opcode < HB_P_LAST_PCODE ) { usSkip = s_pcode_len[ opcode ]; pCall = pFunctions[ opcode ]; if( pCall ) { if( usSkip ) pCall( pFunc, ulPos, cargo ); else usSkip = pCall( pFunc, ulPos, cargo ); } ulPos += usSkip; } else { printf( "--- Invalid opcode %i in hb_compPCodeEval() ---\n", opcode ); ++ulPos; } } } void hb_compGenPCode1( BYTE byte ) { PFUNCTION pFunc = hb_comp_functions.pLast; /* get the currently defined Clipper function */ if( ! pFunc->pCode ) /* has been created the memory block to hold the pcode ? */ { pFunc->pCode = ( BYTE * ) hb_xgrab( HB_PCODE_CHUNK ); pFunc->lPCodeSize = HB_PCODE_CHUNK; pFunc->lPCodePos = 0; } else if( ( pFunc->lPCodeSize - pFunc->lPCodePos ) < 1 ) pFunc->pCode = ( BYTE * ) hb_xrealloc( pFunc->pCode, pFunc->lPCodeSize += HB_PCODE_CHUNK ); pFunc->pCode[ pFunc->lPCodePos++ ] = byte; } void hb_compGenPCode2( BYTE byte1, BYTE byte2 ) { PFUNCTION pFunc = hb_comp_functions.pLast; /* get the currently defined Clipper function */ if( ! pFunc->pCode ) /* has been created the memory block to hold the pcode ? */ { pFunc->pCode = ( BYTE * ) hb_xgrab( HB_PCODE_CHUNK ); pFunc->lPCodeSize = HB_PCODE_CHUNK; pFunc->lPCodePos = 0; } else if( ( pFunc->lPCodeSize - pFunc->lPCodePos ) < 2 ) pFunc->pCode = ( BYTE * ) hb_xrealloc( pFunc->pCode, pFunc->lPCodeSize += HB_PCODE_CHUNK ); pFunc->pCode[ pFunc->lPCodePos++ ] = byte1; pFunc->pCode[ pFunc->lPCodePos++ ] = byte2; } void hb_compGenPCode3( BYTE byte1, BYTE byte2, BYTE byte3 ) { PFUNCTION pFunc = hb_comp_functions.pLast; /* get the currently defined Clipper function */ if( ! pFunc->pCode ) /* has been created the memory block to hold the pcode ? */ { pFunc->pCode = ( BYTE * ) hb_xgrab( HB_PCODE_CHUNK ); pFunc->lPCodeSize = HB_PCODE_CHUNK; pFunc->lPCodePos = 0; } else if( ( pFunc->lPCodeSize - pFunc->lPCodePos ) < 3 ) pFunc->pCode = ( BYTE * ) hb_xrealloc( pFunc->pCode, pFunc->lPCodeSize += HB_PCODE_CHUNK ); pFunc->pCode[ pFunc->lPCodePos++ ] = byte1; pFunc->pCode[ pFunc->lPCodePos++ ] = byte2; pFunc->pCode[ pFunc->lPCodePos++ ] = byte3; } void hb_compGenPCodeN( BYTE * pBuffer, ULONG ulSize ) { PFUNCTION pFunc = hb_comp_functions.pLast; /* get the currently defined Clipper function */ if( ! pFunc->pCode ) /* has been created the memory block to hold the pcode ? */ { pFunc->lPCodeSize = ( ( ulSize / HB_PCODE_CHUNK ) + 1 ) * HB_PCODE_CHUNK; pFunc->pCode = ( BYTE * ) hb_xgrab( pFunc->lPCodeSize ); pFunc->lPCodePos = 0; } else if( pFunc->lPCodePos + ulSize > pFunc->lPCodeSize ) { /* not enough free space in pcode buffer - increase it */ pFunc->lPCodeSize += ( ( ( ulSize / HB_PCODE_CHUNK ) + 1 ) * HB_PCODE_CHUNK ); pFunc->pCode = ( BYTE * ) hb_xrealloc( pFunc->pCode, pFunc->lPCodeSize ); } memcpy( pFunc->pCode + pFunc->lPCodePos, pBuffer, ulSize ); pFunc->lPCodePos += ulSize; }