Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
jberryman
GHC
Commits
3cf75195
Commit
3cf75195
authored
Feb 12, 2001
by
simonmar
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[project @ 2001-02-12 12:22:01 by simonmar]
add some assertions
parent
7954c508
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
1 deletion
+7
-1
ghc/rts/Linker.c
ghc/rts/Linker.c
+7
-1
No files found.
ghc/rts/Linker.c
View file @
3cf75195
/* -----------------------------------------------------------------------------
* $Id: Linker.c,v 1.2
2 2001/02/11 17:51:07
simonmar Exp $
* $Id: Linker.c,v 1.2
3 2001/02/12 12:22:01
simonmar Exp $
*
* (c) The GHC Team, 2000
*
...
...
@@ -285,6 +285,7 @@ void *
lookupSymbol
(
char
*
lbl
)
{
SymbolVal
*
val
;
ASSERT
(
symhash
!=
NULL
);
val
=
lookupStrHashTable
(
symhash
,
lbl
);
if
(
val
==
NULL
)
{
...
...
@@ -415,6 +416,9 @@ unloadObj( char *path )
{
ObjectCode
*
oc
,
*
prev
;
ASSERT
(
symhash
!=
NULL
);
ASSERT
(
objects
!=
NULL
);
prev
=
NULL
;
for
(
oc
=
objects
;
oc
;
prev
=
oc
,
oc
=
oc
->
next
)
{
if
(
!
strcmp
(
oc
->
fileName
,
path
))
{
...
...
@@ -1290,6 +1294,8 @@ ocGetNames_ELF ( ObjectCode* oc )
Elf32_Shdr
*
shdr
=
(
Elf32_Shdr
*
)
(
ehdrC
+
ehdr
->
e_shoff
);
char
*
sh_strtab
=
ehdrC
+
shdr
[
ehdr
->
e_shstrndx
].
sh_offset
;
ASSERT
(
symhash
!=
NULL
);
if
(
!
strtab
)
{
belch
(
"ocGetNames_ELF: no strtab"
);
return
0
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment