Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!dali.cs.montana.edu!milton!uw-beaver!ubc-cs!unixg.ubc.ca!brc.ubc.ca!brc.ubc.ca!allen
From: allen@brc.ubc.ca
Newsgroups: comp.lang.modula2
Subject: Sun Modula-2 Concat
Message-ID: <1990Nov28.210844.10063@brc.ubc.ca>
Date: 28 Nov 90 21:08:44 GMT
Sender: news@brc.ubc.ca
Reply-To: allen@brc.ubc.ca ()
Organization: B. R. Centre Ltd.
Lines: 37

Has anyone else had problems with the Concat function on
the Sparc series of SUN workstations (SUNOS4.1)?
Modula-2 Version 2.2.2

Try this code:
----------------------
MODULE t;
FROM String IMPORT Assign,Concat;
FROM SimpleIO IMPORT WriteString,WriteLn;
VAR
  result:ARRAY [0..255] OF CHAR;
  rcode:BOOLEAN;
BEGIN
  Assign("bbb",result,rcode);
  WriteString(result);
  WriteLn;

  Concat("aaa",result,result,rcode);

  IF NOT rcode THEN
    WriteString("Failed");
    WriteLn;
  END;

  WriteString(result);
  WriteLn;
END t.
----------------------

The Concat function returns false and fails, corrupting the result
string, on a sparc. The same code succeeds on a SUN 3/60.

Does anyone have an in with SUN to know if a patch is available.

-- 
Allen Delaney (allen@brc.ubc.ca)
Biomedical Research Centre, U.B.C., Vancouver, B.C. Canada, V6T 1W5