paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* merge fixes

Browse Source
This commit is contained in:
peter 1998-09-11 15:16:47 +00:00
parent 3b3c67409f
commit 85b4b1fde2
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ppu.pas
View File

@ -450,7 +450,7 @@ begin
readdata(entry,sizeof(tppuentry));
entrystart:=bufstart+bufidx;
entryidx:=0;
if not entry.id in [mainentryid,subentryid] then
if not(entry.id in [mainentryid,subentryid]) then
begin
readentry:=iberror;
error:=true;
@ -770,7 +770,13 @@ end;
end.
{
$Log$
Revision 1.10 1998-08-31 12:26:30 peter
Revision 1.11 1998-09-11 15:16:47 peter
* merge fixes
Revision 1.10.2.1 1998/09/11 15:15:04 peter
* fixed not in [] bug
Revision 1.10 1998/08/31 12:26:30 peter
* m68k and palmos updates from surebugfixes
Revision 1.9 1998/08/17 09:17:51 peter
@ -813,4 +819,4 @@ end.
Revision 1.1 1998/05/12 10:56:07 peter
+ the ppufile object unit
}
}