paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 00:08:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do_open was WRONG! Fixed!

Browse Source 
* do_isdevice small fix with ATT parser
  * I386_ATT put back , otherwise would NOT link!
  * IoCheck for rmdir,chdir,mkdir
This commit is contained in:
carl 1998-07-02 12:26:55 +00:00
parent db60658f7c
commit 94a728f166
1 changed files with 25 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
rtl/dos/go32v1/system.pp
View File

@ -133,8 +133,7 @@ begin
end['EAX','EBX'];
RunError(202);
end;
{$ASMMODE ATT}
{$I386_ATT}
procedure halt(errnum : byte);
begin
@ -163,13 +162,15 @@ begin
end;
procedure randomize;assembler;
asm
procedure randomize;
Begin
asm
movb $0x2c,%ah
int $0x21
shll $16,%ecx
movw %dx,%cx
movl %ecx,randseed
end;
end;
@ -429,7 +430,7 @@ begin
asm
movl $0xff02,%eax
movl oflags,%ecx
movl flags,%ebx
movl p,%ebx
int $0x21
jnc .LOPEN1
movw %ax,inoutres
@ -450,13 +451,13 @@ asm
pushl %ebp
int $0x21
popl %ebp
jnc .LDOSSEEK1
jnc .LDOSDEVICE
movw %ax,inoutres
xorl %edx,%edx
.LDOSSEEK1:
movl %edx,%eax
shrl $7,%eax
andl $1,%eax
xorl %edx,%edx
.LDOSDEVICE:
movl %edx,%eax
shrl $7,%eax
andl $1,%eax
end;
@ -503,20 +504,23 @@ begin
end;
procedure mkdir(const s : string);
procedure mkdir(const s : string);[IOCheck];
begin
If InOutRes <> 0 then exit;
DosDir($39,s);
end;
procedure rmdir(const s : string);
procedure rmdir(const s : string);[IOCheck];
begin
If InOutRes <> 0 then exit;
DosDir($3a,s);
end;
procedure chdir(const s : string);
procedure chdir(const s : string);[IOCheck];
begin
If InOutRes <> 0 then exit;
DosDir($3b,s);
end;
@ -588,7 +592,13 @@ Begin
End.
{
$Log$
Revision 1.5 1998-07-01 15:29:56 peter
Revision 1.6 1998-07-02 12:26:55 carl
* do_open was WRONG! Fixed!
* do_isdevice small fix with ATT parser
* I386_ATT put back , otherwise would NOT link!
* IoCheck for rmdir,chdir,mkdir
Revision 1.5 1998/07/01 15:29:56 peter
* better readln/writeln
Revision 1.4 1998/05/31 14:18:19 peter