Index: m3/pm3/intro/src/ack.html diff -c m3/pm3/intro/src/ack.html:1.1.1.1 m3/pm3/intro/src/ack.html:1.2 *** m3/pm3/intro/src/ack.html:1.1.1.1 Sat Jan 31 14:47:15 1998 --- m3/pm3/intro/src/ack.html Thu Jun 25 08:35:05 1998 *************** *** 249,255 ****

Farshad Nayeri, Critical Mass, (nayeri@cmass.com), ! comercial Modula-3 support. --- 249,255 ----

Farshad Nayeri, Critical Mass, (nayeri@cmass.com), ! commercial Modula-3 support. Index: m3/pm3/intro/src/index.html diff -c m3/pm3/intro/src/index.html:1.2 m3/pm3/intro/src/index.html:1.3 *** m3/pm3/intro/src/index.html:1.2 Tue Feb 10 22:41:03 1998 --- m3/pm3/intro/src/index.html Tue Aug 25 15:57:54 1998 *************** *** 44,52 **** in the documentation applies to the documentation alone. The source files may come under a different copyright. !

The current PM3 release is under the responsability of Louis-Dominique ! Dubeau (ldd@step.polymtl.ca) and Michel Dagenais (michel.dagenais@polymtl.ca). ! In the coming months, several groups and individuals are expected to join this effort and take responsability for various parts of the package hierarchy. --- 44,54 ---- in the documentation applies to the documentation alone. The source files may come under a different copyright. !

The current PM3 release is under the responsability ! of Michel Dagenais (michel.dagenais@polymtl.ca), ! Anthony Hosking (hosking@cs.purdue.edu, for Solaris), ! and Louis-Dominique Dubeau (ldd@step.polymtl.ca). ! More groups and individuals are expected to join this effort and take responsability for various parts of the package hierarchy. Index: m3/pm3/intro/src/m3makefile diff -c m3/pm3/intro/src/m3makefile:1.3 m3/pm3/intro/src/m3makefile:1.5 *** m3/pm3/intro/src/m3makefile:1.3 Mon May 25 09:45:08 1998 --- m3/pm3/intro/src/m3makefile Tue Aug 25 12:46:25 1998 *************** *** 22,29 **** "",CR, "

PM3: The Modula-3 distribution of Ecole Polytechnique de Montreal",CR, "

",CR, ! "

The subpackages contained in PM3 are located in ", ! lookup(TARGET_PKG_USE,PKG_USE),CR, "Pointers to the relevant documentation may be found in the intro",CR, "subpackage [intro to pm3]",CR, --- 22,30 ---- "",CR, "

PM3: The Modula-3 distribution of Ecole Polytechnique de Montreal",CR, "

",CR, ! "

The subpackages contained in PM3 are located in ",CR, ! lookup("TARGET_PKG_USE",DOC_TO_PKG_USE),"",CR, "Pointers to the relevant documentation may be found in the intro",CR, "subpackage [intro to pm3]",CR, Index: m3/pm3/intro/src/todo.html diff -c m3/pm3/intro/src/todo.html:1.5 m3/pm3/intro/src/todo.html:1.7 *** m3/pm3/intro/src/todo.html:1.5 Mon May 25 09:45:08 1998 --- m3/pm3/intro/src/todo.html Tue Aug 25 15:57:54 1998 *************** *** 14,19 **** --- 14,22 ---- Help on these items is most appreciated!

Fix a problem with the internal backend for LINUXLIBC6. The internal + backend is currently disabled by default on LINUXLIBC6 because of this problem. +
Produce binaries for several platforms at every release through remote compilation servers. We have NT386GNU, SPARC, and SOLgnu computers readily accessible. *************** *** 33,40 ****
Progressively document all the packages using m3doc. For some packages a small introductory index.html file linking to public interfaces is sufficient. For some other packages, the m3totex documentation may be ! reused (libm3/m3core, trestle, vbtkit, formsvbt, netobj, stable, anim3D, ! m3tk).
For Windows NT, get someone to look for native versions of gcc, gdb and binutils (avoiding the complexity of cygwin32.dll in the gnu-win32 chain --- 36,42 ----
Progressively document all the packages using m3doc. For some packages a small introductory index.html file linking to public interfaces is sufficient. For some other packages, the m3totex documentation may be ! reused (vbtkit, netobj, stable, anim3D, m3tk).
For Windows NT, get someone to look for native versions of gcc, gdb and binutils (avoiding the complexity of cygwin32.dll in the gnu-win32 chain *************** *** 46,51 **** --- 48,57 ---- merged, see [duplicates]. A few duplicated procedures do exist, most notably a few Quicksort. +
M3pp has problems with pragma EXTERNAL with flex/bison. It looks + related to function BufferLexeme in lex_help.h which may depend on + lex/yacc internals. +
Detect reusable components hidden in libraries and programs. Candidates include FSM, MText. Find a category specialist for each category to drive this effort and enhance the reusable components. *************** *** 56,64 **** Point = ARRAY Axis OF Unit, where Axis is {x,y} for 2D and {x,y,z} for 3D. This could perhaps lead to anim2D versus anim3D. !
Provide tools to support diagrams in M3doc ! (write xfig to HTML and support diagram tags in the conversion to ! LaTeX/Postscript).
Build a library for browsing and analysing Modula-3 code, probably based on m3tk and m3browser. It could be used for computing metrics --- 62,79 ---- Point = ARRAY Axis OF Unit, where Axis is {x,y} for 2D and {x,y,z} for 3D. This could perhaps lead to anim2D versus anim3D. !
Track the evolution of HTML/XML and extensions for vector graphics. ! Evolve m3doc towards using these native features in XML as they appear. ! !
Document how Modula-3 can be used for real time programming, by using ! as little runtime support as possible. ! !
Check the gamma correction performed by Trestle and Image. If indeed ! gamma correction is useful (i.e. X windows does none while Mac and Windows ! do some and would thus display different colors for the same RGB values and ! bitmaps), find a way to let Image tell Trestle if ! something does not need to be gamma corrected instead of doing the work twice. ! The gamma correction overhead is indeed only a problem for large bitmaps.
Build a library for browsing and analysing Modula-3 code, probably based on m3tk and m3browser. It could be used for computing metrics *************** *** 79,84 **** --- 94,101 ----
Rework the HTML kit and the web packages to provide a single package for accessing WWW documents. + +
Provide a serial port access package.
Provide a high level Database interface, for both PostgresSQL and ODBC. Eventually provide a native implementation based on persistent objects Index: m3/pm3/intro/src/questions/size.html diff -c m3/pm3/intro/src/questions/size.html:1.1.1.1 m3/pm3/intro/src/questions/size.html:1.2 *** m3/pm3/intro/src/questions/size.html:1.1.1.1 Sat Jan 31 14:47:15 1998 --- m3/pm3/intro/src/questions/size.html Thu Jun 25 08:35:14 1998 *************** *** 1,14 **** ! Why is Hello World so large? !
Why is Hello World so large?

! Modula-3 programs are larger than C programs for the following reasons: !
!
1. The fixed runtime is substantially larger. It contains a ! garbage collector, a thread runtime, and exception support. ! Note that Hello World is virtually all runtime. For ! larger programs the runtime is not an issue. !
2. The generated code includes runtime checks for out-of-bound ! array references and NIL pointer. Many of these checks could ! be removed by a more sophisticated compiler. !
--- 1,12 ---- ! Why is Hello World larger in Modula-3 than in C? !
Why is Hello World larger in Modula-3 than in C?

! Modula-3 programs are slightly larger than C programs because the ! generated code includes runtime type information, ! and runtime checks for out-of-bound array references and NIL pointers. ! Many of these checks could be removed by a more sophisticated compiler.
+ The fixed runtime is substantially larger (there is no runtime support in C). + It contains a garbage collector, a thread runtime, and exception support. + It is typically placed in a dynamically linked library, shared on disk + and in memory between all the Modula-3 programs. Index: m3/pm3/language/m3quake/src/QMachine.m3 diff -c m3/pm3/language/m3quake/src/QMachine.m3:1.17 m3/pm3/language/m3quake/src/QMachine.m3:1.18 *** m3/pm3/language/m3quake/src/QMachine.m3:1.17 Thu Apr 9 13:17:52 1998 --- m3/pm3/language/m3quake/src/QMachine.m3 Tue Aug 25 12:47:34 1998 *************** *** 387,392 **** --- 387,393 ---- Wr.PutText (t.writer, Fmt.Int (t.reg.pc + 1 + arg)); END; Wr.PutText (t.writer, "\n"); + Wr.Flush(t.writer); END TraceInstruction; (*------------------------------------------------------- procedure calls ---*) *************** *** 555,561 **** BEGIN IF (t.reg.xp >= NUMBER (t.scopes^)) THEN ExpandScopes (t); END; WITH s = t.scopes [t.reg.xp] DO ! IF (s = NIL) THEN s := NEW (QValue.Scope); END; IF (t.reg.xp > 0) THEN s.parent := t.scopes[t.reg.xp-1]; ELSE s.parent := NIL; --- 556,562 ---- BEGIN IF (t.reg.xp >= NUMBER (t.scopes^)) THEN ExpandScopes (t); END; WITH s = t.scopes [t.reg.xp] DO ! s := NEW (QValue.Scope); IF (t.reg.xp > 0) THEN s.parent := t.scopes[t.reg.xp-1]; ELSE s.parent := NIL; *************** *** 1654,1670 **** Err (t, "internal error: invalid pathname in StripPrefix"); END; ! FOR i := 0 TO MIN(prefix.size(), path.size()) - 1 DO IF NOT Text.Equal(prefix.get(i), path.get(i)) THEN ! VAR sub := TextSeq.Sub(path, i); ! BEGIN ! sub.addlo(NIL); (* make relative *) ! RETURN sub; ! END; END; END; - - IF prefix.size() >= path.size() THEN RETURN path; END; VAR sub := TextSeq.Sub(path, prefix.size()); BEGIN --- 1655,1669 ---- Err (t, "internal error: invalid pathname in StripPrefix"); END; ! (* check whether prefix is a prefix of path *) ! IF prefix.size() > path.size() THEN RETURN path; END; ! ! FOR i := 0 TO prefix.size() - 1 DO IF NOT Text.Equal(prefix.get(i), path.get(i)) THEN ! (* This is not a prefix *) ! RETURN path; END; END; VAR sub := TextSeq.Sub(path, prefix.size()); BEGIN Index: m3/pm3/language/modula3/m3compiler/m3bootstrap/src/m3makefile diff -c m3/pm3/language/modula3/m3compiler/m3bootstrap/src/m3makefile:1.13 m3/pm3/language/modula3/m3compiler/m3bootstrap/src/m3makefile:1.14 *** m3/pm3/language/modula3/m3compiler/m3bootstrap/src/m3makefile:1.13 Mon May 25 09:46:18 1998 --- m3/pm3/language/modula3/m3compiler/m3bootstrap/src/m3makefile Tue Aug 25 12:48:18 1998 *************** *** 47,53 **** readonly proc WriteMakefileLine(pkg,target,options) is % In a makefile, only real / may work write("\tcd boot-" & target & "/" & pkg & "/" & target & ! "; make -f make.boot " & options, CR) end --- 47,53 ---- readonly proc WriteMakefileLine(pkg,target,options) is % In a makefile, only real / may work write("\tcd boot-" & target & "/" & pkg & "/" & target & ! "; ${MAKE} -f make.boot " & options, CR) end Index: m3/pm3/language/modula3/m3compiler/m3build/src/Main.m3 diff -c m3/pm3/language/modula3/m3compiler/m3build/src/Main.m3:1.6 m3/pm3/language/modula3/m3compiler/m3build/src/Main.m3:1.7 *** m3/pm3/language/modula3/m3compiler/m3build/src/Main.m3:1.6 Fri Nov 28 09:23:05 1997 --- m3/pm3/language/modula3/m3compiler/m3build/src/Main.m3 Wed Aug 26 10:54:10 1998 *************** *** 335,343 **** m3_template := Env.Get("M3_TEMPLATE_DIR"); path : TEXT; subpath : TEXT; ! nextsep : INTEGER := 0; ! prevsep : INTEGER := 0; sep : CHAR; BEGIN IF m3_template # NIL THEN template_dir := m3_template; --- 335,344 ---- m3_template := Env.Get("M3_TEMPLATE_DIR"); path : TEXT; subpath : TEXT; ! nextsep : INTEGER; ! prevsep : INTEGER := -1; sep : CHAR; + filename : TEXT; BEGIN IF m3_template # NIL THEN template_dir := m3_template; *************** *** 354,366 **** REPEAT nextsep := Text.FindChar(path, sep, prevsep + 1); IF nextsep # -1 THEN ! subpath := Text.Sub(path, prevsep, nextsep - prevsep - 1); ELSE ! subpath := Text.Sub(path, prevsep); END; ! IF M3File.IsReadable(subpath & template) THEN ! template_dir := subpath; ! RETURN; END; prevsep := nextsep; UNTIL prevsep = -1; --- 355,371 ---- REPEAT nextsep := Text.FindChar(path, sep, prevsep + 1); IF nextsep # -1 THEN ! subpath := Text.Sub(path, prevsep + 1, nextsep - prevsep - 1); ELSE ! subpath := Text.Sub(path, prevsep + 1); END; ! IF Text.Length(subpath) > 0 THEN ! filename := subpath & SL & template; ! IF M3File.IsReadable(filename) AND ! NOT M3File.IsDirectory(filename) THEN ! template_dir := subpath; ! RETURN; ! END; END; prevsep := nextsep; UNTIL prevsep = -1; Index: m3/pm3/language/modula3/m3compiler/m3build/src/html/misc.html diff -c m3/pm3/language/modula3/m3compiler/m3build/src/html/misc.html:1.1.1.1 m3/pm3/language/modula3/m3compiler/m3build/src/html/misc.html:1.2 *** m3/pm3/language/modula3/m3compiler/m3build/src/html/misc.html:1.1.1.1 Sat Jan 31 14:47:11 1998 --- m3/pm3/language/modula3/m3compiler/m3build/src/html/misc.html Tue Aug 25 12:48:50 1998 *************** *** 2,8 **** Miscellaneous procedures !
Miscellaneous declarations

--- 2,8 ---- Miscellaneous procedures !
Miscellaneous declarations

Index: m3/pm3/language/modula3/m3compiler/m3driver/src/M3Driver.m3 diff -c m3/pm3/language/modula3/m3compiler/m3driver/src/M3Driver.m3:1.8 m3/pm3/language/modula3/m3compiler/m3driver/src/M3Driver.m3:1.9 *** m3/pm3/language/modula3/m3compiler/m3driver/src/M3Driver.m3:1.8 Thu Mar 26 16:12:26 1998 --- m3/pm3/language/modula3/m3compiler/m3driver/src/M3Driver.m3 Tue Aug 25 12:49:04 1998 *************** *** 56,62 **** time_now : INTEGER; (* for AST cache *) - warning_level : INTEGER := 3; make_mode : BOOLEAN := FALSE; keep_files : BOOLEAN := FALSE; dump_config : BOOLEAN := FALSE; --- 56,61 ---- *************** *** 151,158 **** IF Msg.level >= Msg.Level.Verbose THEN M3Timers.Start(); END; - warning_level := MIN(0,MAX(3,i.warning_level)); - link_coverage := i.link_coverage; shared_libs := i.shared_libs; ext_pass_6 := i.ext_pass_6; --- 150,155 ---- *************** *** 221,227 **** compile_failed:= FALSE; time_now := Utils.M3Time( Time.Now() ); - warning_level := 3; make_mode := FALSE; keep_files := FALSE; dump_config := FALSE; --- 218,223 ---- Index: m3/pm3/language/modula3/m3compiler/m3export/src/m3makefile diff -c m3/pm3/language/modula3/m3compiler/m3export/src/m3makefile:1.17 m3/pm3/language/modula3/m3compiler/m3export/src/m3makefile:1.18 *** m3/pm3/language/modula3/m3compiler/m3export/src/m3makefile:1.17 Fri Jun 5 16:00:18 1998 --- m3/pm3/language/modula3/m3compiler/m3export/src/m3makefile Tue Aug 25 12:49:41 1998 *************** *** 264,270 **** if RPMBinaries contains platform ret = Exec(["rm", "-r", EXPORT_BINARIES & "/" & platform & "/" & ! VersionName(previousVersion),"-RPMS"],[],".") end end end --- 264,270 ---- if RPMBinaries contains platform ret = Exec(["rm", "-r", EXPORT_BINARIES & "/" & platform & "/" & ! VersionName(previousVersion) & "-RPMS"],[],".") end end end *************** *** 762,770 **** CheckExec(["make","exportall","M3OPTIONS=" & M3MAKEOPTIONS], ["","make.stdout","make.stderr"], path_of("../../../../.."),"building bootstrap failed") ! return ! exit(1) ! end ReadVersionInfo() --- 762,771 ---- CheckExec(["make","exportall","M3OPTIONS=" & M3MAKEOPTIONS], ["","make.stdout","make.stderr"], path_of("../../../../.."),"building bootstrap failed") ! ! % Not in pre-release test mode ! ! else ReadVersionInfo() *************** *** 914,917 **** UpdateVersionNumbers() end ! error("Finished export",CR) --- 915,921 ---- UpdateVersionNumbers() end ! write("Finished export",CR) ! ! ! end % terminates the "else" section of the "if PRERELEASE" Index: m3/pm3/language/modula3/m3compiler/m3middle/src/Target.m3 diff -c m3/pm3/language/modula3/m3compiler/m3middle/src/Target.m3:1.7 m3/pm3/language/modula3/m3compiler/m3middle/src/Target.m3:1.8 *** m3/pm3/language/modula3/m3compiler/m3middle/src/Target.m3:1.7 Wed May 6 09:34:58 1998 --- m3/pm3/language/modula3/m3compiler/m3middle/src/Target.m3 Wed Aug 26 10:54:26 1998 *************** *** 420,426 **** Guard_page_size := 4096 * Char.size; All_floats_legal := TRUE; Has_stack_walker := FALSE; ! Setjmp := "__setjmp"; Checks_integer_ops := FALSE; Global_handler_stack := TRUE; Aligned_procedures := TRUE; --- 420,426 ---- Guard_page_size := 4096 * Char.size; All_floats_legal := TRUE; Has_stack_walker := FALSE; ! Setjmp := "_setjmp"; Checks_integer_ops := FALSE; Global_handler_stack := TRUE; Aligned_procedures := TRUE; Index: m3/pm3/language/modula3/m3compiler/m3templates/src/BldFace.m3 diff -c m3/pm3/language/modula3/m3compiler/m3templates/src/BldFace.m3:1.4 m3/pm3/language/modula3/m3compiler/m3templates/src/BldFace.m3:1.5 *** m3/pm3/language/modula3/m3compiler/m3templates/src/BldFace.m3:1.4 Wed Dec 17 14:04:25 1997 --- m3/pm3/language/modula3/m3compiler/m3templates/src/BldFace.m3 Tue Aug 25 12:50:09 1998 *************** *** 146,151 **** --- 146,152 ---- GetOptionValue("warning_level",val); t.warning_level := QVal.ToInt(m,val); + m.m3front_options.addhi("-w" & QVal.ToText(m,val)); EXCEPT Quake.Error => RAISE Error; END; Index: m3/pm3/language/modula3/m3compiler/m3templates/src/BldQuake.m3 diff -c m3/pm3/language/modula3/m3compiler/m3templates/src/BldQuake.m3:1.33 m3/pm3/language/modula3/m3compiler/m3templates/src/BldQuake.m3:1.34 *** m3/pm3/language/modula3/m3compiler/m3templates/src/BldQuake.m3:1.33 Thu Feb 26 11:28:54 1998 --- m3/pm3/language/modula3/m3compiler/m3templates/src/BldQuake.m3 Tue Aug 25 12:50:09 1998 *************** *** 173,179 **** IF NOT t.pkg_dirs.get(id, dir_map) THEN (* we've never heard of this package before *) ! new_path := Pkg(t, pkg) & t.SL & subdir; dir_map := NEW(TextTextTbl.Default).init(5); EVAL dir_map.put(subdir, new_path); EVAL t.pkg_dirs.put(id, dir_map); --- 173,183 ---- IF NOT t.pkg_dirs.get(id, dir_map) THEN (* we've never heard of this package before *) ! IF Pathname.Absolute(subdir) THEN ! new_path := subdir; ! ELSE ! new_path := Pkg(t, pkg) & t.SL & subdir; ! END; dir_map := NEW(TextTextTbl.Default).init(5); EVAL dir_map.put(subdir, new_path); EVAL t.pkg_dirs.put(id, dir_map); *************** *** 184,190 **** (* see if we've heard of this subdirectory *) IF NOT dir_map.get(subdir, new_path) THEN (* nope, it's a new subdirectory *) ! new_path := Pkg(t, pkg) & t.SL & subdir; EVAL dir_map.put(subdir, new_path); EVAL t.locations.put(new_path, Loc.T{id, subdir}); END; --- 188,198 ---- (* see if we've heard of this subdirectory *) IF NOT dir_map.get(subdir, new_path) THEN (* nope, it's a new subdirectory *) ! IF Pathname.Absolute(subdir) THEN ! new_path := subdir; ! ELSE ! new_path := Pkg(t, pkg) & t.SL & subdir; ! END; EVAL dir_map.put(subdir, new_path); EVAL t.locations.put(new_path, Loc.T{id, subdir}); END; *************** *** 241,247 **** (* XXX DERIVED SOURCES !!! *) IF NOT Text.Equal(p, t.path_of_path) THEN t.path_of_path := p; ! t.path_of_base := Pkg(t, t.package) & t.SL & PkgSubdir(t) & t.SL; END; RETURN t.path_of_base & x; END PathOf; --- 249,261 ---- (* XXX DERIVED SOURCES !!! *) IF NOT Text.Equal(p, t.path_of_path) THEN t.path_of_path := p; ! WITH subdir = PkgSubdir(t) DO ! IF Pathname.Absolute(subdir) THEN ! t.path_of_base := subdir & t.SL; ! ELSE ! t.path_of_base := Pkg(t, t.package) & t.SL & subdir & t.SL; ! END; ! END; END; RETURN t.path_of_base & x; END PathOf; *************** *** 533,538 **** --- 547,559 ---- hidden := visibility, local := IMPORTED)); t.h_inputs.addhi(loc & t.SL & unit_name); EVAL t.h_dirs.put(loc, loc); + IF visibility = VISIBLE THEN + TRY + M3Driver.AddSourceFile(loc, unit_name, TRUE); + EXCEPT + M3Driver.Error => CErr("M3Driver.AddSourceFile"); + END; + END; END U_MapAddH; PROCEDURE Do_MapAddS(t: QMachine.T; n_args := 4) RAISES {Error} = *************** *** 839,845 **** t.h_inputs.addhi(here & t.SL & fn); EVAL t.h_dirs.put(here, here); TRY ! M3Driver.AddSourceFile(NIL, PathOf(t, fn), TRUE); EXCEPT M3Driver.Error => CErr("M3Driver.AddSourceFile"); END; --- 860,866 ---- t.h_inputs.addhi(here & t.SL & fn); EVAL t.h_dirs.put(here, here); TRY ! M3Driver.AddSourceFile(here, fn, TRUE); EXCEPT M3Driver.Error => CErr("M3Driver.AddSourceFile"); END; Index: m3/pm3/language/modula3/m3compiler/src/restrictions.html diff -c m3/pm3/language/modula3/m3compiler/src/restrictions.html:1.2 m3/pm3/language/modula3/m3compiler/src/restrictions.html:1.3 *** m3/pm3/language/modula3/m3compiler/src/restrictions.html:1.2 Tue Feb 10 22:57:48 1998 --- m3/pm3/language/modula3/m3compiler/src/restrictions.html Tue Aug 25 12:50:35 1998 *************** *** 8,14 ****
With a few exceptions, SRC Modula-3 implements the ! Modula-3 language definition.

