🚀 go-pugleaf

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