소스 검색

* generate export jmps in .text section

peter 20 년 전
부모
커밋
ee5cd11877
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  1. 5 1
      compiler/systems/t_linux.pas

+ 5 - 1
compiler/systems/t_linux.pas

@@ -157,6 +157,7 @@ procedure texportliblinux.generatelib;
 var
 var
   hp2 : texported_item;
   hp2 : texported_item;
 begin
 begin
+  new_section(codesegment,sec_code,'',0);
   hp2:=texported_item(current_module._exports.first);
   hp2:=texported_item(current_module._exports.first);
   while assigned(hp2) do
   while assigned(hp2) do
    begin
    begin
@@ -578,7 +579,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.32  2004-12-22 16:32:46  peter
+  Revision 1.33  2005-01-10 15:56:13  peter
+    * generate export jmps in .text section
+
+  Revision 1.32  2004/12/22 16:32:46  peter
     * maybequoted() added
     * maybequoted() added
 
 
   Revision 1.31  2004/12/19 14:03:16  florian
   Revision 1.31  2004/12/19 14:03:16  florian