Arithmetic checking
--- 8,14 ----
With a few exceptions, SRC Modula-3 implements the ! Modula-3 language definition.

Arithmetic checking
Index: m3/pm3/language/modula3/m3tools/coverage/src/m3makefile diff -c m3/pm3/language/modula3/m3tools/coverage/src/m3makefile:1.7 m3/pm3/language/modula3/m3tools/coverage/src/m3makefile:1.8 *** m3/pm3/language/modula3/m3tools/coverage/src/m3makefile:1.7 Mon May 25 09:47:17 1998 --- m3/pm3/language/modula3/m3tools/coverage/src/m3makefile Tue Aug 25 12:51:09 1998 *************** *** 37,39 **** --- 37,41 ---- BindExport (pgm) ManPage ("analyze_coverage", 1) + + OtherPackage("coverage") \ No newline at end of file Index: m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-lang.c diff -c m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-lang.c:1.6 m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-lang.c:1.7 *** m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-lang.c:1.6 Fri Jun 5 15:59:34 1998 --- m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-lang.c Tue Aug 25 12:52:03 1998 *************** *** 28,33 **** --- 28,34 ---- #include "m3-uid.h" #include "frame.h" #include "target.h" + #include "gdb_string.h" struct symbol * find_m3_ir (); Index: m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-valprint.c diff -c m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-valprint.c:1.2 m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-valprint.c:1.3 *** m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-valprint.c:1.2 Thu Mar 27 12:14:50 1997 --- m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/m3-valprint.c Wed Aug 26 10:56:06 1998 *************** *** 239,244 **** --- 239,246 ---- extern unsigned int repeat_count_threshold; + extern void m3_printchar(int, FILE *); + int m3_val_print2 (type, valaddr, bitpos, bitsize, stream, format, deref_ref, toplevel) struct type *type; Index: m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/valprint.c diff -c m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/valprint.c:1.1.1.1 m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/valprint.c:1.2 *** m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/valprint.c:1.1.1.1 Tue Feb 11 11:04:42 1997 --- m3/pm3/language/modula3/m3tools/m3gdb/gdb/gdb/valprint.c Wed Aug 26 10:56:09 1998 *************** *** 293,298 **** --- 293,301 ---- #ifdef PRINTF_HAS_LONG_LONG switch (format) { + case 'c': + fprintf_filtered (stream, "%c", (char)val_long); + break; case 'd': fprintf_filtered (stream, use_local ? local_decimal_format_custom ("ll") Index: m3/pm3/language/modula3/m3tools/m3gdb/gdb/mmalloc/mmalloc.c diff -c m3/pm3/language/modula3/m3tools/m3gdb/gdb/mmalloc/mmalloc.c:1.1.1.1 m3/pm3/language/modula3/m3tools/m3gdb/gdb/mmalloc/mmalloc.c:1.3 *** m3/pm3/language/modula3/m3tools/m3gdb/gdb/mmalloc/mmalloc.c:1.1.1.1 Tue Feb 11 11:05:02 1997 --- m3/pm3/language/modula3/m3tools/m3gdb/gdb/mmalloc/mmalloc.c Wed Aug 26 13:50:44 1998 *************** *** 335,337 **** --- 335,338 ---- result = mmalloc ((PTR) NULL, size); return (result); } + Index: m3/pm3/language/modula3/m3tools/recordheap/src/m3makefile diff -c m3/pm3/language/modula3/m3tools/recordheap/src/m3makefile:1.2 m3/pm3/language/modula3/m3tools/recordheap/src/m3makefile:1.3 *** m3/pm3/language/modula3/m3tools/recordheap/src/m3makefile:1.2 Tue Jan 28 12:24:24 1997 --- m3/pm3/language/modula3/m3tools/recordheap/src/m3makefile Tue Aug 25 12:52:29 1998 *************** *** 7,9 **** --- 7,11 ---- BinExport ("recordheap") ManPage ("recordheap", 1) + + OtherPackage("recordheap") Index: m3/pm3/language/modula3/src/m3defn/authors.html diff -c m3/pm3/language/modula3/src/m3defn/authors.html:1.1.1.1 m3/pm3/language/modula3/src/m3defn/authors.html:1.2 *** m3/pm3/language/modula3/src/m3defn/authors.html:1.1.1.1 Sat Jan 31 14:47:13 1998 --- m3/pm3/language/modula3/src/m3defn/authors.html Tue Aug 25 12:52:46 1998 *************** *** 4,14 **** !
About the authors

