Home Explore Help
Register Sign In
oberon
/
A2OS
mirror of https://github.com/yarrom/A2OS.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

temporary defined TSize because used in Volume

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8433 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore 6 years ago
parent
578947c693
commit
b04485c92d
1 changed files with 2 additions and 1 deletions
Unified View Show Diff Stats
  1. 2 1
      source/Files.Mod

+ 2 - 1
source/Files.Mod
View File 

@@ -57,7 +57,8 @@ CONST
 
 	NeedsPrefix* = 0; (* if no prefix given, then this file system cannot handle it, to prevent file systems from being in the search path *)
 
 	NeedsPrefix* = 0; (* if no prefix given, then this file system cannot handle it, to prevent file systems from being in the search path *)
 
 
 
 TYPE
 
 TYPE
 
-	TSize* = Streams.TSize;
 
+	Position* = Streams.Position;
 
+	TSize* = LONGINT;
 
 
 
 TYPE
 
 TYPE
 
 (** All record fields are read-only for users, and read-write for extenders. *)
 
 (** All record fields are read-only for users, and read-write for extenders. *)