paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* renamed loadunit_int -> loadunit

Browse Source
This commit is contained in:
peter 1999-03-02 13:49:18 +00:00
parent 2f31c21e63
commit 1a4dad3029
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ppu.pas
View File

@ -51,8 +51,7 @@ const
{general}
ibmodulename = 1;
ibsourcefiles = 2;
ibloadunit_int = 3;
ibloadunit_imp = 4;
ibloadunit = 3;
ibinitunit = 5;
iblinkofiles = 6;
iblinksharedlibs = 7;
@ -796,7 +795,10 @@ end;
end.
{
$Log$
Revision 1.24 1999-02-22 13:07:00 pierre
Revision 1.25 1999-03-02 13:49:18 peter
* renamed loadunit_int -> loadunit
Revision 1.24 1999/02/22 13:07:00 pierre
+ -b and -bl options work !
+ cs_local_browser ($L+) is disabled if cs_browser ($Y+)
is not enabled when quitting global section

10
compiler/symppu.inc
View File

@ -175,7 +175,7 @@
current_ppu^.putbyte(byte(hp^.in_interface));
hp:=pused_unit(hp^.next);
end;
current_ppu^.writeentry(ibloadunit_int);
current_ppu^.writeentry(ibloadunit);
end;
@ -432,13 +432,12 @@
repeat
b:=current_ppu^.readentry;
case b of
{ ibinitunit : usedunits^.insert(readstring); }
ibmodulename : begin
stringdispose(current_module^.modulename);
current_module^.modulename:=stringdup(current_ppu^.getstring);
end;
ibsourcefiles : readsourcefiles;
ibloadunit_int : readloadunit;
ibloadunit : readloadunit;
iblinksharedlibs : readcontainer(current_module^.LinkSharedLibs);
iblinkstaticlibs : readcontainer(current_module^.LinkStaticLibs);
iblinkunitfiles : readcontainer(current_module^.LinkUnitFiles);
@ -452,7 +451,10 @@
{
$Log$
Revision 1.33 1999-02-23 18:29:25 pierre
Revision 1.34 1999-03-02 13:49:19 peter
* renamed loadunit_int -> loadunit
Revision 1.33 1999/02/23 18:29:25 pierre
* win32 compilation error fix
+ some work for local browser (not cl=omplete yet)