Rebuilt releases

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8488 8c9fc860-2736-0410-a75d-ab315db34111

Linux32/bin/BenchTCP.SymU

@@ -12,20 +12,22 @@ TYPE
 
 	Sender = OBJECT {EXCLUSIVE} 
 	VAR 
+		res: WORD; 
 		c: TCP.Connection; 
-		num, num0, res: LONGINT; 
+		num, num0: LONGINT; 
 		buf: Bytes; 
 		done: BOOLEAN; 
 
 		PROCEDURE ^  & Init*(c: TCP.Connection; buf: Bytes; num: LONGINT); 
-		PROCEDURE ^ Join(): LONGINT; 
+		PROCEDURE ^ Join(): WORD; 
 	BEGIN{ACTIVE} 
 	END Sender; 
 
 	Tester = OBJECT {EXCLUSIVE} 
 	VAR 
+		res: WORD; 
 		c: TCP.Connection; 
-		num, num0, res, port, total, len: LONGINT; 
+		num, num0, port, total, len: LONGINT; 
 		fip: IP.Adr; 
 		timer: Kernel.MilliTimer; 
 		sender: Sender; 

Linux32/bin/Caches.SymU

@@ -39,6 +39,6 @@ TYPE
 	BEGIN{ACTIVE, SAFE} 
 	END Cache; 
 
-	PROCEDURE ^ ReportError(dev: Disks.Device; block, num, res: LONGINT); 
+	PROCEDURE ^ ReportError(dev: Disks.Device; block, num: LONGINT; res: WORD); 
 BEGIN
 END Caches.

Linux32/bin/DTPUtilities.SymU

@@ -72,7 +72,8 @@ TYPE
 		label: WMStandardComponents.Label; 
 		panel: WMStandardComponents.Panel; 
 		button: WMStandardComponents.Button; 
-		result, chosenColor*: LONGINT; 
+		result: WORD; 
+		chosenColor*: LONGINT; 
 		shown: BOOLEAN; 
 
 		PROCEDURE ^ CreateForm(): WMComponents.VisualComponent; 

Linux32/bin/DiskCaches.SymU

@@ -18,7 +18,7 @@ TYPE
 		transfer: TransferProcedure; 
 
 		PROCEDURE ^  & Init*(transfer: TransferProcedure; blocksPerCacheLine= 32: LONGINT); 
-		PROCEDURE ^ Transfer*(op: LONGINT; block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT); 
+		PROCEDURE ^ Transfer*(op: LONGINT; block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD); 
 	END Cache; 
 BEGIN
 END DiskCaches.

Linux32/bin/DiskFS.SymU

@@ -127,7 +127,7 @@ TYPE
 		PROCEDURE ^  & Init*; 
 		PROCEDURE ^ New0*(name: ARRAY OF CHAR): Files.File; 
 		PROCEDURE ^ Old0*(name: ARRAY OF CHAR): Files.File; 
-		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key, res: LONGINT); 
+		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD); 
 		PROCEDURE ^ Enumerate0*(mask: ARRAY OF CHAR; flags: SET; enum: Files.Enumerator); 
 		PROCEDURE ^ FileKey*(name: ARRAY OF CHAR): LONGINT; 

Linux32/bin/DiskVolumes.SymU

@@ -30,7 +30,7 @@ VAR
 	cdid: ARRAY 32 OF CHAR; 
 
 	PROCEDURE ^ Get4(VAR b: ARRAY OF CHAR; i: LONGINT): LONGINT; 
-	PROCEDURE ^ GetOberonFS(dev: Disks.Device; pstart, psize: LONGINT; VAR startfs, size, vbs, res: LONGINT); 
+	PROCEDURE ^ GetOberonFS(dev: Disks.Device; pstart, psize: LONGINT; VAR startfs, size, vbs: LONGINT; VAR res: WORD); 
 	PROCEDURE ^ InitCache; 
 	PROCEDURE ^ InitVol(vol: Volume; startfs, size, vbs, part: LONGINT; ptable: Disks.PartitionTable; readonly: BOOLEAN); 
 	PROCEDURE ^ TryOpen(context: Files.Parameters; dev: Disks.Device; part, dbs: LONGINT; readonly: BOOLEAN); 

