From 7632ce32799a5fa1a6174efc27f2abf5d0304dba Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 2 Jul 1998 12:20:58 +0000
Subject: [PATCH]   + Io-Error and overflow print erroraddr in hex now

---
 rtl/m68k/m68k.inc | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)

diff --git a/rtl/m68k/m68k.inc b/rtl/m68k/m68k.inc
index 27904d06c5..197e0938bf 100644
--- a/rtl/m68k/m68k.inc
+++ b/rtl/m68k/m68k.inc
@@ -377,7 +377,7 @@
          l:=ioresult;
          if l<>0 then
            begin
-              writeln('IO-Error ',l,' at ',addr);
+              writeln('IO-Error ',l,' at 0x',HexStr(addr,8));
               halt(byte(l));
            end;
          asm
@@ -397,7 +397,7 @@
             move.l 4(a6),d0
             move.l d0,addr
          end;
-         writeln('Overflow at ',addr);
+         writeln('Overflow at 0x',HexStr(addr,8));
          RunError(215);
       end;
 
@@ -628,13 +628,6 @@
      end ['d0','d1','a0'];
    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;
 
@@ -664,11 +657,7 @@
          sqr := l*l;
       end;
 
-{$ifndef str_intern }
-    procedure str(l : longint;var s : string);
-{$else str_intern }
     procedure int_str(l : longint;var s : string);
-{$endif str_intern }
 
       var
         value: longint;
@@ -757,7 +746,10 @@ XDEF RE_BOUNDS_CHECK
 
 {
   $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
     * strcopy bugfix was using signed comparison
     + STRCOPY uses register calling conventions