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

* use do_internalerror insetead of runerror

Browse Source
This commit is contained in:
pierre 1999-09-07 15:11:00 +00:00
parent a5c2aa5df8
commit 7439aa4828
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/globals.pas
View File

@ -247,6 +247,9 @@ unit globals;
implementation implementation
uses
comphook;
procedure strdispose(var p : pchar); procedure strdispose(var p : pchar);
begin begin
@ -327,7 +330,7 @@ unit globals;
(* if (p<>nil) {and (* if (p<>nil) {and
((p<heaporg) or ((p<heaporg) or
(p>heapptr))} then (p>heapptr))} then
runerror(230); *) do_internalerror(230); *)
{$else} {$else}
{$ifdef DPMI} {$ifdef DPMI}
assigned:=(p<>nil); assigned:=(p<>nil);
@ -340,7 +343,7 @@ unit globals;
if (lp<>0) and if (lp<>0) and
((lp<longint(seg(heaporg^))*16+longint(ofs(heaporg^))) or ((lp<longint(seg(heaporg^))*16+longint(ofs(heaporg^))) or
(lp>longint(seg(heapptr^))*16+longint(ofs(heapptr^)))) then (lp>longint(seg(heapptr^))*16+longint(ofs(heapptr^)))) then
runerror(230); do_internalerror(230);
{$endif DPMI} {$endif DPMI}
{$endif FPC} {$endif FPC}
assigned:=(p<>nil); assigned:=(p<>nil);
@ -1146,7 +1149,7 @@ unit globals;
procedure abstract; procedure abstract;
begin begin
runerror(255); do_internalerror(255);
end; end;
@ -1250,7 +1253,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-08-30 10:17:56 peter Revision 1.23 1999-09-07 15:11:00 pierre
* use do_internalerror insetead of runerror
Revision 1.22 1999/08/30 10:17:56 peter
* fixed crash in psub * fixed crash in psub
* ansistringcompare fixed * ansistringcompare fixed
* support for #$0b8 * support for #$0b8
@ -1503,7 +1509,7 @@ end.
Revision 1.75 1998/10/13 08:19:32 pierre Revision 1.75 1998/10/13 08:19:32 pierre
+ source_os is now set correctly for cross-processor compilers + source_os is now set correctly for cross-processor compilers
(tos contains all target_infos and (tos contains all target_infos and
we use CPU86 and CPU68 conditionnals to we use CPU86 and CPU68 conditionals to
get the source operating system get the source operating system
this only works if you do not undefine this only works if you do not undefine
the source target !!) the source target !!)