fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2006-08-07 14:00 UTC+0100 Ryszard Glab <rglab//imid.med.pl>

Browse Source 
* source/compiler/harbour.y
      * fixed to support @funname() syntax in assigments

   * utils/hbpptest/pp_test.prg
      * fixed preprocessor example

   * TODO
      * removed 'to fix' vertical spacing in ppo files
This commit is contained in:
Ryszard Glab
2006-08-07 11:47:53 +00:00
parent 6a3a7c067c
commit 535f82b5b2
4 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -8,6 +8,17 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-08-07 14:00 UTC+0100 Ryszard Glab <rglab//imid.med.pl>
* source/compiler/harbour.y
* fixed to support @funname() syntax in assigments
* utils/hbpptest/pp_test.prg
* fixed preprocessor example
* TODO
* removed 'to fix' vertical spacing in ppo files
2006-08-07 12:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* xharbour/include/usrrdd.ch
! fixed RDD method order

7
harbour/TODO
View File

@@ -190,13 +190,6 @@ Status...: Open.
***
Assign to: Ryszard
Detail...: Clean vertical spacing in .ppo files. It's necessary to
strep leading blank lines from included files.
Status...: Worjing on it.
***
Assign to: Przemek
Detail...: Fix setting private base for code blocks created by macro
compiler. Maybe it should be bound with making CLEAR MEMORY

2
harbour/source/compiler/harbour.y
View File

@@ -824,7 +824,7 @@ Expression : Variable { $$ = $1; }
| Variable { hb_comp_cVarType = ' ';} StrongType { $$ = $1; }
| PareExpList { hb_comp_cVarType = ' ';} StrongType { $$ = $1; }
| '@' IdentName { $$ = hb_compCheckPassByRef( hb_compExprNewVarRef( $2 ) ); }
| '@' FunIdentCall { $<string>$ = hb_compExprAsSymbol( $2 ); hb_compExprDelete( $2 ); $$ = hb_compCheckPassByRef( hb_compExprNewFunRef( $<string>$ ) ); }
| '@' FunIdentCall { int bPassByRef=hb_comp_bPassByRef;hb_comp_bPassByRef=HB_PASSBYREF_FUNCALL;$<string>$ = hb_compExprAsSymbol( $2 ); hb_compExprDelete( $2 ); $$ = hb_compCheckPassByRef( hb_compExprNewFunRef( $<string>$ ) ); hb_comp_bPassByRef=bPassByRef; }
| '@' MacroVar { $$ = hb_compCheckPassByRef( hb_compExprNewRef( $2 ) ); }
| '@' AliasVar { $$ = hb_compCheckPassByRef( hb_compExprNewRef( $2 ) ); }
;

2
harbour/utils/hbpptest/pp_test.prg
View File

@@ -499,7 +499,7 @@ DEFINE CLIPBOARD oC OF oD FORMAT TEXT
DECLARE WINDOW <w> ; _DW( <"w">, <{IProc}> )
DEFINE WINDOW &oW
DEFINE WINDOW &oW ON INIT oW.Title:= "My title"
DEFINE WINDOW &oW ON INIT &oW.Title:= "My title"
&oW.Title := "title"
&oW.f9 := 9