summaryrefslogtreecommitdiff
path: root/testasmcomp/quicksort2.cmm
diff options
context:
space:
mode:
Diffstat (limited to 'testasmcomp/quicksort2.cmm')
-rw-r--r--testasmcomp/quicksort2.cmm27
1 files changed, 0 insertions, 27 deletions
diff --git a/testasmcomp/quicksort2.cmm b/testasmcomp/quicksort2.cmm
deleted file mode 100644
index 187460faa0..0000000000
--- a/testasmcomp/quicksort2.cmm
+++ /dev/null
@@ -1,27 +0,0 @@
-(function "cmp" (i: int j: int)
- (- i j))
-
-(function "quick" (lo: int hi: int a: addr cmp: addr)
- (if (< lo hi)
- (let (i lo
- j hi
- pivot (addraref a hi))
- (while (< i j)
- (while (if (< i hi) (<= (app cmp [(addraref a i) pivot] int) 0) 0)
- (assign i (+ i 1)))
- (while (if (> j lo) (>= (app cmp [(addraref a j) pivot] int) 0) 0)
- (assign j (- j 1)))
- (if (< i j)
- (let temp (addraref a i)
- (addraset a i (addraref a j))
- (addraset a j temp))
- []))
- (let temp (addraref a i)
- (addraset a i (addraref a hi))
- (addraset a hi temp))
- (app "quick" [lo (- i 1) a cmp] unit)
- (app "quick" [(+ i 1) hi a cmp] unit))
- []))
-
-(function "quicksort" (lo: int hi: int a: addr)
- (app "quick" [lo hi a "cmp"] unit))