a3b90dd225
* source/compiler/harbour.c
* Replaced sequential calls to hb_compGenPCode3() + hb_compGenPCode3() with 1 call to new hb_compGenPCode4()
* source/compiler/hbpcode.c
+ Added hb_compGenPCode4( BYTE, BYTE, BYTE, BYTE )
* include/hbcomp.h
+ Added hb_compGenPCode4( BYTE, BYTE, BYTE, BYTE )
* source/vm/macro.c
+ Added hb_compGenPCode4( BYTE, BYTE, BYTE, BYTE, HB_MACRO_DECL )
55 lines
647 B
Plaintext
55 lines
647 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// This file is OK to have warnings.
|
|
#ifdef __HARBOUR__
|
|
#pragma -es0
|
|
#endif
|
|
|
|
DECLARE FUNCTION nMyFunc( ) AS NUMERIC
|
|
|
|
FUNCTION Main()
|
|
|
|
? "This is a compiler test."
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION Hex2Dec( lVar AS LOGICAL )
|
|
|
|
LOCAL nVar AS NUMERIC, cVar AS CHARACTER, lVar2 AS LOGICAL, nNoType := 3
|
|
|
|
nVar := .T.
|
|
|
|
nVar := 1
|
|
|
|
nVar := 'A'
|
|
|
|
cVar := 2
|
|
|
|
cVar := 'B'
|
|
|
|
cVar := 2
|
|
|
|
lVar := .T.
|
|
|
|
lVar := nNoType
|
|
|
|
cVar := nVar
|
|
|
|
NondDeclared := 2
|
|
|
|
cVar := {|x,y,z| nMyFunc( 3 ) }
|
|
|
|
nVar := 8 + cVar
|
|
|
|
IF 1
|
|
|
|
ENDIF
|
|
|
|
RETURN NIL
|
|
|
|
Function nMyFunc( nParam )
|
|
|
|
return nParam * 2
|