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

fixed signature of utime

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6574 8c9fc860-2736-0410-a75d-ab315db34111
eth.guenter 9 years ago
parent
ebf23873a9
commit
fa6b0708c6
6 changed files with 8 additions and 7 deletions
Split View Show Diff Stats
  1. 3 2
      source/Darwin.AMD64.Unix.Mod
  2. 1 1
      source/Darwin.I386.Unix.Mod
  3. 1 1
      source/Linux.AMD64.Unix.Mod
  4. 1 1
      source/Linux.I386.Unix.Mod
  5. 1 1
      source/Solaris.AMD64.Unix.Mod
  6. 1 1
      source/Solaris.I386.Unix.Mod

+ 3 - 2
source/Darwin.AMD64.Unix.Mod
View File 

@@ -338,7 +338,7 @@ VAR
 
 	rename-		: PROCEDURE {C} ( oldname, newname: ADDRESS ): LONGINT;
 
 	ftruncate-		: PROCEDURE {C} ( fd: LONGINT;  length: SIZE ): LONGINT;
 
 	chmod-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
-	utime-		: PROCEDURE {C} ( fd: LONGINT;  tb: ADDRESS ): LONGINT;
 
+	utime-		: PROCEDURE {C} ( name: ADDRESS;  tb: ADDRESS ): LONGINT;
 
 	access-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
 	select-		: PROCEDURE {C} ( width: LONGINT; rd, wr, ex: FdSetPtr;  VAR timeout: Timeval ): LONGINT;
 
 
@@ -564,4 +564,5 @@ BEGIN
 
 	Dlsym( libc, "errno",		ADDRESSOF( errno ) );
 
 
 	getSysinfo;
 
-END Unix.
 
+END Unix.
 
+

+ 1 - 1
source/Darwin.I386.Unix.Mod
View File 

@@ -315,7 +315,7 @@ VAR
 
 	rename-		: PROCEDURE {C} ( oldname, newname: ADDRESS ): LONGINT;
 
 	ftruncate-		: PROCEDURE {C} ( fd: LONGINT;  length: SIZE ): LONGINT;
 
 	chmod-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
-	utime-		: PROCEDURE {C} ( fd: LONGINT;  tb: ADDRESS ): LONGINT;
 
+	utime-		: PROCEDURE {C} ( name: ADDRESS;  tb: ADDRESS ): LONGINT;
 
 	access-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
 	select-		: PROCEDURE {C} ( width: LONGINT; rd, wr, ex: FdSetPtr;  VAR timeout: Timeval ): LONGINT;

+ 1 - 1
source/Linux.AMD64.Unix.Mod
View File 

@@ -332,7 +332,7 @@ VAR
 
 	rename-		: PROCEDURE {C} ( oldname, newname: ADDRESS ): LONGINT;
 
 	ftruncate-		: PROCEDURE {C} ( fd: LONGINT;  length: SIZE ): LONGINT;
 
 	chmod-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
-	utime-		: PROCEDURE {C} ( fd: LONGINT;  tb: ADDRESS ): LONGINT;
 
+	utime-		: PROCEDURE {C} ( name: ADDRESS;  tb: ADDRESS ): LONGINT;
 
 	access-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
 	select-		: PROCEDURE {C} ( width: LONGINT; rd, wr, ex: FdSetPtr;  VAR timeout: Timeval ): LONGINT;

+ 1 - 1
source/Linux.I386.Unix.Mod
View File 

@@ -311,7 +311,7 @@ VAR
 
 	rename-		: PROCEDURE {C} ( oldname, newname: ADDRESS ): LONGINT;
 
 	ftruncate-		: PROCEDURE {C} ( fd: LONGINT;  length: SIZE ): LONGINT;
 
 	chmod-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
-	utime-		: PROCEDURE {C} ( fd: LONGINT;  tb: ADDRESS ): LONGINT;
 
+	utime-		: PROCEDURE {C} ( name: ADDRESS;  tb: ADDRESS ): LONGINT;
 
 	access-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
 	select-		: PROCEDURE {C} ( width: LONGINT; rd, wr, ex: FdSetPtr;  VAR timeout: Timeval ): LONGINT;

+ 1 - 1
source/Solaris.AMD64.Unix.Mod
View File 

@@ -338,7 +338,7 @@ VAR
 
 	rename-		: PROCEDURE {C} ( oldname, newname: ADDRESS ): LONGINT;
 
 	ftruncate-		: PROCEDURE {C} ( fd: LONGINT;  length: SIZE ): LONGINT;
 
 	chmod-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
-	utime-		: PROCEDURE {C} ( fd: LONGINT;  tb: ADDRESS ): LONGINT;
 
+	utime-		: PROCEDURE {C} ( name: ADDRESS;  tb: ADDRESS ): LONGINT;
 
 	access-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
 	select-		: PROCEDURE {C} ( width: LONGINT; rd, wr, ex: FdSetPtr;  VAR timeout: Timeval ): LONGINT;

+ 1 - 1
source/Solaris.I386.Unix.Mod
View File 

@@ -314,7 +314,7 @@ VAR
 
 	rename-		: PROCEDURE {C} ( oldname, newname: ADDRESS ): LONGINT;
 
 	ftruncate-		: PROCEDURE {C} ( fd: LONGINT;  length: SIZE ): LONGINT;
 
 	chmod-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
-	utime-		: PROCEDURE {C} ( fd: LONGINT;  tb: ADDRESS ): LONGINT;
 
+	utime-		: PROCEDURE {C} ( name: ADDRESS;  tb: ADDRESS ): LONGINT;
 
 	access-		: PROCEDURE {C} ( name: ADDRESS;  mode: SET ): LONGINT;
 
 	select-		: PROCEDURE {C} ( width: LONGINT; rd, wr, ex: FdSetPtr;  VAR timeout: Timeval ): LONGINT;