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

* did not compile for browser

Browse Source 
* merge from fixes
This commit is contained in:
pierre 1998-09-28 11:22:15 +00:00
parent 040a2cf89f
commit ba6a341854
2 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/pmodules.pas
View File

@ -357,10 +357,13 @@ unit pmodules;
begin
{ remove the old unit }
loaded_units.remove(hp);
dispose(hp,done);
end;
hp^.done;
hp^.init(s,true);
current_module:=hp;
end
else
{ generates a new unit info record }
current_module:=new(pmodule,init(s,true));
current_module:=new(pmodule,init(s,true));
current_ppu:=current_module^.ppufile;
{ now we can register the unit }
loaded_units.insert(current_module);
@ -979,7 +982,15 @@ unit pmodules;
end.
{
$Log$
Revision 1.55 1998-09-28 11:04:03 peter
Revision 1.56 1998-09-28 11:22:15 pierre
* did not compile for browser
* merge from fixes
Revision 1.48.2.1 1998/09/28 10:55:16 pierre
fix for current_module dispose bug
Revision 1.55 1998/09/28 11:04:03 peter
* fixed loaddefaultunits which was at the wrong place for programs, so
the default defs were not loaded when main was initialized

11
compiler/tccal.pas
View File

@ -44,6 +44,9 @@ implementation
{$ifdef m68k}
,m68k,tgeni386
{$endif}
{$ifdef UseBrowser}
,browser
{$endif UseBrowser}
;
{*****************************************************************************
@ -55,7 +58,7 @@ implementation
old_array_constructor : boolean;
store_valid : boolean;
oldtype : pdef;
convtyp : tconverttype;
{convtyp : tconverttype;}
begin
inc(parsing_para_level);
if assigned(p^.right) then
@ -910,7 +913,11 @@ implementation
end.
{
$Log$
Revision 1.4 1998-09-27 10:16:24 florian
Revision 1.5 1998-09-28 11:22:17 pierre
* did not compile for browser
* merge from fixes
Revision 1.4 1998/09/27 10:16:24 florian
* type casts pchar<->ansistring fixed
* ansistring[..] calls does now an unique call