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

+ Io-Error and overflow print erroraddr in hex now

Browse Source
This commit is contained in:
carl 1998-07-02 12:20:58 +00:00
parent 91a581342c
commit 7632ce3279
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/m68k/m68k.inc
View File

@ -377,7 +377,7 @@
l:=ioresult; l:=ioresult;
if l<>0 then if l<>0 then
begin begin
writeln('IO-Error ',l,' at ',addr); writeln('IO-Error ',l,' at 0x',HexStr(addr,8));
halt(byte(l)); halt(byte(l));
end; end;
asm asm
@ -397,7 +397,7 @@
move.l 4(a6),d0 move.l 4(a6),d0
move.l d0,addr move.l d0,addr
end; end;
writeln('Overflow at ',addr); writeln('Overflow at 0x',HexStr(addr,8));
RunError(215); RunError(215);
end; end;
@ -628,13 +628,6 @@
end ['d0','d1','a0']; end ['d0','d1','a0'];
end; end;
{$ifndef ordintern}
{!!!!!! not very fast, but easy. }
function ord(b : boolean) : byte;
begin
ord:=byte(b);
end;
{$endif ordintern}
function abs(l : longint) : longint; function abs(l : longint) : longint;
@ -664,11 +657,7 @@
sqr := l*l; sqr := l*l;
end; end;
{$ifndef str_intern }
procedure str(l : longint;var s : string);
{$else str_intern }
procedure int_str(l : longint;var s : string); procedure int_str(l : longint;var s : string);
{$endif str_intern }
var var
value: longint; value: longint;
@ -757,7 +746,10 @@ XDEF RE_BOUNDS_CHECK
{ {
$Log$ $Log$
Revision 1.6 1998-07-01 14:25:57 carl Revision 1.7 1998-07-02 12:20:58 carl
+ Io-Error and overflow print erroraddr in hex now
Revision 1.6 1998/07/01 14:25:57 carl
* strconcat was copying one byte too much * strconcat was copying one byte too much
* strcopy bugfix was using signed comparison * strcopy bugfix was using signed comparison
+ STRCOPY uses register calling conventions + STRCOPY uses register calling conventions