- Community Home
- >
- Servers and Operating Systems
- >
- Operating System - OpenVMS
- >
- Pascal copiler generated %init function
-
- Forums
-
- Advancing Life & Work
- Advantage EX
- Alliances
- Around the Storage Block
- HPE Ezmeral: Uncut
- OEM Solutions
- Servers & Systems: The Right Compute
- Tech Insights
- The Cloud Experience Everywhere
- HPE Blog, Austria, Germany & Switzerland
- Blog HPE, France
- HPE Blog, Italy
- HPE Blog, Japan
- HPE Blog, Middle East
- HPE Blog, Russia
- HPE Blog, Saudi Arabia
- HPE Blog, South Africa
- HPE Blog, UK & Ireland
-
Blogs
- Advancing Life & Work
- Advantage EX
- Alliances
- Around the Storage Block
- HPE Blog, Latin America
- HPE Blog, Middle East
- HPE Blog, Saudi Arabia
- HPE Blog, South Africa
- HPE Blog, UK & Ireland
- HPE Ezmeral: Uncut
- OEM Solutions
- Servers & Systems: The Right Compute
- Tech Insights
- The Cloud Experience Everywhere
-
Information
- Community
- Welcome
- Getting Started
- FAQ
- Ranking Overview
- Rules of Participation
- Tips and Tricks
- Resources
- Announcements
- Email us
- Feedback
- Information Libraries
- Integrated Systems
- Networking
- Servers
- Storage
- Other HPE Sites
- Support Center
- Aruba Airheads Community
- Enterprise.nxt
- HPE Dev Community
- Cloud28+ Community
- Marketplace
-
Forums
-
Blogs
-
Information
-
English
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
06-04-2007 03:44 AM
06-04-2007 03:44 AM
Pascal copiler generated %init function
If I give the command
$Lib/lis/full/names DATA$DISK:[LIBRARY]TSTLIB.OLB
I get:
Module ERR_ROUTINES Ident 01 Inserted 21-JUL-2006 13:44:19 2 symbols
ERR_DISPLAY
ERR_ROUTINES%INIT
I used to get:
Module ERR_ROUTINES Ident 01 Inserted 30-JUN-2006 11:20:30 1 symbol
ERR_DISPLAY
How can I get rid of the %INIT function?
- Tags:
- Pascal
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
06-04-2007 04:26 AM
06-04-2007 04:26 AM
Re: Pascal copiler generated %init function
it might help us if you could specify the version of your pascal compiler, and whether it has changed recently?
If you could also supply an example of the command line used to compile the module, that would help.
If you could generate a simple routine which demonstrates your problem, then you could attach it as a .txt document, which everybody could read.
See the reference manual section 3.3 on page 3-5 for details of the compiler generation of xxxx%INIT modules.
http://h71000.www7.hp.com/doc/82final/6083/aa-pwvsd-tk.pdf
Duncan
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
06-04-2007 05:01 AM
06-04-2007 05:01 AM
Re: Pascal copiler generated %init function
- TO BEGIN DO
- TO END DO
- module level schema
Have you added any of these features to your Pascal application lately?
The compiler's logic for "when" to create %INIT routines has not changed much in recent times.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
06-04-2007 11:19 PM
06-04-2007 11:19 PM
Re: Pascal copiler generated %init function
I added a TIMESTAMP variable to a
log-function
To get the time-stamp, the function
GETTIMESTAMP was used
The log-function is a hidden function in a module that has the ENVIRONMENT attribute
All compilation units that include the PEN-file above will get the %INIT-functions
If I remove GETTIMESTAMP no init-functions are created.
How can I get a time-stamp whithout getting the %init-functions?
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
06-04-2007 11:38 PM
06-04-2007 11:38 PM
Re: Pascal copiler generated %init function
:
>> If I remove GETTIMESTAMP no init-functions are created.
So there's your solution :^)
You did without so long, why change now!
>> How can I get a time-stamp whithout getting the %init-functions?
Just curious... why does it bother you?
You asked the compiler for a service,
It deviced the best why it could think of to provide that service, so it's all good now?!
I suspect, but admittedly have not studied this for real, you can create a single function with the GETTIMESTAMP, and call that from those hidden routines. The end result may be better or worse. Dunno
"junk spam",
Why not change that to a real looking name, or even a real name? Or at least have to courtesy to sign of with a seemingly real (first) name?
Cheers,
Hein van den Heuvel
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
06-05-2007 12:24 AM
06-05-2007 12:24 AM
Re: Pascal copiler generated %init function
>>You did without so long, why change now!
We have experienced some application errors during the latest months. The time of the errors could be of some interest when trying to pinpoint the problem :-)
>>Just curious... why does it bother you?
Our software distribution method is quite strange. We compile on a development machine, and link during the installation on the test- and production-machines. If the compiler starts to generate new functions we get link errors when the new modules are being installed and linked together with older modules without the %INIT-functions
>>I suspect, but admittedly have not
>>studied this for real, you can create
>>a single >>function with the
>> GETTIMESTAMP, and call that from
>>those hidden routines. The end
>>result may be better or worse
Thanks, I'll try that!
Regards
Krister
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
06-13-2007 08:02 AM
06-13-2007 08:02 AM
Re: Pascal copiler generated %init function
Depending on where you declared the timestamp in the module, it seems the compiler wanted a LIB$INITIALIZE routine to do that initialization.
I'd have to see more detailed source to give a workaround/solution.
Hewlett Packard Enterprise International
- Communities
- HPE Blogs and Forum
© Copyright 2021 Hewlett Packard Enterprise Development LP