Access violation whenever accessing a singleton object in the procedure library

We are using a .pl to compress all our .r code running on a specific appserver. We have now found some issues accessing a few of these programs inside the library.

We seem to notice that only singleton objects have these issues.

Currently we can do a workaround by removing the files from the .pl and putting them in a directory before the .pl.

We are using Progress Version 11.6.3.

These are examples of classes we have found having issues with.

USING Progress.Lang.*.

ROUTINE-LEVEL ON ERROR UNDO, THROW.

CLASS GROUP.prg.rep.Singleton:
DEFINE PRIVATE STATIC VARIABLE Instance AS Singleton NO-UNDO.

/*------------------------------------------------------------------------------
@Purpose : basic private constructor
------------------------------------------------------------------------------*/
CONSTRUCTOR PRIVATE G_PROCOVLSingleton ():
END CONSTRUCTOR.

/*------------------------------------------------------------------------------
@Purpose : get the instance of the class
------------------------------------------------------------------------------*/
METHOD PUBLIC STATIC Singleton GetInstance ():
IF NOT VALID-OBJECT (Instance) THEN
Instance = NEW Singleton().
RETURN Instance.
END METHOD.

END CLASS.


I have removed some vital information from this class as I cannot share company code but this principle is the same between all our issues.

Continue reading...