From ddfe0eeecc7d8f9595b236ddad71aa40598405b5 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 18 Jan 1999 16:02:20 +0000
Subject: [PATCH]  * better error info with -Co

---
 compiler/tgeni386.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/tgeni386.pas b/compiler/tgeni386.pas
index fa6cbe798c..26ab20a208 100644
--- a/compiler/tgeni386.pas
+++ b/compiler/tgeni386.pas
@@ -276,6 +276,8 @@ implementation
     function getregister32 : tregister;
 
       begin
+         if usablereg32=0 then
+           internalerror(10);
          dec(usablereg32);
          if R_EAX in unused then
            begin
@@ -368,7 +370,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.17  1998-12-11 23:36:09  florian
+  Revision 1.18  1999-01-18 16:02:20  pierre
+   * better error info with -Co
+
+  Revision 1.17  1998/12/11 23:36:09  florian
     + again more stuff for int64/qword:
          - comparision operators
          - code generation for: str, read(ln), write(ln)