paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes after 5148 changes for ppc platform

Browse Source 
git-svn-id: trunk@5150 -
This commit is contained in:
tom_at_work 2006-11-01 16:09:38 +00:00
parent 242113b873
commit 35228f0391
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/powerpc/rappcgas.pas
View File

@ -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;

6
compiler/powerpc64/rappcgas.pas
View File

@ -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;