Browse Source

palmos: register the linker at least, although it's probably not functional with current RTL

git-svn-id: trunk@37211 -
Károly Balogh 7 năm trước cách đây
mục cha
commit
93910c60be
1 tập tin đã thay đổi với 4 bổ sung2 xóa
  1. 4 2
      compiler/systems/t_palmos.pas

+ 4 - 2
compiler/systems/t_palmos.pas

@@ -1,8 +1,8 @@
 {
 {
     Copyright (c) 2001-2002 by Peter Vreman
     Copyright (c) 2001-2002 by Peter Vreman
 
 
-    This unit implements support import,export,link routines
-    for the (i386) Amiga target
+    This unit implements support import, export, link routines
+    for the PalmOS target
 
 
     This program is free software; you can redistribute it and/or modify
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     it under the terms of the GNU General Public License as published by
@@ -209,10 +209,12 @@ end;
 initialization
 initialization
 {$ifdef m68k}
 {$ifdef m68k}
   RegisterTarget(system_m68k_palmos_info);
   RegisterTarget(system_m68k_palmos_info);
+  RegisterLinker(ld_palmos,TLinkerPalmOS);
   RegisterRes(res_m68k_palmos_info,TResourceFile);
   RegisterRes(res_m68k_palmos_info,TResourceFile);
 {$endif m68k}
 {$endif m68k}
 {$ifdef arm}
 {$ifdef arm}
   RegisterTarget(system_arm_palmos_info);
   RegisterTarget(system_arm_palmos_info);
+  RegisterLinker(ld_palmos,TLinkerPalmOS);
   RegisterRes(res_arm_palmos_info,TResourceFile);
   RegisterRes(res_arm_palmos_info,TResourceFile);
 {$endif arm}
 {$endif arm}
 end.
 end.