Linux32/bin/Disks.SymU

@@ -42,7 +42,7 @@ TYPE
 		NbytesRead*, NbytesWritten*, NnofReads*, NnofWrites*, NnofOthers*, NnofErrors*: HUGEINT; 
 
 		PROCEDURE ^ Transfer*(op, block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD); 
-		PROCEDURE ^ GetSize*(VAR size, res: LONGINT); 
+		PROCEDURE ^ GetSize*(VAR size: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Handle*(VAR msg: Message; VAR res: WORD); 
 		PROCEDURE ^ Open*(VAR res: WORD); 
 		PROCEDURE ^ Close*(VAR res: WORD); 
@@ -79,8 +79,8 @@ VAR
 	PROCEDURE ^ Get4(VAR b: ARRAY OF CHAR; i: LONGINT): LONGINT; 
 	PROCEDURE ^ Extended(type: LONGINT): BOOLEAN; 
 	PROCEDURE ^ ValidFlag(f: CHAR): BOOLEAN; 
-	PROCEDURE ^ ReadPrimary(VAR b: DiskBlock; dev: Device; VAR p: PartitionTable; VAR n, res: LONGINT; VAR valid: BOOLEAN); 
-	PROCEDURE ^ ReadLogical(VAR b: DiskBlock; dev: Device; first: LONGINT; VAR p: PartitionTable; VAR n, res: LONGINT); 
+	PROCEDURE ^ ReadPrimary(VAR b: DiskBlock; dev: Device; VAR p: PartitionTable; VAR n: LONGINT; VAR res: WORD; VAR valid: BOOLEAN); 
+	PROCEDURE ^ ReadLogical(VAR b: DiskBlock; dev: Device; first: LONGINT; VAR p: PartitionTable; VAR n: LONGINT; VAR res: WORD); 
 	PROCEDURE ^ UpdatePartitionTable*(dev: Device; VAR res: WORD); 
 	PROCEDURE ^ Cleanup; 
 BEGIN

Linux32/bin/Errors.SymU

@@ -22,12 +22,12 @@ VAR
 	index: LONGINT; 
 	lastModuleName: Modules.Name; 
 
-	PROCEDURE ^ GetErrorString(errorCode: LONGINT): Strings.String; 
-	PROCEDURE ^ GetErrorMessage*(errorCode: LONGINT): ErrorMessage; 
-	PROCEDURE ^ ToStream*(errorCode: LONGINT; out: Streams.Writer); 
+	PROCEDURE ^ GetErrorString(errorCode: WORD): Strings.String; 
+	PROCEDURE ^ GetErrorMessage*(errorCode: WORD): ErrorMessage; 
+	PROCEDURE ^ ToStream*(errorCode: WORD; out: Streams.Writer); 
 	PROCEDURE ^ ResizeCache; 
 	PROCEDURE ^ Add(CONST errorMessage: ErrorMessage); 
-	PROCEDURE ^ Get(number: LONGINT; VAR errorMessage: ErrorMessage; VAR res: WORD); 
+	PROCEDURE ^ Get(number: WORD; VAR errorMessage: ErrorMessage; VAR res: WORD); 
 	PROCEDURE ^ ParseLine(reader: Streams.Reader; VAR errorMessage: ErrorMessage; VAR res: WORD); 
 	PROCEDURE ^ ParseFile(CONST filename: Files.FileName; VAR res: WORD); 
 	PROCEDURE ^ Open*(context: Commands.Context); 

Linux32/bin/FATFiles.SymU

@@ -110,15 +110,15 @@ TYPE
 		PROCEDURE ^ New0*(name: ARRAY OF CHAR): Files.File; 
 		PROCEDURE ^ Old0*(name: ARRAY OF CHAR): Files.File; 
 		PROCEDURE ^ OldX(name: ARRAY OF CHAR): File; 
-		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key, res: LONGINT); 
-		PROCEDURE ^ Delete0X(name: ARRAY OF CHAR; VAR key, res: LONGINT); 
+		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key: LONGINT; VAR res: WORD); 
+		PROCEDURE ^ Delete0X(name: ARRAY OF CHAR; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD); 
 		PROCEDURE ^ Enumerate(file: File; par: Parameter): BOOLEAN; 
 		PROCEDURE ^ Enumerate0*(mask: ARRAY OF CHAR; flags: SET; enum: Files.Enumerator); 
 		PROCEDURE ^ FileKey*(name: ARRAY OF CHAR): LONGINT; 
 		PROCEDURE ^ CreateDirectory0*(path: ARRAY OF CHAR; VAR res: WORD); 
 		PROCEDURE ^ RmDirCallback(f: File; par: Parameter): BOOLEAN; 
-		PROCEDURE ^ RemoveDirectory0*(path: ARRAY OF CHAR; force: BOOLEAN; VAR key, res: LONGINT); 
+		PROCEDURE ^ RemoveDirectory0*(path: ARRAY OF CHAR; force: BOOLEAN; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ QuickFormat*(volLabel: ARRAY OF CHAR; VAR res: WORD); 
 		PROCEDURE ^ FindDirectory(path: ARRAY OF CHAR): Directory; 
 		PROCEDURE ^ GetDirectory(cluster: Address): Directory; 

Linux32/bin/FATScavenger.SymU

@@ -252,7 +252,7 @@ TYPE
 		PROCEDURE ^ ProcessHead*; 
 		PROCEDURE ^ WriteEntry(entry: Entry); 
 		PROCEDURE ^ GetString(cur, max: LONGINT; CONST unit, status: ARRAY OF CHAR): String; 
-		PROCEDURE ^ ReportTransferError(name: ARRAY OF CHAR; op, adr, res: LONGINT); 
+		PROCEDURE ^ ReportTransferError(name: ARRAY OF CHAR; op, adr: LONGINT; res: WORD); 
 		PROCEDURE ^ ValidShortChar(ch: CHAR): BOOLEAN; 
 		PROCEDURE ^ ValidLongChar(ch: CHAR): BOOLEAN; 
 		PROCEDURE ^ Equals(CONST op1, op2: ARRAY OF CHAR): BOOLEAN; 

Linux32/bin/FTPFS.SymU

@@ -143,7 +143,7 @@ TYPE
 		PROCEDURE ^ New0*(name: ARRAY OF CHAR): Files.File; 
 		PROCEDURE ^ Receive(rs: Files.FileSystem; bareFN, localFN: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ Old0*(name: ARRAY OF CHAR): Files.File; 
-		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key, res: LONGINT); 
+		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD); 
 		PROCEDURE ^ Enumerate0*(mask: ARRAY OF CHAR; flags: SET; enum: Files.Enumerator); 
 		PROCEDURE ^ FileKey*(name: ARRAY OF CHAR): LONGINT; 

Linux32/bin/FoxScanner.SymU

@@ -69,67 +69,68 @@ CONST
 	Exit* = 54; 
 	Await* = 55; 
 	Return* = 56; 
