a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
26 lines
415 B
Plaintext
26 lines
415 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Statics overlapped!
|
|
//
|
|
// Compile statics1.prg, statics2.prg and link both files
|
|
|
|
STATIC uA, uB
|
|
|
|
PROCEDURE Test()
|
|
|
|
? "INSIDE statics2.prg"
|
|
? " static uA, uB"
|
|
?
|
|
? " ValType( uA ), ValType( uB ) =>", ValType( uA ), ",", ValType( uB )
|
|
? " uA, uB =>", uA, ",", uB
|
|
uA := "a"
|
|
uB := "b"
|
|
? ' uA := "a"'
|
|
? ' uB := "b"'
|
|
? " uA, uB =>", uA, ",", uB
|
|
?
|
|
|
|
RETURN
|