diff options
| author | clean | 2000-07-12 14:59:46 +0000 |
|---|---|---|
| committer | clean | 2000-07-12 14:59:46 +0000 |
| commit | 90461e5831717920426c9c1d7c861a3724f89715 (patch) | |
| tree | 59d48b852f0adce522157ff7c27e24b759561b0d /backendC/CleanCompilerSources/docommand.icl | |
| parent | changes to avoid bug in module refmark when compiling compiler with itself (diff) | |
clean 1.3.3 backend again again
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@189 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/docommand.icl')
| -rw-r--r-- | backendC/CleanCompilerSources/docommand.icl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/docommand.icl b/backendC/CleanCompilerSources/docommand.icl new file mode 100644 index 0000000..d5a1901 --- /dev/null +++ b/backendC/CleanCompilerSources/docommand.icl @@ -0,0 +1,11 @@ +implementation module docommand; + +from StdString import String; + +:: *DoCommandEnvironment :== Int; + +DoCommandNullTerminated :: !String !DoCommandEnvironment -> (!Int,!DoCommandEnvironment); +DoCommandNullTerminated a0 a1 = code { + ccall DoCommandNullTerminated "S:I:I" +} +// int DoCommandNullTerminated(CleanString); |