-	Begin* = 57; 
-	Semicolon* = 58; 
-	Transpose* = 59; 
-	RightBrace* = 60; 
-	RightBracket* = 61; 
-	RightParenthesis* = 62; 
-	Questionmark* = 63; 
-	ExclamationMark* = 64; 
-	LessLess* = 65; 
-	GreaterGreater* = 66; 
-	Upto* = 67; 
-	Arrow* = 68; 
-	Period* = 69; 
-	Comma* = 70; 
-	Colon* = 71; 
-	Of* = 72; 
-	Then* = 73; 
-	Do* = 74; 
-	To* = 75; 
-	By* = 76; 
-	Becomes* = 77; 
-	Bar* = 78; 
-	End* = 79; 
-	Else* = 80; 
-	Elsif* = 81; 
-	Until* = 82; 
-	Finally* = 83; 
-	Code* = 84; 
-	Const* = 85; 
-	Type* = 86; 
-	Var* = 87; 
-	Out* = 88; 
-	Procedure* = 89; 
-	Operator* = 90; 
-	Import* = 91; 
-	Definition* = 92; 
-	Module* = 93; 
-	Cell* = 94; 
-	CellNet* = 95; 
-	Extern* = 96; 
-	Array* = 97; 
-	Object* = 98; 
-	Record* = 99; 
-	Pointer* = 100; 
-	Enum* = 101; 
-	Port* = 102; 
-	Address* = 103; 
-	Size* = 104; 
-	Alias* = 105; 
-	Ln* = 106; 
-	PC* = 107; 
-	PCOffset* = 108; 
-	Shortint* = 109; 
-	Integer* = 110; 
-	Longint* = 111; 
-	Hugeint* = 112; 
-	Real* = 113; 
-	Longreal* = 114; 
-	Comment* = 115; 
-	EndOfText* = 116; 
-	Escape* = 117; 
+	Ignore* = 57; 
+	Begin* = 58; 
+	Semicolon* = 59; 
+	Transpose* = 60; 
+	RightBrace* = 61; 
+	RightBracket* = 62; 
+	RightParenthesis* = 63; 
+	Questionmark* = 64; 
+	ExclamationMark* = 65; 
+	LessLess* = 66; 
+	GreaterGreater* = 67; 
+	Upto* = 68; 
+	Arrow* = 69; 
+	Period* = 70; 
+	Comma* = 71; 
+	Colon* = 72; 
+	Of* = 73; 
+	Then* = 74; 
+	Do* = 75; 
+	To* = 76; 
+	By* = 77; 
+	Becomes* = 78; 
+	Bar* = 79; 
+	End* = 80; 
+	Else* = 81; 
+	Elsif* = 82; 
+	Until* = 83; 
+	Finally* = 84; 
+	Code* = 85; 
+	Const* = 86; 
+	Type* = 87; 
+	Var* = 88; 
+	Out* = 89; 
+	Procedure* = 90; 
+	Operator* = 91; 
+	Import* = 92; 
+	Definition* = 93; 
+	Module* = 94; 
+	Cell* = 95; 
+	CellNet* = 96; 
+	Extern* = 97; 
+	Array* = 98; 
+	Object* = 99; 
+	Record* = 100; 
+	Pointer* = 101; 
+	Enum* = 102; 
+	Port* = 103; 
+	Address* = 104; 
+	Size* = 105; 
+	Alias* = 106; 
+	Ln* = 107; 
+	PC* = 108; 
+	PCOffset* = 109; 
+	Shortint* = 110; 
+	Integer* = 111; 
+	Longint* = 112; 
+	Hugeint* = 113; 
+	Real* = 114; 
+	Longreal* = 115; 
+	Comment* = 116; 
+	EndOfText* = 117; 
+	Escape* = 118; 
 	SingleQuote = 27X; 
 	DoubleQuote* = 22X; 
 	Ellipsis = 7FX; 

Linux32/bin/FoxSyntaxTree.SymU

@@ -1097,9 +1097,11 @@ TYPE
 
 	ProcedureCallStatement* = OBJECT (Statement)
 	VAR 
+		ignore-: BOOLEAN; 
 		call-: Designator; 
 
