this unit does not work
Hi all, I would like to put some file operation in a separate precompiled unit. The matter is the assign binding code given in the info file does not work when put in a UNIT, where it works when in the program source itself, and some others units I made exactly the same way works fine (not using to begin do). Here is the unit code contening just the binding : -------------- UNIT files_operations; INTERFACE Procedure Assign ( Var T: Text; Name: String ); IMPLEMENTATION Procedure Assign ( Var T: Text; Name: String ); Var B : BindingType; begin (* Assign *) unbind ( T ); B:= binding ( T ); B.Name:= Name; bind ( T, B ); B:= binding ( T ); end; (* Assign *) END. --------------- And when linked as the usual way in the program, it makes it crash (segmentation fault). gpc --version 2.0(2.7.2.1)
participants (2)
-
Jesper Lund -
laussy