From 8b82f90b275d71d249acd5130bb2fdb8352aff1e Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 8 Oct 2005 12:02:39 +0000
Subject: [PATCH]   * fixed overflows in counters used for operands in case
 opcode without     operands

git-svn-id: trunk@1323 -
---
 compiler/i386/csopt386.pas | 4 ++--
 compiler/i386/daopt386.pas | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/i386/csopt386.pas b/compiler/i386/csopt386.pas
index 75eda25406..491a3a807e 100644
--- a/compiler/i386/csopt386.pas
+++ b/compiler/i386/csopt386.pas
@@ -72,7 +72,7 @@ var
   p, hp: taicpu;
   tmpRef: treference;
   r,regCounter: tsuperregister;
-  opCount: byte;
+  opCount: longint;
   dummy: boolean;
 begin
   modifiesConflictingMemLocation := false;
@@ -1089,7 +1089,7 @@ end;
 
 function doReplaceReadReg(p: taicpu; newReg,orgReg: tsuperregister): boolean;
 var
-  opCount: byte;
+  opCount: longint;
 begin
   doReplaceReadReg := false;
   { handle special case }
diff --git a/compiler/i386/daopt386.pas b/compiler/i386/daopt386.pas
index e5d2facb00..7c08d9f667 100644
--- a/compiler/i386/daopt386.pas
+++ b/compiler/i386/daopt386.pas
@@ -810,7 +810,7 @@ function regInInstruction(supreg: tsuperregister; p1: tai): boolean;
 { this one ignores CH_ALL opcodes, while regModifiedByInstruction doesn't  }
 var
   p: taicpu;
-  opcount: Word;
+  opcount: longint;
 begin
   regInInstruction := false;
   if p1.typ <> ait_instruction then