a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
32 lines
504 B
Plaintext
32 lines
504 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Statics overlapped!
|
|
//
|
|
// Compile statics1.prg, statics2.prg and link both files
|
|
|
|
STATIC uOne, uTwo
|
|
|
|
PROCEDURE Main()
|
|
|
|
? "Statics overlapped!"
|
|
? "==================="
|
|
?
|
|
? "INSIDE statics1.prg"
|
|
? " static uOne, uTwo"
|
|
?
|
|
? " uOne, uTwo =>", uOne, ",", uTwo
|
|
uOne := 1
|
|
uTwo := 2
|
|
? " uOne := 1"
|
|
? " uOne := 2"
|
|
? " uOne, uTwo =>", uOne, ",", uTwo
|
|
?
|
|
Test()
|
|
? "INSIDE statics1.prg"
|
|
? " uOne, uTwo =>", uOne, ",", uTwo
|
|
?
|
|
|
|
RETURN
|