diff --git a/compiler/ppu.pas b/compiler/ppu.pas index 7c099e967a..6ecf7868f1 100644 --- a/compiler/ppu.pas +++ b/compiler/ppu.pas @@ -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 diff --git a/compiler/symppu.inc b/compiler/symppu.inc index 4d5c33d7f1..8df4b36eea 100644 --- a/compiler/symppu.inc +++ b/compiler/symppu.inc @@ -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)