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

2008-09-17 22:15 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* contrib/rddado/adordd.prg
    ! Marking one STATIC var as thread STATIC.
    ; BTW, this should be revised for whole contrib .prg code.
This commit is contained in:
Viktor Szakats
2008-09-17 20:16:50 +00:00
parent ab02c791d5
commit 43499ce1b5
2 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-09-17 22:15 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/rddado/adordd.prg
! Marking one STATIC var as thread STATIC.
; BTW, this should be revised for whole contrib .prg code.
2008-09-17 18:38 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbthread.h
+ added macros to disable default native compiler TLS support:

12
harbour/contrib/rddado/adordd.prg
View File

@@ -83,11 +83,11 @@
#ifndef __XHARBOUR__
#include "hbusrrdd.ch"
#xcommand TRY => bError := errorBlock( {|oErr| break( oErr ) } ) ;;
#xcommand TRY => s_bError := errorBlock( {|oErr| break( oErr ) } ) ;;
BEGIN SEQUENCE
#xcommand CATCH [<!oErr!>] => errorBlock( bError ) ;;
#xcommand CATCH [<!oErr!>] => errorBlock( s_bError ) ;;
RECOVER [USING <oErr>] <-oErr-> ;;
errorBlock( bError )
errorBlock( s_bError )
#command FINALLY => ALWAYS
#else
#include "usrrdd.ch"
@@ -120,7 +120,11 @@
ANNOUNCE ADORDD
static bError, s_cTableName, s_cEngine, s_cServer, s_cUserName, s_cPassword, s_cQuery := ""
static s_cTableName, s_cEngine, s_cServer, s_cUserName, s_cPassword, s_cQuery := ""
#ifndef __XHARBOUR__
THREAD STATIC s_bError
#endif
#ifdef __XHARBOUR__