paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed uninitialised var

Browse Source
This commit is contained in:
Jonas Maebe 2003-11-23 17:33:24 +00:00
parent 621f992afa
commit 9b38228c7e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/powerpc/rappcgas.pas
View File

@ -613,7 +613,6 @@ Unit rappcgas;
var var
str2opentry: tstr2opentry; str2opentry: tstr2opentry;
cond : tasmcondflag; cond : tasmcondflag;
len,
j, j,
sufidx : longint; sufidx : longint;
hs : string; hs : string;
@ -634,7 +633,7 @@ Unit rappcgas;
dec(ord(hs[0])); dec(ord(hs[0]));
actcondition.dirhint:=DH_Minus; actcondition.dirhint:=DH_Minus;
end; end;
str2opentry:=tstr2opentry(iasmops.search(copy(hs,1,len))); str2opentry:=tstr2opentry(iasmops.search(hs));
if assigned(str2opentry) then if assigned(str2opentry) then
begin begin
if actcondition.dirhint<>DH_None then if actcondition.dirhint<>DH_None then
@ -736,7 +735,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.3 2003-11-15 19:00:10 florian Revision 1.4 2003-11-23 17:33:24 jonas
* fixed uninitialised var
Revision 1.3 2003/11/15 19:00:10 florian
* fixed ppc assembler reader * fixed ppc assembler reader
Revision 1.2 2003/11/12 16:05:40 florian Revision 1.2 2003/11/12 16:05:40 florian