paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tstoreddef.getcopy returns now an errordef instead of nil; this

Browse Source 
allows easier error recovery
This commit is contained in:
florian 2003-11-08 23:31:27 +00:00
parent 585d13369c
commit 82b7c0c9cc
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/symdef.pas
View File

@ -984,7 +984,7 @@ implementation
function tstoreddef.getcopy : tstoreddef; function tstoreddef.getcopy : tstoreddef;
begin begin
Message(sym_e_cant_create_unique_type); Message(sym_e_cant_create_unique_type);
getcopy:=nil; getcopy:=terrordef.create;
end; end;
procedure tstoreddef.ppuwritedef(ppufile:tcompilerppufile); procedure tstoreddef.ppuwritedef(ppufile:tcompilerppufile);
@ -2715,8 +2715,8 @@ implementation
IsConvertedPointer:=true; IsConvertedPointer:=true;
setelementtype(elemt); setelementtype(elemt);
end; end;
constructor tarraydef.ppuload(ppufile:tcompilerppufile); constructor tarraydef.ppuload(ppufile:tcompilerppufile);
begin begin
inherited ppuloaddef(ppufile); inherited ppuloaddef(ppufile);
@ -2829,7 +2829,7 @@ implementation
(($7fffffff div cachedsize + (cachedsize -1)) < (int64(highrange) - int64(lowrange))) (($7fffffff div cachedsize + (cachedsize -1)) < (int64(highrange) - int64(lowrange)))
) Then ) Then
Message(sym_e_segment_too_large); Message(sym_e_segment_too_large);
end; end;
end; end;
@ -6112,7 +6112,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.188 2003-11-05 14:18:03 marco Revision 1.189 2003-11-08 23:31:27 florian
* tstoreddef.getcopy returns now an errordef instead of nil; this
allows easier error recovery
Revision 1.188 2003/11/05 14:18:03 marco
* fix from Peter arraysize warning (nav Newsgroup msg) * fix from Peter arraysize warning (nav Newsgroup msg)
Revision 1.187 2003/11/01 15:50:03 peter Revision 1.187 2003/11/01 15:50:03 peter