-		PROCEDURE ^  & InitProcedureCallStatement(position: Position; call: Designator; outer: Statement); 
+		PROCEDURE ^  & InitProcedureCallStatement(position: Position; ignore: BOOLEAN; call: Designator; outer: Statement); 
+		PROCEDURE ^ SetIgnore*(ignore: BOOLEAN); 
 		PROCEDURE ^ SetCall*(call: Designator); 
 		PROCEDURE ^ Clone(): Statement; 
 	END ProcedureCallStatement; 
@@ -1655,7 +1657,7 @@ VAR
 	PROCEDURE ^ NewIfStatement*(position: Position; outer: Statement): IfStatement; 
 	PROCEDURE ^ NewAssignment*(position: Position; left: Designator; right: Expression; outer: Statement): Assignment; 
 	PROCEDURE ^ NewCommunicationStatement*(position: Position; op: LONGINT; left: Designator; right: Expression; outer: Statement): CommunicationStatement; 
-	PROCEDURE ^ NewProcedureCallStatement*(position: Position; call: Designator; outer: Statement): ProcedureCallStatement; 
+	PROCEDURE ^ NewProcedureCallStatement*(position: Position; ignore: BOOLEAN; call: Designator; outer: Statement): ProcedureCallStatement; 
 	PROCEDURE ^ NewCaseStatement*(position: Position; outer: Statement): CaseStatement; 
 	PROCEDURE ^ NewCasePart*(): CasePart; 
 	PROCEDURE ^ NewWithPart*(): WithPart; 

Linux32/bin/GZip.SymU

@@ -43,7 +43,7 @@ TYPE
 		s: ZlibInflate.Stream; 
 
 		PROCEDURE ^  & Init*(reader: Streams.Reader); 
