Browse Source

Enable dynamic package support for i386-win32. The following example works (assuming rtl.ppk and thelloworld.pas are located in a fpctests subdirectory of the fpc source directory and there is a testoutput directory parallel to it):

=== rtl.ppk begin ===

package rtl;

contains
  system;

end.

=== rtl.ppk end ===

=== thelloworld begin ===

program thelloworld;

begin
  Writeln(IsConsole);
  Writeln('Hello World');
end.

=== thelloworld end === 

=== compilation begin ===

.\compiler\ppc386.exe -n -Furtl\units\i386-win32 -FEtestoutput -viwn .\fpctests\rtl.ppk
.\compiler\ppc386.exe -n -Furtl\units\i386-win32 -Fptestoutput -FPrtl -viwn .\fpctests\thelloworld.pas

=== compilation end ===

=== thelloworld output begin ===

.\testoutput\thelloworld.exe
TRUE
Hello World

=== thelloworld output end ===

git-svn-id: branches/svenbarth/packages@28860 -
svenbarth 10 years ago
parent
commit
8067b8d467
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/systems/i_win.pas

+ 1 - 1
compiler/systems/i_win.pas

@@ -39,7 +39,7 @@ unit i_win;
                             tf_winlikewidestring,tf_no_pic_supported,
                             tf_no_generic_stackcheck,tf_has_winlike_resources,
                             tf_dwarf_only_local_labels,
-                            tf_safecall_exceptions,tf_no_backquote_support];
+                            tf_safecall_exceptions,tf_no_backquote_support,tf_supports_packages];
             cpu          : cpu_i386;
             unit_env     : 'WIN32UNITS';
             extradefines : 'MSWINDOWS;WINDOWS';