Luca Cardelli was an undergraduate in Pisa and has a Ph.D. in Computer ! Science from the University of Edinburgh (1982). He worked at AT&T Bell Labs, Murray Hill, from 1982 to 1985 before assuming his current position at DEC SRC. His main interests are in constructive logic, type theory, and language design and implementation. --- 4,14 ---- !
Modula-3: About the authors

Luca Cardelli was an undergraduate in Pisa and has a Ph.D. in Computer ! Science from the University of Edinburgh (1982). He worked at AT&T Bell Labs, Murray Hill, from 1982 to 1985 before assuming his current position at DEC SRC. His main interests are in constructive logic, type theory, and language design and implementation. Index: m3/pm3/libs/libm3/src/os/Common/Pathname.i3 diff -c m3/pm3/libs/libm3/src/os/Common/Pathname.i3:1.3 m3/pm3/libs/libm3/src/os/Common/Pathname.i3:1.4 *** m3/pm3/libs/libm3/src/os/Common/Pathname.i3:1.3 Thu Jun 4 12:35:24 1998 --- m3/pm3/libs/libm3/src/os/Common/Pathname.i3 Tue Aug 25 12:53:51 1998 *************** *** 145,151 **** PROCEDURE ReplaceExt(pn: T; ext: TEXT): T; (* Return a pathname equal to "pn" except with the extension of the ! final arc name replaced with "ext", which must be non-"NIL". *) VAR (*CONST*) Parent: TEXT; --- 145,157 ---- PROCEDURE ReplaceExt(pn: T; ext: TEXT): T; (* Return a pathname equal to "pn" except with the extension of the ! final arc name set to "ext", replacing the previous extension. If ! the final arc name is empty, "pn" is returned unchanged; if the ! extension of the final arc name is empty, ! ! | pn & "." & ext ! ! is returned. *) VAR (*CONST*) Parent: TEXT; Index: m3/pm3/libs/libm3/src/os/POSIX/PathnamePosix.m3 diff -c m3/pm3/libs/libm3/src/os/POSIX/PathnamePosix.m3:1.1.1.1 m3/pm3/libs/libm3/src/os/POSIX/PathnamePosix.m3:1.2 *** m3/pm3/libs/libm3/src/os/POSIX/PathnamePosix.m3:1.1.1.1 Thu Jan 16 16:30:16 1997 --- m3/pm3/libs/libm3/src/os/POSIX/PathnamePosix.m3 Tue Aug 25 12:53:54 1998 *************** *** 133,142 **** VAR baseLwb, baseUpb, extUpb: CARDINAL; BEGIN NameSections(pn, baseLwb, baseUpb, extUpb); ! IF baseUpb = extUpb THEN RETURN pn END; (* nothing to replace *) RETURN Text.Sub(pn, 0, baseUpb) & ExtSepText & ext END ReplaceExt; - (* Internal procedures. *) --- 133,141 ---- VAR baseLwb, baseUpb, extUpb: CARDINAL; BEGIN NameSections(pn, baseLwb, baseUpb, extUpb); ! IF baseLwb = extUpb THEN RETURN pn END; (* empty final arc name *) RETURN Text.Sub(pn, 0, baseUpb) & ExtSepText & ext END ReplaceExt; (* Internal procedures. *) Index: m3/pm3/libs/libm3/src/os/POSIX/ProcessPosix.m3 diff -c m3/pm3/libs/libm3/src/os/POSIX/ProcessPosix.m3:1.5 m3/pm3/libs/libm3/src/os/POSIX/ProcessPosix.m3:1.6 *** m3/pm3/libs/libm3/src/os/POSIX/ProcessPosix.m3:1.5 Tue Apr 28 16:01:36 1998 --- m3/pm3/libs/libm3/src/os/POSIX/ProcessPosix.m3 Tue Aug 25 12:53:54 1998 *************** *** 240,246 **** iff successful. *) VAR res: BOOLEAN; BEGIN IF h # NoFileDescriptor ! THEN res := NOT Unix.dup2(h, fd) < 0 ELSE res := Unix.fcntl(fd, Unix.F_SETFD, 1) >= 0 OR Uerror.errno = Uerror.EBADF; END; --- 240,246 ---- iff successful. *) VAR res: BOOLEAN; BEGIN IF h # NoFileDescriptor ! THEN res := Unix.dup2(h, fd) >= 0 ELSE res := Unix.fcntl(fd, Unix.F_SETFD, 1) >= 0 OR Uerror.errno = Uerror.EBADF; END; Index: m3/pm3/libs/libm3/src/os/WIN32/PathnameWin32.m3 diff -c m3/pm3/libs/libm3/src/os/WIN32/PathnameWin32.m3:1.1.1.1 m3/pm3/libs/libm3/src/os/WIN32/PathnameWin32.m3:1.2 *** m3/pm3/libs/libm3/src/os/WIN32/PathnameWin32.m3:1.1.1.1 Thu Jan 16 16:30:16 1997 --- m3/pm3/libs/libm3/src/os/WIN32/PathnameWin32.m3 Tue Aug 25 12:53:57 1998 *************** *** 153,159 **** VAR baseLwb, baseUpb, extUpb: CARDINAL; BEGIN NameSections(pn, baseLwb, baseUpb, extUpb); ! IF baseUpb = extUpb THEN RETURN pn END; (* nothing to replace *) RETURN Text.Sub(pn, 0, baseUpb) & ExtSepText & ext END ReplaceExt; --- 153,159 ---- VAR baseLwb, baseUpb, extUpb: CARDINAL; BEGIN NameSections(pn, baseLwb, baseUpb, extUpb); ! IF baseLwb = extUpb THEN RETURN pn END; (* empty final arc name *) RETURN Text.Sub(pn, 0, baseUpb) & ExtSepText & ext END ReplaceExt; Index: m3/pm3/libs/m3core/src/C/LINUXLIBC6/Csetjmp.i3 diff -c m3/pm3/libs/m3core/src/C/LINUXLIBC6/Csetjmp.i3:1.1 m3/pm3/libs/m3core/src/C/LINUXLIBC6/Csetjmp.i3:1.2 *** m3/pm3/libs/m3core/src/C/LINUXLIBC6/Csetjmp.i3:1.1 Tue Apr 28 16:21:28 1998 --- m3/pm3/libs/m3core/src/C/LINUXLIBC6/Csetjmp.i3 Wed Aug 26 10:57:39 1998 *************** *** 20,29 **** saved_mask : Usignal.sigset_t; END; ! <*EXTERNAL "__setjmp" *> PROCEDURE setjmp (VAR env: jmp_buf): int; <*EXTERNAL*> PROCEDURE longjmp (VAR env: jmp_buf; val: int); ! <*EXTERNAL "__setjmp" *> PROCEDURE usetjmp (VAR env: jmp_buf): int; <*EXTERNAL "_longjmp" *> PROCEDURE ulongjmp (VAR env: jmp_buf; val: int); END Csetjmp. --- 20,29 ---- saved_mask : Usignal.sigset_t; END; ! <*EXTERNAL*> PROCEDURE setjmp (VAR env: jmp_buf): int; <*EXTERNAL*> PROCEDURE longjmp (VAR env: jmp_buf; val: int); ! <*EXTERNAL "_setjmp" *> PROCEDURE usetjmp (VAR env: jmp_buf): int; <*EXTERNAL "_longjmp" *> PROCEDURE ulongjmp (VAR env: jmp_buf; val: int); END Csetjmp. Index: m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTHeapDepC.c diff -c m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTHeapDepC.c:1.3 m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTHeapDepC.c:1.4 *** m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTHeapDepC.c:1.3 Fri Jun 5 15:57:51 1998 --- m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTHeapDepC.c Tue Aug 25 12:54:41 1998 *************** *** 467,473 **** ENTER_CRITICAL; MAKE_WRITABLE(buf); ! result = _fxstat(1, fd, buf); EXIT_CRITICAL; return result; } --- 467,473 ---- ENTER_CRITICAL; MAKE_WRITABLE(buf); ! result = _fxstat(3, fd, buf); EXIT_CRITICAL; return result; } *************** *** 707,720 **** } int lstat(path, buf) ! char *path; struct stat *buf; { int result; ENTER_CRITICAL; MAKE_READABLE(path); MAKE_WRITABLE(buf); ! result = _lxstat(1, path, buf); EXIT_CRITICAL; return result; } --- 707,720 ---- } int lstat(path, buf) ! const char *path; struct stat *buf; { int result; ENTER_CRITICAL; MAKE_READABLE(path); MAKE_WRITABLE(buf); ! result = _lxstat(3, path, buf); EXIT_CRITICAL; return result; } *************** *** 1268,1274 **** int setsockopt(fd, level, optname, optval, optlen) int fd, level, optname; ! void *optval; socklen_t optlen; { int result; --- 1268,1274 ---- int setsockopt(fd, level, optname, optval, optlen) int fd, level, optname; ! const void *optval; socklen_t optlen; { int result; *************** *** 1388,1401 **** } int stat(path, buf) ! char *path; struct stat *buf; { int result; ENTER_CRITICAL; MAKE_READABLE(path); MAKE_WRITABLE(buf); ! result = _xstat(1, path, buf); EXIT_CRITICAL; return result; } --- 1388,1401 ---- } int stat(path, buf) ! const char *path; struct stat *buf; { int result; ENTER_CRITICAL; MAKE_READABLE(path); MAKE_WRITABLE(buf); ! result = _xstat(3, path, buf); EXIT_CRITICAL; return result; } Index: m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTMachine.i3 diff -c m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTMachine.i3:1.1 m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTMachine.i3:1.2 *** m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTMachine.i3:1.1 Tue Apr 28 16:23:38 1998 --- m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTMachine.i3 Wed Aug 26 10:58:04 1998 *************** *** 18,24 **** (* The machine state is saved in a "State". This type is really opaque to the client, i.e. it does not need to be an array. *) ! <*EXTERNAL "__setjmp" *> PROCEDURE SaveState (VAR s: State): INTEGER; (* Capture the currently running thread's state *) --- 18,24 ---- (* The machine state is saved in a "State". This type is really opaque to the client, i.e. it does not need to be an array. *) ! <*EXTERNAL "_setjmp" *> PROCEDURE SaveState (VAR s: State): INTEGER; (* Capture the currently running thread's state *) Index: m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTThreadC.c diff -c m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTThreadC.c:1.1 m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTThreadC.c:1.2 *** m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTThreadC.c:1.1 Tue Apr 28 16:23:39 1998 --- m3/pm3/libs/m3core/src/runtime/LINUXLIBC6/RTThreadC.c Wed Aug 26 10:58:04 1998 *************** *** 11,19 **** RTThread__Transfer (from, to) jmp_buf *from, *to; { ! /* We can't stop gcc complaining here, so we'll just have to put up ! with it .. */ ! if (__setjmp(*from) == 0) __longjmp (*((__jmp_buf *)to), 1); } --- 11,17 ---- RTThread__Transfer (from, to) jmp_buf *from, *to; { ! if (_setjmp(*from) == 0) _longjmp (*to, 1); } Index: m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.i3 diff -c m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.i3:1.1 m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.i3:1.2 *** m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.i3:1.1 Tue Apr 28 16:24:26 1998 --- m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.i3 Tue Aug 25 12:55:19 1998 *************** *** 19,33 **** *) (* major part of a device *) ! PROCEDURE major (x: int): int; (* minor part of a device *) ! PROCEDURE minor (x: int): int; (* make a device number *) PROCEDURE makedev (x, y: int): dev_t; TYPE u_char = unsigned_char; u_short = unsigned_short; u_int = unsigned_int; --- 19,35 ---- *) (* major part of a device *) ! PROCEDURE major (x: dev_t): int; (* minor part of a device *) ! PROCEDURE minor (x: dev_t): int; (* make a device number *) PROCEDURE makedev (x, y: int): dev_t; TYPE + long_long_uint = ARRAY [0..1] OF uint; + u_char = unsigned_char; u_short = unsigned_short; u_int = unsigned_int; *************** *** 53,68 **** swblk_t = long; size_t = u_int; time_t = long; ! dev_t = u_short; off_t = long; paddr_t = long; (* sys V compatibility *) key_t = long; (* sys V compatibility *) ! clock_t = long; (* POSIX compliance *) ! mode_t = u_short; (* POSIX compliance *) ! nlink_t = u_short; (* POSIX compliance *) ! uid_t = u_short; (* POSIX compliance *) pid_t = int; (* POSIX compliance *) ! gid_t = u_short; (* POSIX compliance *) CONST NBBY = 8; (* number of bits in a byte *) --- 55,70 ---- swblk_t = long; size_t = u_int; time_t = long; ! dev_t = long_long_uint; off_t = long; paddr_t = long; (* sys V compatibility *) key_t = long; (* sys V compatibility *) ! clock_t = long; (* POSIX compliance *) ! mode_t = uint; (* POSIX compliance *) ! nlink_t = uint; (* POSIX compliance *) ! uid_t = uint; (* POSIX compliance *) pid_t = int; (* POSIX compliance *) ! gid_t = uint; (* POSIX compliance *) CONST NBBY = 8; (* number of bits in a byte *) Index: m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.m3 diff -c m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.m3:1.1 m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.m3:1.2 *** m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.m3:1.1 Tue Apr 28 16:24:26 1998 --- m3/pm3/libs/m3core/src/unix/linux-libc6/Utypes.m3 Tue Aug 25 12:55:19 1998 *************** *** 10,28 **** FROM Ctypes IMPORT int; ! PROCEDURE major (x: int): int = BEGIN ! RETURN Word.And (Word.Shift (x, -8), 8_0377); END major; ! PROCEDURE minor (x: int): int = BEGIN ! RETURN Word.And (x, 8_0377); END minor; PROCEDURE makedev (x, y: int): dev_t = BEGIN ! RETURN Word.Or (Word.Shift (x, 8), y); END makedev; PROCEDURE howmany (x, y: int): int = --- 10,28 ---- FROM Ctypes IMPORT int; ! PROCEDURE major (x: dev_t): int = BEGIN ! RETURN Word.And (Word.Shift (x[0], -8), 8_0377); END major; ! PROCEDURE minor (x: dev_t): int = BEGIN ! RETURN Word.And (x[0], 8_0377); END minor; PROCEDURE makedev (x, y: int): dev_t = BEGIN ! RETURN dev_t{Word.Or (Word.Shift (x, 8), y),0}; END makedev; PROCEDURE howmany (x, y: int): int = Index: m3/pm3/m3config/src/COMMON diff -c m3/pm3/m3config/src/COMMON:1.15 m3/pm3/m3config/src/COMMON:1.16 *** m3/pm3/m3config/src/COMMON:1.15 Fri Jun 5 16:00:37 1998 --- m3/pm3/m3config/src/COMMON Tue Aug 25 12:56:05 1998 *************** *** 600,608 **** "gui" : [ "", ""], % Non console, gui, mode on Win32 "times" : [ "", ""], % Produce statistics about compilation time "msg_level" : [ "1", "T", setMsgLevel], ! % Verbosity level from 0 to 5 % (Silent, Explain, Commands, Verbose, Debug) ! "warning_level" : [ "1", ""], % Warning Level from 0 to 3 "internal_backend": [ "T", ""], % Use the faster internal backend % These options are not for the casual user --- 600,609 ---- "gui" : [ "", ""], % Non console, gui, mode on Win32 "times" : [ "", ""], % Produce statistics about compilation time "msg_level" : [ "1", "T", setMsgLevel], ! % Verbosity level from 0 to 4 % (Silent, Explain, Commands, Verbose, Debug) ! "warning_level" : [ "1", ""], % Skip warning messages of level less than ! % warning level (0 all messages, 3 none) "internal_backend": [ "T", ""], % Use the faster internal backend % These options are not for the casual user Index: m3/pm3/m3config/src/LINUXLIBC6 diff -c m3/pm3/m3config/src/LINUXLIBC6:1.1 m3/pm3/m3config/src/LINUXLIBC6:1.2 *** m3/pm3/m3config/src/LINUXLIBC6:1.1 Tue Apr 28 15:56:40 1998 --- m3/pm3/m3config/src/LINUXLIBC6 Tue Aug 25 15:57:37 1998 *************** *** 2,7 **** --- 2,9 ---- readonly TARGET = "LINUXLIBC6" include("COMMON") + % A problem appeared with the internal backend between Red Hat 5.0 and 5.1 + option("internal_backend","") PLATFORM_SUPPORTS_INTERNAL_BACKEND = "T" PLATFORM_SUPPORTS_SHARED_LIB = "T" Index: m3/pm3/network/mail/llscan/src/m3makefile diff -c m3/pm3/network/mail/llscan/src/m3makefile:1.4 m3/pm3/network/mail/llscan/src/m3makefile:1.6 *** m3/pm3/network/mail/llscan/src/m3makefile:1.4 Tue Sep 30 08:57:44 1997 --- m3/pm3/network/mail/llscan/src/m3makefile Wed Aug 26 10:57:01 1998 *************** *** 10,31 **** sources = [ "file", "inttable", "strlib", "varrayptr", "err", "llscan" ] - files = [ ] foreach s in sources c_source (s) ! files += format("..%ssrc%s%s%s", SL, SL, s, ".c" ) end if defined ("_all") local prog = "llscan" local form = format ("-DDEFAULT_FORM=\"%s%sscan.llscan\"", LIB_USE, SL) local ret = 0 ! local cmd = [ CC, "-I../src", "-D_BSD", form, "-o", prog, files ] ! if stale (prog, files) ! write(cmd, "\n") ! ret = exec (cmd) if not equal(ret, 0) error("command failed with error code: ", ret) end end BindExport (prog) --- 10,40 ---- sources = [ "file", "inttable", "strlib", "varrayptr", "err", "llscan" ] + c_files = [ ] + o_files = [ ] foreach s in sources c_source (s) ! c_files += format("..%ssrc%s%s%s", SL, SL, s, ".c" ) ! o_files += format("%s%s", s, ".o" ) end if defined ("_all") local prog = "llscan" local form = format ("-DDEFAULT_FORM=\"%s%sscan.llscan\"", LIB_USE, SL) local ret = 0 ! ! % What if CC is "gcc -c"? ! % local compile = [ CC, "-I../src", "-D_BSD", form, "-o", prog, c_files ] ! local compile = [ CC, "-c", "-I../src", "-D_BSD", form, c_files ] ! local link = [ LINK, "-o", prog, o_files ] ! if stale (prog, c_files) ! write(compile, "\n") ! ret = exec (compile) ! if not equal(ret, 0) error("command failed with error code: ", ret) end ! write(link, "\n") ! ret = exec (link) if not equal(ret, 0) error("command failed with error code: ", ret) end end BindExport (prog) *************** *** 34,36 **** --- 43,46 ---- ManPage ("llscan", 1) LibExport ("scan.llscan") + OtherPackage("llscan")

PM3: The Modula-3 distribution of Ecole Polytechnique de Montreal",CR, "

PM3: The Modula-3 distribution of Ecole Polytechnique de Montreal",CR, "

Why is Hello World so large?

Why is Hello World larger in Modula-3 than in C?

Miscellaneous declarations

Miscellaneous declarations

Arithmetic checking

Arithmetic checking

About the authors

Modula-3: About the authors