From 30020a437fee9384e76fb46ca5309276aa27b985 Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Mon, 22 May 2000 16:47:45 +0000 Subject: [PATCH] 20000522-09:40 GMT-8 Ron Pinkas * include/hbextern.ch + Added HB_STRUCTURE to list of Externals --- harbour/ChangeLog | 5 +++++ harbour/include/hbextern.ch | 1 + harbour/tests/testinit.prg | 11 +++++++++++ harbour/tests/teststru.prg | 10 ++++++---- 4 files changed, 23 insertions(+), 4 deletions(-) create mode 100644 harbour/tests/testinit.prg diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d70cbd751c..0e425871d7 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +20000522-09:40 GMT-8 Ron Pinkas + + * include/hbextern.ch + + Added HB_STRUCTURE to list of Externals + 20000522-09:20 GMT-8 Ron Pinkas * source/compiler/harbour.c diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch index f756140de5..79c5813da6 100644 --- a/harbour/include/hbextern.ch +++ b/harbour/include/hbextern.ch @@ -673,6 +673,7 @@ EXTERNAL TBROWSENEW //symbols from file: rtl\tclass.prg // EXTERNAL TCLASS +EXTERNAL HB_STRUCTURE // //symbols from file: rtl\text.prg // diff --git a/harbour/tests/testinit.prg b/harbour/tests/testinit.prg new file mode 100644 index 0000000000..7c569ad77b --- /dev/null +++ b/harbour/tests/testinit.prg @@ -0,0 +1,11 @@ +INIT PROCEDURE Init() + + ? "In Init" + +RETURN + +PROCEDURE MAIN() + + ? "Should NEVER see this message!!!" + +RETURN diff --git a/harbour/tests/teststru.prg b/harbour/tests/teststru.prg index a29756869d..03115b6f53 100644 --- a/harbour/tests/teststru.prg +++ b/harbour/tests/teststru.prg @@ -4,11 +4,13 @@ PROCEDURE MAIN() LOCAL sTest AS New MyStruct - sTest:Var1 := 8 // Warning Here as Expected. - sTest:NoSuchVar := "Error" // Warning here as expected. - sTest:Var1 := 'Working' // No problem here. - ? sTest:Var1 // Np Problem here. + ? sTest:Var1 // No Problem here. + + sTest:Var1 := 8 // Warning Here as Expected. + + /* Run TIME ERROR Here */ + sTest:NoSuchVar := "Error" // Warning here as expected. RETURN