6831364d2f
* contrib/gtwvg/tests/activex.prg
* contrib/gtwvg/tests/demowvg.prg
* contrib/gtwvg/tests/demowvg1.prg
* contrib/gtwvg/tests/demoxbp.prg
* contrib/gtwvg/tests/tbrowser.prg
* contrib/hbhpdf/tests/harupdf.prg
* contrib/hbmisc/fileread.prg
* contrib/xhb/tcgi.prg
* extras/gtwvw/tests/ebtest7.prg
* extras/gtwvw/tests/maximize.prg
* extras/gtwvw/tests/wvwtest9.prg
* extras/hbxlsxml/xlsxml.prg
* extras/httpsrv/session.prg
* tests/alias.prg
* tests/begin.prg
* tests/byref.prg
* tests/funcarr.prg
* tests/testwarn.prg
* tests/wvtext.prg
* renamed STATIC vars to start with 's_'
* renamed PUBLIC/PRIVATE vars to start with 'p_'
* renamed STATIC "const" vars to start with 'sc_'
* contrib/hbhpdf/tests/harupdf.prg
! fixed unused STATIC function warnings
* contrib/hbmisc/tests/rtfclass.prg
+ changed low-level class creation to hbclass.ch one
143 lines
3.8 KiB
Plaintext
143 lines
3.8 KiB
Plaintext
//NOTEST
|
|
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// It is used to check if pcode is generated correctly for aliased expressions
|
|
// (you must check it visually :)
|
|
|
|
MEMVAR p_privateVar
|
|
MEMVAR unknVar
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL localVar
|
|
STATIC s_staticVar
|
|
FIELD fieldVar
|
|
FIELD aliasedField IN aaa
|
|
MEMVAR memvarVar
|
|
PRIVATE p_privateVar
|
|
|
|
? p_privateVar
|
|
? memvarVar
|
|
? localVar
|
|
? s_staticVar
|
|
? fieldVar
|
|
? aliasedField
|
|
? unknVar
|
|
|
|
? 1->p_privateVar
|
|
? 1->memvarVar
|
|
? 1->localVar
|
|
? 1->s_staticVar
|
|
? 1->fieldVar
|
|
? 1->aliasedField
|
|
? 1->unknVar
|
|
|
|
? alias->p_privateVar
|
|
? alias->memvarVar
|
|
? alias->localVar
|
|
? alias->s_staticVar
|
|
? alias->fieldVar
|
|
? alias->aliasedField
|
|
? alias->unknVar
|
|
|
|
? ( localVar )->p_privateVar
|
|
? ( localVar )->memvarVar
|
|
? ( localVar )->localVar
|
|
? ( localVar )->s_staticVar
|
|
? ( localVar )->fieldVar
|
|
? ( localVar )->aliasedField
|
|
? ( localVar )->unknVar
|
|
|
|
? ( localVar )->( p_privateVar, memvarVar, localVar, s_staticVar, fieldVar, aliasedField, unknVar )
|
|
? alias->( p_privateVar, memvarVar, localVar, s_staticVar, fieldVar, aliasedField, unknVar )
|
|
? 2->( p_privateVar, memvarVar, localVar, s_staticVar, fieldVar, aliasedField, unknVar )
|
|
? ( localVar, 2 )->( p_privateVar, memvarVar, localVar, s_staticVar, fieldVar, aliasedField, unknVar )
|
|
|
|
? p_privateVar++
|
|
? memvarVar++
|
|
? localVar++
|
|
? s_staticVar++
|
|
? fieldVar++
|
|
? aliasedField++
|
|
? unknVar++
|
|
|
|
? 1->p_privateVar++
|
|
? 1->memvarVar++
|
|
? 1->localVar++
|
|
? 1->s_staticVar++
|
|
? 1->fieldVar++
|
|
? 1->aliasedField++
|
|
? 1->unknVar++
|
|
|
|
? alias->p_privateVar++
|
|
? alias->memvarVar++
|
|
? alias->localVar++
|
|
? alias->s_staticVar++
|
|
? alias->fieldVar++
|
|
? alias->aliasedField++
|
|
? alias->unknVar++
|
|
|
|
? ( localVar )->p_privateVar++
|
|
? ( localVar )->memvarVar++
|
|
? ( localVar )->localVar++
|
|
? ( localVar )->s_staticVar++
|
|
? ( localVar )->fieldVar++
|
|
? ( localVar )->aliasedField++
|
|
? ( localVar )->unknVar++
|
|
|
|
? p_privateVar += p_privateVar
|
|
? memvarVar += memvarVar
|
|
? localVar += localVar
|
|
? s_staticVar += s_staticVar
|
|
? fieldVar += fieldVar
|
|
? aliasedField += aliasedField
|
|
? unknVar += unknVar
|
|
|
|
? 1->p_privateVar += 1->p_privateVar
|
|
? 1->memvarVar += 1->memvarVar
|
|
? 1->localVar += 1->localVar
|
|
? 1->s_staticVar += 1->s_staticVar
|
|
? 1->fieldVar += 1->fieldVar
|
|
? 1->aliasedField += 1->aliasedField
|
|
? 1->unknVar += 1->unknVar
|
|
|
|
? alias->p_privateVar += alias->p_privateVar
|
|
? alias->memvarVar += alias->memvarVar
|
|
? alias->localVar += alias->localVar
|
|
? alias->s_staticVar += alias->s_staticVar
|
|
? alias->fieldVar += alias->fieldVar
|
|
? alias->aliasedField += alias->aliasedField
|
|
? alias->unknVar += alias->unknVar
|
|
|
|
? ( localVar )->p_privateVar += ( localVar )->p_privateVar
|
|
? ( localVar )->memvarVar += ( localVar )->memvarVar
|
|
? ( localVar )->localVar += ( localVar )->localVar
|
|
? ( localVar )->s_staticVar += ( localVar )->s_staticVar
|
|
? ( localVar )->fieldVar += ( localVar )->fieldVar
|
|
? ( localVar )->aliasedField += ( localVar )->aliasedField
|
|
? ( localVar )->unknVar += ( localVar )->unknVar
|
|
|
|
? ( localVar )->p_privateVar += 2->p_privateVar
|
|
? ( localVar )->memvarVar += 2->memvarVar
|
|
? ( localVar )->localVar += 2->localVar
|
|
? ( localVar )->s_staticVar += 2->s_staticVar
|
|
? ( localVar )->fieldVar += 2->fieldVar
|
|
? ( localVar )->aliasedField += 2->aliasedField
|
|
? ( localVar )->unknVar += 2->unknVar
|
|
|
|
? alias->( aliasedField, MEMVAR->p_privateVar, 1->( Test( 2->fieldVar ) ) )
|
|
|
|
MEMVAR->p_privateVar := 0
|
|
M->localVar := 1
|
|
MEMVA->fieldVar := 2
|
|
|
|
FIELD->fieldVar := 0
|
|
FIEL->aliasedFieldVar := 1
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION Test()
|
|
RETURN NIL
|