disabled range-checks

This commit is contained in:
ceriel 1987-08-19 18:07:01 +00:00
parent 9bcd5473ad
commit 19b0c2a0b0
16 changed files with 16 additions and 0 deletions

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE CSP;
(* From
"A Modula-2 Implementation of CSP",

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE Conversions;
PROCEDURE ConvertNum(num, len, base: CARDINAL;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE InOut ;
IMPORT Unix;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE MathLib0;
IMPORT Mathlib;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE Mathlib;
FROM EM IMPORT FIF, FEF;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE PascalIO;
IMPORT Unix;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE Processes [1];
(* This implementation module comes from
"Programming in Modula-2", by Niklaus Wirth,

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE RealConversions;
FROM EM IMPORT FIF, FEF;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE RealInOut;
IMPORT InOut;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE Semaphores [1];
FROM SYSTEM IMPORT ADDRESS, NEWPROCESS, TRANSFER;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE Storage;
(* This storage manager maintains an array of lists of objects with the
same size. Commonly used sizes have their own bucket. The larger ones

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE Strings;
PROCEDURE Assign(source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR);

View file

@ -1,4 +1,5 @@
#
(*$R-*)
IMPLEMENTATION MODULE TTY;
FROM Unix IMPORT ioctl;
FROM SYSTEM IMPORT ADR;

View file

@ -1,4 +1,5 @@
#
(*$R-*)
IMPLEMENTATION MODULE Terminal;
(* This implementation is Unix-dependant
*)

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE Traps;
IMPORT EM;
IMPORT Unix;

View file

@ -1,3 +1,4 @@
(*$R-*)
IMPLEMENTATION MODULE random;
FROM Unix IMPORT getpid, time;