-		PROCEDURE ^ Receive*(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
+		PROCEDURE ^ Receive*(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ CheckHeader; 
 	END Inflator; 
 

Linux32/bin/Inflate.SymU

@@ -30,7 +30,7 @@ TYPE
 		END; 
 		eof: BOOLEAN; 
 
-		PROCEDURE ^ Receive*(VAR data: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
+		PROCEDURE ^ Receive*(VAR data: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len: LONGINT; VAR res: WORD); 
 		PROCEDURE ^  & Init*(input: Streams.Reader); 
 		PROCEDURE ^ ReadBits(nbits: LONGINT; VAR bits: LONGINT); 
 		PROCEDURE ^ SwapBits(VAR bits: LONGINT; n: LONGINT); 

Linux32/bin/MPEGVideoDecoder.SymU

@@ -131,8 +131,8 @@ TYPE
 		PROCEDURE ^ GetStreamType*(streamNr: LONGINT): LONGINT; 
 		PROCEDURE ^ GetStream*(streamNr: LONGINT): Codec.DemuxStream; 
 		PROCEDURE ^ GetStreamInfo*(streamNr: LONGINT): Codec.AVStreamInfo; 
-		PROCEDURE ^ GetData*(streamNr: LONGINT; VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
-		PROCEDURE ^ SkipData(streamNr: LONGINT; size: LONGINT; VAR len, res: LONGINT); 
+		PROCEDURE ^ GetData*(streamNr: LONGINT; VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len: LONGINT; VAR res: WORD); 
+		PROCEDURE ^ SkipData(streamNr: LONGINT; size: LONGINT; VAR len: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ GetPosInMuxedStream*(streamNr: LONGINT): LONGINT; 
 		PROCEDURE ^ GotoNextPacket(VAR stream: StreamType): BOOLEAN; 
 		PROCEDURE ^ SetStreamPos*(streamNr: LONGINT; seekType: LONGINT; pos: LONGINT; VAR itemSize: LONGINT; VAR res: WORD); 

Linux32/bin/Mail.SymU

@@ -57,7 +57,7 @@ TYPE
 
 	Sender* = OBJECT 
 
-		PROCEDURE ^ Send*(m: Message; VAR result: LONGINT); 
+		PROCEDURE ^ Send*(m: Message; VAR result: WORD); 
 	END Sender; 
 BEGIN
 END Mail.

Linux32/bin/MediaPlayer.SymU

@@ -104,8 +104,8 @@ TYPE
 		PROCEDURE ^ ReturnBuffer(buf: VideoBuffer); 
 		PROCEDURE ^ DropFrames(n: LONGINT); 
 		PROCEDURE ^ GetPos(): LONGINT; 
-		PROCEDURE ^ SeekAndGetFrame(pos: LONGINT; VAR f: WMGraphics.Image; VAR res: WORD); 
-		PROCEDURE ^ SeekFrame(pos: LONGINT; isKeyFrame: BOOLEAN; VAR res: WORD); 
+		PROCEDURE ^ SeekAndGetFrame(pos: LONGINT; VAR f: WMGraphics.Image; VAR res: LONGINT); 
+		PROCEDURE ^ SeekFrame(pos: LONGINT; isKeyFrame: BOOLEAN; VAR res: LONGINT); 
 		PROCEDURE ^ NofFullBuffers(): LONGINT; 
 		PROCEDURE ^ Stop; 
 		PROCEDURE ^ Close; 

Linux32/bin/OberonFS.SymU

@@ -118,7 +118,7 @@ TYPE
 
 		PROCEDURE ^ New0*(name: ARRAY OF CHAR): Files.File; 
 		PROCEDURE ^ Old0*(name: ARRAY OF CHAR): Files.File; 
-		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key, res: LONGINT); 
+		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD); 
 		PROCEDURE ^ Enumerate0*(mask: ARRAY OF CHAR; flags: SET; enum: Files.Enumerator); 
 		PROCEDURE ^ FileKey*(name: ARRAY OF CHAR): LONGINT; 

Linux32/bin/OdVCSBase.SymU

@@ -57,7 +57,7 @@ VAR
 	res: WORD; 
 
 	PROCEDURE ^ splitDirBase(fileName: ARRAY OF CHAR; VAR dir, base: ARRAY OF CHAR); 
-	PROCEDURE ^ makeDirs(name: ARRAY OF CHAR): LONGINT; 
+	PROCEDURE ^ makeDirs(name: ARRAY OF CHAR): WORD; 
 	PROCEDURE ^ DateTime*(VAR s: ARRAY OF CHAR); 
 	PROCEDURE ^ Hash(toHash: TWorkBytes): LONGINT; 
 	PROCEDURE ^ AccessArray(arr: TData; len, left, right: LONGINT; VAR ret: ARRAY OF CHAR); 
@@ -81,7 +81,7 @@ VAR
 	PROCEDURE ^ Create*(historyName, name: TFileName; log: TLog; flags: SET): LONGINT; 
 	PROCEDURE ^ NewVersion*(name: TFileName; log: TLog; flags: SET): LONGINT; 
 	PROCEDURE ^ newVersion(historyName, name: TFileName; log: TLog; flags: SET): LONGINT; 
-	PROCEDURE ^ View*(name: TFileName; n: LONGINT; newFileName: TFileName): LONGINT; 
+	PROCEDURE ^ View*(name: TFileName; n: LONGINT; newFileName: TFileName): WORD; 
 	PROCEDURE ^ Extract*(name: TFileName; n: LONGINT): LONGINT; 
 BEGIN
 END OdVCSBase.

Linux32/bin/OldDiskFS.SymU

@@ -125,7 +125,7 @@ TYPE
 		PROCEDURE ^  & Init*; 
 		PROCEDURE ^ New0*(name: ARRAY OF CHAR): Files.File; 
 		PROCEDURE ^ Old0*(name: ARRAY OF CHAR): Files.File; 
-		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key, res: LONGINT); 
+		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD); 
 		PROCEDURE ^ Enumerate0*(mask: ARRAY OF CHAR; flags: SET; enum: Files.Enumerator); 
 		PROCEDURE ^ FileKey*(name: ARRAY OF CHAR): LONGINT;