From fb51d8a45cc22d84f6a6cf7689f6d2f725c6b848 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 12 Jun 2000 18:15:18 +0000
Subject: [PATCH] [project @ 2000-06-12 18:15:18 by panne] Use "foreign label"
instead of litlit for stdout.
---
ghc/tests/codeGen/should_run/cg026.hs | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs
index 2600db5e1e1f..4deaab935a4a 100644
--- a/ghc/tests/codeGen/should_run/cg026.hs
+++ b/ghc/tests/codeGen/should_run/cg026.hs
@@ -3,6 +3,7 @@
module Main ( main ) where
import PrelBase
+import PrelAddr(indexAddrOffAddr)
import ST
import IOExts
import ST
@@ -27,13 +28,18 @@ main = putStr
-- Arr# Char# -------------------------------------------
-- (main effort is in packString#)
+foreign label "stdout" addrOfStdout :: Addr
+
+stdout :: Addr
+stdout = indexAddrOffAddr addrOfStdout 0
+
test_chars :: String
test_chars
= let str = reverse "Now is the time for all good men to come to...\n"
in
unsafePerformIO (
- _ccall_ fprintf (``stdout''::Addr) (packString "%d %s\n") (93::Int) (packString str) >>
- _ccall_ fflush (``stdout''::Addr) >>
+ _ccall_ fprintf stdout (packString "%d %s\n") (93::Int) (packString str) >>
+ _ccall_ fflush stdout >>
return ""
)
--
GitLab