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

2001-07-17 00:25 UTC+1 JFL (mafact) <jfl@mafact.com>

Browse Source
This commit is contained in:
Jean-Francois Lefebvre
2001-07-16 22:23:35 +00:00
parent 4e9ffa1634
commit 3ef4c3c4f9
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2001-07-17 00:25 UTC+1 JFL (mafact) <jfl@mafact.com>
* harbour/include/hbclass.ch
! Change NO_OO_ERR to HB_CLS_NO_OO_ERR
Changed one Xtranslate in case of HB_CLS_NO_OO_ERR defined
to allow multiples classes not ordered.
2001-07-16 22:55 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/pp/ppcore.c
! minor fix, related to using of __PreProcess() function

9
harbour/include/hbclass.ch
View File

@@ -571,12 +571,17 @@ DECLARE TClass ;
#ifndef HB_SHORTNAMES
#xcommand METHOD <MethodName> => METHOD <MethodName> _CLASS_MODE_
#xcommand METHOD <MethodName> CLASS <ClassName> => METHOD <MethodName> DECLCLASS <ClassName> _CLASS_IMPLEMENTATION_
#ifdef NO_OO_ERR
#ifdef HB_CLS_NO_OO_ERR
#xcommand METHOD <MethodName> CLASS <ClassName> => METHOD <MethodName> CLASS <ClassName> _CLASS_IMPLEMENTATION_
#xcommand METHOD <MethodName> _CLASS_IMPLEMENTATION_ => DECLARED METHOD _CLASS_NAME_ <MethodName>
#xcommand METHOD <MethodName> CLASS <ClassName> _CLASS_IMPLEMENTATION_ => DECLARED METHOD <ClassName> <MethodName>
#else
#xcommand METHOD <MethodName> CLASS <ClassName> => METHOD <MethodName> DECLCLASS <ClassName> _CLASS_IMPLEMENTATION_
//#define STRICT_OO
#ifdef STRICT_OO
#xcommand METHOD <MethodName> _CLASS_IMPLEMENTATION_ => __ERR(Method <"MethodName"> not declared or declaration mismatch in class: _CLASS_NAME_) ; function <MethodName> ; local self := QSelf()