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

+ IO-Error and Overflow now print address in hex

Browse Source
This commit is contained in:
carl 1998-07-02 12:19:32 +00:00
parent a60397c5d1
commit 91a581342c
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/i386/i386.inc
View File

@ -564,8 +564,12 @@ begin
l:=ioresult; l:=ioresult;
if l<>0 then if l<>0 then
begin begin
{$ifndef RTLLITE}
writeln('IO-Error ',l,' at 0x',HexStr(addr,8));
{$else}
writeln('IO-Error ',l,' at ',addr); writeln('IO-Error ',l,' at ',addr);
halt(l); {$endif}
halt(byte(l));
end; end;
asm asm
popal popal
@ -582,7 +586,11 @@ begin
movl 4(%ebp),%edi movl 4(%ebp),%edi
movl %edi,addr movl %edi,addr
end; end;
{$ifndef RTLLITE}
writeln('Overflow at 0x',HexStr(addr,8));
{$else}
writeln('Overflow at ',addr); writeln('Overflow at ',addr);
{$endif}
RunError(215); RunError(215);
end; end;
@ -713,24 +721,16 @@ end;
{$I386_ATT} {can be removed} {$I386_ATT} {can be removed}
Function Random(L: LongInt): LongInt;assembler;
asm
movl $134775813,%eax
mull RandSeed
incl %eax
movl %eax,RandSeed
mull 4(%esp)
movl %edx,%eax
end;
{$I386_DIRECT} {can be removed} {$I386_DIRECT} {can be removed}
{$ASMMODE ATT} {$ASMMODE ATT}
{ {
$Log$ $Log$
Revision 1.14 1998-07-01 15:29:58 peter Revision 1.15 1998-07-02 12:19:32 carl
+ IO-Error and Overflow now print address in hex
Revision 1.14 1998/07/01 15:29:58 peter
* better readln/writeln * better readln/writeln
Revision 1.13 1998/06/26 08:20:57 daniel Revision 1.13 1998/06/26 08:20:57 daniel