t_nwm.pas 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648
  1. {
  2. $Id$
  3. Copyright (c) 1998-2002 by Peter Vreman
  4. This unit implements support import,export,link routines
  5. for the (i386) Netware target
  6. This program is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2 of the License, or
  9. (at your option) any later version.
  10. This program is distributed in the hope that it will be useful,
  11. but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13. GNU General Public License for more details.
  14. You should have received a copy of the GNU General Public License
  15. along with this program; if not, write to the Free Software
  16. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. Currently generating NetWare-NLM's only work under Linux and win32.
  18. (see http://home.arcor.de/armin.diehl/fpcnw for binutils working
  19. with win32) while not included in fpc-releases.
  20. The following compiler-swiches are supported for NetWare:
  21. $DESCRIPTION : NLM-Description, will be displayed at load-time
  22. $M : For Stack-Size, Heap-Size will be ignored
  23. 32K is the accepted minimum
  24. $VERSION x.x.x : Sets Major, Minor and Revision
  25. $SCREENNAME : Sets the ScreenName
  26. $THREADNAME : Sets current threadname
  27. Displaying copyright does not work with nlmconv from gnu bunutils
  28. version less that 2.13
  29. Additional parameters for the nlmvonv-inputfile can be passed with
  30. -k, i.e. -kREENTRANT will add the option REENTRANT to the nlmconv
  31. inputfile. A ; will be converted into a newline
  32. Exports will be handled like in win32:
  33. procedure bla;
  34. begin
  35. end;
  36. exports foo name 'Bar';
  37. The path to the import-Files must be specified by the library-path.
  38. All external modules are defined as autoload. (Note: the import-files have
  39. to be in unix-format for exe2nlm)
  40. By default, the most import files are included in freepascal.
  41. i.e. Procedure ConsolePrintf (p:pchar); cdecl; external 'clib.nlm';
  42. sets IMPORT @clib.imp and MODULE clib.
  43. Function simply defined as external work without generating autoload but
  44. you will get a warnung from nlmconv.
  45. If you dont have nlmconv, compile gnu-binutils with
  46. ./configure --enable-targets=i386-linux,i386-netware
  47. make all
  48. Debugging is possible with gdb and a converter from gdb to ndi available
  49. at http://home.arcor.de/armin.diehl/gdbnw
  50. A sample program:
  51. Program Hello;
  52. (*$DESCRIPTION HelloWorldNlm*)
  53. (*$VERSION 1.2.3*)
  54. (*$ScreenName Hello*)
  55. (*$M 60000,60000*)
  56. begin
  57. writeLn ('hello world');
  58. end.
  59. compile with:
  60. ppc386 -Tnetware hello
  61. ToDo:
  62. - No duplicate imports and autoloads
  63. - libc support (needs new target)
  64. ****************************************************************************
  65. }
  66. unit t_nwm;
  67. {$i fpcdefs.inc}
  68. interface
  69. implementation
  70. uses
  71. cutils,
  72. verbose,systems,globtype,globals,
  73. symconst,script,
  74. fmodule,aasmbase,aasmtai,aasmcpu,cpubase,symsym,
  75. import,export,link,i_nwm;
  76. type
  77. timportlibnetware=class(timportlib)
  78. procedure preparelib(const s:string);override;
  79. procedure importprocedure(const func,module:string;index:longint;const name:string);override;
  80. procedure importvariable(vs:tvarsym;const name,module:string);override;
  81. procedure generatelib;override;
  82. end;
  83. texportlibnetware=class(texportlib)
  84. procedure preparelib(const s : string);override;
  85. procedure exportprocedure(hp : texported_item);override;
  86. procedure exportvar(hp : texported_item);override;
  87. procedure generatelib;override;
  88. end;
  89. tlinkernetware=class(texternallinker)
  90. private
  91. NLMConvLinkFile: TLinkRes; {for second pass, fist pass is ld}
  92. Function WriteResponseFile(isdll:boolean) : Boolean;
  93. public
  94. constructor Create;override;
  95. procedure SetDefaultInfo;override;
  96. function MakeExecutable:boolean;override;
  97. end;
  98. Const tmpLinkFileName = 'link~tmp._o_';
  99. minStackSize = 32768;
  100. {*****************************************************************************
  101. TIMPORTLIBNETWARE
  102. *****************************************************************************}
  103. procedure timportlibnetware.preparelib(const s : string);
  104. begin
  105. end;
  106. procedure timportlibnetware.importprocedure(const func,module : string;index : longint;const name : string);
  107. begin
  108. { insert sharedlibrary }
  109. current_module.linkothersharedlibs.add(SplitName(module),link_allways);
  110. { do nothing with the procedure, only set the mangledname }
  111. if name<>'' then
  112. begin
  113. aktprocdef.setmangledname(name);
  114. end
  115. else
  116. message(parser_e_empty_import_name);
  117. end;
  118. procedure timportlibnetware.importvariable(vs:tvarsym;const name,module:string);
  119. begin
  120. { insert sharedlibrary }
  121. current_module.linkothersharedlibs.add(SplitName(module),link_allways);
  122. { reset the mangledname and turn off the dll_var option }
  123. vs.set_mangledname(name);
  124. exclude(vs.varoptions,vo_is_dll_var);
  125. end;
  126. procedure timportlibnetware.generatelib;
  127. begin
  128. end;
  129. {*****************************************************************************
  130. TEXPORTLIBNETWARE
  131. *****************************************************************************}
  132. procedure texportlibnetware.preparelib(const s:string);
  133. begin
  134. end;
  135. procedure texportlibnetware.exportprocedure(hp : texported_item);
  136. var
  137. hp2 : texported_item;
  138. begin
  139. { first test the index value }
  140. if (hp.options and eo_index)<>0 then
  141. begin
  142. Comment(V_Error,'can''t export with index under netware');
  143. exit;
  144. end;
  145. { use pascal name is none specified }
  146. if (hp.options and eo_name)=0 then
  147. begin
  148. hp.name:=stringdup(hp.sym.name);
  149. hp.options:=hp.options or eo_name;
  150. end;
  151. { now place in correct order }
  152. hp2:=texported_item(current_module._exports.first);
  153. while assigned(hp2) and
  154. (hp.name^>hp2.name^) do
  155. hp2:=texported_item(hp2.next);
  156. { insert hp there !! }
  157. if assigned(hp2) and (hp2.name^=hp.name^) then
  158. begin
  159. { this is not allowed !! }
  160. Message1(parser_e_export_name_double,hp.name^);
  161. exit;
  162. end;
  163. if hp2=texported_item(current_module._exports.first) then
  164. current_module._exports.insert(hp)
  165. else if assigned(hp2) then
  166. begin
  167. hp.next:=hp2;
  168. hp.previous:=hp2.previous;
  169. if assigned(hp2.previous) then
  170. hp2.previous.next:=hp;
  171. hp2.previous:=hp;
  172. end
  173. else
  174. current_module._exports.concat(hp);
  175. end;
  176. procedure texportlibnetware.exportvar(hp : texported_item);
  177. begin
  178. hp.is_var:=true;
  179. exportprocedure(hp);
  180. end;
  181. procedure texportlibnetware.generatelib;
  182. var
  183. hp2 : texported_item;
  184. begin
  185. hp2:=texported_item(current_module._exports.first);
  186. while assigned(hp2) do
  187. begin
  188. if (not hp2.is_var) and
  189. (hp2.sym.typ=procsym) then
  190. begin
  191. { the manglednames can already be the same when the procedure
  192. is declared with cdecl }
  193. if tprocsym(hp2.sym).first_procdef.mangledname<>hp2.name^ then
  194. begin
  195. {$ifdef i386}
  196. { place jump in codesegment }
  197. codesegment.concat(Tai_align.Create_op(4,$90));
  198. codeSegment.concat(Tai_symbol.Createname_global(hp2.name^,0));
  199. codeSegment.concat(Taicpu.Op_sym(A_JMP,S_NO,objectlibrary.newasmsymbol(tprocsym(hp2.sym).first_procdef.mangledname)));
  200. codeSegment.concat(Tai_symbol_end.Createname(hp2.name^));
  201. {$endif i386}
  202. end;
  203. end
  204. else
  205. //Comment(V_Error,'Exporting of variables is not supported under netware');
  206. Message1(parser_e_no_export_of_variables_for_target,'netware');
  207. hp2:=texported_item(hp2.next);
  208. end;
  209. end;
  210. {*****************************************************************************
  211. TLINKERNETWARE
  212. *****************************************************************************}
  213. Constructor TLinkerNetware.Create;
  214. begin
  215. Inherited Create;
  216. end;
  217. procedure TLinkerNetware.SetDefaultInfo;
  218. begin
  219. with Info do
  220. begin
  221. ExeCmd[1]:= 'ld -Ur -T $RES $STRIP -o $TMPOBJ';
  222. {$ifdef win32}
  223. ExeCmd[2]:='nlmconv -m i386nw -T$RES';
  224. {$else}
  225. ExeCmd[2]:='nlmconv -T$RES';
  226. {$endif}
  227. end;
  228. end;
  229. Function TLinkerNetware.WriteResponseFile(isdll:boolean) : Boolean;
  230. Var
  231. linkres : TLinkRes;
  232. i : longint;
  233. s,s2,s3 : string;
  234. ProgNam : string [80];
  235. NlmNam : string [80];
  236. hp2 : texported_item; { for exports }
  237. p : byte;
  238. begin
  239. WriteResponseFile:=False;
  240. ProgNam := current_module.exefilename^;
  241. i:=Pos(target_info.exeext,ProgNam);
  242. if i>0 then
  243. Delete(ProgNam,i,255);
  244. NlmNam := ProgNam + target_info.exeext;
  245. { Open link.res file }
  246. LinkRes:=TLinkRes.Create(outputexedir+Info.ResName); {for ld}
  247. NLMConvLinkFile:=TLinkRes.Create(outputexedir+'n'+Info.ResName); {for nlmconv, written in CreateExeFile}
  248. p := Pos ('"', Description);
  249. while (p > 0) do
  250. begin
  251. delete (Description,p,1);
  252. p := Pos ('"', Description);
  253. end;
  254. if Description <> '' then
  255. NLMConvLinkFile.Add('DESCRIPTION "' + Description + '"');
  256. NLMConvLinkFile.Add('VERSION '+tostr(dllmajor)+','+tostr(dllminor)+','+tostr(dllrevision));
  257. p := Pos ('"', nwscreenname);
  258. while (p > 0) do
  259. begin
  260. delete (nwscreenname,p,1);
  261. p := Pos ('"', nwscreenname);
  262. end;
  263. p := Pos ('"', nwthreadname);
  264. while (p > 0) do
  265. begin
  266. delete (nwthreadname,p,1);
  267. p := Pos ('"', nwthreadname);
  268. end;
  269. p := Pos ('"', nwcopyright);
  270. while (p > 0) do
  271. begin
  272. delete (nwcopyright,p,1);
  273. p := Pos ('"', nwcopyright);
  274. end;
  275. if nwscreenname <> '' then
  276. NLMConvLinkFile.Add('SCREENNAME "' + nwscreenname + '"');
  277. if nwthreadname <> '' then
  278. NLMConvLinkFile.Add('THREADNAME "' + nwthreadname + '"');
  279. if nwcopyright <> '' then
  280. NLMConvLinkFile.Add('COPYRIGHT "' + nwcopyright + '"');
  281. if stacksize < minStackSize then stacksize := minStackSize;
  282. str (stacksize, s);
  283. NLMConvLinkFile.Add ('STACKSIZE '+s);
  284. NLMConvLinkFile.Add ('INPUT '+tmpLinkFileName);
  285. { add objectfiles, start with nwpre always }
  286. LinkRes.Add ('INPUT (');
  287. s2 := FindObjectFile('nwpre','');
  288. Comment (V_Debug,'adding Object File '+s2);
  289. LinkRes.Add (s2);
  290. { main objectfiles, add to linker input }
  291. while not ObjectFiles.Empty do
  292. begin
  293. s:=ObjectFiles.GetFirst;
  294. if s<>'' then
  295. begin
  296. s2 := FindObjectFile (s,'');
  297. Comment (V_Debug,'adding Object File '+s2);
  298. LinkRes.Add (s2);
  299. end;
  300. end;
  301. { output file (nlm), add to nlmconv }
  302. NLMConvLinkFile.Add ('OUTPUT ' + NlmNam);
  303. { start and stop-procedures }
  304. NLMConvLinkFile.Add ('START _Prelude'); { defined in rtl/netware/nwpre.as }
  305. NLMConvLinkFile.Add ('EXIT _Stop'); { nwpre.as }
  306. NLMConvLinkFile.Add ('CHECK FPC_NW_CHECKFUNCTION'); { system.pp }
  307. if not (cs_link_strip in aktglobalswitches) then
  308. begin
  309. NLMConvLinkFile.Add ('DEBUG');
  310. Comment(V_Debug,'DEBUG');
  311. end;
  312. { Write staticlibraries, is that correct ? }
  313. if not StaticLibFiles.Empty then
  314. begin
  315. While not StaticLibFiles.Empty do
  316. begin
  317. S:=lower (StaticLibFiles.GetFirst);
  318. if s<>'' then
  319. begin
  320. {ad: that's a hack !
  321. whith -XX we get the .a files as static libs (in addition to the
  322. imported libraries}
  323. if (pos ('.a',s) <> 0) OR (pos ('.A', s) <> 0) then
  324. begin
  325. S2 := FindObjectFile(s,'');
  326. LinkRes.Add (S2);
  327. Comment(V_Debug,'adding Object File (StaticLibFiles) '+S2);
  328. end else
  329. begin
  330. i:=Pos(target_info.staticlibext,S);
  331. if i>0 then
  332. Delete(S,i,255);
  333. S := S + '.imp'; S2 := '';
  334. librarysearchpath.FindFile(S,S2);
  335. NLMConvLinkFile.Add('IMPORT @'+S2);
  336. Comment(V_Debug,'IMPORT @'+s2);
  337. end;
  338. end
  339. end;
  340. end;
  341. if not SharedLibFiles.Empty then
  342. begin
  343. While not SharedLibFiles.Empty do
  344. begin
  345. {becuase of upper/lower case mix, we may get duplicate
  346. names but nlmconv ignores that.
  347. Here we are setting the import-files for nlmconv. I.e. for
  348. the module clib or clib.nlm we add IMPORT @clib.imp and also
  349. the module clib.nlm (autoload)
  350. ? may it be better to set autoload's via StaticLibFiles ? }
  351. S:=lower (SharedLibFiles.GetFirst);
  352. if s<>'' then
  353. begin
  354. s2:=s;
  355. i:=Pos(target_info.sharedlibext,S);
  356. if i>0 then
  357. Delete(S,i,255);
  358. S := S + '.imp';
  359. librarysearchpath.FindFile(S,S3);
  360. NLMConvLinkFile.Add('IMPORT @'+S3);
  361. NLMConvLinkFile.Add('MODULE '+s2);
  362. Comment(V_Debug,'MODULE '+S2);
  363. Comment(V_Debug,'IMPORT @'+S3);
  364. end
  365. end;
  366. end;
  367. { write exports }
  368. hp2:=texported_item(current_module._exports.first);
  369. while assigned(hp2) do
  370. begin
  371. if not hp2.is_var then
  372. begin
  373. { Export the Symbol }
  374. Comment(V_Debug,'EXPORT '+hp2.name^);
  375. NLMConvLinkFile.Add ('EXPORT '+hp2.name^);
  376. end
  377. else
  378. { really, i think it is possible }
  379. Comment(V_Error,'Exporting of variables is not supported under netware');
  380. hp2:=texported_item(hp2.next);
  381. end;
  382. { Write and Close response for ld, response for nlmconv is in NLMConvLinkFile(not written) }
  383. linkres.Add (')');
  384. linkres.writetodisk;
  385. LinkRes.Free;
  386. { pass options from -k to nlmconv, ; is interpreted as newline }
  387. s := ParaLinkOptions;
  388. while(Length(s) > 0) and (s[1] = ' ') do
  389. delete (s,1,1);
  390. p := pos ('"',s);
  391. while p > 0 do
  392. begin
  393. delete (s,p,1);
  394. p := pos ('"',s);
  395. end;
  396. p := pos (';',s);
  397. while p > 0 do
  398. begin
  399. s2 := copy(s,1,p-1);
  400. comment (V_Debug,'adding "'+s2+'" to nlmvonv input');
  401. NLMConvLinkFile.Add(s2);
  402. delete (s,1,p);
  403. p := pos (';',s);
  404. end;
  405. if s <> '' then
  406. begin
  407. comment (V_Debug,'adding "'+s+'" to nlmvonv input');
  408. NLMConvLinkFile.Add(s);
  409. end;
  410. WriteResponseFile:=True;
  411. end;
  412. function TLinkerNetware.MakeExecutable:boolean;
  413. var
  414. binstr,
  415. cmdstr : string;
  416. success : boolean;
  417. StripStr : string[2];
  418. begin
  419. if not(cs_link_extern in aktglobalswitches) then
  420. Message1(exec_i_linking,current_module.exefilename^);
  421. { Create some replacements }
  422. StripStr:='';
  423. if (cs_link_strip in aktglobalswitches) then
  424. StripStr:='-s';
  425. { Write used files and libraries and create Headerfile for
  426. nlmconv in NLMConvLinkFile }
  427. WriteResponseFile(false);
  428. { Call linker, this will generate a new object file that will be passed
  429. to nlmconv. Otherwise we could not create nlms without debug info }
  430. SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
  431. Replace(cmdstr,'$EXE',current_module.exefilename^);
  432. Replace(cmdstr,'$RES',outputexedir+Info.ResName);
  433. Replace(cmdstr,'$STRIP',StripStr);
  434. Replace(cmdstr,'$TMPOBJ',outputexedir+tmpLinkFileName);
  435. Comment (v_debug,'Executing '+BinStr+' '+cmdstr);
  436. success:=DoExec(FindUtil(BinStr),CmdStr,true,false);
  437. { Remove ReponseFile }
  438. if (success) and not(cs_link_extern in aktglobalswitches) then
  439. RemoveFile(outputexedir+Info.ResName);
  440. { Call nlmconv }
  441. if success then
  442. begin
  443. NLMConvLinkFile.writetodisk;
  444. NLMConvLinkFile.Free;
  445. SplitBinCmd(Info.ExeCmd[2],binstr,cmdstr);
  446. Replace(cmdstr,'$RES',outputexedir+'n'+Info.ResName);
  447. Comment (v_debug,'Executing '+BinStr+' '+cmdstr);
  448. success:=DoExec(FindUtil(BinStr),CmdStr,true,false);
  449. if (success) and not(cs_link_extern in aktglobalswitches) then
  450. RemoveFile(outputexedir+'n'+Info.ResName);
  451. {always remove the temp object file}
  452. RemoveFile(outputexedir+tmpLinkFileName);
  453. end;
  454. MakeExecutable:=success; { otherwise a recursive call to link method }
  455. end;
  456. {*****************************************************************************
  457. Initialize
  458. *****************************************************************************}
  459. initialization
  460. RegisterExternalLinker(system_i386_netware_info,TLinkerNetware);
  461. RegisterImport(system_i386_netware,TImportLibNetware);
  462. RegisterExport(system_i386_netware,TExportLibNetware);
  463. RegisterTarget(system_i386_netware_info);
  464. end.
  465. {
  466. $Log$
  467. Revision 1.6 2003-03-22 14:51:27 armin
  468. * support -k for additional nlmvonv headeroptions, -m i386nw for win32, support -sh
  469. Revision 1.5 2003/03/21 22:36:42 armin
  470. * changed linking: now we will link all objects to a single one and call nlmconv with that one object file. This makes it possible to create nlms without debug info.
  471. Revision 1.4 2003/03/21 19:19:51 armin
  472. * search of .imp files was broken, debug only if -gg was specified
  473. Revision 1.3 2002/11/17 16:32:04 carl
  474. * memory optimization (3-4%) : cleanup of tai fields,
  475. cleanup of tdef and tsym fields.
  476. * make it work for m68k
  477. Revision 1.2 2002/09/09 17:34:17 peter
  478. * tdicationary.replace added to replace and item in a dictionary. This
  479. is only allowed for the same name
  480. * varsyms are inserted in symtable before the types are parsed. This
  481. fixes the long standing "var longint : longint" bug
  482. - consume_idlist and idstringlist removed. The loops are inserted
  483. at the callers place and uses the symtable for duplicate id checking
  484. Revision 1.1 2002/09/06 15:03:50 carl
  485. * moved files to systems directory
  486. Revision 1.30 2002/09/03 16:26:29 daniel
  487. * Make Tprocdef.defs protected
  488. Revision 1.29 2002/08/12 15:08:44 carl
  489. + stab register indexes for powerpc (moved from gdb to cpubase)
  490. + tprocessor enumeration moved to cpuinfo
  491. + linker in target_info is now a class
  492. * many many updates for m68k (will soon start to compile)
  493. - removed some ifdef or correct them for correct cpu
  494. Revision 1.28 2002/08/11 14:32:32 peter
  495. * renamed current_library to objectlibrary
  496. Revision 1.27 2002/08/11 13:24:20 peter
  497. * saving of asmsymbols in ppu supported
  498. * asmsymbollist global is removed and moved into a new class
  499. tasmlibrarydata that will hold the info of a .a file which
  500. corresponds with a single module. Added librarydata to tmodule
  501. to keep the library info stored for the module. In the future the
  502. objectfiles will also be stored to the tasmlibrarydata class
  503. * all getlabel/newasmsymbol and friends are moved to the new class
  504. Revision 1.26 2002/07/26 21:15:46 florian
  505. * rewrote the system handling
  506. Revision 1.25 2002/07/01 18:46:35 peter
  507. * internal linker
  508. * reorganized aasm layer
  509. Revision 1.24 2002/05/18 13:34:27 peter
  510. * readded missing revisions
  511. Revision 1.23 2002/05/16 19:46:53 carl
  512. + defines.inc -> fpcdefs.inc to avoid conflicts if compiling by hand
  513. + try to fix temp allocation (still in ifdef)
  514. + generic constructor calls
  515. + start of tassembler / tmodulebase class cleanup
  516. Revision 1.21 2002/04/22 18:19:22 carl
  517. - remove use_bound_instruction field
  518. Revision 1.20 2002/04/20 21:43:18 carl
  519. * fix stack size for some targets
  520. + add offset to parameters from frame pointer info.
  521. - remove some unused stuff
  522. Revision 1.19 2002/04/19 15:46:05 peter
  523. * mangledname rewrite, tprocdef.mangledname is now created dynamicly
  524. in most cases and not written to the ppu
  525. * add mangeledname_prefix() routine to generate the prefix of
  526. manglednames depending on the current procedure, object and module
  527. * removed static procprefix since the mangledname is now build only
  528. on demand from tprocdef.mangledname
  529. Revision 1.18 2002/04/15 19:16:57 carl
  530. - remove size_of_pointer field
  531. Revision 1.17 2002/03/30 09:09:47 armin
  532. + support check-function for netware
  533. Revision 1.16 2002/03/29 17:19:51 armin
  534. + allow exports for netware
  535. Revision 1.15 2002/03/19 20:23:57 armin
  536. + smart linking now works with netware
  537. Revision 1.14 2002/03/04 17:54:59 peter
  538. * allow oridinal labels again
  539. Revision 1.13 2002/03/03 13:00:39 hajny
  540. * importprocedure fix by Armin Diehl
  541. }