From 35228f03916d31d31823199ffb23f6f3cda795c1 Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Wed, 1 Nov 2006 16:09:38 +0000
Subject: [PATCH] * fixes after 5148 changes for ppc platform

git-svn-id: trunk@5150 -
---
 compiler/powerpc/rappcgas.pas   | 6 ++----
 compiler/powerpc64/rappcgas.pas | 6 ++----
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/compiler/powerpc/rappcgas.pas b/compiler/powerpc/rappcgas.pas
index 2c7a773a05..a67b5c1659 100644
--- a/compiler/powerpc/rappcgas.pas
+++ b/compiler/powerpc/rappcgas.pas
@@ -611,7 +611,6 @@ Unit rappcgas;
 
     function tppcattreader.is_asmopcode(const s: string):boolean;
       var
-        str2opentry: tstr2opentry;
         cond  : tasmcondflag;
         hs : string;
 
@@ -636,12 +635,11 @@ Unit rappcgas;
             dec(ord(hs[0]));
             actcondition.dirhint:=DH_Plus;
           end;
-        str2opentry:=tstr2opentry(iasmops.search(hs));
-        if assigned(str2opentry) then
+	actopcode := tasmop(ptrint(iasmops.find(hs)));
+        if actopcode <> A_NONE then
           begin
             if actcondition.dirhint<>DH_None then
               message1(asmr_e_unknown_opcode,actasmpattern);
-            actopcode:=str2opentry.op;
             actasmtoken:=AS_OPCODE;
             is_asmopcode:=true;
             exit;
diff --git a/compiler/powerpc64/rappcgas.pas b/compiler/powerpc64/rappcgas.pas
index c7564d4ab7..61322e233b 100644
--- a/compiler/powerpc64/rappcgas.pas
+++ b/compiler/powerpc64/rappcgas.pas
@@ -609,7 +609,6 @@ end;
 
 function tppcattreader.is_asmopcode(const s: string): boolean;
 var
-  str2opentry: tstr2opentry;
   cond: tasmcondflag;
   hs: string;
 
@@ -634,12 +633,11 @@ begin
     dec(ord(hs[0]));
     actcondition.dirhint := DH_Plus;
   end;
-  str2opentry := tstr2opentry(iasmops.search(hs));
-  if assigned(str2opentry) then
+  actopcode := tasmop(ptrint(iasmops.Find(hs)));
+  if actopcode <> A_NONE then
   begin
     if actcondition.dirhint <> DH_None then
       message1(asmr_e_unknown_opcode, actasmpattern);
-    actopcode := str2opentry.op;
     actasmtoken := AS_OPCODE;
     is_asmopcode := true;
     exit;