Comments (2)
Original sample, compile with /lb /memvar /vo7
FUNCTION Start() AS VOID STRICT
PRIVATE oa
PRIVATE ca
PRIVATE cb
PRIVATE cc
LOCAL cCmd AS STRING
TRY
oa := a{}
? "Direct call 2 parameters:"
ca := ""
cb := NULL_DATE
oa:CallByRef2(@ca,@cb,@cc)
? ca
? cb
?
? "Direct call 3 parameters:"
ca := ""
cb := NULL_DATE
cc := NULL_DATE
oa:CallByRef3(@ca,@cb,@cc)
? ca
? cb
? cc
?
? "Indirect call 2 parameters:"
ca := ""
cb := NULL_DATE
cCmd := "oa:CallByRef2(@ca,@cb)"
Eval(&("{||"+cCmd+"}"))
? ca
? cb
?
? "Indirect call 3 parameters, third by value:"
ca := ""
cb := NULL_DATE
cc := NULL_DATE
cCmd := "oa:CallByRef3a(@ca,@cb,cc)"
Eval(&("{||"+cCmd+"}"))
? ca
? cb
? cc
?
? "Indirect call 3 parameters, third by ref:"
ca := ""
cb := NULL_DATE
cc := NULL_DATE
cCmd := "oa:CallByRef3(@ca,@cb,@cc)"
Eval(&("{||"+cCmd+"}"))
? ca
? cb
? cc
?
CATCH e AS exception
? e:Message
END TRY
WAIT
RETURN
CLASS a
METHOD CallByRef2(a REF STRING,b REF DATE) AS LOGIC
LOCAL lOk AS LOGIC
a := "OK"
b := Today()
lOk := TRUE
RETURN lOk
METHOD CallByRef3(a REF STRING,b REF DATE,c REF DATE) AS LOGIC
LOCAL lOk AS LOGIC
a := "OK"
b := Today()
c := Today()+1
lOk := TRUE
RETURN lOk
METHOD CallByRef3a(a REF STRING,b REF DATE,c AS DATE) AS LOGIC
LOCAL lOk AS LOGIC
a := "OK"
b := Today()
c := Today()+1
lOk := TRUE
RETURN lOk
END CLASS
from xsharppublic.
Confirmed fixed
from xsharppublic.
Related Issues (20)
- DBFMEMO/DBFBLOB driver does not allow saving array to dbv
- DBFMEMO/DBFBLOB: Incompatibilities with reading array from dbv file HOT 2
- DBFMEMO: problem with BLOBImport() HOT 2
- The Use command triggers an error when the path to the dbf file contains spaces. HOT 5
- Cannot load supplemental files to cavowed.inf from an absolute or relative path HOT 1
- No compiler error when assigning OBJECT to typed var, with /vo7+ enabled HOT 1
- Internal Compiler Error with duplicate declaring of fields/memvars HOT 1
- VFP: Bogus warning when calling a function with /fox2+
- Linq Min/Max function of float wrong HOT 2
- StackOverflowException on access assign method (Xbase++) HOT 6
- Menu resources are not always released in VO Gui.
- Compiler problem reading clipper/harbour .prg file with end of file marker HOT 1
- Problem with Extended Expression Match Marker (Xbase++) HOT 2
- Problems with UDC starting with a '@' HOT 3
- DBSetFilter() incompatibilities to VO HOT 5
- "readonly" error (XBase++)
- Incorrect "assignment" behavior (XBase++) HOT 10
- Passing array reference or ivar by reference doesn't work (XBase++) HOT 3
- DBSetFilter() with no matching records causes subsequent calls to DBSetFilter() or DBClearFilter() to fail: HOT 1
- AmbiguousMatchException in Evaluate for methods included in an interface HOT 2
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google ❤️ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.
from xsharppublic.